Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6592 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 お礼[未読]
【44358】条件分岐について
質問  れいな  - 06/11/13(月) 22:45 -
引用なし
パスワード
   キーボードから読み込んだ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

[　　　　　]の中にどんなコードをいれたら良いか教えてください
【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
【44362】Re:条件分岐について
回答  maverick  - 06/11/14(火) 11:33 -
引用なし
パスワード
   Sheet1.Cells(6, 2).Value = WorksheetFunction.Max(A)
【44372】Re:条件分岐について
回答  Kein  - 06/11/14(火) 15:16 -
引用なし
パスワード
   まんまのコードなら、こんな感じ。

Sub Ipt_Number()
　 Dim i As Integer
　 Dim Num(1 To 2) As Long
　
　 For i = 1 To 2
　　　Num(i) = Application _
　　　.InputBox(i & " 個めの数値を入力して下さい", Type:=1)
　　　If Num(i) = False Then Exit Sub
　 Next i
　 If UBound(Num) < 2 Then Exit Sub
　 Range("A5:B5").Value = Num
　 Range("B6").Value = WorksheetFunction.Max(Num)
　 Erase Num
End Sub
【44380】Re:条件分岐について
お礼  れいな  - 06/11/14(火) 17:18 -
引用なし
パスワード
   ▼Kein さん：教えてくださりありがとうございました。助かりました
>まんまのコードなら、こんな感じ。
>
>Sub Ipt_Number()
>　 Dim i As Integer
>　 Dim Num(1 To 2) As Long
>　
>　 For i = 1 To 2
>　　　Num(i) = Application _
>　　　.InputBox(i & " 個めの数値を入力して下さい", Type:=1)
>　　　If Num(i) = False Then Exit Sub
>　 Next i
>　 If UBound(Num) < 2 Then Exit Sub
>　 Range("A5:B5").Value = Num
>　 Range("B6").Value = WorksheetFunction.Max(Num)
>　 Erase Num
>End Sub
【44382】Re:条件分岐について
お礼  れいな  - 06/11/14(火) 17:20 -
引用なし
パスワード
   ▼maverick さん：
>Sheet1.Cells(6, 2).Value = WorksheetFunction.Max(A)

教えてくださりありがとうございました。
助かりました。
【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
教えてくださりありがとうございました。
助かりました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6592 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free