- 日時： 2007/08/08 15:45
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[エクセル][][] *
* キーワード：書式設定,カラー,色,セル色,, *
***********************************************************************************
元質問： ＶＢからエクセルのセルの色指定 - 今回匿名 2001/06/23 19:21 No.2333
既存のエクセルのセルに何色がついているか判断する方法を教えてください。
元質問： Excelで色の判別 - VAL 08/23-09:44 No.159
VB6でExcelを操作したいのですが、セルの色を判断することはできないのでしょうか？
-----------------------------------------------------------------------------------
RE:ＶＢからエクセルのセルの色指定 - 花ちゃん 2001/06/24 1:05 No.2336
-----------------------------------------------------------------------------------
ヘルプにもここにも載っていますよ！
まず自分で解かる範囲は調べましょう Color とか RGB とかをヘルプで見るとか！
MyColor = xlSheet.Range("A1:A1").Interior.Color
xlSheet.Range("A3:A4").Interior.Color = MyColor
-----------------------------------------------------------------------------------
セルのカラーを設定及び取得・カラー値の変換 - 花ちゃん 2007/08/08
-----------------------------------------------------------------------------------
'☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆
'Excel 操作部分(セルのカラーを設定・取得）
With xlSheet.Range("G2").Interior
'セルのカラーを設定する下記のどの方法でも可
.Color = QBColor(10)
.Color = RGB(255, 0, 255)
.Color = vbMagenta
.ColorIndex = 20
.Color = 255
.ColorIndex = xlNone 'セルの色(内部色)を標準にする
End With
Dim co As Long, i As Integer, r As Integer, g As Integer, b As Integer
'ColorIndex 値の一覧を表示
For i = 1 To 56
'セルに色を設定
xlSheet.Cells(i, 1).Interior.ColorIndex = i
'セルの色を取得
co = xlSheet.Cells(i, 1).Interior.Color
'セルの色を長整数型(Long)で表示
xlSheet.Cells(i, 2).Value = co
'16進表記に変換表示
xlSheet.Cells(i, 3).Value = "&H" & Hex(co)
'RGB 値表記に変換
r = co And vbRed
g = (co And vbGreen) \ &H100
b = (co And vbBlue) \ &H10000
'セルの色をRGB値で表示
xlSheet.Cells(i, 4).Value = "RGB(" & r & "," & g & "," & b & ")"
Next i
'☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆☆
-----------------------------------------------------------------
ColorIndex 値の一覧を表示した画像
http://hanatyan.sakura.ne.jp/samplepic/excel-1-1.gif
|
セルのカラーを設定及び取得・カラー値の変換（VB6.0 基本編）