入力規則を削除するExcelマクロ

対象：Excel2007, Excel2010, Excel2013

入力規則を削除するExcelマクロ

「vba 入力規制を解除する」
という検索で、このサイト・インストラクターのネタ帳へのアクセスがありました。

「入力規制」となっていますが、「入力規則」を解除・削除するVBA（Visual Basic for Applications）のコード・Excelマクロを探している方による検索でしょう。

参考になりそうなマクロをいくつかご紹介しておきます。

［スポンサードリンク］

選択セルの入力規則を削除するサンプルマクロ

以下のようなマクロで、選択されているセルの入力規則を削除できます。

Sub 選択されているセルの入力規則を削除する()

　If MsgBox("選択されているセルの入力規則を削除しますか？", vbYesNo) = vbNo Then Exit Sub

　Selection.Validation.Delete

End Sub

以下の一行だけで、選択されているセルの入力規則を削除できます。
　Selection.Validation.Delete

Selectionプロパティで、選択されているセルを表すRangeオブジェクトを取得して、RangeオブジェクトのValidationプロティで、入力規則を表すValidationオブジェクトが取得して、Deleteメソッドで入力規則を削除しています。

以下のようなマクロにすれば、アクティブなシートの入力規則を一気に削除することができます。

Sub アクティブシートの入力規則をすべて削除する()

　If MsgBox("アクティブシートの入力規則をすべて削除しますか？", vbYesNo) = vbNo Then Exit Sub

　Cells.Validation.Delete

End Sub

Cellsプロパティに引数を指定しないと、すべてのセルを表すRangeオブジェクトが取得できるので、そのValidationをDeleteしています。

以下のようなマクロにすれば、アクティブなブックの全シートの入力規則を削除できます。

Sub 全シートの入力規則を削除する()

　If MsgBox("全シートの入力規則を削除しますか？", vbYesNo) = vbNo Then Exit Sub

　Dim ws As Worksheet
　For Each ws In Worksheets
　　ws.Cells.Validation.Delete
　Next ws

End Sub

すべてのワークシートにループを回して、
　For Each ws In Worksheets

個々のシートのすべてのセルの入力規則を削除しています。
　　ws.Cells.Validation.Delete

最終更新日時：2020-03-26 06:56

［スポンサードリンク］

『インストラクターのネタ帳』では、2003年10月から平日のほぼ毎日、Microsoft Officeの使い方などを紹介し続けています。
Excel VBAユーザーを対象とした、Word VBAの入門書をキンドル本として出しました↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の元になったキンドル本です↓↓

3年前(2021年4月)の
人気記事

「入力規則・Validation」の記事一覧