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

0 hits

【44358】条件分岐について れいな 06/11/13(月) 22:45 質問
【44360】Re:条件分岐について ponpon 06/11/13(月) 23:23 発言
【44384】Re:条件分岐について れいな 06/11/14(火) 17:22 お礼
【44362】Re:条件分岐について maverick 06/11/14(火) 11:33 回答
【44382】Re:条件分岐について れいな 06/11/14(火) 17:20 お礼
【44372】Re:条件分岐について Kein 06/11/14(火) 15:16 回答
【44380】Re:条件分岐について れいな 06/11/14(火) 17:18 お礼

37537 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free