Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6936 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【42141】条件付き書式を５個設定にする kazu 06/9/2(土) 19:10 質問[未読]
【42146】Re:条件付き書式を５個設定にする りん 06/9/2(土) 20:31 回答[未読]
【42147】Re:条件付き書式を５個設定にする ponpon 06/9/2(土) 20:36 発言[未読]
【42170】Re:条件付き書式を５個設定にする kazu 06/9/3(日) 17:24 質問[未読]
【42171】Re:条件付き書式を５個設定にする 年寄り２ 06/9/3(日) 19:37 発言[未読]
【42182】Re:条件付き書式を５個設定にする kazu 06/9/3(日) 22:10 質問[未読]
【42173】Re:条件付き書式を５個設定にする 年寄り２ 06/9/3(日) 19:38 発言[未読]
【42184】Re:条件付き書式を５個設定にする kazu 06/9/3(日) 22:12 質問[未読]
【42225】Re:条件付き書式を５個設定にする kazu 06/9/4(月) 15:02 お礼[未読]
【42174】Re:条件付き書式を５個設定にする りん 06/9/3(日) 19:52 発言[未読]
【42186】Re:条件付き書式を５個設定にする kazu 06/9/3(日) 22:18 質問[未読]
【42198】Re:条件付き書式を５個設定にする りん 06/9/4(月) 8:29 発言[未読]
【42219】Re:条件付き書式を５個設定にする kazu 06/9/4(月) 14:29 お礼[未読]
【42177】Re:条件付き書式を５個設定にする ponpon 06/9/3(日) 20:48 発言[未読]
【42185】Re:条件付き書式を５個設定にする kazu 06/9/3(日) 22:17 質問[未読]
【42193】Re:条件付き書式を５個設定にする ponpon 06/9/3(日) 23:52 発言[未読]
【42221】Re:条件付き書式を５個設定にする kazu 06/9/4(月) 14:50 お礼[未読]
【42188】Re:条件付き書式を５個設定にする inoue 06/9/3(日) 22:25 発言[未読]
【42242】Re:条件付き書式を５個設定にする kazu 06/9/4(月) 21:31 発言[未読]
【42141】条件付き書式を５個設定にする
質問  kazu  - 06/9/2(土) 19:10 -
引用なし
パスワード
   エクセル２００３では条件付き書式は３個しか設定できませんが、５個設定できるようにするにはどうすでばいいですか。よろしくお願いします。
【42146】Re:条件付き書式を５個設定にする
回答  りん E-MAIL  - 06/9/2(土) 20:31 -
引用なし
パスワード
   kazu さん、こんばんわ。
>エクセル２００３では条件付き書式は３個しか設定できませんが、５個設定できるようにするにはどうすでばいいですか。よろしくお願いします。

無理です。
４個以上はWorksheetのChangeイベント等で対応しましょう。
【42147】Re:条件付き書式を５個設定にする
発言  ponpon  - 06/9/2(土) 20:36 -
引用なし
パスワード
   ▼kazu さん：
>エクセル２００３では条件付き書式は３個しか設定できませんが、５個設定できるようにするにはどうすでばいいですか。よろしくお願いします。

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

例）


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:条件付き書式を５個設定にする
質問  kazu  - 06/9/3(日) 17:24 -
引用なし
パスワード
   シート１にプログラムを貼り付けましたがうまくできません。どのようにすればいいのですか。
【42171】Re:条件付き書式を５個設定にする
発言  年寄り２  - 06/9/3(日) 19:37 -
引用なし
パスワード
   ▼kazu さん：

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

　　Dim fcolor As String
　　fcolor = Application.InputBox("RED , GREEN , BLUE , PINK の" & Chr(13) & "指定をしてください", "RGBPの４色指定")
　　
　　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

>シート１にプログラムを貼り付けましたがうまくできません。どのようにすればいいのですか。
【42173】Re:条件付き書式を５個設定にする
発言  年寄り２  - 06/9/3(日) 19:38 -
引用なし
パスワード
   ▼kazu さん：
>シート１にプログラムを貼り付けましたがうまくできません。どのようにすればいいのですか。
▼kazu さん：

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

　　Dim fcolor As String
　　fcolor = Application.InputBox("RED , GREEN , BLUE , PINK の" & Chr(13) & "指定をしてください", "RGBPの４色指定")
　　
　　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

>シート１にプログラムを貼り付けましたがうまくできません。どのようにすればいいのですか。
【42174】Re:条件付き書式を５個設定にする
発言  りん E-MAIL  - 06/9/3(日) 19:52 -
引用なし
パスワード
   kazu さん、こんばんわ。
