こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

コードの添削お願いします(変数エラー)

Option Explicit
Private Sub CommandButton1_Click()

Dim myStr As String
If myStr <> "" Then
myStr = TextBox.Value
Label1.Caption = LTrim(myStr)
Label2.Caption = RTrim(myStr)
Label3.Caption = Trim(myStr)
Else
MsgBox "終了"
End If
End Sub

変数のエラーが出ますが、何処がおかしいですか?
宜しくお願い致します。

投稿日時 - 2018-06-08 17:18:25

QNo.9506337

暇なときに回答ください

質問者が選んだベストアンサー

直して再掲します。

Formに配置したテキストボックスの名前が

TextBox
ではなく
TextBox1
では?

また、
テキストボックスに埋まっている文字列の取得と
評価の順番が逆と思います。

つまり、

Option Explicit

Private Sub CommandButton1_Click()

 Dim myStr As String
 myStr = TextBox1.Value
 If myStr <> "" Then
  Label1.Caption = LTrim(myStr)
  Label2.Caption = RTrim(myStr)
  Label3.Caption = Trim(myStr)
 Else
  MsgBox "終了"
 End If
End Sub

投稿日時 - 2018-06-08 17:50:06

お礼

有難う御座います。
納得です。

投稿日時 - 2018-06-08 18:00:50

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.1

Formに配置したテキストボックスの名前は

TextBox
ではなく
TextBox1
では?

また、
テキストボックスに埋まっている文字列の取得と
評価の順番が逆と思います。

つまり、

Option Explicit

Private Sub CommandButton1_Click()

 Dim myStr As String
 myStr = TextBox.Value
 If myStr <> "" Then
  Label1.Caption = LTrim(myStr)
  Label2.Caption = RTrim(myStr)
  Label3.Caption = Trim(myStr)
 Else
  MsgBox "終了"
 End If
End Sub

投稿日時 - 2018-06-08 17:46:18

お礼

有難うございます

投稿日時 - 2018-09-02 18:26:30

あなたにオススメの質問