☰

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

셀별로 컬러 복사를 수행합니다.

관련 정보