□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
| 設定コマンド教えて | |
|---|---|
[194979] 設定コマンド教えて- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ niga -(2022/06/10(15:13)) □U R L/ 教えてください。
塗り潰した色を塗り潰す前に、文字の赤色を初期の黒色にしたいのです。
ホームコントロールからボタンを作成し塗り潰し、文字の色を初期に戻す設定をしたいのです。
設定内容
１．下記セル内に所々に黄色で塗り潰ししてあります、これを塗る前の初期の状態に戻したい。
C3:I62,M3:Q38,U3:AA62,AE3:AI38,AM3:AS62,AW3:BA38,BE3:BK62,BO3:BS38,BW3:CC62,CG3:CK38,CO3:CU62,CY3:DC38
（１２か所）
２．下記内セルに文字が赤で入力されているのを元の黒色に戻す設定をしたい。
j3:j62,AB3:AB62,AT3:AT62,BL3:BL62,CD3:CD62,CV3:CV62
（６か所）
色々調べ下記の様に設定しましたが自身が有りません教えて頂ければ助かります。
Sub 塗り潰し削除()
Dim MyRange As Range
For Each MyRange In Range("C3:I62,M3:Q38,U3:AA62,AE3:AI38,AM3:AS62,AW3:BA38,BE3:BK62,BO3:BS38,BW3:CC62,CG3:CK38,CO3:CU62,CY3:DC38")
If MyRange.Interior.Color <> xlNone Then
MyRange.Interior.Color = xlNone
Range("j3:j62,AB3:AB62,AT3:AT62,BL3:BL62,CD3:CD62,CV3:CV62").Font.ColorIndex = 0
End If
Next
End Sub
あまり詳しくないのでご指導宜しくお願いします。
Win10 Excel2010
この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[194989] Re[1]: 設定コマンド教えて- ■記事引用/メール受信=OFF■ □投稿者/ RPG不動産 -(2022/06/11(02:20)) □U R L/ ああ。こうか
If Not Application.Intersect(MyRange, Range("j3:j62,AB3:AB62,AT3:AT62,BL3:BL62,CD3:CD62,CV3:CV62")) Is Nothing Then
MsgBox "文字赤"
End If
やっぱ違うな？
これ、ループの外に出せばいいじゃね。
Range("j3:j62,AB3:AB62,AT3:AT62,BL3:BL62,CD3:CD62,CV3:CV62").Font.ColorIndex = 0
条件が解らん。この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[194990] （削除）- ■記事引用/メール受信=OFF■ □投稿者/ / -(2022/06/11(02:24)) □U R L/ この記事は削除されました | |
[194991] Re[3]: （削除）- ■記事引用/メール受信=OFF■ □投稿者/ niga -(2022/06/11(06:36)) □U R L/
| |
[194992] Re[4]: （削除）- ■記事引用/メール受信=OFF■ □投稿者/ RPG不動産 -(2022/06/11(09:36)) □U R L/ どっちでもいい。 | |