Uncategorized

てすと

  / 
    Range("A1").Value = Range("A10").Interior.Color
    Range("A11").Interior.Color = Range("A1").Value
    
'    MsgBox Range("A10").Interior.Color

    Worksheets("work").Select
    Worksheets("work").Range("B5").Select


    Do While Not IsEmpty(ActiveCell)
        CellRow = ActiveCell.Row        '行
        CellColumn = ActiveCell.Column  '列
        If Worksheets("work").Cells(CellRow, CellColumn).DisplayFormat.Interior.ColorIndex = 44 Then
            Worksheets("work").Cells(CellRow, CellColumn + 1).Value = "○"
            Worksheets("work").Rows(CellRow).Delete
            ActiveCell.Offset(-1, 0).Activate
        End If


        ActiveCell.Offset(1, 0).Activate
    Loop

'    MsgBox Worksheets("work").Range("B5").Interior.Color
'    MsgBox Worksheets("work").Range("B5").DisplayFormat.Interior.ColorIndex