Ctrlキーを押しながら必要なタブをクリックする(つまり、複数のタブをグループ化する)ことで、Excelブックの複数のタブでセルの書式設定を行うことを知っています。複数のシートまたはタブにデータ検証を追加する同様の方法はありますか?私たちは多くの時間を節約することができます...
私はこれを別のサイトから拾いました-少しいじるだけでうまくいきました!
With ws.Range("a3:a1000").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Capabilities"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
検証を含むセルをコピーします。 Ctrlキーを押しながらシートタブをクリックします。検証を適用するセルを右クリックして、値の貼り付け> 検証を実行します。
検証リストにセルの範囲を使用している場合は、それらに名前を使用します。範囲を強調表示し、式に移動してから名前の定義をクリックします。リストの名前(「mylist」など)を入力し、[〜#〜] ok [〜#〜]をクリックします。
検証を適用するセルを選択します。 データ検証ウィンドウを開きます。 Listに設定し、ffを入力します。数式ボックスに:
=mylist
名前付きリストを作成すると、複数のシートの参照として使用できます。必要に応じて、データ検証を使用して範囲をコピーします。使い慣れた複数のシートを選択してください。 [編集]> [形式を選択して貼り付け]> [検証]を選択すると、必要な処理が実行されます。