[[20040903211533]]　『色を表す数字』（888）　ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

　

『色を表す数字』（888）

マクロで、Selection.Font.ColorIndex = 0の右辺に入る数字(どの色が何番か)を調べる方法はありますでしょうか?今は一つ一つ色を変えてはマクロを作っているのですが、ちょっと手間がかかるので(>_<)教えてください、よろしくお願いします!

---

 これでわかります。

 Sub sample()
 Dim i As Long
    For i = 1 To 56
   Cells(i, 1).Interior.ColorIndex = i
   Cells(i, 2).Value = i
 Next
 End Sub

  (INA)

---

ありがとうございました！きれいに並んで感激です（*^_^*）フォント色等にも応用させていただきます!

---

コメント返信：

---

[ 一覧(最新更新順) ]

---

YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.