[[20190111113855]] 『リスト入力規則ができません』(Lion) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『リスト入力規則ができません』(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

bi様、BJ様

早速の回答を頂き、御礼申し上げます。検索したサイトには、私が投稿したときに書きました表記のまま掲載されているものが多くあり、なぜ動かないのか、まったくわかりませんでした。ありがとうございました。
(Lion) 2019/01/11(金) 14:43


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.