| |
▼kazu さん：
> 例えば、Ｃ２〜Ｃ１７とＧ２〜Ｇ１７で
> Ｃ２(Ｃ２〜Ｃ１７)に黒字以外で書いた時Ｄ２(Ｄ２〜Ｄ１７)に書かれてい内容は非表示にする。
> Ｇ２(Ｇ２〜Ｇ１７)に黒字以外で書いた時Ｈ２(Ｈ２〜Ｈ１７)に書かれてい内容は非表示にする。
この「非表示」とは背景色（ぬりつぶしの色）と同じにする、ということで良いですか？
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_フォントカラー）を実行すると、一応画面上は「非表示」になります。
それでは。(^･ω･^)
|
|
飛ばない豚
- 06/8/28(月) 16:35 -
