入力規則への貼り付けを禁止する
ツイッターで以下の発言をしたのをきっかけに作成したマクロVBAです。
シートに入力規則のリストを設定しました。
VBAでそのデータを使ったら規則外のデータが入っていてエラーが出てしまいました。
そこでセルのデータをチェックすることになりました。
どんなVBAを書きますか?
とは言っても間違った入力は完全には無くならないので、
Range.Validation.Valueでチェックします。
こんな感じなら出来ないことは無いけど、実用としては微妙な感じだと思います。
入力規則への貼り付けを禁止するVBA
Option Explicit
Private pWsName As String
Private pValiCnt As String
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
'最初の1回だけ、頻繁に動くと邪魔になる可能性もあるので
If pWsName <> Sh.Name Then
On Error Resume Next
pWsName = Sh.Name
pValiCnt = ""
pValiCnt = Cells.SpecialCells(xlCellTypeAllValidation).Address
End If
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'イベント抑止
Application.EnableEvents = False
On Error Resume Next
Dim rngVali As Range
Set rngVali = Sh.Cells.SpecialCells(xlCellTypeAllValidation)
'事前に保存してある入力規則数とチェック
If rngVali.Address <> pValiCnt Then
MsgBox "貼り付けしちゃダメ！"
Application.Undo
Application.EnableEvents = True
Exit Sub
End If
'もともと入力規則がない場合
'元々はあって0になった場合は上でエラー判定される。
If Err.Number <> 0 Then
Application.EnableEvents = True
Exit Sub
End If
'今回変更されたセル範囲の中で入力規則があるセルのみ
Set rngVali = Intersect(Target, rngVali)
If Err.Number <> 0 Or rngVali Is Nothing Then
Application.EnableEvents = True
Exit Sub
End If
'入力規則に反した値があるかをチェック
Dim rng As Range
For Each rng In rngVali
If Not rng.Validation.Value Then
MsgBox "違う値貼り付けダメ！"
Application.Undo
Application.EnableEvents = True
Exit Sub
End If
Next
'イベント再開
Application.EnableEvents = True
End Sub
（アドレスではなく、.Countで件数を入れても良いと思います。）
Changeイベントで、入力規則が設定されているセルのアドレスが変更されていないかを確認します。
さらに、Validation.Valueで入力規則に反する値が入れられていないかを確認しています。
メッセージボックスを出したうえで、Application.Undoで元に戻しています。
予測外の動作が起こることも考えておく必要があると思います。
このようなイベントを入れることを考えるよりシート保護をした上で、
入力規則に反する値があるかどうかだけVBAでチェックするくらいが良いでしょう。
これらについては以下を参照してください。
同じテーマ「マクロVBA技術解説」の記事
ユーザーに絶対に停止させたくない場合のVBA設定
列幅・行高をDPI取得しピクセルで指定する
VBAでWMIの使い方について
アクティブシート以外のWindowを設定できるWorksheetView
LSetとユーザー定義型のコピー（100桁の足し算）
省略可能なVariant引数の参照不可をラップ関数で利用
ブックのいろいろな開き方（GetObject,参照設定,アドイン）
入力規則への貼り付けを禁止する
Select Caseでの短絡評価（ショートサーキット）の使い方
RangeオブジェクトのFor EachとAreasについて
画像が行列削除についてこない場合の対処
新着記事NEW ・・・新着記事一覧を見る
ピッボットテーブルって便利だよね｜還暦のVBA(2021-10-18)
還暦のVBA：VBAまでたどりつけるか… (2021-09-29)
VLOOKUPを使うことを基本としてシートを設計すべきか｜エクセル雑感(2021-08-17)
コンピューターはブラックボックスで良い｜エクセル雑感(2021-08-14)
小文字"abc"を大文字"ABC"に変換する方法｜エクセル雑感(2021-08-13)
ADOでテキストデータを集計する｜VBAサンプル集(2021-08-04)
VBA学習のお勧めコース｜エクセル雑感(2021-08-01)
エクセル馬名ダービー｜エクセル雑感(2021-07-21)
在庫を減らせ！毎日棚卸ししろ！｜エクセル雑感(2021-07-05)
日付型と通貨型のValueとValue2について｜エクセル雑感(2021-06-26)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.Excelショートカットキー一覧｜Excelリファレンス
3.RangeとCellsの使い方｜VBA入門
4.変数宣言のDimとデータ型｜VBA入門
5.繰り返し処理（For Next)｜VBA入門
6.ひらがな⇔カタカナの変換｜エクセル基本操作
7.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
8.マクロって何？VBAって何？｜VBA入門
9.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
10.並べ替え（Sort）｜VBA入門
- ホーム
- マクロVBA応用編
- マクロVBA技術解説
- 入力規則への貼り付けを禁止する
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。