いつもお世話になります。
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ベストアンサー
- 回答日時:
>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
いくつかご指導頂き申し訳有りません。
説明不足をお許しください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA 重複チェック後に値をワークシートに転記する方法を教えてください。 1 2023/03/19 12:43
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) VBA チェックボックスで 5 2023/05/31 17:10
- Visual Basic(VBA) 以下のVBAで該当文字列の前後に付与したい。 例 前に付与 abc ユーザーID 12345 後に付 3 2022/04/19 21:50
- Visual Basic(VBA) ユーザーフォームの書き出しで追加のご相談 ユーザーフォームの値をシートに書き出す際、コードが表示され 2 2022/08/05 10:58
- Excel(エクセル) マクロでテキストファイルを読み込んだ際の最終セルにデータと改行が含まれる問題の改善方法 2 2022/03/25 16:50
- Excel(エクセル) VBA 同日で2回目(午後)の体温を登録するときのコード 3 2022/08/28 20:29
- Excel(エクセル) Excelのtextboxへの入力で小数点以下に0が続く場合でも正しく表示したい 3 2022/04/11 13:53
- その他(プログラミング・Web制作) ボールの動きがスムーズに動いてかつ目盛り線描画を維持するためには 4 2023/05/31 10:01
- HTML・CSS HTML、cssのatomつぅーやつで 課題Ex1ってやつを表示させたいのですが、 私は課題Ex1が 2 2022/12/15 16:56
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBA テキストボックス...
-
数字以外の入力をエラーにする...
-
EXCEL VBA で指定した範囲に入...
-
初歩的な事だと思います。 Sub...
-
Excel-VBAでInputBox+Pulldown...
-
教えて!全角文字「μ」の半角
-
テキストボックスの番号を使っ...
-
VBA R1C1形式で変数の入力について
-
excel vba でユーザーフォーム...
-
ユーザーフォームチェックボッ...
-
複数行の入力を受け取る方法
-
DataGridViewの桁数制限に関して
-
ExcelVBAのユーザーフォームで...
-
VBAの質問になります メッセー...
-
VBAで質問があります
-
VBAでInputBoxの再入力をさせる...
-
フォームの入力項目に全角文字...
-
InputBoxでキャンセルボタンを...
-
TEXTAREA に入力時の位置
-
accessで該当するレコードがな...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA テキストボックス...
-
テキストボックスの番号を使っ...
-
VBAで質問があります
-
Windowsのアプリ開発ってなんの...
-
Excel-VBAでInputBox+Pulldown...
-
EXCEL VBA で指定した範囲に入...
-
初歩的な事だと思います。 Sub...
-
数字以外の入力をエラーにする...
-
VBAでInputBoxの再入力をさせる...
-
入力フォームの値をQRコードで...
-
excel vba でユーザーフォーム...
-
TextBoxから数字が文字...
-
VBAの質問になります メッセー...
-
DataGridViewの桁数制限に関して
-
accessで該当するレコードがな...
-
c#でTextBoxの入力制限
-
VBA R1C1形式で変数の入力について
-
エディットボックスの入力制限...
-
「イ分」・・・フンという文字...
-
アルファベットGの小文字の入力
おすすめ情報