Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

37513 / 76732

←次へ　｜　前へ→


	【44384】Re:条件分岐について

れいな - 06/11/14(火) 17:22 -


	引用なし

	パスワード

▼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
教えてくださりありがとうございました。
助かりました。

1 hits

▼

【44358】条件分岐について れいな 06/11/13(月) 22:45