マクロで左から一文字を

質問

いつもお世話になります。
Win 7 Excelll 2010 です。
現在ユーザーフォームで住所録を作成中です。

textBox1 に「会社名」　日本　　　　セルに転入
textBox2 に「読み」　 　ニホン　　　セルに転入

というマクロを記述していますがこの時、
タナカ　ススム　の左の一文字　「タ」をtextBox3で取りたいのですが
textBox3にはどんなマクロを記述すればいいかご指導願えませんでしょうか。

※念のためtextBox2のマクロはそのままにしておきたいです。

textBox2には下記のマクロです。
'［読み］ボタンクリック時の処理
Private Sub cmdYomi_Click()
Dim Ret As Long
Dim strPhonetic As String

'会社名が入力されていない場合にはプロシージャを抜ける
If textKaisha.Value = "" Then Exit Sub

'ふりがなの第一候補を取得
strPhonetic = Application.GetPhonetic(textKaisha.Value)

Do
'取得したふりがなの候補で確定するかどうかをメッセージボックスで確認
Ret = MsgBox(strPhonetic & vbCrLf & vbCrLf & _
"確定しますか？", vbYesNoCancel)

If Ret = vbYes Then
'確定の場合には半角文字に変換してテキストボックスに格納
textYomi.Value = StrConv(strPhonetic, vbNarrow)
ElseIf Ret = vbNo Then
'［いいえ］ボタンを選択した場合は、次のふりがな候補を取得
strPhonetic = Application.GetPhonetic()
'次の候補がなければループをぬける
If strPhonetic = "" Then
MsgBox "次の候補はありません"
Exit Do
End If
End If

'ふりがな候補確定、またはキャンセルの場合は、ループを抜ける
Loop While Ret = vbNo
End Sub

'［会社名］テキストボックスから他へフォーカスが移ったときの処理
Private Sub textKaisha_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim strTemp As String

If textKaisha.Value <> "" Then
'ふりがなの第一候補を取得
strTemp = Application.GetPhonetic(textKaisha.Value)

'ふりがなを半角文字に変換して[会社名よみ]テキストボックスへ格納
textYomi.Value = StrConv(strTemp, vbNarrow)
End If
End Sub

回答No.1

bin-chan · ベストアンサー

テキスト３に記述だと難しいのでは？
テキスト２のChangeイベントに、
Text3=left (text2,1)
を書けば良いと思います

お礼

早速ご回答いただきありがとうございました。
うまくいきました。