前提・実現したいこと
VBAでユーザー設定の入力規則を自動設定したい。
発生している問題・エラーメッセージ
お世話になります。VBA初学者です。
現在、VBAでユーザー設定の入力規則を自動設定するためのコードを書いているのですが、『実行時エラー:1004 アプリケーション定義またはオブジェクト定義のエラーです』と表示されてしまいます。
入れようとしている入力規則がおかしいのか、それとも処理のコードそのものがおかしいのか自分ではどこがおかしいのか分からず…どなたかお知恵をお貸しいただけないでしょうか?
質問内容に不備・不明点等ありましたらご指摘いただけますと幸いです。
該当のソースコード
VB
1Sub addUserRules() 2 3 Dim myPath As String 4 Dim myFile As String 5 6 myPath = "C:\dummy" 7 myPath = ThisWorkbook.Path & "\" 8 9 myFile = Dir(myPath & "*.xlsx") 10 Do Until myFile = "" 11 Workbooks.Open myPath & myFile 12 13 With Range("R3").Validation 14 .Add Type:=xlValidateCustom, _ 15 Operator:=xlEqual, _ 16 Formula1:=" =$A$1:$A$7 = "" " 17 18 End With 19 20 ActiveWorkbook.Close True 21 myFile = Dir() 22 Loop 23 24End Sub
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2019/08/28 11:12
2019/08/28 11:16
2019/08/28 11:25