ラベルに文字列を表示する（2）：入力から確認文を作る
ボタンを押した時点の入力を読み取り、ラベルに確認文を組み立てます。固定表示とイベントによる更新を区別します。
実行前に確認
- 添付目次の番号に対応させた独自の実装例です。書籍本文の方法を再現・確認したものではありません。
- コードと公式仕様を照合した学習用の例です。Excel実機での実行確認は行っていません。
1サンプルコード
'【貼付先：UserForm1 のコードモジュール】
Option Explicit
Private Sub UserForm_Initialize()
Me.TextBox1.Value = "ノート"
Me.Label1.Caption = "確認ボタンを押してください。"
Me.Label1.AutoSize = True
Me.CommandButton1.Caption = "確認"
End Sub
Private Sub CommandButton1_Click()
Dim itemName As String
itemName = Trim$(CStr(Me.TextBox1.Value))
If Len(itemName) = 0 Then
Me.Label1.Caption = "商品名が空欄です。"
Else
Me.Label1.Caption = "選んだ商品：" & itemName
End If
End Sub図で見る入力を表示文にする
イメージ図ボタンを押した時点の入力を読み取り、ラベルに確認文を組み立てます。固定表示とイベントによる更新を区別します。
入力
TextBox1に商品名
確認
ボタンクリックで空欄を判定
表示
Label1.Captionを更新
各操作は、このガイドに指定されたフォームのコードで行います。
コードの処理を説明する模式図です。実際の画面や実行結果を撮影したものではありません。
使い方・実行手順を確認する5つの手順で、コードの使い方を確認できます
- 1
Windows版デスクトップExcelの練習用ブックを.xlsmで保存し、Alt＋F11→［挿入］→［ユーザーフォーム］で、名前がUserForm1の空のフォームを用意します。各例は別々に試します。
- 2
ツールボックスからTextBox1、Label1、CommandButton1を各1個を置き、各コントロールの［(Name)］が記載どおりか確認します。
- 3
UserForm1を右クリック→［コードの表示］を開き、掲載コード全体をフォームのコードモジュールへ貼り付けます。標準モジュールには貼り付けません。
- 4
VBEでUserForm1を選び、F5でフォームを表示します。 「確認」をクリックします。次にTextBox1を空にしてもう一度クリックします。
- 5
最初は「選んだ商品：ノート」、空欄では「商品名が空欄です。」と表示されます。