Excel VBA質問箱 IV

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

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


39694 / 76732 ←次へ | 前へ→

【42147】Re:条件付き書式を5個設定にする
発言  ponpon  - 06/9/2(土) 20:36 -

引用なし
パスワード
   ▼kazu さん:
>エクセル2003では条件付き書式は3個しか設定できませんが、5個設定できるようにするにはどうすでばいいですか。よろしくお願いします。

できないものは、できないと思います。
チェンジイヴェントで対応するしかないのでは?

例)


Private Sub Worksheet_Change(ByVal Target As Range)
  Dim myNo As Integer
  With Target
   If IsEmpty(.Value) Then Exit Sub
   If Application.Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
     Application.EnableEvents = False
     Select Case .Value
       Case "あ": myNo = 1
       Case "い": myNo = 2
       Case "う": myNo = 3
       Case "え": myNo = 4
       Case "お": myNo = 5
     End Select
     .Interior.ColorIndex = myNo
     Application.EnableEvents = True
  End With

End Sub
0 hits

【42141】条件付き書式を5個設定にする kazu 06/9/2(土) 19:10 質問
【42146】Re:条件付き書式を5個設定にする りん 06/9/2(土) 20:31 回答
【42147】Re:条件付き書式を5個設定にする ponpon 06/9/2(土) 20:36 発言
【42170】Re:条件付き書式を5個設定にする kazu 06/9/3(日) 17:24 質問
【42171】Re:条件付き書式を5個設定にする 年寄り2 06/9/3(日) 19:37 発言
【42182】Re:条件付き書式を5個設定にする kazu 06/9/3(日) 22:10 質問
【42173】Re:条件付き書式を5個設定にする 年寄り2 06/9/3(日) 19:38 発言
【42184】Re:条件付き書式を5個設定にする kazu 06/9/3(日) 22:12 質問
【42225】Re:条件付き書式を5個設定にする kazu 06/9/4(月) 15:02 お礼
【42174】Re:条件付き書式を5個設定にする りん 06/9/3(日) 19:52 発言
【42186】Re:条件付き書式を5個設定にする kazu 06/9/3(日) 22:18 質問
【42198】Re:条件付き書式を5個設定にする りん 06/9/4(月) 8:29 発言
【42219】Re:条件付き書式を5個設定にする kazu 06/9/4(月) 14:29 お礼
【42177】Re:条件付き書式を5個設定にする ponpon 06/9/3(日) 20:48 発言
【42185】Re:条件付き書式を5個設定にする kazu 06/9/3(日) 22:17 質問
【42193】Re:条件付き書式を5個設定にする ponpon 06/9/3(日) 23:52 発言
【42221】Re:条件付き書式を5個設定にする kazu 06/9/4(月) 14:50 お礼
【42188】Re:条件付き書式を5個設定にする inoue 06/9/3(日) 22:25 発言
【42242】Re:条件付き書式を5個設定にする kazu 06/9/4(月) 21:31 発言

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