Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

31683 / 76734

←次へ　｜　前へ→


	【50296】Re:コードを調べるには

わさび - 07/7/18(水) 19:12 -


	引用なし

	パスワード

▼にしもりさん：

こんなカンジでしょうか。
MsgBox Selection.Cells.Interior.ColorIndex

オマケで…
以前、自分の参考用に作ったコードですが、よかったら試してください。
====================================================
Sub COLOR_INDEX()

　'RO：行番号、CO：列番号、CIN：色番号
　　Dim RO As Byte, CO As Byte, CIN As Byte

　　CIN = 1
　　　
　　For RO = 1 To 7
　　　　
　　　　For CO = 1 To 8
　　　　　　
　　　　　　With Cells(RO, CO)
　　　　　　　　.Interior.ColorIndex = CIN
　　　　　　　　.Font.Size = 10
　　　　　　　　.Value = CIN
　　　　　　End With
　　　　　　　　
　　　　　　CIN = CIN + 1
　　　　　　
　　　　Next CO
　　　　
　　Next RO
　　　　
End Sub

3 hits

▼

【50294】コードを調べるには にしもり 07/7/18(水) 18:54