VBAの入力規則について質問です。
Excelで、D列は全角50文字(半角100文字)以内の入力を可能とし、
それ以上の入力の場合、エラーを表示させたいと思います。
全角と半角をバイト数で判別し、以下のようなコードを考えましたが、
全角の場合しかうまくできません。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ByteCount As Long
ByteCount = LenB(StrConv(Target, vbFromUnicode))
If Target.Column = 4 Then
Select Case ByteCount
Case Is > 100
With Target.Validation
.Add _
Type:=xlValidateTextLength, _
AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:=1, Formula2:=100
.ErrorTitle = "入力エラー"
.ErrorMessage = "全角50文字(半角100文字)以内で入力してください。"
.IgnoreBlank = False
End With
Case 1 To 100
With Target.Validation
.Add _
Type:=xlValidateTextLength, _
AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:=1, Formula2:=50
.ErrorTitle = "入力エラー"
.ErrorMessage = "全角50文字(半角100文字)以内で入力してください。"
.IgnoreBlank = False
End With
End Select
End If
End Sub
アドバイスをよろしくお願いいたします。
No.2ベストアンサー
- 回答日時:
>ファイルの軽量化のため、VBAで設定したいと思っています。
そういう趣旨なら、全部、マクロにしてしまえばいかがですか?
なお、CheckByte関数はおまけです。ESCを押した時に、バイト数で文字を切るプログラムです。Mid 関数では、Byte では切ることは出来ません。しかし、100Byte でもなると、長くなり、Application.Undo のほうが楽です。
CheckByteは、また、Option 引数を付けなければ、バイト数をカウントすることになります。
'//
Const mLIMIT As Long = 10 '文字制限数
Private Sub Worksheet_Change(ByVal Target As Range)
Dim msgRtn As VbMsgBoxResult
If Target.Column <> 4 Then Exit Sub 'D列
If Target.Cells.Count > 1 Then Exit Sub
If Target.Value = "" Then Exit Sub
Application.EnableEvents = False
If LenB(StrConv(Target.Value, vbFromUnicode)) > mLIMIT Then
msgRtn = MsgBox("全角50文字(半角100文字)以内で入力してください。", 16 + vbRetryCancel, "入力エラー")
If msgRtn = vbIgnore Then
Application.SendKeys "[F2]"
Application.EnableEvents = True
Exit Sub
ElseIf msgRtn = vbCancel Then
Application.Undo
'Target.Value = CheckByte(Target.Value, mLIMIT) 'ESCで、文字を制限まで切る
On Error GoTo 0
End If
End If
Application.EnableEvents = True
End Sub
Function CheckByte(ByVal strTxt As String, Optional ilimit As Long)
'バイトで文字列を切る
Dim i As Long
Dim a() As Byte
Dim b(1) As Byte
Dim cnt As Long
Dim buf As String
a = strTxt
For i = 0 To UBound(a) Step 2
If CLng(a(i + 1)) < 10 Then
cnt = cnt + 1
Else
cnt = cnt + 2
End If
b(0) = a(i): b(1) = a(i + 1)
buf = buf & CStr(b())
If cnt >= ilimit Then
Exit For
End If
Next
If ilimit > 0 Then
CheckByte = buf
Else
CheckByte = cnt
End If
End Function
ありがとうございます。
すばらしい動きになりました。
コードの全てを理解することはできないので、
理解できる部分のみ引用させていただきます。
No.1
- 回答日時:
なぜ、マクロにしているのかさっぱり分かりません。
一端、文字が入ってから、マクロで入力規則が設定されるわけですから、その前に、マクロでも判定しなければ、意味がないと思います。それに、入力規則の上から入力規則を設定しようとしても、エラーが発生してしまいますから、入力規則が設定されているか判定が必要になります。
----
入力規則の「ユーザー設定」で
数式
=AND(LENB(D1)>1,LENB(D1)<100)
----
エラーメッセージを
タイトル 入力エラー
「全角50文字(半角100文字)以内で入力してください。」
といればよいと思いますね。
----
一応、ここまでにしておきます。どうしたらよいかは、レスを付けてください。
この回答への補足
回答ありがとうございます。
マクロを使わずにセルに設定すると、ファイル容量が大きくなってしまうのです。
ここでは1列しか設定しませんでしたが、実際は5列あり、
データ件数も莫大な量です。
ファイルの軽量化のため、VBAで設定したいと思っています。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ユーザー名に大文字を使用して...
-
エクセル文字列で縦書きカタカ...
-
3種類の円マークの違い
-
MOS検定 カナ入力でもOK?
-
「キャンディ」
-
常にカナ入力にする方法
-
WIN11 UPdate
-
2週間ほど前からtokyomotionと...
-
マイページの出し方が分かりま...
-
ワードで直径4cmの円を作成...
-
リンクに飛べる様にする際 「C...
-
メールソフト「Thunderbird」で...
-
Windows Defender Scheuled Sca...
-
PCのグーグルマップで現在地が...
-
アイコンに、四角い枠が出来て...
-
E-mailの署名について
-
ワードのハイパーリンク、Ctrl...
-
PC上からメールのアイコンが消えた
-
パソコンの画面上に黒い四角が...
-
ワードプレスの403Errorの消し...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
おすすめ情報