入力ボックスを出す

たけうちとおる (2009年5月26日) | コメント(0) | トラックバック(0)

Sub 入力ボックスを出す()
    Dim N As Integer
    N = Application.InputBox(prompt:="入力", Title:="タイトル", Default:=1, Type:=1)
    Cells(1, 1).Value = N
End Sub

Type引数の値 0数式 1数値 2文字列 4trueまたはfalse 8セル参照 16エラー値 64数値配列

トラックバック(0)

トラックバックURL: http://winnote.adg7.com/mt/mt-tb.cgi/175

名前

電子メール

URL

ログイン情報を記憶

コメント (スタイル用のHTMLタグを使えます)