テキストボックス(TextBox)の値をセルへ

最終更新日：2013-05-14

第7回.テキストボックス(TextBox)の値をセルへ

前回までに作成したのが、

Excelサンプル画像

これでした。

「OK」ボタンを押下すると、

このテキストボックスに入力した値を、

シートのセルに値を設定するようにします。

まずは、そのシートを用意します。

Excelサンプル画像

とりあえず、こんな感じで良いでしょう。

実行ボタンには、先に作成してある、

Sub FormShow()
　　frmSample.Show
End Sub

このプロシージャーを割り当てておきましょう。

では、続いて、

「OK」ボタンをダブルクリックし以下のイベントを追加します。

Private Sub btnOk_Click()

End Sub

これを以下に変更します。

Private Sub btnOk_Click()
　　Dim lastRow As Long
　　With Worksheets("顧客マスタ")
　　　　lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
　　　　.Cells(lastRow, 1) = Me.txtコード.Text
　　　　.Cells(lastRow, 2) = Me.txt漢字名称.Text
　　　　.Cells(lastRow, 3) = Me.txtカナ名称.Text
　　End With
　　Unload Me
End Sub

これで完成です。

テキストボックスに入力された値は、Textプロパティで取得します。

実行ボタンを押下し、フォームを起動して、

テキストボックスに入力してから、「OK」ボタンを押下してみましょう。

一番下に、テキストボックスの値が入りましたね。

btnOk_Clickを作成するとき、単にコピペで貼り付けるのではなく、

一文字ずつ入力してみて下さい。

すると、何かに気がついたと思います。

Me.

ここまで入力したときに、インテリセンス（自動補完）が効きます。

そして、

Me.txt

ここまで入力すると、

Excelサンプル画像

オブジェクト名にプリフィックスを付けたのはこの為です。

そうです、名前を確認しやすくなりますし、効率が良くなります。