|
こんにちは、この掲示板に投稿するのは初めてです
よろしくお願いします。
「メンテナンス」というシートのD列に入力制限をかけようとしています。
制限する値は「ワーク」というシートのA列に入力してあります。
この掲示板の過去記事を拝見して、入力制限のかけかたを研究したのですが、
どうにもうまくいきません。
別シートのデータを参照するために、ワークシートのデータの書き込んであるセルを選択し、
名前をつけたいのですが、どのようにすればよいのでしょうか。
(セルの範囲を選択して、ツールバーの「挿入」→「名前」→「定義」とするやつです。)
ワークシートのA列のデータの件数は、動的に変化するので、ボタン押下時のみ参照しに行きたいです。
※INDIRECT関数はVBA使えないんでしょうか?
Sub test()
With ThisWorkbook.Worksheets("メンテナンス")
Range("D11:D40").Select
Application.CutCopyMode = False
With Selection.Validation
.Delete
Dim rageCell As Range
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=ListSource"
.IgnoreBlank = True
.InCellDropdown = True
.ErrorMessage = "入力する値をドロップダウンリストから選択してください。"
.IMEMode = xlIMEModeNoControl
.ShowInput = True
.ShowError = True
End With
End With
End Sub
|
|