|
▼kazu さん:
> 例えば、C2〜C17とG2〜G17で
> C2(C2〜C17)に黒字以外で書いた時D2(D2〜D17)に書かれてい内容は非表示にする。
> G2(G2〜G17)に黒字以外で書いた時H2(H2〜H17)に書かれてい内容は非表示にする。
この「非表示」とは背景色(ぬりつぶしの色)と同じにする、ということで良いですか?
Sub sub_フォントカラー()
Dim myR As Long
For myR = 2 To 17
'C2:C17を見て、D2:D17を変更する。
Call sub_フォントカラー変更(Range("C" & myR), Range("D" & myR))
'C2:C17を見て、D2:D17を変更する。
Call sub_フォントカラー変更(Cells(myR, 7), Cells(myR, 8))
Next myR
End Sub
Private Sub sub_フォントカラー変更(myRangeR As Range, myRangeC As Range)
Dim myFC As Long
myFC = myRangeR.Font.Color
If myFC = 0 Then '黒の時
myFC = myRangeC.Font.Color
If myFC = myRangeC.Interior.Color Then '背景と文字同色の時
If myRangeC.Interior.Color = 0 Then
myRangeC.Font.Color = 16777215 '背景黒の時、白
Else
myRangeC.Font.ColorIndex = -4105 '背景他の時、自動
End If
End If
Else '背景色と一緒にする
myRangeC.Font.Color = myRangeC.Interior.Color
End If
End Sub
このコード(sub_フォントカラー)を実行すると、一応画面上は「非表示」になります。
それでは。(^・ω・^)
|
|