Excel VBA質問箱 IV

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

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


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

【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 発言[未読]

【42141】条件付き書式を5個設定にする
質問  kazu  - 06/9/2(土) 19:10 -

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

【42146】Re:条件付き書式を5個設定にする
回答  りん E-MAIL  - 06/9/2(土) 20:31 -

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

無理です。
4個以上はWorksheetのChangeイベント等で対応しましょう。

【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

【42170】Re:条件付き書式を5個設定にする
質問  kazu  - 06/9/3(日) 17:24 -

引用なし
パスワード
   シート1にプログラムを貼り付けましたがうまくできません。どのようにすればいいのですか。

【42171】Re:条件付き書式を5個設定にする
発言  年寄り2  - 06/9/3(日) 19:37 -

引用なし
パスワード
   ▼kazu さん:

ponponさんのコードを利用されては?
単純なこのようなものでも使えます・・・
Sub Select_case()

  Dim fcolor As String
  fcolor = Application.InputBox("RED , GREEN , BLUE , PINK の" & Chr(13) & "指定をしてください", "RGBPの4色指定")
  
  If fcolor = "" Then Exit Sub
  Range("C35").Value = fcolor

  Select Case fcolor
    Case "RED"
      Range("C35").Font.ColorIndex = 3
    Case "GREEN"
      Range("C35").Font.ColorIndex = 10
    Case "BLUE"
      Range("C35").Font.ColorIndex = 5
    Case "PINK"
      Range("C35").Font.ColorIndex = 7
  '後色指定をふやっしてください
  End Select
End Sub

>シート1にプログラムを貼り付けましたがうまくできません。どのようにすればいいのですか。

【42173】Re:条件付き書式を5個設定にする
発言  年寄り2  - 06/9/3(日) 19:38 -

引用なし
パスワード
   ▼kazu さん:
>シート1にプログラムを貼り付けましたがうまくできません。どのようにすればいいのですか。
▼kazu さん:

ponponさんのコードを利用されては?
単純なこのようなものでも使えます・・・
Sub Select_case()

  Dim fcolor As String
  fcolor = Application.InputBox("RED , GREEN , BLUE , PINK の" & Chr(13) & "指定をしてください", "RGBPの4色指定")
  
  If fcolor = "" Then Exit Sub
  Range("C35").Value = fcolor

  Select Case fcolor
    Case "RED"
      Range("C35").Font.ColorIndex = 3
    Case "GREEN"
      Range("C35").Font.ColorIndex = 10
    Case "BLUE"
      Range("C35").Font.ColorIndex = 5
    Case "PINK"
      Range("C35").Font.ColorIndex = 7
  '後色指定をふやっしてください
  End Select
End Sub

>シート1にプログラムを貼り付けましたがうまくできません。どのようにすればいいのですか。

【42174】Re:条件付き書式を5個設定にする
発言  りん E-MAIL  - 06/9/3(日) 19:52 -

引用なし
パスワード
   kazu さん、こんばんわ。
>シート1にプログラムを貼り付けましたがうまくできません。どのようにすればいいのですか。
ponponさんのコードは、A列のセルにあ〜おを入れたときにセルの色が変わります。

【42177】Re:条件付き書式を5個設定にする
発言  ponpon  - 06/9/3(日) 20:48 -

引用なし
パスワード
   ▼kazu さん:
>シート1にプログラムを貼り付けましたがうまくできません。どのようにすればいいのですか。

具体的にどんな条件で書式をどんな風に変えたいのでしょうか?

私の例は、りんさんのおっしゃる通りで、A列に"あ"、"い"、"う"、"え"、"お"と
入れると、それに対応して、セルの色が変わるようになっています。

今日は、稲刈りともみすりと両方で今作業が終わりました。
返事が送れて申し訳ありません。

【42182】Re:条件付き書式を5個設定にする
質問  kazu  - 06/9/3(日) 22:10 -

引用なし
パスワード
   もう一度詳しく書きます。
