|
▼ponpon さん:
>▼れいな さん:
>>キーボードから読み込んだ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
教えてくださりありがとうございました。
助かりました。
|
|