[[20050318144813]]　『マクロのカラー番号』（☆ミミ25☆）　ページの最後に飛ぶ

『マクロのカラー番号』（☆ミミ25☆）

マクロでセルの色を塗りつぶししています。
カラーの種類のなかで、WORDなどで「塗りつぶし効果」
などのなかでパターンみたいに緑の斑点なんかで
塗りつぶしできる方法などはありますか？？
普通のカラー番号しかわからないので<(_ _)>
教えてください。

（☆ミミ25☆）

 マクロの記録で、自分なりに一覧表を作るとか、でしょうか。
 (代奈)

勤怠管理表で祭日は色を指定しているのですが、そのセルの色をパターンみたい
にしたいなぁとぉ。・・・。マクロの指定する色では普通色しかないのですか？
（☆ミミ25）

 色とパターンは別です。
 記録をとると、

 Sub Macro1()
    With Selection.Interior
        .ColorIndex = 10　　　　　←セルの色
        .Pattern = xlGray8　　　　←パターンの種類
        .PatternColorIndex = 3　　←パターンの色
    End With
 End Sub

 となります。
 (代奈)

ありがとうございます。もうちょっと教えてください。
A1～A13　C1～C13まで緑で指定してあります。
そのセルをパターンで塗りつぶすとしたら、どう記述すれば？
よいですか？
（☆ミミ25☆）

 今はどんなコードになっていますか？
 ここに貼り付けてみてください。
 (代奈)

いろいろ教わりながらここまできたのですが・・・<(_ _)>

 Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
Dim c As Long
    If Target.Address(0, 0) <> "F1" Then Exit Sub
    Range("G7:AK25").Interior.ColorIndex = xlColorIndexNone
       For Each r In Range("F7:AK7")
           If r.Value <> "" Then
                If Weekday(r.Value) = vbWednesday Then
                    c = c + 1
                    If c = 2 Or c = 3 Then
                        r.Interior.ColorIndex = 43
                        r.Offset(1).Interior.ColorIndex = 43
                        r.Offset(2).Interior.ColorIndex = 43
                        r.Offset(3).Interior.ColorIndex = 43
                        r.Offset(4).Interior.ColorIndex = 43
                        r.Offset(5).Interior.ColorIndex = 43
                        r.Offset(6).Interior.ColorIndex = 43
                        r.Offset(7).Interior.ColorIndex = 43
                        r.Offset(8).Interior.ColorIndex = 43
                        r.Offset(9).Interior.ColorIndex = 43
                        r.Offset(10).Interior.ColorIndex = 43
                        r.Offset(11).Interior.ColorIndex = 43
                        r.Offset(12).Interior.ColorIndex = 43
                        r.Offset(13).Interior.ColorIndex = 43
                        r.Offset(14).Interior.ColorIndex = 43
                        r.Offset(15).Interior.ColorIndex = 43
                        r.Offset(16).Interior.ColorIndex = 43
                        r.Offset(17).Interior.ColorIndex = 43
                        r.Offset(18).Interior.ColorIndex = 43
                        r.Offset(19).Interior.ColorIndex = 43

                    End If

                End If
            End If
       Next r
End Sub

この緑で指定されているとこなんですが、9～25まではパターン化したいのです。
（☆ミミ25☆）

 > マクロの記録で、
 >パターン化したい
　
 パターンの設定方法が分からないだけ・・？

 セルの書式設定 ＞ パターン（タブ）＞パターン（コンボボックス）

  (INA)

 直接の答えじゃなくてごめんなさいだけど
ご近所PGさんが書かれた　応用するための考え方のヒントなども参考になさってくださいね^^
（る～）
[[20050115131721]] 『条件式書式を6つやりたいんですが・・・』(sirouto)

ありがとうございます。
がんばります。（☆ミミ25☆）

 これで良いのかな・・・。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
Dim c As Long
    If Target.Address(0, 0) <> "F1" Then Exit Sub
    Range("G7:AK25").Interior.ColorIndex = xlColorIndexNone
        For Each r In Range("F7:AK7")
            If r.Value <> "" Then
                If Weekday(r.Value) = vbWednesday Then
                    c = c + 1
                    If c = 2 Or c = 3 Then
                        r.Resize(2, 1).Interior.ColorIndex = 43
                        r.Offset(2, 0).Resize(17, 1).Interior.Pattern = xlGray16
                    End If
                End If
            End If
       Next r
End Sub

 パターンのところも色つけるのでしょうか。
 付けるならResize(2, 1)をResize(19, 1)　に変更です。

 （川野鮎太郎）

 りさいず。。。かぁ。。。(ーー;)
 延々と、
    With r.Interior
    .ColorIndex = 0
    .Pattern = xlGray8
    .PatternColorIndex = 10
    End With

    With r.Offset(1).Interior
    .ColorIndex = 0
    .Pattern = xlGray8
    .PatternColorIndex = 10
    End With

    With r.Offset(2).Interior
    .ColorIndex = 0
    .Pattern = xlGray8
    .PatternColorIndex = 10
    End With

 こんなんかー、とか思ってた(T_T)
 むずいですね(>_<)
 (代奈)

 Resizeで範囲を広げるか、For i = 1 To 25などとしてループさせるのも手ですね。
　　
 With r.Offset(i).Interior
    .ColorIndex = 0
    .Pattern = xlGray8
    .PatternColorIndex = 10
 End With

 （川野鮎太郎）

 うゎーん、ループ、出来ました。。。(T_T)
 なんか、全く進歩ないなぁとか思っていたけど、そうでもないのかもと、妙にうるうる。
 (代奈)

皆様X2数数のアドバイスありがとうございます。
悩みが解消できました。
最後の質問にします。

xlGray16　よりもワンランクこまかいパターンは？？
教えてください。

（☆みみ25☆）

 マクロの記録を覚えたほうが良いですよ・・・。
 xlGray25　だとすぐにわかります。

 ついでだから載せておきますね。

 （川野鮎太郎）

 げ！
 やっぱり。。。というか、作ってしまったのね(*^。^*)
 有難うございます＆お疲れさまですm(__)m
 (代奈)

ホントにホントにありがとうございました。
マクロについてお勉強したいと思います。
（☆ミミ25☆）

コメント返信：

[ 一覧(最新更新順) ]

[[20050318144813]] 『マクロのカラー番号』（☆ミミ25☆） ページの最後に飛ぶ

[[20050318144813]]　『マクロのカラー番号』（☆ミミ25☆）　ページの最後に飛ぶ