Tô màu cho các ô trong cùng một cột tương ứng với màu của ô bên cạnh (3 người xem)

[hung2412]

Mình nhờ các Pro giúp đỡ vấn đề này với:
Tô màu cho các ô ở cột D tương ứng với ô bên cạnh cùng dòng cột F, Ví dụ như ô D5 sẽ có màu tương ứng với ô F5, Ví dụ như ô D10 sẽ có màu tương ứng với ô F10.
P/s: Có file đính kèm.

 

[Ba Tê]

Cái này chắc phải dùng đến VBA.
Bạn xem trong file, bấm nút sẽ thấy kết quả
Nhớ Enable Macros khi mở file

 

[chuot0106]

Mình nhờ các Pro giúp đỡ vấn đề này với:
Tô màu cho các ô ở cột D tương ứng với ô bên cạnh cùng dòng cột F, Ví dụ như ô D5 sẽ có màu tương ứng với ô F5, Ví dụ như ô D10 sẽ có màu tương ứng với ô F10.
P/s: Có file đính kèm.

Tôi tạo hai nút "Tô màu" và "Xóa màu", nhớ enable macros trước khi mở File nhé!

 

[nmhung49]

Tôi tạo hai nút "Tô màu" và "Xóa màu", nhớ enable macros trước khi mở File nhé!

Xóa màu thì chỉ cần Sheet1.Range("D52000").Clear ??? Tại sao phải dùng tới vòng lặp vậy Chuột???

 

[Quang_Hải]

Mượn code của anh Ba Tê
Tô màu không vòng lặp vầy mới dã man nè

Private Sub Cmd1_Click()
Dim Cll As Range
If Cmd1.Caption = "COLOR" Then
   Range("F5:F100").Copy
   Range("F5:F100").Offset(, -2).PasteSpecial 4
   Cmd1.Caption = "CLEAR"
Else
    Range("D5:D100").Interior.ColorIndex = xlNone
    Cmd1.Caption = "COLOR"
End If
End Sub

 

[Ba Tê]

Mượn code của anh Ba Tê
Tô màu không vòng lặp vầy mới dã man nè

Private Sub Cmd1_Click()
Dim Cll As Range
If Cmd1.Caption = "COLOR" Then
   Range("F5:F100").Copy
   Range("F5:F100").Offset(, -2).PasteSpecial 4
   Cmd1.Caption = "CLEAR"
Else
    Range("D5:D100").Interior.ColorIndex = xlNone
    Cmd1.Caption = "COLOR"
End If
End Sub

Đúng là "dã man" thiệt.
Hổng ai biểu "lôi theo" mấy cái Border, Font ... làm gãy cổ trâu.

 

[hung2412]

Tôi tạo hai nút "Tô màu" và "Xóa màu", nhớ enable macros trước khi mở File nhé!

Bạn ơi, cái này thì cũng hay, nhưng mình cần cái Macro dạng Sub chứ không phải Private sub. Chẳng là mình đang xây dựng 1 macro thì vướng đoạn tô màu đó => nên mình lấy ví dụ để nhờ các bạn giúp viết tiếp code tô màu => Sau đó mình sẽ lấy đoạn code đó update tiếp vào file Macro mà mình đang xây dựng dở. Có được không bạn nhỉ?

 

[Quang_Hải]

Bạn ơi, cái này thì cũng hay, nhưng mình cần cái Macro dạng Sub chứ không phải Private sub. Chẳng là mình đang xây dựng 1 macro thì vướng đoạn tô màu đó => nên mình lấy ví dụ để nhờ các bạn giúp viết tiếp code tô màu => Sau đó mình sẽ lấy đoạn code đó update tiếp vào file Macro mà mình đang xây dựng dở. Có được không bạn nhỉ?

Nghe cũng lạ thiệt. Tô màu cho ô là code cơ bản, bạn có thể xây dựng 1 chương trình mà lại không thể tự viết được code này. Thêm nữa code các bài trên cũng đã là ví dụ mẫu, sao lại không tự sửa lại cho phù hợp?
Đã vậy còn đề cập đến chữ Private Sub và Sub...

 

[hung2412]

Nghe cũng lạ thiệt. Tô màu cho ô là code cơ bản, bạn có thể xây dựng 1 chương trình mà lại không thể tự viết được code này. Thêm nữa code các bài trên cũng đã là ví dụ mẫu, sao lại không tự sửa lại cho phù hợp?
Đã vậy còn đề cập đến chữ Private Sub và Sub...

Để mình nghiên cứu thêm, mình gà quá.