|
▼れいな さん:
>キーボードから読み込んだ2つの数字を、別々の変数A(1)とA(2)に格納し、A(1)の値をR5C1セル、A(2)の値をR5C2セルに表示する。このうち、小さくないほうの数字をR6C2セルに表示させたいのです。
>
>Sub Macro1()
> For B= TO 2
> A(B)=InputBox(B)
> Sheet1.Cells(5,B).Value=A(B)
> Next B
> [ ]
>End Sub
>
>[ ]の中にどんなコードをいれたら良いか教えてください
意味がよくわかってないですが、こういう事でしょうか?
違ったらごめんなさい。
Sub test()
Dim myVal(1 To 2) As Long
Dim i As Long
For i = 1 To 2
myVal(i) = Application.InputBox("数字を入力してください", Type:=1)
Sheets(1).Cells(5, i).Value = myVal(i)
Next
If myVal(1) <= myVal(2) Then
Sheets(1).Cells(6, 2).Value = myVal(2)
Else
Sheets(1).Cells(6, 2).Value = myVal(1)
End If
End Sub
0 hits
|
|