Excel VBA質問箱 IV

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

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


8745 / 13644 ツリー ←次へ | 前へ→

【31275】VBAの件で超初心者ですいません・・・。 むち 05/11/16(水) 15:00 質問[未読]
【31276】Re:VBAの件で超初心者ですいません・・・。 Kein 05/11/16(水) 15:26 回答[未読]
【31277】Re:VBAの件で超初心者ですいません・・・。 Statis 05/11/16(水) 15:28 回答[未読]
【31418】Re:VBAの件で超初心者ですいません・・・。 むち 05/11/19(土) 17:11 お礼[未読]

【31275】VBAの件で超初心者ですいません・・・。
質問  むち  - 05/11/16(水) 15:00 -

引用なし
パスワード
   キーボードから整数を二つ入力させ、大きい順に表示するプログラムはどうやって作成すればいいのでしょうか・・?
InputBoxとMsgBoxに何を入れればいいかよくわからなくて・・。
たとえば
入力1の画面で30を入れて
次の入力2の画面で50を入れたら
次のメッセージで、あなたの入力した数字は50と30
のようにしたいですがわからないので・・・
おそらくIfを使うと思うのですが。
とても初歩の質問なのですが、どなたか教えてください。

【31276】Re:VBAの件で超初心者ですいません・・・...
回答  Kein  - 05/11/16(水) 15:26 -

引用なし
パスワード
   Sub Mx_Value()
  Dim Ary(1 To 2) As Long, MyV As Long
  Dim i As Integer
  Dim St As String
 
  With Application
   For i = 1 To 2
     MyV = .InputBox("整数その " & i & _
     " を入力して下さい", Type:=1)
     If MyV = False Then Exit Sub
     Ary(i) = MyV
   Next i
   St = .Max(Ary) & " と " & .Min(Ary)
  End With
  MsgBox "入力した数字は" & vbLf & St
  Erase Ary
End Sub

てな感じでしょーか ?

【31277】Re:VBAの件で超初心者ですいません・・・...
回答  Statis  - 05/11/16(水) 15:28 -

引用なし
パスワード
   こんにちは

こんな感じです。

Sub test()
Dim MyIp1 As Variant, MyIp2 As Variant, Ms As String

MyIp1 = Application.InputBox("最初の数値を入力して下さい。")
If MyIp1 = "" Or MyIp1 = "False" Or Not IsNumeric(MyIp1) Then Exit Sub
MyIp2 = Application.InputBox("2番目の数値を入力して下さい。")
If MyIp2 = "" Or MyIp2 = "False" Or Not IsNumeric(MyIp2) Then Exit Sub
If MyIp1 >= MyIp2 Then
  Ms = "あなたの入力数値は「" & MyIp1 & "」と「" _
                 & MyIp2 & "」です。"
Else
  Ms = "あなたの入力数値は「" & MyIp2 & "」と「" _
                 & MyIp1 & "」です。"
End If
MsgBox Ms, vbInformation
End Sub

【31418】Re:VBAの件で超初心者ですいません・・・...
お礼  むち  - 05/11/19(土) 17:11 -

引用なし
パスワード
   遅くなりましたが、お二人とも詳しく誠にありがとうございます!!
なんとかできそうです!
この度はありがとうございました。

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