Tô màu tự động một vùng bất kỳ !

[godvsghost]

Tớ đang gặp một rắc rối với vấn đề tô màu tự động , các pác giúp em với nhé ! trong file em gửi kèm gồm dữ liệu cho các trường : dài , rộng , tọa độ của trục tung , hoành . Khi điền dữ liệu vào các trường này thì nó sẽ tự động tô màu cho một vùng diện tích mà đã được chỉ thị tọa độ ! Em chưa gặp trường hợp này bao giờ ! Nhờ các cao thủ giúp em với !
Cám ơn nhiều !
Đây là lần đầu em post topic ( nếu có gì sai sót , mong Admin bỏ qua )

 

[Po_Pikachu]

Trả lời: Đây là bài của bạn đây sau khi đã dùng VBA. Bạn muốn xem code thì nhấn Alt + F11. Thân.

 

[SA_DQ]

Thêm 1 tham khảo

Option Explicit
Sub FrameColor()
 Dim Rng As Range
 Dim  fF As Long:                            Dim Hoanh As Integer
 
 Set Rng = Range([B5], [r13])
 For fF = 3 To [T65500].End(xlUp).Row
   With Cells(fF, "T")
      Hoanh = Asc(UCase$(.Offset(, 4))) - 64
      Rng.Cells(0, 0).Offset(.Offset(, 3), _
         Hoanh).Resize(.Offset(, 1), .Value).Interior.ColorIndex = 34 + (fF Mod 9)
   End With
 Next fF
End Sub

 

[rollover79]

To Po_Picachu: Mấy cái Validation sao bạn không dùng suorce là cột tiêu đề và dòng tiêu đề mà lại gõ vào làm chi cho mệt?

 

[Po_Pikachu]

Không quan trọng mà bạn, nếu nhiều thì mình có thể dùng name động để lấy. Chứ vài dòng thì đâu có sau đâu bạn! Thân.

 

[godvsghost]

thank các bạn rất nhiều ! Mình chưa bao giờ động đến VBA cả ? Nếu phải bắt đầu từ đầu ( chưa biết gì về VBA) thì mình nên đọc tài liệu gì để có thể làm được như các bạn?
Thank you again !

 

[tuanqnbd]

thank các bạn rất nhiều ! Mình chưa bao giờ động đến VBA cả ? Nếu phải bắt đầu từ đầu ( chưa biết gì về VBA) thì mình nên đọc tài liệu gì để có thể làm được như các bạn?
Thank you again !

Trên trang này có phần thư viện, trong đó có rất nhiều sách cho ng mới bắt đầu. Vừa xem bạn nên tìm đọc những đoạn code viết sẵn (cũng có trên trang này) vừa để dễ hiểu vừa lấy thêm kinh nghiệm.

Very small tip : Nên chọn những bài viết của thầy Phong (nick : ttphong2007, cực hay, dễ hiểu, mà thỉnh thoảng còn có tiếng Việt nữa). Còn mấy tài liệu T.Anh thì chịu khó :

 

[ndu96081631]

Thêm 1 chiêu nữa dùng Conditional Formating (không macro)
Các code trên đều chạy bậy nếu ta gõ nhăng nhít vào vùng điều kiện! (Hoặc báo lổi hoặc tô màu sai)
Với CF thì không bao giờ có chuyện này ---> Cùng lắm là nó không tô gì cả