思考酒後

自分に入ってきた情報を定着、深化するために文章化

MENU

【Excelマクロ】インプットボックスの使い方をまとめておく【超簡易】


 こんにちは、masaです。

 今日は自分用のメモとして「インプットボックスの使い方」についてまとめておこうと思います。

 

 たまにしか使わないから忘れちゃうんですよね…。

 

インプットボックスの使い方

Sub インプットボックスの使い方()


Dim ans As Variant

ans = InputBox("任意のデータを入力してください", "データ入力", "")

 

’入力してあって、OKをクリックした場合にA1の値が入力されます。

If ans <> "" Then
Range("a1").Value = ans
End If

End Sub

 

▼起動するとこんな感じです。(コード内でAlt+F11)

f:id:masa_mn:20190316102455j:plain