Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8747 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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に何を入れればいいかよくわからなくて・・。
たとえば
入力１の画面で３０を入れて
次の入力２の画面で５０を入れたら
次のメッセージで、あなたの入力した数字は５０と３０
のようにしたいですがわからないので・・・
おそらく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 -
引用なし
パスワード
   遅くなりましたが、お二人とも詳しく誠にありがとうございます！！
なんとかできそうです！
この度はありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8747 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free