セルの色判断

SS 2002-08-24 01:18:13 No: 104755

VB6でExcelを操作したいのですが、セルの色を判断することはできないのでしょうか？

たとえば、左から一つずつセルを見ていき、セルの色が黒だった場合、処理を行うって
感じなんですけど。。。

よろしくお願いします。

Say 2002-08-24 01:30:43 No: 104756

Excelを立ち上げ、マクロの自動記録で
セルに色をつけ、そのマクロを見てみてください。
セルの色の設定/取得のプロパティがわかります。
つぎに、ExcelVBAのヘルプでそのプロパティについて調べれば、
色コードもわかります。

SS 2002-08-24 02:32:09 No: 104757

ありがとうございます。

    Range("K7").Select
    With Selection.Interior
        .ColorIndex = 1
        .Pattern = xlSolid
    End With

これで色の設定はできるようなのですが、色を取得する場合は
どうすればよいのでしょうか？

Say 2002-08-24 12:14:09 No: 104758

たとえば「A1」セルの色を取得するならこんなかんじ
    Dim objExcel As New Excel.Application
    Dim objBook As Excel.Workbook
    Dim objSheet As Excel.Worksheet
    Set objBook = objExcel.Workbooks.Open("C:\Book1.xls")
    Set objSheet = objBook.Worksheets("Sheet1")
    MsgBox objSheet.Cells(1, 1).Interior.ColorIndex
    objBook.Close
    objExcel.Quit
    Set objSheet = Nothing
    Set objBook = Nothing
    Set objExcel = Nothing