-
EXCEL、シート全体のセルの背景色の変更 - x 行分スキップ
sheet2 のセルの色を sheet1 の色に合わせて変更したいと考えています。次のマクロのコードは機能しますが、今必要なのは、sheet1 で選択した背景色を適用する前に sheet2 の最初の 44 行をスキップすることです。
つまり、sheet2 の行 45 は sheet1 の行 1 と一致することになりますか?
プライベートサブWorksheet_SelectionChange(ByVal Target As Range)
Dim xSRg, xDRg, xISRg, xIDRg As Range
Dim xFNum As Long
On Error Resume Next
Set xSRg = Sheet1.Range(“B1:D300”)
Set xDRg = Sheet2.Range(“B1:D300”)
For xFNum = 1 To xSRg.Count
Set xISRg = xSRg.Item(xFNum)
Set xIDRg = xDRg.Item(xFNum)
xIDRg.Interior.Color = xISRg.Interior.Color
Next xFNum終了サブ
前もって感謝します
EXCEL、シート上のセルの背景色を変更 - x行分スキップ - TechRepublic
EXCEL、シート上のセルの背景色を変更 - x行分スキップ - TechRepublic
