[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『リスト入力規則ができません』(Lion)
お世話になっております。ご教示くださいませ。
E2:E4のセルにそれぞれ文字列で単語が入っております。それをリストにして、A2セルを設定しようとしておりますが、エラーになってしまいます。
ゆくゆくは、E4の下にも単語を追加する予定でして、VBAで作成したいのです。エラーの原因を教えて頂けますでしょうか?オブジェクト定義のエラーと表示されます。
With Worksheets("Sheet1").Range("A2").Validation
.Delete .Add Type:=xlValidateList, _ Formula1:=Worksheets("Sheet1").Range("E2:E4") End With
よろしくお願いいたします。
< 使用 Excel:Excel2016mac、使用 OS:unknown >
>ゆくゆくは、E4の下にも単語を追加する予定
とのことなので
Sub test()
With Worksheets("Sheet1").Range("A2").Validation .Delete .Add Type:=xlValidateList, Formula1:="=$E$2:$E$" & Worksheets("Sheet1").Cells(Rows.Count, "E").End(xlUp).Row End With
End Sub (bi) 2019/01/11(金) 12:07
>Formula1:=Worksheets("Sheet1").Range("E2:E4") ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ↑この部分は、数式で文字
Formula1:="=" & Worksheets("Sheet1").Range("E2:E4").address or Formula1:="=Sheet1!E2:E4" (BJ) 2019/01/11(金) 12:15
直に =OFFSET($E$2,0,0,COUNTA($E$2:$E$10),1) でも?
A1に参照範囲 E2:E5 とか書いておけば、 Formula1:="=" & Range("A1").Value (BJ) 2019/01/11(金) 12:34
早速の回答を頂き、御礼申し上げます。検索したサイトには、私が投稿したときに書きました表記のまま掲載されているものが多くあり、なぜ動かないのか、まったくわかりませんでした。ありがとうございました。
(Lion) 2019/01/11(金) 14:43
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.