□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
| VBAのエラー1004の解消方法を教えてください。 | |
|---|---|
[195058] VBAのエラー1004の解消方法を教えてください。- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ ちわわ -(2022/07/19(15:34)) □U R L/ 下記のような条件付き書式をVBA化したいのですが、実行させるとエラーになります。
条件付き書式で
数式を使用して、書式設定しりセルを決定
次の数式・・・で、下記の関数を入力
=CHOOSE(COLUMN()-5,OR($J8="A",$J8="B"),AND($J8<>"A",$J8<>""),AND($J8<>"B",$J8<>""))
書式で→ユーザー定義→種類で;;;を入力
しています。
マクロを実行すると下記のエラーとなります。
実行時エラー'1004'
この数式には問題があります。
最初の文字に（＝）が・・・
「ExecuteExcel4Macro "(2,1,"";;;"")"」ここ文でエラー
VBAは次です。
Range("F8:H500").Select
Selection.NumberFormatLocal = ";;;"
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=CHOOSE(COLUMN()-5,OR($J8=""A"",$J8=""TVH""),AND($J8<>""A"",$J8<>""""),AND($J8<>""B"",$J8<>""""))"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
ExecuteExcel4Macro "(2,1,"";;;"")"
Selection.FormatConditions(1).StopIfTrue = False
解消するのはどうすればよろしいのでしょうか？
よろしくご指導お願い致します。
win10 office16この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[195059] （削除）- ■記事引用/メール受信=OFF■ □投稿者/ / -(2022/07/19(15:54)) □U R L/ この記事は削除されました | |
[195060] Re[1]: VBAのエラー1004の解消方法を教えてください。- ■記事引用/メール受信=OFF■ □投稿者/ ねむねむ -(2022/07/19(15:59)) □U R L/ 他の掲示板だが参考になるだろうか？ 直接URLを貼れないのでhとtの間にスペースを入れている。 h ttps://www.excel.studio-kazu.jp/kw/20160201141408.html | |
[195061] Re[2]: VBAのエラー1004の解消方法を教えてください。- ■記事引用/メール受信=OFF■ □投稿者/ 半平太 -(2022/07/19(20:11)) □U R L/ ＞ ExecuteExcel4Macro "(2,1,"";;;"")"
↓
Selection.FormatConditions(Selection.FormatConditions.Count).NumberFormat = ";;;"
| |
[195062] Re[3]: VBAのエラー1004の解消方法を教えてください。- ■  / 記事引用/メール受信=OFF■
□投稿者/ ちわわ -(2022/07/20(15:29)) □U R L/ ねむねむ様 ありがとうございます。 参考にさせて頂きます。 半平太様 今回もありがとうございました。 いつもありがとうございます。 | |