VBA tô mầu theo điều kiện (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

ASROMAGOAL

Thành viên mới
Tham gia
4/8/09
Bài viết
9
Được thích
1
Mình có 2 cột A và B
Thỏa mãn điều kiện (A1*8%<B1<A1*12%) thì tô mầu cột B1

Tương tự các dòng khác
Thỏa mãn điều kiện (A2*8%<B2<A2*12%) thì tô mầu cột B2

Các bác giúp hộ nhé, chỉ quét trong vùng thôi, không thêm dòng thêm cột khác nhé
 
Mình có 2 cột A và B
Thỏa mãn điều kiện (A1*8%<B1<A1*12%) thì tô mầu cột B1

Tương tự các dòng khác
Thỏa mãn điều kiện (A2*8%<B2<A2*12%) thì tô mầu cột B2

Các bác giúp hộ nhé, chỉ quét trong vùng thôi, không thêm dòng thêm cột khác nhé
Cái này thì chỉ cần Conditional Formatting là được mà, đâu cần đến VBA.
 
Upvote 0
Nhưng Conditional Formatting chỉ được nhát 1, nếu kéo cả mảng thì B1-B{n} nó chỉ so sánh với A1, , còn nếu làm từng dòng 1 thì lâu lắm, mắt thường nhìn nhanh hơn, vi dụ như 2 cột của mình là A1000-B1000 cơ. các bạn giúp mình với
 
Upvote 0
Nhưng Conditional Formatting chỉ được nhát 1, nếu kéo cả mảng thì B1-B{n} nó chỉ so sánh với A1, , còn nếu làm từng dòng 1 thì lâu lắm, mắt thường nhìn nhanh hơn, vi dụ như 2 cột của mình là A1000-B1000 cơ. các bạn giúp mình với
Bạn cứ đưa cái file ấy lên đây xem nào. Tôi nghĩ với yêu cầu ở bài #1 thì Conditional Formatting dư sức làm được.
 
Upvote 0
Nhưng bạn làm thế nào đấy, mình làm nó chỉ được ô đầu thôi, không chơi cả dãy được
thanks
 
Lần chỉnh sửa cuối:
Upvote 0
Và bài toán mảng là có nhiều cột ví dụ 2 có 2 mảng, hay nhiều mảng hơn thì làm thế nào
mà mình viết lệnh chỉ được dòng đầu tiên thôi, kích vào dòng khác nó chỉ thể hiện ở dòng 1
 

File đính kèm

Upvote 0
Trước khi bạn làm công thức bôi đen vùng dữ liệu cần làm và làm theo từng bước
Mình cũng làm vậy cả rồi, tức là bôi đen vùng dữ liệu cần làm, bật Conditional Formatting lên chọn Formula IS và nhập công thức là: =IF($B$1>$A$1*10%,1,0) {kích chọn 2 ô $B$1,$A$1} rồi vào Format chọn mầu và OK, thế nhưng vẫn không được, có khi nào khai báo ở option thiếu bộ cài gì không nhỉ, mình làm ở office 2003.
 
Upvote 0
Mình cũng làm vậy cả rồi, tức là bôi đen vùng dữ liệu cần làm, bật Conditional Formatting lên chọn Formula IS và nhập công thức là: =IF($B$1>$A$1*10%,1,0) {kích chọn 2 ô $B$1,$A$1} rồi vào Format chọn mầu và OK, thế nhưng vẫn không được, có khi nào khai báo ở option thiếu bộ cài gì không nhỉ, mình làm ở office 2003.
Công thức của bạn bỏ giá trị tuyệt đối đi thay vì tích vào ô, bạn bấm bằng tay =If(B1>A1*10%,1,0) như thế có lẽ sẽ ok,
 
Upvote 0

Bài viết mới nhất

Back
Top Bottom