Tự động sao chép mầu trong ô excel (1 người xem)

[hanofam]

Cả nhà cho mình hỏi: Bây giờ mình có 2 sheet là sheet1 và sheet2. khi mình thây đổi mầu của một ô bất kỳ trong sheet2 (VD: B2 ) thì ô tương ứng trong sheet 1 cũng tự động thay đổi mầu theo ( B2 trong sheet1 ). có ai biết cách làm thế nào thì chỉ giúp.

 

[vanle33]

Cả nhà cho mình hỏi: Bây giờ mình có 2 sheet là sheet1 và sheet2. khi mình thây đổi mầu của một ô bất kỳ trong sheet2 (VD: B2 ) thì ô tương ứng trong sheet 1 cũng tự động thay đổi mầu theo ( B2 trong sheet1 ). có ai biết cách làm thế nào thì chỉ giúp.

Sang đây http://www.giaiphapexcel.com/forum/showthread.php?95810-Em-hỏi-cách-tự-động-lấy-màu-nền-của-ô-khác!
Chủ đề tương tự
--> Nhờ các thành viên giỏi code sửa cho.

 

[chuot0106]

Cả nhà cho mình hỏi: Bây giờ mình có 2 sheet là sheet1 và sheet2. khi mình thây đổi mầu của một ô bất kỳ trong sheet2 (VD: B2 ) thì ô tương ứng trong sheet 1 cũng tự động thay đổi mầu theo ( B2 trong sheet1 ). có ai biết cách làm thế nào thì chỉ giúp.

Của bạn đây. Nhớ Enable macros trước khi mở File nhé!(Xem hướng dẫn tại chữ kí bên dưới của tôi).

 

[hanofam]

Cám ơn bác chuot0106 đã tư vấn. Vấn đề em muốn tất cả các mầu trong ô sheet1 tự động cập nhật tương ứng với các ô của sheet2. file bác gửi em chỉ thấy tự động cập nhật ở ô B2. nhờ bác giúp đỡ thêm

 

[chuot0106]

Cám ơn bác chuot0106 đã tư vấn. Vấn đề em muốn tất cả các mầu trong ô sheet1 tự động cập nhật tương ứng với các ô của sheet2. file bác gửi em chỉ thấy tự động cập nhật ở ô B2. nhờ bác giúp đỡ thêm

Tốt nhất bạn đưa file của bạn nên. Làm mò mệt lắm.

 

[hanofam]

Trong file mình bôi mầu ở sheet2. bác làm giúp mình tự động cập nhật mầu ở sheet1 tương ứng với vị trí mầu của sheet2. khi một ô hoặc nhiều ô của sheet 2 thay đổi mầu thì sheet1 cũng phải thay đổi theo tương ứng ( VD; khi ô A1,A3,A4,A6...của sheet2 thay đổi mầu thì tương ứng các ô A1,A3,A4,A6....của sheet1 cũng thay đổi giống mầu của các ô sheet2 )

 

[Ba Tê]

Trong file mình bôi mầu ở sheet2. bác làm giúp mình tự động cập nhật mầu ở sheet1 tương ứng với vị trí mầu của sheet2. khi một ô hoặc nhiều ô của sheet 2 thay đổi mầu thì sheet1 cũng phải thay đổi theo tương ứng ( VD; khi ô A1,A3,A4,A6...của sheet2 thay đổi mầu thì tương ứng các ô A1,A3,A4,A6....của sheet1 cũng thay đổi giống mầu của các ô sheet2 )

Chép cái này vào khung soạn thảo VBA của Sheet1 xem sao.
Vùng tác dụng từ A1:Z100, Nếu muốn "bự" nữa thì chỉnh lại.
[GPECODE=vb]Private Sub Worksheet_Activate()
Dim Rng As Range, Cll As Range, Addr As String, Mau As Double
With Sheet2
Set Rng = .Range("A1:Z100")
End With
For Each Cll In Rng
If Cll.Interior.ColorIndex <> 0 Then
Mau = Cll.Interior.ColorIndex
Addr = Cll.Address
Sheet1.Range(Addr).Interior.ColorIndex = Mau
End If
Next Cll
Set Rng = Nothing
End Sub[/GPECODE]

 

[hanofam]

Ok. cảm ơn bác Ba Tê nhiều !

 

[Ba Tê]

Chép cái này vào khung soạn thảo VBA của Sheet1 xem sao.
Vùng tác dụng từ A1:Z100, Nếu muốn "bự" nữa thì chỉnh lại.
[GPECODE=vb]Private Sub Worksheet_Activate()
Dim Rng As Range, Cll As Range, Addr As String, Mau As Double
With Sheet2
Set Rng = .Range("A1:Z100")
End With
For Each Cll In Rng
If Cll.Interior.ColorIndex <> 0 Then
Mau = Cll.Interior.ColorIndex
Addr = Cll.Address
Sheet1.Range(Addr).Interior.ColorIndex = Mau
End If
Next Cll
Set Rng = Nothing
End Sub[/GPECODE]

-----------------
Nếu muốn chép hết Format màu, Font.... thì chơi luôn code này thay cho cái kia
[GPECODE=vb]Private Sub Worksheet_Activate()
Sheet2.Range("A1:Z100").Copy
Sheet1.Range("A1").PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
Sheet1.Range("A1").Select
End Sub[/GPECODE]
------------------
Úi da! Định thêm vào bài #7 sao lại thành bài #9.
Spam quá "Chời"

 

[chuot0106]

Trong file mình bôi mầu ở sheet2. bác làm giúp mình tự động cập nhật mầu ở sheet1 tương ứng với vị trí mầu của sheet2. khi một ô hoặc nhiều ô của sheet 2 thay đổi mầu thì sheet1 cũng phải thay đổi theo tương ứng ( VD; khi ô A1,A3,A4,A6...của sheet2 thay đổi mầu thì tương ứng các ô A1,A3,A4,A6....của sheet1 cũng thay đổi giống mầu của các ô sheet2 )

Của bạn đây! Nhớ Enable macros trước khi mở file nhé!

Private Sub Worksheet_Activate()
    Sheet2.Cells.Copy
    Sheet1.Cells.PasteSpecial xlPasteFormats
    Application.CutCopyMode = False
End Sub

 

[a.nguoidensau]

Mình thấy thế này cũng được:

Private Sub Worksheet_Activate()
       Sheet2.Cells.Copy Sheet1.Cells
End Sub

 

[chuot0106]

Mình thấy thế này cũng được:

Private Sub Worksheet_Activate()
       Sheet2.Cells.Copy Sheet1.Cells
End Sub

Người ta chỉ muốn copy màu thôi! Như của bạn nó copy tất tần tật rồi. Thử gõ bừa vài con số vào sheet2 thử xem bên sheet1 nó ra cái gì???