ユーザーフォームの氏名のテキストで「様」を

質問

いつもお世話になります。
WIN7 EXCELL2010 です。

ユーザ―フォームのVBAが下記です。
御指導を仰ぎたいのは
TextBox3.Text = ""　ここに氏名が入りますがユーザーフォームで、
例えば「石井　徹」と入力したら”様”とデーター欄に「石井　徹様」となるには可能でしょうか。
もし可能ならばどうすればいいのかをご教授いただけないでしょうか。

Private Sub CommandButton1_Click()
'
y = 2
Do While Cells(y, 2) <> ""
y = y + 1
Loop
Cells(y, 1) = TextBox1.Text
Cells(y, 2) = TextBox2.Text
Cells(y, 3) = TextBox3.Text
Cells(y, 4) = TextBox4.Text
Cells(y, 5) = TextBox5.Text
Cells(y, 6) = TextBox6.Text
Cells(y, 7) = TextBox7.Text
Cells(y, 8) = TextBox8.Text
Cells(y, 9) = TextBox9.Text
Cells(y, 10) = TextBox10.Text
Cells(y, 11) = TextBox11.Text
Cells(y, 12) = TextBox12.Text
Cells(y, 13) = TextBox13.Text

TextBox1.Text = Format(Date, "mm/dd")
TextBox2.Text = ""
TextBox3.Text = ""　ここに氏名が入ります。
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
TextBox12.Text = ""
TextBox13.Text = ""

TextBox1.SetFocus
End Sub

是非よろしくお願いします。

回答No.1

nishi6 · ベストアンサー

＞TextBox3.Text = ""　ここに氏名が入りますがユーザーフォームで、例えば「石井　徹」と入力したら”様”とデーター欄に「石井　徹様」となるには可能でしょうか。

質問の意味がよく分かりませんでした。データ欄とは何のことでしょう。

●セルに書き出す時に「様」を付けるなら、
Cells(y, 3) = TextBox3.Text & "様"

●最初から「様」が入力された状態にするなら、
TextBox3.Text = "様"
（TextBox3のChangeイベントはないとします）

●「石井　徹」で初期化するなら、
TextBox3.Text = "石井　徹様"
（TextBox3のChangeイベントはないとします）

●もしかして、「C列のy+1」行目に「石井　徹」と入力されているのなら、
TextBox3.Text = Cells(y+1, 3) & "様"
（TextBox3のChangeイベントはないとします）

●TextBox3に入力したときに「様」を付けるなら、
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
　　With TextBox3
　　　　If .Text <> "" And Right(.Text, 1) <> "様" Then
　　　　　　.Text = .Text & "様"
　　　　End If
　　End With
End Sub

どうもこれら以外の気がします。
よく分かりませんでした。

お礼

さっそくご回答、ご指導を頂き誠に有難うございました。

下記を採用させていただきました。
●TextBox3に入力したときに「様」を付けるなら、
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
　　With TextBox3
　　　　If .Text <> "" And Right(.Text, 1) <> "様" Then
　　　　　　.Text = .Text & "様"
　　　　End If
　　End With
End Sub

いくつかご指導頂き申し訳有りません。
説明不足をお許しください。