|
▼mono さん 今晩は。
>別シートのデータを参照するために、ワークシートのデータの書き込んであるセルを選択し、
>名前をつけたいのですが、どのようにすればよいのでしょうか。
>(セルの範囲を選択して、ツールバーの「挿入」→「名前」→「定義」とするやつです。)
>ワークシートのA列のデータの件数は、動的に変化するので、ボタン押下時のみ参照しに行きたいです。
範囲名を定義してやってみました。こんな感じでしょうか。
Sub test()
Dim rw As String
rw = Sheets("ワーク").Range("A56336").End(xlUp).Row
'範囲名を定義
ThisWorkbook.Names.Add Name:="List範囲", RefersTo:="=Sheet2!A$1:A$10"
'入力規則リスト形式を作成
With Sheets("メンテナンス").Range("D11:D40").Validation
.Delete
.Add Type:=xlValidateList, Formula1:="=List範囲"
'
.IgnoreBlank = False
.ErrorMessage = "入力する値をドロップダウンリストから選択してください。"
End With
End Sub
|
|