Excel (VBA)

Excel VBAに関するフォーラムです。
  • 掲示板への投稿には会員登録(無料)が必要です。会員登録がまだの方はこちら
  • 掲示板ご利用上のお願い」に反するご記入はご遠慮ください。
  • Q&A掲示板の使い方はこちらをご覧ください
トピックに返信
質問

 
(Windows 10全般 : Excel 2016)
名前のリストを作成するA
投稿日時: 20/01/15 13:05:14
投稿者: chokobanana

先日、こちらで質問させていただきまして解決できたはずなのですが
エラーが出るようになってしまいました。
 
Sub 名前リスト()
 Dim a As Worksheet, b As Worksheet
   
     Set a = Worksheets("???")
     Set b = Worksheets("??")
 
      With a
         With .Range(.Range("J1"), .Cells(.Rows.Count, "J").End(xlUp))
             b.Range("P1").Resize(.Rows.Count, 1).Value = .Value
         End With
     End With
       
      With b
         With .Range(.Range("P1"), .Cells(.Rows.Count, "P").End(xlUp))
 
             .RemoveDuplicates Columns:=1, Header:=xlNo
         End With
     End With
        
     With b.Columns("C:C")
         With .Validation
             .Delete
             .Add Type:=xlValidateList, _
                 AlertStyle:=xlValidAlertStop, _
                 Operator:=xlBetween, _
                 Formula1:="=名前リスト"
             .IgnoreBlank = True
             .InCellDropdown = True
             .InputTitle = ""
             .ErrorTitle = ""
             .InputMessage = ""
             .ErrorMessage = ""
             .IMEMode = xlIMEModeNoControl
             .ShowInput = True
             .ShowError = True
         End With
     End With
 End Sub
 
 
エラーは
実行時エラー1004です。
 
 
 

回答
投稿日時: 20/01/15 13:11:57
投稿者: mattuwan44

どの行でエラーがでますか?そこをちゃんと書いて下さい。
 
どこかで同じ質問見た気がしますが、気のせいかも知れませんね。。。。
そこで回答した気がしますが、送信してなかったのかも^^;;
 
「名前リスト」という名前の定義が消されてませんか?
 
 >Formula1:="=名前リスト"

回答
投稿日時: 20/01/15 13:57:55
投稿者: WinArrow
投稿者のウェブサイトに移動

前スレにリンクしておきましょう
 
https://www.moug.net/faq/viewtopic.php?t=78956&highlight=

トピックに返信