>シート１にプログラムを貼り付けましたがうまくできません。どのようにすればいいのですか。
ponponさんのコードは、Ａ列のセルにあ〜おを入れたときにセルの色が変わります。
【42177】Re:条件付き書式を５個設定にする
発言  ponpon  - 06/9/3(日) 20:48 -
引用なし
パスワード
   ▼kazu さん：
>シート１にプログラムを貼り付けましたがうまくできません。どのようにすればいいのですか。

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

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

今日は、稲刈りともみすりと両方で今作業が終わりました。
返事が送れて申し訳ありません。
【42182】Re:条件付き書式を５個設定にする
質問  kazu  - 06/9/3(日) 22:10 -
引用なし
パスワード
   もう一度詳しく書きます。
エクセル２００３では条件付き書式は３個しか設定できませんが、ＶＢＡで５個設定できるようにするにはどうすでばいいですか。
やっぱりＶＢＡでも無理なのですか。
Ｄ３セルにフォント白・パターン黒の時Ｄ３セルに次の条件設定を使用とするが
エクセル２００３ではこの中の３個しかできないのであと２個追加したいです。（全部で５個にしたい）
条件1
数式が、=AND(C3=1)の時セルの書式設定でフォント黒・パターン黒
条件2
数式が、=AND(C3=7)の時セルの書式設定でフォント黒・パターン黒
条件3
数式が、=AND(COUNTIF($I$26:$I$44,B3)>0)の時セルの書式設定でフォント黒・パターン黒
条件4
セルの値が、次の値に等しい時、=D$22の時書式設定でフォント濃い青・パターンローズ
条件5
セルの値が、次の値に等しい時、=D$23の時書式設定でフォントシーグリーン・パターン薄い水色

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

Ｄ３の条件が設定できればＤ４からＤ１７まではセルのコピーでお願いします。
　　　　　　　　　　　　　　　　　よろしくお願いします。
【42184】Re:条件付き書式を５個設定にする
質問  kazu  - 06/9/3(日) 22:12 -
引用なし
パスワード
   もう一度詳しく書きます。
エクセル２００３では条件付き書式は３個しか設定できませんが、ＶＢＡで５個設定できるようにするにはどうすでばいいですか。
やっぱりＶＢＡでも無理なのですか。
Ｄ３セルにフォント白・パターン黒の時Ｄ３セルに次の条件設定を使用とするが
エクセル２００３ではこの中の３個しかできないのであと２個追加したいです。（全部で５個にしたい）
条件1
数式が、=AND(C3=1)の時セルの書式設定でフォント黒・パターン黒
条件2
数式が、=AND(C3=7)の時セルの書式設定でフォント黒・パターン黒
条件3
数式が、=AND(COUNTIF($I$26:$I$44,B3)>0)の時セルの書式設定でフォント黒・パターン黒
条件4
セルの値が、次の値に等しい時、=D$22の時書式設定でフォント濃い青・パターンローズ
条件5
セルの値が、次の値に等しい時、=D$23の時書式設定でフォントシーグリーン・パターン薄い水色

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

Ｄ３の条件が設定できればＤ４からＤ１７まではセルのコピーでお願いします。
　　　　　　　　　　　　　　　　　よろしくお願いします。
【42185】Re:条件付き書式を５個設定にする
質問  kazu  - 06/9/3(日) 22:17 -
引用なし
パスワード
   もう一度詳しく書きます。
エクセル２００３では条件付き書式は３個しか設定できませんが、ＶＢＡで５個設定できるようにするにはどうすでばいいですか。
やっぱりＶＢＡでも無理なのですか。
Ｄ３セルにフォント白・パターン黒の時Ｄ３セルに次の条件設定を使用とするが
エクセル２００３ではこの中の３個しかできないのであと２個追加したいです。（全部で５個にしたい）
条件1
数式が、=AND(C3=1)の時セルの書式設定でフォント黒・パターン黒
条件2
数式が、=AND(C3=7)の時セルの書式設定でフォント黒・パターン黒
条件3
数式が、=AND(COUNTIF($I$26:$I$44,B3)>0)の時セルの書式設定でフォント黒・パターン黒
条件4
セルの値が、次の値に等しい時、=D$22の時書式設定でフォント濃い青・パターンローズ
条件5
セルの値が、次の値に等しい時、=D$23の時書式設定でフォントシーグリーン・パターン薄い水色

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

Ｄ３の条件が設定できればＤ４からＤ１７まではセルのコピーでお願いします。
　　　　　　　　　　　　　　　よろしくお願いします。
【42186】Re:条件付き書式を５個設定にする
質問  kazu  - 06/9/3(日) 22:18 -
引用なし
パスワード
   もう一度詳しく書きます。
