Excel VBA質問箱 IV

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

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


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

37537 / 76732

←次へ　｜　前へ→


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

ponpon - 06/11/13(月) 23:23 -


	引用なし

	パスワード

▼れいなさん：
>キーボードから読み込んだ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

2 hits

▼

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