エクセルの学校：全文検索：Hyper Estraier： kazu 条件付書式

Results of 1 - 1 of about 406 for kazu 条件付書式 (0.004 sec.)

kazu (7745), 条件付書式 (2647)

[[20020519133741]]: #score: 6689; @digest: 20a16d259e7085816124f042155f2eca; @id: 63; @mdate: 2003-04-29T06:41:56Z; @size: 1497; @type: text/plain; #keywords: コバ (8155), xxxxxxxxxxxxxxxxxxxx (8023), モレ (4525), ネコ (3710), バス (2752), interior (2322), colorindex (1910), 色塗 (1332), 付書 (571), case (547), ス） (489), integer (432), 構文 (415), 囲指 (388), cells (381), 件付 (373), は3 (353), s (348), 条件 (316), （ka (269), 勝手 (265), next (251), 指導 (248), 判定 (223), 以上 (221), の条 (181), 書式 (176), for (176), を付 (175), kazu (161), i (124), select (122); 『3つ以上の条件でセルに色を付けるには?』（ネコバス）
条件付書式では3つしか付けられないので、それ以上の条件を付けるにはどうしたらよいのでしょうか?VBAのFor〜Nextやif〜Thenを使っても、範囲指定か構文の作り方が悪いのか「色のつけモレ」が出ます。 ---- 条件付書式は3つまでしか使えません。VBAで判定すれば3つってことはありません。 VBAをここへ、見せてください。みんなで考えましょう。（kazu） ---- VBAこれです。よろしくご指導くださいませ(ネコバス） Sub 色塗り() Dim i As Integer Dim s As Integer i = 5 s = 1 For i = 5 To 99 For s = 1 To 99 Select Case Cells(i, s).Value Case "12" Cells(i, s).Interior.ColorIndex = 3 Case "13" Cells(i, s).Interior.ColorIndex = 8 Case "14" Cells(i, s).Interior.ColorIndex = 4 Case "15" Cells(i, s).Interior.ColorIndex = 39 Case "16" Cells(i, s).Interior.ColorIndex = 46 Case "11" Cells(i, s).Interior.ColorIndex = 38 End Select s = s + 1 i = i + 1 Next s Next i End Sub ---- For i = 5 To 99 For s = 1 To 99 XXXXXXXXXXXXXXXXXXXX s = s + 1 i = i + 1 Next s Next i このコードではひとつおきにしか色がつきません。下の2行は入れてはいけません。For Next が勝手に足してくれます s = s + 1 i = i + 1 お試しあれ。（kazu） ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200205/20020519133741.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