=COUNTIF(祝日管理!$E$2:$L$25, $A6)
上記のような条件付き書式が設定してあります。
祭日で稼働日があると塗りつぶしなしをしたいと思い、VBAコードで
Sub 塗りつぶし削除マクロ()
Dim rng As Range
On Error Resume Next
Set rng = Selection.SpecialCells(xlCellTypeConstants, xlCellTypeFormulas)
On Error GoTo 0
If Not rng Is Nothing Then
' 選択したセルに条件付き書式が適用されている場合、塗りつぶしを削除する
rng.Interior.ColorIndex = xlNone
End If
End Sub
を入れましたが、実行しても塗りつぶしなしにならないのですが、何が原因でしょうか?
教えてください。お願いします。
No.5ベストアンサー
- 回答日時:
No1です。
>条件付き書式の変更とありますが、どのように変更したらいいでしょうか?
当方には稼働日というのがいつなのか不明なので、式にはできません。
もともとの「祝日管理!$E$2:$L$25」の表を、他では使っていないのなら、その中から稼働日を削除しておけば済む話にも思えますが?
あるいは、「稼働日の表」を別に作成しておいて、同様の条件付き書式を優先順位が高くなるように設定しておいても良いです。
(条件付き書式は複数設定することが可能です)
※ ついでながら、
シートの状態がどうなっているのもわかりませんけれど、
>SpecialCells(xlCellTypeConstants, xlCellTypeFormulas)
では、何も取得できないように思われます。
(エラー処理を入れてしまっているので、増々わからなくなっているだけかと)
No.3
- 回答日時:
Sub 塗りつぶし削除マクロ()
Dim rng As Range
Dim cell As Range
On Error Resume Next
Set rng = Selection.SpecialCells(xlCellTypeConstants)
On Error GoTo 0
If Not rng Is Nothing Then
For Each cell In rng
If cell.Value = "特定の値" Then '特定の値には条件付き書式が適用される値を指定します
cell.Interior.ColorIndex = xlNone
End If
Next cell
End If
End Sub
No.2
- 回答日時:
Sub 塗りつぶし削除マクロ()
Dim rng As Range
Dim cell As Range
On Error Resume Next
Set rng = Selection.SpecialCells(xlCellTypeConstants)
On Error GoTo 0
If Not rng Is Nothing Then
For Each cell In rng
If cell.DisplayFormat.Interior.Color <> 16777215 Then '16777215は白の色コードです
cell.Interior.ColorIndex = xlNone
End If
Next cell
End If
End Sub
でやって見てください。
No.1
- 回答日時:
こんにちは
通常セルの色付け書式よりも条件付き書式の方が優先されます。
ですので、セルの色を変更しても条件付き書式で色が着いているセルにはそちらの色が付けられたままになります。
条件付き書式の条件を変更しておくか、あるいはVBAでやるなら、条件付き書式を削除すれば元の色になります。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【VBAエラー】Nextに対するForがありません 対策について 5 2022/11/21 21:26
- Visual Basic(VBA) VBA初心者です。 VBAで行単位で条件付き書式の色をカウントしたいです。 大量のデータがあるExc 3 2022/06/08 10:02
- Visual Basic(VBA) VBA初心者です。 VBAで行単位で条件付き書式の色をカウントしたいです。 大量のデータがあるExc 3 2022/06/08 10:00
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) ワークシート内 検索 HITしたら すべて選択する 6 2021/11/11 22:50
- Visual Basic(VBA) VBAで教えて頂きたいのですが? 1 2022/04/29 02:36
- Visual Basic(VBA) エクセルVBAのコードで質問です。 下のコードはJ16の文字列をB3を起点とする範囲から探して、見つ 5 2023/04/07 11:07
- Visual Basic(VBA) Excelでセル内の一部のみ同じセルを検索し、そのセルと同じ行で任意の列のセルを選択する方法 2 2021/12/17 11:01
- Visual Basic(VBA) ExcelVBAに関する質問 3 2023/02/17 10:47
- Access(アクセス) ExcelのVBAコードについて教えてください。 4 2023/01/20 09:44
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
エクセル VBAでの転記の方法について
Visual Basic(VBA)
-
Excelの各シートを色ごとで分類して値転記するマクロの作り方を教えて下さい。
Visual Basic(VBA)
-
excel 数値を入力し自動で他のセルの数値を移動させる方法
Visual Basic(VBA)
-
-
4
VBAでセル検索から対象行のセルをコピーする方法を教えてください。 B列に日付、C列からF列に数式が
Visual Basic(VBA)
-
5
excl2013 縦の表を横にVBAでする方法
Excel(エクセル)
-
6
Excel VBAでの数値の計算についておしえてください
Visual Basic(VBA)
-
7
VBAのコードを教えてください
Visual Basic(VBA)
-
8
エクセルのマクロについて教えてください。
Visual Basic(VBA)
-
9
Excel 書式のクリア・値貼付けをしても書式が変わらない
Excel(エクセル)
-
10
excel VBA文字化け
Excel(エクセル)
-
11
Excel マクロについて
Visual Basic(VBA)
-
12
ユーザーフォームに別シートからデータを反映させたい。
Visual Basic(VBA)
-
13
エクセルで条件書式と数式の組み合わせはできる?
Excel(エクセル)
-
14
エクセルの数式で教えてください。
Excel(エクセル)
-
15
ExcelのVBAコードを教えて頂けますでしょうか。 例シート2つがあります。 シート1は元データ
Excel(エクセル)
-
16
Excel VBAについて【図形を組み合わせて作成した、料金別納表示の削除の仕方】
Excel(エクセル)
-
17
VBAユーザーホームテキストボックスにカーソルを自動で表示したい
Visual Basic(VBA)
-
18
エクセル関数またはVBAについて
Excel(エクセル)
-
19
excelのVBAについて、以下のコードに追加をお願いいたします。
Visual Basic(VBA)
-
20
VBA
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelのマクロについて教えてく...
-
エクセルVBAコードで教えて下さ...
-
VBAコードについて教えてくださ...
-
vba アクティブシートの名前変...
-
Outlookの「受信日時」「件名」...
-
Excelのマクロについて教えてく...
-
Excelのマクロについて教えてく...
-
VBA 別ブックからコピペしたい...
-
Excelのマクロについて教えてく...
-
Excelのマクロについて教えてく...
-
VBAの計算で@が出てしまう件
-
エクセルのマクロについて教え...
-
Outlookにて既にウィドウ単体で...
-
ユーザーフォームに別シートか...
-
Excelのマクロについて教えてく...
-
Vba 実数および実数タイプの変...
-
Excelのマクロについて教えてく...
-
久しぶりのプログラミング
-
エクセルVBA
-
Excelのマクロについて教えてく...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAで大量のファイルをシート名...
-
VBA レジストリの値の読み方に...
-
Excelのマクロについて教えてく...
-
ユーザーフォームに別シートか...
-
VBAの計算で@が出てしまう件
-
エクセルVBAについて
-
Vba 実数および実数タイプの変...
-
【ExcelVBA】値を変更しながら...
-
VBA一覧取得 再投稿
-
VBA指定行削除
-
エクセルVBAについて
-
VBA ユーザーフォーム ボタンク...
-
VBA 何かしら文字が入っていたら
-
エクセルについて
-
2つのマクロでチェックボックス...
-
【マクロ】1つのマクロの中に...
-
ExcelのVBAコードについて教え...
-
VB.net(VB)で、フォームにExcel...
-
Vba SelStart、SelLen教えてく...
-
Excel-VBAのmsgBox()の不思議
おすすめ情報
ありがとうございます。
条件付き書式の変更とありますが、どのように変更したらいいでしょうか?
申し訳ないですが教えて頂けるとありがたいです。
河内のおやじ様
ありがとうございます。やはりならないですね・・・
なぜなんでしょうか・・・;;
何度もありがとうございます。
ならないです。
やはり条件付き書式が悪いのでしょうか?