スポンサーリンク

2014年7月9日水曜日

テキストボックス-ActiveXコントロールの使用方法

Excel2013のActiveXコントロール テキストボックスの使用方法です。

リボンの[開発]-[挿入]-[テキストボックス(ActiveXコントロール)]をクリックします。
[テキストボックス(ActiveXコントロール)]をクリック
シートをドラッグし配置し、リボンの[コードの表示]をクリックします。
[コードの表示]をクリック
ここでは、テキストボックスに入力した文字をセルに表示させるコードを入力します。

Private Sub TextBox1_Change()
    Range("B7") = TextBox1.Value
End Sub

テキストボックスに文字を入力するとChangeイベントが発生し、指定したセルに値を代入します。
Changeイベントが発生
リボンの[デザインモード]をクリックし解除、テキストボックスに文字を入力するとセルにその文字が表示されます。
テキストボックスに文字を入力するとセルにその文字が表示