Excel VBA質問箱 IV

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

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


19430 / 76732 ←次へ | 前へ→

【62733】Re:文字色を変える
回答  yoshi  - 09/8/26(水) 14:21 -

引用なし
パスワード
   ▼kazumi さん:
>トグルボタンを使って文字色をオンの時は赤、オフの時は黒、に変えるという
>設定を教えてください!入力時のみ変更で、入力済みの文字は変更にならないようにしたいのですが・・・・・

対象のシートモジュールに以下でどうでしょう。

Private Sub Worksheet_Change(ByVal Target As Range)
 Target.Font.Color = IIf(ToggleButton1, vbRed, vbBlack)
 'If ToggleButton1 Then Target.Font.Color = vbRed '黒を設定しない場合
End Sub

ももさんの、
For Each c In Target
は無くてもいいのかな?と思うのですが...(入力時のみ変更 ということなので)
1 hits

【62689】文字色を変える kazumi 09/8/24(月) 15:46 質問
【62690】Re:文字色を変える Jaka 09/8/24(月) 16:55 発言
【62728】Re:文字色を変える kazumi 09/8/26(水) 11:58 お礼
【62729】Re:文字色を変える もも 09/8/26(水) 13:34 発言
【62735】Re:文字色を変える kazumi 09/8/26(水) 16:45 お礼
【62733】Re:文字色を変える yoshi 09/8/26(水) 14:21 回答
【62734】Re:文字色を変える もも 09/8/26(水) 15:32 発言

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