エクセル2013のVBAで、ワークシートに、条件付き書式を削除して再入力するように下記コードを記載したいのですが、これをするとセルをコピーして貼り付けを1度はできますが、連続でコピーすることができなくなります。
連続コピーもできるようにするやり方は何かあるのでしょうか?
ワークシートの、Private Sub Worksheet_Change(ByVal Target As Excel.Range)には、VLookupで参照するほかのコードも記載してあるので、他のイベントは使用できません。
条件付き書式がセルのコピペで増殖してフリーズしてしまうので、それを回避したいのです。現在はとりあえず、標準モジュールに記載して、適当な時にボタンを押すようにして使っています。
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim ac As Range
Dim fc1 As FormatCondition
Dim fc2 As FormatCondition
Dim fc3 As FormatCondition
Dim h As Range
Set ac = ActiveCell
Range("B5:AK175").FormatConditions.Delete
With Range("$C$5:$C$175,$I$5:$I$175,$O$5:$O$175,$U$5:$U$175,$AA$5:$AA$175,$AG$5:$AG$175").FormatConditions
Set fc1 = .Add(Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="AAA")
fc1.Font.ColorIndex = 3
fc1.Font.Bold = True
Set fc2 = .Add(Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="BBB")
fc2.Font.ColorIndex = 5
fc2.Font.Bold = True
End With
With Range("$D$5:$D$175,$J$5:$J$175,$P$5:$P$175,$V$5:$V$175,$AB$5:$AB$175,$AH$5:$AH$175").FormatConditions
Range("D5").Select
Set fc3 = .Add(Type:=xlExpression, _
Formula1:="=IF(COUNTIF(C5,""AAA"")+COUNTIF(C5,""BBB""),1,0)")
fc3.NumberFormat = """(""#"")"""
End With
ac.Select
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセル VBA 処理スピードを上げたいのですが。 6 2023/03/31 20:52
- Visual Basic(VBA) オブジェクトが見つかりません 1 2023/06/24 19:43
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) 動きっぱなしです。止め方とプロシージャの間違いを教えて下さい! 5 2022/08/15 23:08
- Visual Basic(VBA) エクセルVBA ダブルクリックしたら色反転を指定したセルのみにしたい 2 2022/04/06 12:52
- Excel(エクセル) マクロで行を追加、削除すると行位置がずれますが、解決方法はありませんか?。 5 2022/05/28 16:03
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Excel(エクセル) エクセルVBAでオブジェクトが必要です 2 2022/09/10 16:37
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル初心者です 関数の入れ...
-
Microsoft1Officeの互換ソフト...
-
Excel ピボットテーブルで日付...
-
エクセル関数を教えてください
-
【マクロ】その時、その時で変...
-
【マクロ】読取専用のファイル...
-
LOOKUP関数を使えばいいのでし...
-
エクセル 白黒印刷で白線を印刷...
-
【関数】先頭だけにある、半角...
-
【関数】適切な文字数の数字を...
-
Excelのチェックボックスの使い...
-
エクセルでの作業計算方法について
-
Excelのpivotについて質問です
-
WPS OFFICEでの縦書きについて
-
時間によってファイル名が変わ...
-
エクセルのセルに同じ大きさの...
-
Aというブックの1というシート...
-
エクセルの順位別一覧表の自動...
-
西暦や和暦の表示をyyyymmdd表...
-
【マクロ】エクセルにかいてあ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
[関数得意な方]教えて下さい・...
-
Excelにてある膨大なデータを管...
-
[関数について]わかる方教えて...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセル関数に詳しい方教えて...
-
INDIRECTを使わず excelで複数...
-
[オートフィルタ]で抽出された...
-
エクセルの神よ、ご回答を! エ...
-
エクセル関数に詳しい方、教え...
-
各ページの1番上の表示について
-
Excelで写真のような表を作った...
-
エクセルで不等号記号(≠)が上に...
-
数学 Tan(θ)-1/Cos(θ)について...
-
Excel 2019 は、SPILL機能があ...
-
Excelで全角を半角にしたいので...
-
条件付き書式を教えてください
-
Excel フィルターを掛けた状態...
-
[オートフィルタ]の適用範囲の...
おすすめ情報