☰

VBA, Взять внутренний цвет из рабочего листа 1 и скопировать на другие рабочие листы

tag-icon • tag-icon microsoft-excel-2010 worksheet-function vba
VBA, Взять внутренний цвет из рабочего листа 1 и скопировать на другие рабочие листы

Я новичок в работе с VBA и ищу функцию, которая могла бы сделать следующее.

Возьмите внутренние цвета с рабочего листа A0, ячейка A1:AK126. Скопируйте только внутренние цвета на рабочий лист A1, ячейка A1:AK126; рабочий лист A2, ячейка A1:AK126; рабочий лист A3, ячейка A1:AK126; рабочий лист A4, ячейка A1:AK126.

Я попытался изменить код из другого ответа (скопирован ниже), но моих знаний VBA недостаточно, чтобы разобрать его.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Dim wkb As Workbook
    Set wkb = ThisWorkbook
    total_sheets = wkb.Worksheets.Count
    aff_row = Target.Row
    aff_column = Target.Column
    sheet_used = (aff_column / 2) + 2
    If aff_column > 1 Then
        If Int(sheet_used) = sheet_used Then
            If sheet_used <= total_sheets Then
                wkb.Sheets(sheet_used).Cells(aff_row + 2, 2).Interior.Color = Target.Interior.Color
            End If
        End If
    End If
End Sub

решение1

Как насчет:

Sub KopyKolor()
    Dim i As Long, j As Long, k As Long

    For i = 1 To 4
        shn = "A" & i
        For j = 1 To 126
            For k = 1 To 37
                Sheets(shn).Cells(j, k).Interior.Color = Sheets("A0").Cells(j, k).Interior.Color
            Next k
        Next j
    Next i
End Sub

Это позволяет выполнить копирование цвета по каждой ячейке.

Связанный контент