エクセル2003では条件付き書式は3個しか設定できませんが、VBAで5個設定できるようにするにはどうすでばいいですか。
やっぱりVBAでも無理なのですか。
D3セルにフォント白・パターン黒の時D3セルに次の条件設定を使用とするが
エクセル2003ではこの中の3個しかできないのであと2個追加したいです。(全部で5個にしたい)
条件1
数式が、=AND(C3=1)の時セルの書式設定でフォント黒・パターン黒
条件2
数式が、=AND(C3=7)の時セルの書式設定でフォント黒・パターン黒
条件3
数式が、=AND(COUNTIF($I$26:$I$44,B3)>0)の時セルの書式設定でフォント黒・パターン黒
条件4
セルの値が、次の値に等しい時、=D$22の時書式設定でフォント濃い青・パターンローズ
条件5
セルの値が、次の値に等しい時、=D$23の時書式設定でフォントシーグリーン・パターン薄い水色

あとD4セルにフォント白・パターン黒の時D4セルに次の条件設定を使用とする(D17まで設定する)
条件1
数式が、=AND(C4=1)の時セルの書式設定でフォント黒・パターン黒
条件2
数式が、=AND(C4=7)の時セルの書式設定でフォント黒・パターン黒
条件3
数式が、=AND(COUNTIF($I$26:$I$44,B4)>0)の時セルの書式設定でフォント黒・パターン黒
条件4
セルの値が、次の値に等しい時、=D$22の時書式設定でフォント濃い青・パターンローズ
条件5
セルの値が、次の値に等しい時、=D$23の時書式設定でフォントシーグリーン・パターン薄い水色

D3の条件が設定できればD4からD17まではセルのコピーでお願いします。
                 よろしくお願いします。

【42184】Re:条件付き書式を5個設定にする
質問  kazu  - 06/9/3(日) 22:12 -

引用なし
パスワード
   もう一度詳しく書きます。
エクセル2003では条件付き書式は3個しか設定できませんが、VBAで5個設定できるようにするにはどうすでばいいですか。
やっぱりVBAでも無理なのですか。
D3セルにフォント白・パターン黒の時D3セルに次の条件設定を使用とするが
エクセル2003ではこの中の3個しかできないのであと2個追加したいです。(全部で5個にしたい)
条件1
数式が、=AND(C3=1)の時セルの書式設定でフォント黒・パターン黒
条件2
数式が、=AND(C3=7)の時セルの書式設定でフォント黒・パターン黒
条件3
数式が、=AND(COUNTIF($I$26:$I$44,B3)>0)の時セルの書式設定でフォント黒・パターン黒
条件4
セルの値が、次の値に等しい時、=D$22の時書式設定でフォント濃い青・パターンローズ
条件5
セルの値が、次の値に等しい時、=D$23の時書式設定でフォントシーグリーン・パターン薄い水色

あとD4セルにフォント白・パターン黒の時D4セルに次の条件設定を使用とする(D17まで設定する)
条件1
数式が、=AND(C4=1)の時セルの書式設定でフォント黒・パターン黒
条件2
数式が、=AND(C4=7)の時セルの書式設定でフォント黒・パターン黒
条件3
数式が、=AND(COUNTIF($I$26:$I$44,B4)>0)の時セルの書式設定でフォント黒・パターン黒
条件4
セルの値が、次の値に等しい時、=$D$22の時書式設定でフォント濃い青・パターンローズ
条件5
セルの値が、次の値に等しい時、=$D$23の時書式設定でフォントシーグリーン・パターン薄い水色

D3の条件が設定できればD4からD17まではセルのコピーでお願いします。
                 よろしくお願いします。

【42185】Re:条件付き書式を5個設定にする
質問  kazu  - 06/9/3(日) 22:17 -

引用なし
パスワード
   もう一度詳しく書きます。
