VBA マクロでの網掛けについて

Sub 網掛け()
　　Worksheets("表").Select
　　With Range("A1")
　　　　.Interior.Pattern = 1
　　　　.Interior.PatternColorIndex = 2
　　End With
End Sub

これをボタンに登録し、ボタンを押すと網掛けできうようになっています。
しかしボタンをおすとかならず白で網掛けされてしまいます。
ColorIndexをどの数字にしても白です。

どうして白になってしまうのか教えてください。

No.3 ベストアンサー 回答者： merlionXX 回答日時： 2007/05/30 14:33

ひょっとして網掛けではなくセルの色を変えたいということでしょうか？

それならこれでどうでしょう？

Sub 網掛け()
Worksheets("表").Select
With Range("A1")
.Interior.ColorIndex = 6
.Interior.Pattern = 1
' .Interior.PatternColorIndex = 3
End With
End Sub

この回答へのお礼

できました！
ありがとうございます☆

お礼日時：2007/06/01 16:09

No.2 回答者： dsuekichi 回答日時： 2007/05/30 14:27

ANo1です。

質問を取り違えたかも・・・

> しかしボタンをおすとかならず白で網掛けされてしまいます。

「白」って事は、パターンの色ではなく、地色（背景色）の事ですか？
試してみましたが、「ColorIndex」で変更できましたけど・・・

実際のコード（「ColorIndex」を使ったコード）は、どういうコードでしょう？
提示願います。

No.1 回答者： dsuekichi 回答日時： 2007/05/30 14:20

Excelの「マクロの記録」機能で、試してみれば分かると思いますが・・・

「網掛けの色」は「ColorIndex」ではなく「PatternColorIndex」で指定するみたいですよ。