Ba Tê
Cạo Rồi Khỏi Gội
- Tham gia
- 5/5/09
- Bài viết
- 12,124
- Được thích
- 17,588
- Giới tính
- Nam
Muốn biết sai ở đâu thì bạn phải đưa file bạn làm lên, nói rõ bạn muốn nó ra sao, bây giờ thì nó ra vầy,... mọi người mới tìm được cái sai.
Tự động tô màu trong Excel như thế nào????
- Thread starter lenhu038
- Ngày gửi
Hong.Van
Busy
- Tham gia
- 7/5/12
- Bài viết
- 2,330
- Được thích
- 1,767
Bạn fải đưa file lên & mô tả rỏ ràng hơn!
Quang_Hải
Thành viên gạo cội
- Tham gia
- 21/2/09
- Bài viết
- 6,070
- Được thích
- 7,994
- Nghề nghiệp
- Làm đủ thứ
Cách thông thường là người ta viết code cho cái nút đó. Trong code có chưa câu lệnh tìm kiếm theo dk cho trước và tìm được thì sẽ tô màu. Là vậy đó.
xuanhoaktv
Thành viên mới
- Tham gia
- 3/9/09
- Bài viết
- 1
- Được thích
- 0
Có cùng câu hỏi với bạn này, xin chỉ giáo
Hong.Van
Busy
- Tham gia
- 7/5/12
- Bài viết
- 2,330
- Được thích
- 1,767
Cái này dùng hàm IF là được thôi! muốn chi tiết thì bạn đưa File lên!
comet_1701
Thành viên tiêu biểu
- Tham gia
- 24/5/14
- Bài viết
- 632
- Được thích
- 459
Bạn nên gửi file đính kèm lên cụ thể lên nhé. Đợi mãi mà chẳng thấy bạn gửi file lên
Bạn chép thẳng sự kiện này vào sheet cần thay đổi, nhập số liệu từ B3 thì A 3 có màu, bạn ko gửi file cụ thể lên làm tạm thôi
PHP:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range, cll As Range
If Not Intersect(Target, Range("B3:B1000")) Is Nothing Then
Set Rng = Intersect(Target, Range("B3:B1000"))
For Each cll In Rng
If cll.Value <> "" Then
cll.Offset(, -1).Interior.ColorIndex = 6
Else
cll.Offset(, -1).Interior.ColorIndex = xlNone
End If
Next cll
End If
Set Rng = Nothing
End Sub
Lần chỉnh sửa cuối:
comet_1701
Thành viên tiêu biểu
- Tham gia
- 24/5/14
- Bài viết
- 632
- Được thích
- 459
Chính là vì người hỏi có thể chưa biết excel và VBA nên tôi mới nhờ bạn gửi file đính kèm lên là vậy. File đính kèm cụ thể bạn muốn như thế nào?
Ba Tê
Cạo Rồi Khỏi Gội
- Tham gia
- 5/5/09
- Bài viết
- 12,124
- Được thích
- 17,588
- Giới tính
- Nam
Excel 2003:
1/ Tô chọn từ B4:B100 (hay xuống nữa tùy ý)
2/ Vào Format - Conditional Formatting
3/ Khung Condition chọn Formula Is, khung bên phải nhập =C4<>""
4/ Bấm vào cái nút Format, chọn màu mè tùy ý.
5/ OK - OK
6/ Nhập-xóa thử cột C
comet_1701
Thành viên tiêu biểu
- Tham gia
- 24/5/14
- Bài viết
- 632
- Được thích
- 459
Bạn lên Hướng dẫn của Thầy Ba tê, code sửa lại thế này
PHP:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range, cll As Range
If Not Intersect(Target, Range("C4:C1000")) Is Nothing Then
Set Rng = Intersect(Target, Range("C4:C1000"))
For Each cll In Rng
If cll.Value <> "" Then
cll.Offset(, -1).Interior.ColorIndex = 6
Else
cll.Offset(, -1).Interior.ColorIndex = xlNone
End If
Next cll
End If
Set Rng = Nothing
End Subhttp://www.giaiphapexcel.com/forum/archive/index.php/t-94107.html
sau đó gõ số liệu vào cột C, vì B có màu nhé
Ba Tê
Cạo Rồi Khỏi Gội
- Tham gia
- 5/5/09
- Bài viết
- 12,124
- Được thích
- 17,588
- Giới tính
- Nam
Bỏ bớt biến Rng cho gọn.
PHP:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cll As Range
If Target.Column = 3 Then
For Each cll In Target
If cll.Value <> "" Then
cll.Offset(, -1).Interior.ColorIndex = 6
Else
cll.Offset(, -1).Interior.ColorIndex = xlNone
End If
Next cll
End If
End SubHì cho hỏi thêm vậy excel 2010 làm ko dc hả
Ba Tê
Cạo Rồi Khỏi Gội
- Tham gia
- 5/5/09
- Bài viết
- 12,124
- Được thích
- 17,588
- Giới tính
- Nam
Xe cũ chạy được, xe đời mới có máy lạnh sao không chạy được?
Tô chọn như cũ.
Công thức như cũ
Trên thanh menu, chọn Home, chọn Conditional Formatting.
Hì Cảm ơn bạn nhé. Mình đã làm đc rồi..sao này có gì chỉ giáo nhé.
comet_1701
Thành viên tiêu biểu
- Tham gia
- 24/5/14
- Bài viết
- 632
- Được thích
- 459
Bạn down thêm về mà đọc nhé
http://www.giaiphapexcel.com/dienda...-Định-dạng-theo-điều-kiện-trong-Excel-97-2010
Hì Cảm ơn bạn nhiều nhé!
Bài viết mới nhất
- Question
- Đã giải quyết
- Question
- Đã giải quyết
- Question