エクセル２００３では条件付き書式は３個しか設定できませんが、ＶＢＡで５個設定できるようにするにはどうすでばいいですか。
やっぱりＶＢＡでも無理なのですか。
Ｄ３セルにフォント白・パターン黒の時Ｄ３セルに次の条件設定を使用とするが
エクセル２００３ではこの中の３個しかできないのであと２個追加したいです。（全部で５個にしたい）
条件1
数式が、=AND(C3=1)の時セルの書式設定でフォント黒・パターン黒
条件2
数式が、=AND(C3=7)の時セルの書式設定でフォント黒・パターン黒
条件3
数式が、=AND(COUNTIF($I$26:$I$44,B3)>0)の時セルの書式設定でフォント黒・パターン黒
条件4
セルの値が、次の値に等しい時、=D$22の時書式設定でフォント濃い青・パターンローズ
条件5
セルの値が、次の値に等しい時、=D$23の時書式設定でフォントシーグリーン・パターン薄い水色

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

Ｄ３の条件が設定できればＤ４からＤ１７まではセルのコピーでお願いします。
　　　　　　　　　　　　　　よろしくお願いします。
【42188】Re:条件付き書式を５個設定にする
発言  inoue E-MAILWEB  - 06/9/3(日) 22:25 -
引用なし
パスワード
   要件丸投げのようなものを何回も繰り返しても解決しません。

>シート１にプログラムを貼り付けましたがうまくできません。
どう「うまくできません。」なのかデバッグできているのでしょうか。
【42193】Re:条件付き書式を５個設定にする
発言  ponpon  - 06/9/3(日) 23:52 -
引用なし
パスワード
   ▼kazu さん：
>もう一度詳しく書きます。
>エクセル２００３では条件付き書式は３個しか設定できませんが、ＶＢＡで５個設定できるようにするにはどうすでばいいですか。
>やっぱりＶＢＡでも無理なのですか。
>Ｄ３セルにフォント白・パターン黒の時Ｄ３セルに次の条件設定を使用とするが
>エクセル２００３ではこの中の３個しかできないのであと２個追加したいです。（全部で５個にしたい）
>条件1
>数式が、=AND(C3=1)の時セルの書式設定でフォント黒・パターン黒
　　　　　~~~何とANDなのかな？
>条件2
>数式が、=AND(C3=7)の時セルの書式設定でフォント黒・パターン黒
　　　　　~~~何とANDなのかな？
>条件3
>数式が、=AND(COUNTIF($I$26:$I$44,B3)>0)の時セルの書式設定でフォント黒・パ
　　　　　~~~何とANDなのかな？
ここまでで一つになりませんか？
条件１
　数式が=OR(C3=1,C3=7,COUNTIF($I$26:$I$44,B3)>0)の時セルの書式設定でフォント黒・パターン黒


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

>Ｄ３の条件が設定できればＤ４からＤ１７まではセルのコピーでお願いします。
VBAは、セルのコピーの様なわけにはいきません。
ところで、チェンジイヴェントの方は、試していただき、意味が理解できましたか？
【42198】Re:条件付き書式を５個設定にする
発言  りん 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)の時セルの書式設定でフォント黒・パターン黒
この３つは書式パターンがおなじなので1つにまとめられます。
まとめる方法はponponさんが書いているので割愛。

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

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

>Ｄ３の条件が設定できればＤ４からＤ１７まではセルのコピーでお願いします。
コピーをしなくても、D3:D17を選択した状態（アクティブセルはD3）で条件を設定すると、一括で設定できますよ。
【42219】Re:条件付き書式を５個設定にする
お礼  kazu  - 06/9/4(月) 14:29 -
引用なし
パスワード
   ＶＢＡの超初心者ですが、やっと解決できました。最後までありがとうございました。
【42221】Re:条件付き書式を５個設定にする
お礼  kazu  - 06/9/4(月) 14:50 -
引用なし
パスワード
   回答をいただきやっと解決できました。
ＶＢＡは超初心者ですのでチェンジヴェントの理解ができませんでした。
シート１に貼り付けユーザホーム実行で終わっています。
そこから先はかりませんでした。
よい回答をいただき、解決できた事をうれしく思っています。
ありがとうございました。kazu
【42225】Re:条件付き書式を５個設定にする
お礼  kazu  - 06/9/4(月) 15:02 -
引用なし
パスワード
   ＶＢＡは超初心者です。
シート１に貼り付けユーザホーム実行でインプットボックスが表示しそこに指定の色を書くとセルＣ３５にその色が表示しました。
ponponさんの回答で解決できました。参考なプログラムありがとうございました。
【42242】Re:条件付き書式を５個設定にする
発言  kazu  - 06/9/4(月) 21:31 -
引用なし
パスワード
   解決しました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6936 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free