| |
こんにちは
シートタブを右クリックして「コードの表示」でシートモジュールを出して
下記コードを貼り付けて下さい。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column <> 3 Then Exit Sub
If Len(Target.Value) = 0 Then
MsgBox "入力必須です。"
End If
If Len(Target.Value) > 20 Then
MsgBox "20文字までです。"
End If
If Target.Value <> StrConv(Target.Value, vbWide) Then
MsgBox "全角入力必須です。全角変換します。"
Application.EnableEvents = False
Target.NumberFormatLocal = "@"
Target.Value = StrConv(Target.Value, vbWide)
Application.EnableEvents = True
End If
End Sub
数値の場合は半角になってしまうので、書式を文字列にしてます。
元の書式を保持する場合はその部分を変更して下さい。
▼初心者 さん：
>Ｃ行：事業者名称（全角20文字以内）に
>
>・型
>・文字数
>・必須項目
>を入力後のボタンひとつでチェックをかけたいと思っています。
>
>型以外、文字数オーバー、未入力の場合、背景に赤を表示し、エラーのある列のＢ行に「エラー」と表示したいのですが、どのようなマクロを組んでよいのか分かりません。
>お教えいただけませんでしょうか。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