エクセル2003では条件付き書式は3個しか設定できませんが、VBAで5個設定できるようにするにはどうすでばいいですか。
やっぱりVBAでも無理なのですか。
D3セルにフォント白・パターン黒の時D3セルに次の条件設定を使用とするが
エクセル2003ではこの中の3個しかできないのであと2個追加したいです。(全部で5個にしたい)
条件1
数式が、=AND(C3=1)の時セルの書式設定でフォント黒・パターン黒
条件2
数式が、=AND(C3=7)の時セルの書式設定でフォント黒・パターン黒
条件3
数式が、=AND(COUNTIF($I$26:$I$44,B3)>0)の時セルの書式設定でフォント黒・パターン黒
条件4
セルの値が、次の値に等しい時、=D$22の時書式設定でフォント濃い青・パターンローズ
条件5
セルの値が、次の値に等しい時、=D$23の時書式設定でフォントシーグリーン・パターン薄い水色

あとD4セルにフォント白・パターン黒の時D4セルに次の条件設定を使用とする(D17まで設定する)
条件1
数式が、=AND(C4=1)の時セルの書式設定でフォント黒・パターン黒
条件2
数式が、=AND(C4=7)の時セルの書式設定でフォント黒・パターン黒
条件3
数式が、=AND(COUNTIF($I$26:$I$44,B4)>0)の時セルの書式設定でフォント黒・パターン黒
条件4
セルの値が、次の値に等しい時、=$D$22の時書式設定でフォント濃い青・パターンローズ
条件5
セルの値が、次の値に等しい時、=$D$23の時書式設定でフォントシーグリーン・パターン薄い水色

D3の条件が設定できればD4からD17まではセルのコピーでお願いします。
               よろしくお願いします。

【42186】Re:条件付き書式を5個設定にする
質問  kazu  - 06/9/3(日) 22:18 -

引用なし
パスワード
   もう一度詳しく書きます。
エクセル2003では条件付き書式は3個しか設定できませんが、VBAで5個設定できるようにするにはどうすでばいいですか。
やっぱりVBAでも無理なのですか。
D3セルにフォント白・パターン黒の時D3セルに次の条件設定を使用とするが
エクセル2003ではこの中の3個しかできないのであと2個追加したいです。(全部で5個にしたい)
条件1
数式が、=AND(C3=1)の時セルの書式設定でフォント黒・パターン黒
条件2
数式が、=AND(C3=7)の時セルの書式設定でフォント黒・パターン黒
条件3
数式が、=AND(COUNTIF($I$26:$I$44,B3)>0)の時セルの書式設定でフォント黒・パターン黒
条件4
セルの値が、次の値に等しい時、=D$22の時書式設定でフォント濃い青・パターンローズ
条件5
セルの値が、次の値に等しい時、=D$23の時書式設定でフォントシーグリーン・パターン薄い水色

あとD4セルにフォント白・パターン黒の時D4セルに次の条件設定を使用とする(D17まで設定する)
条件1
数式が、=AND(C4=1)の時セルの書式設定でフォント黒・パターン黒
条件2
数式が、=AND(C4=7)の時セルの書式設定でフォント黒・パターン黒
条件3
数式が、=AND(COUNTIF($I$26:$I$44,B4)>0)の時セルの書式設定でフォント黒・パターン黒
条件4
セルの値が、次の値に等しい時、=$D$22の時書式設定でフォント濃い青・パターンローズ
条件5
セルの値が、次の値に等しい時、=$D$23の時書式設定でフォントシーグリーン・パターン薄い水色

D3の条件が設定できればD4からD17まではセルのコピーでお願いします。
              よろしくお願いします。

【42188】Re:条件付き書式を5個設定にする
発言  inoue E-MAILWEB  - 06/9/3(日) 22:25 -

引用なし
パスワード
   要件丸投げのようなものを何回も繰り返しても解決しません。

>シート1にプログラムを貼り付けましたがうまくできません。
どう「うまくできません。」なのかデバッグできているのでしょうか。

【42193】Re:条件付き書式を5個設定にする
発言  ponpon  - 06/9/3(日) 23:52 -

