エクセル マクロ 入力制限について

質問

検索で探したのですが、うまくヒットしないため、質問させていただきます。
エクセルのセル入力制限についての質問です。

Ｄ１セルが空白でなかったら、Ａ１・Ｂ１・Ｃ１に入力できないようにする
と言う条件です。

それを、Ｄ１セルだけでなく、行すべてに適用したいのですが、
（Ｄ２　に入力されていたら、Ａ２・Ｂ２・Ｃ２を入力できなくする）
マクロで処理できるでしょうか？

マクロ実行は、オープンしたときに実行するようにしたいと考えております。

ご教授お願いします。

回答No.1

kybo · ベストアンサー

マクロを使わなくてもできると思います。

A:Dを範囲選択→データ→入力規則→入力値の種類をユーザー定義にし数式として「=$D1=""」と入れます。

あえてマクロでするとなると以下の様になります。
シートの見出しで右クリック→コード表示で以下を貼り付け

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <= 3 Then
If Range("D" & Target.Row).Value <> "" Then
　　MsgBox "入力できません"
　　Application.EnableEvents = False
　　 Application.Undo
　　 Application.EnableEvents = True
End If
End If
End Sub

お礼

できました。
ありがとうございます。