Excel VBA質問箱 IV

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

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


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

50351 / 76738

←次へ　｜　前へ→


	【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

てな感じでしょーか ?

0 hits

▼

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