引用なし
パスワード
   ▼kazu さん:
>もう一度詳しく書きます。
>エクセル2003では条件付き書式は3個しか設定できませんが、VBAで5個設定できるようにするにはどうすでばいいですか。
>やっぱりVBAでも無理なのですか。
>D3セルにフォント白・パターン黒の時D3セルに次の条件設定を使用とするが
>エクセル2003ではこの中の3個しかできないのであと2個追加したいです。(全部で5個にしたい)
>条件1
>数式が、=AND(C3=1)の時セルの書式設定でフォント黒・パターン黒
     ~~~何とANDなのかな?
>条件2
>数式が、=AND(C3=7)の時セルの書式設定でフォント黒・パターン黒
     ~~~何とANDなのかな?
>条件3
>数式が、=AND(COUNTIF($I$26:$I$44,B3)>0)の時セルの書式設定でフォント黒・パ
     ~~~何とANDなのかな?
ここまでで一つになりませんか?
条件1
 数式が=OR(C3=1,C3=7,COUNTIF($I$26:$I$44,B3)>0)の時セルの書式設定でフォント黒・パターン黒


>条件4
>セルの値が、次の値に等しい時、=D$22の時書式設定でフォント濃い青・パターンローズ
>条件5
>セルの値が、次の値に等しい時、=D$23の時書式設定でフォントシーグリーン・パターン薄い水色
>

>D3の条件が設定できればD4からD17まではセルのコピーでお願いします。
VBAは、セルのコピーの様なわけにはいきません。
ところで、チェンジイヴェントの方は、試していただき、意味が理解できましたか?

【42198】Re:条件付き書式を5個設定にする
発言  りん E-MAIL  - 06/9/4(月) 8:29 -

引用なし
パスワード
   kazu さん、おはようございます。

>条件1
>数式が、=AND(C3=1)の時セルの書式設定でフォント黒・パターン黒
>条件2
>数式が、=AND(C3=7)の時セルの書式設定でフォント黒・パターン黒
>条件3
>数式が、=AND(COUNTIF($I$26:$I$44,B3)>0)の時セルの書式設定でフォント黒・パターン黒
この3つは書式パターンがおなじなので1つにまとめられます。
まとめる方法はponponさんが書いているので割愛。

>条件4
>セルの値が、次の値に等しい時、=D$22の時書式設定でフォント濃い青・パターンローズ
>条件5
>セルの値が、次の値に等しい時、=D$23の時書式設定でフォントシーグリーン・パターン薄い水色

条件が3つになるようなので解決。

>D3の条件が設定できればD4からD17まではセルのコピーでお願いします。
コピーをしなくても、D3:D17を選択した状態(アクティブセルはD3)で条件を設定すると、一括で設定できますよ。

【42219】Re:条件付き書式を5個設定にする
お礼  kazu  - 06/9/4(月) 14:29 -

引用なし
パスワード
   VBAの超初心者ですが、やっと解決できました。最後までありがとうございました。

【42221】Re:条件付き書式を5個設定にする
お礼  kazu  - 06/9/4(月) 14:50 -

引用なし
パスワード
   回答をいただきやっと解決できました。
VBAは超初心者ですのでチェンジヴェントの理解ができませんでした。
シート1に貼り付けユーザホーム実行で終わっています。
そこから先はかりませんでした。
よい回答をいただき、解決できた事をうれしく思っています。
ありがとうございました。kazu

【42225】Re:条件付き書式を5個設定にする
お礼  kazu  - 06/9/4(月) 15:02 -

引用なし
パスワード
   VBAは超初心者です。
シート1に貼り付けユーザホーム実行でインプットボックスが表示しそこに指定の色を書くとセルC35にその色が表示しました。
ponponさんの回答で解決できました。参考なプログラムありがとうございました。

【42242】Re:条件付き書式を5個設定にする
発言  kazu  - 06/9/4(月) 21:31 -

引用なし
パスワード
   解決しました。

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