1

いくつかのセルが色付けされたテーブルがあります。それらの値を別の列にコピーする必要があります。ここに私のマクロがあります:

Sub exa()

Dim rng As Range
Dim row As Range
Dim cell As Range

Set rng = Range("B:AJ")

For Each row In rng.Rows
  For Each (cell).Interior.Color = RGB(138, 255, 132) in row.Cells

    Area.Offset(, 40).Value = Area.Value

  Next cell
Next row

End Sub

色付きのセルの値をコピーする別の方法を見つけようとしています。今私はやろうとしています:

Sub test()
Dim rng As Range
Dim r As Integer
Set rng = ActiveSheet.Range("B2:I8")


For Each Row In rng.Rows
    For Each cell In Row.Cells
       If cell.Interior.Color = RGB(138, 255, 132) Then
      '  cell.Copy Destination:=Sheets("HMPB").Range("AU")
          Area.Offset(, 40).Value = Area.Value
       Next cell
Next Row

End Sub

文字列に何か問題があります

(cell).Interior.Color = RGB(138, 255, 132) in row.Cells

これは私が必要なものです:http://postimage.org/image/4sjvimv35/

4

1 に答える 1

1

色に関するコードを実行するには:

For Each row In rng.Rows
    For Each cell In row.cells
        cell.Interior.Color = RGB(138, 255, 132)
    Next cell
Next row

必要な効果を得るには、アプローチが異なる場合があります。ただし、これがあなたの質問の一部であるかどうかはわかりません。

于 2012-06-27T09:41:33.483 に答える