Results of 0 - 1 of about 0 (0.000 sec.)
- [[20020519133741]]
- @digest: 20a16d259e7085816124f042155f2eca
- @id: 63
- @mdate: 2003-04-29T06:41:56Z
- @size: 1497
- @type: text/plain
- #keywords: コバ (8155), xxxxxxxxxxxxxxxxxxxx (8023), モレ (4525), ネコ (3710), バス (2752), interior (2321), colorindex (1909), 色塗 (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
Powered by Hyper Estraier 1.4.13, with 96998 documents and 607825 words.
訪問者：