VBAを使って開発しているのですが

質問

VBAを使って開発しているのですが、
テキストボックスにバイト数で制限はかけられないのでしょうか？

MaxLength を指定しているのですが、
５と指定しても、全角でも半角でも５文字入力出来てしまいます。
よろしくお願いします。

回答No.2

Wendy02 · ベストアンサー

イベントは適当に、何かひとつを選べばよいと思います。

Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim buf As String
　buf = StrConv(TextBox1.Text, vbFromUnicode)
　If LenB(buf) > 5 Then
　　 MsgBox "5 byteを越えました。", vbCritical
　　 buf = MidB(buf, 1, 5)
　　 TextBox1.Text = StrConv(buf, vbUnicode, 1041)
　End If
End Sub

MsgBox が不要なら、取り去ってください。

お礼

回答ありがとうございます。
Wendy02さんの通りで、無事解決しました。
感謝です。

回答No.1

piroin654

このような感じ。

Private Sub TextBox1_Change()
If LenB(TextBox1) > 5 Then
MsgBox "オーバー"
End If
End Sub

お礼

回答ありがとうございます
メッセージではなく、５文字以上入力出来ないようにしたいのですが。
LenBで判断してLeftBで処理した場合に、５バイト目だった全角の文字が、
文字化けして表示されてしまっていました。