すみません。書きかけでエンターを押してしまいました。
Private Sub btn半角化_Click()
Me.Refresh
txt変更テキスト = StrConv([元テキスト], vbFromUnicode)
Me.Refresh
End Sub
下記コードで半角化すると文字化けしますが、こちらは今までどおりの式にして
カウントだけ変更すればよいでしょうか、今から試してみます。
通報 ...
すみません。書きかけでエンターを押してしまいました。
Private Sub btn半角化_Click()
Me.Refresh
txt変更テキスト = StrConv([元テキスト], vbFromUnicode)
Me.Refresh
End Sub
下記コードで半角化すると文字化けしますが、こちらは今までどおりの式にして
カウントだけ変更すればよいでしょうか、今から試してみます。