Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


6946 / 13644 ツリー ←次へ | 前へ→

【41983】隣のセルの文字が黒以外このセルの内容を表示しない。 kazu 06/8/28(月) 0:42 質問[未読]
【41996】Re:隣のセルの文字が黒以外このセルの内... 飛ばない豚 06/8/28(月) 16:35 発言[未読]
【42169】Re:隣のセルの文字が黒以外このセルの内... kazu 06/9/3(日) 17:16 お礼[未読]

【41983】隣のセルの文字が黒以外このセルの内容を...
質問  kazu  - 06/8/28(月) 0:42 -

引用なし
パスワード
   隣のセルの文字が黒以外このセルの内容を表示しない。
例えば、C2〜C17とG2〜G17で
C2(C2〜C17)に黒字以外で書いた時D2(D2〜D17)に書かれてい内容は非表示にする。
G2(G2〜G17)に黒字以外で書いた時H2(H2〜H17)に書かれてい内容は非表示にする。
よろしくお願いします。

【41996】Re:隣のセルの文字が黒以外このセルの内...
発言  飛ばない豚  - 06/8/28(月) 16:35 -

引用なし
パスワード
   ▼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_フォントカラー)を実行すると、一応画面上は「非表示」になります。


それでは。(^・ω・^)

【42169】Re:隣のセルの文字が黒以外このセルの内...
お礼  kazu  - 06/9/3(日) 17:16 -

引用なし
パスワード
   返事遅くなってすみません。こちらの思っている動きになっていました。どうもありがとうございました。

6946 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free