今回は、インプットボックスを表示し、ユーザーが入力した文字列を取得してみます。
メッセージボックスは
InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])
で表示します。
prompt＝ダイアログ ボックス内にメッセージとして表示する
title＝ダイアログ ボックスのタイトル バーに表示する文字
default＝テキスト ボックスに既定値として表示する文字
xpos＝ダイアログ ボックスの左端までの水平方向の距離
ypos＝ダイアログ ボックスの上端までの垂直方向の距離
では、実際にプログラムで試してみます。
前回使用したプログラムに
Dim strIn As String
strIn = InputBox("何か入力して下さい。")
と追記しました。
Sub 練習1()
Dim i As Integer
Dim rtn As Integer
Dim strIn As String
strIn = InputBox("何か入力して下さい。")
For i = 1 To 10
Cells(i, 1).Value = strIn 'セルに文字を表示する
Cells(i, 1).Font.Size = 10 + i 'セルの文字の大きさを指定
Next i
Cells(i, 1).Value = "ここは" & Cells(Rows.Count, 1).End(xlUp).Row + 1 & "行目です。"
rtn = MsgBox("11行目が最終行ですか？", vbYesNo + vbQuestion + vbDefaultButton2, "確認")
Select Case rtn '押されたボタンの確認
Case vbYes
MsgBox "正解です。"
Case vbNo
MsgBox "間違いです。"
End Select
実行するとインプットボックスが表示されます。
こんなふうに表示されました。
0 件のコメント:
コメントを投稿