【VBA】入力規則の設定・削除する方法

VBA

2021.06.132021.12.05

この記事は約2分で読めます。

記事内に広告が含まれています。

今回はVBAで「入力規則を設定する方法」と「入力規則の設定を削除する方法」を紹介します。

入力規則を設定しておくことで、想定外のデータ入力を防ぐことができます。

うめ

「入力の注意書き」は基本的に読んでくれない物と思っています…(笑)

データ修正に手間を掛けるくらいであれば、選択肢の中から選ばせた方がお互い楽になります！

ここでは例として「1月」(半角)と入力して欲しいのに「１月」(全角)で入力されるケースを想定しています。

また、合わせて入力規則を解除する方法も紹介します。

Excel VBA 脱初心者のための集中講座

created by Rinker

マイナビ出版

30日間無料登録できる「Amazonプライム会員」に登録すれば、翌日に購入した商品が届くお急ぎ便・お届け日時指定便の指定ができるので、荷物をなるべく早く受け取りたい人にオススメ！

無料体験期間中もAmazonプライムビデオや1億曲以上聞き放題のAmazon Musicなど、すべてのプライム会員特典がセットになっています！

　　30日間の無料体験はこちら！　　

うめ

30日間以内に解約すれば費用は発生しません！

コード

Sub 入力規則の追加()

'最終行
Dim MaxRow  As Long: MaxRow = Sheet1.Range("C1").End(xlDown).Row

'入力規則の設定
With Sheet1.Range("A2").Validation
.Delete
.Add _
Type:=xlValidateList, _
Formula1:="=Sheet1!$C$2:$C$" & MaxRow 'B1～B3の値を入力規則に設定
End With

End Sub

Sub 入力規則の追加()

'最終行

Dim MaxRow As Long: MaxRow = Sheet1.Range("C1").End(xlDown).Row

'入力規則の設定

With Sheet1.Range("A2").Validation

.Delete

.Add _

Type:=xlValidateList, _

Formula1:="=Sheet1!$C$2:$C$" & MaxRow 'B1～B3の値を入力規則に設定

End With

End Sub

例として月データを事前に用意しておき、C2～C13セルの値を入力規則としてA2セルに設定します。

コードを実行するとA2セルで月データをプルダウンリストから選ぶことができます。

Sub 入力規則の削除()

'入力規則の削除
Sheet1.Range("A2").Validation.Delete

End Sub

Sub 入力規則の削除()

'入力規則の削除

Sheet1.Range("A2").Validation.Delete

End Sub

月データを選んだ状態で入力規則を削除するとデータを残したまま入力規則だけを外すことができます。

月データの選択範囲は用途に合わせて修正してください。