Saya baru bekerja dengan VBA dan mencari fungsi untuk melakukan hal berikut.
Ambil warna interior dari Lembar Kerja A0, Sel A1: AK126 Salin warna interior hanya ke Lembar Kerja A1, Sel A1: AK126; Lembar Kerja A2, Sel A1: AK126; Lembar Kerja A3, Sel A1: AK126; Lembar Kerja A4, Sel A1: AK126.
Saya telah mencoba mengubah kode dari jawaban lain (disalin di bawah) tetapi pengetahuan VBA saya tidak cukup baik untuk memisahkannya.
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