PDA

View Full Version : Tự động tô màu trong Excel như thế nào????



lenhu038
06-10-09, 06:44 PM
Em có một việc muốn hỏi các Pro, không biết đăng ở đây có đúng không nữa.
Em muốn trong Excel khi mình xử lý số liệu thì di vào ô nào thì cột và hàng của ô đó đổi màu có được không mục đích của em ở đây là để khi nhập dữ liệu em nhìn dữ liệu cho đỡ nhầm. Ví dụ em đang ở Cell D10 thì từ vị trí D10 đó cột D và dòng 10 sẽ tự động có màu khác, khi em chuyển sang ô khác thì màu ở các cột khác cũng sẽ tự động đổi và Cột dòng và ô vừa rồi (vd D10) lại bình thường. cái này có dùng hàm gì được không hả các Bác.
Thank you!!

duongdv
06-10-09, 07:00 PM
Cái này đã có nhiều trên diễn đàn. Bạn vào đây xem nhé
http://www.giaiphapexcel.com/forum/showthread.php?t=11908

ptlong04x1
06-10-09, 07:49 PM
Em có một việc muốn hỏi các Pro, không biết đăng ở đây có đúng không nữa.
Em muốn trong Excel khi mình xử lý số liệu thì di vào ô nào thì cột và hàng của ô đó đổi màu có được không mục đích của em ở đây là để khi nhập dữ liệu em nhìn dữ liệu cho đỡ nhầm. Ví dụ em đang ở Cell D10 thì từ vị trí D10 đó cột D và dòng 10 sẽ tự động có màu khác, khi em chuyển sang ô khác thì màu ở các cột khác cũng sẽ tự động đổi và Cột dòng và ô vừa rồi (vd D10) lại bình thường. cái này có dùng hàm gì được không hả các Bác.
Thank you!!

Thử đoạn code này xem, chủ yếu là để nhìn cho rõ chứ đôi lúc nó cũng gây phiền phức.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Cells.Interior.ColorIndex = 0
ActiveCell.EntireRow.Interior.ColorIndex = 8
ActiveCell.EntireColumn.Interior.ColorIndex = 8
Application.CutCopyMode = True
End Sub
Xem File, nhớ Enables Macros.

ketoanq
07-10-09, 11:35 AM
Chào các anh chi, em có 02 vấn đề này mà tim mấy ngày vẫn chưa được:
1. Cty em mới giao nhiệm vụ là theo dõi công nợ của phòng kinh doanh (theo hợp đồng kinh tế). anh chị nào có file quản lý công nợ theo hợp đồng bằng excel thì cho em với, xin gửi mail giúp em: nguyenquyen@tanphatcorp.com.
2. Em muốn lập bảng tính excel có cột ngày đến hạn khách phải thanh toán. Có nghĩa là công thức làm sao khi tới hạn ngày đó thì ô đó tự động nổi màu VD: ngày 07/10/2009 ký hợp đồng (HĐ) sau 7 ngày làm việc phải thu tiền thì ô đó sẽ nỗi màu đỏ báo hết hạn HĐ.
Em không biết đăng câu hỏi ở mục nào nên nhờ anh chị chỉ dùm em.
Trân thành cảm ơn.

concogia
07-10-09, 02:17 PM
Chào các anh chi, em có 02 vấn đề này mà tim mấy ngày vẫn chưa được:
1. Cty em mới giao nhiệm vụ là theo dõi công nợ của phòng kinh doanh (theo hợp đồng kinh tế). anh chị nào có file quản lý công nợ theo hợp đồng bằng excel thì cho em với, xin gửi mail giúp em: nguyenquyen@tanphatcorp.com.
2. Em muốn lập bảng tính excel có cột ngày đến hạn khách phải thanh toán. Có nghĩa là công thức làm sao khi tới hạn ngày đó thì ô đó tự động nổi màu VD: ngày 07/10/2009 ký hợp đồng (HĐ) sau 7 ngày làm việc phải thu tiền thì ô đó sẽ nỗi màu đỏ báo hết hạn HĐ.
Em không biết đăng câu hỏi ở mục nào nên nhờ anh chị chỉ dùm em.
Trân thành cảm ơn.
Câu 1 thì mình không biết
Câu 2 bạn làm thế này:
Vào FOMAT=> CONDITIONAL FOTMATTING => CELL VALUE IS - EQUAL TO - trong ô công thức bạn nhập =now()=10/17/2009
Phần fomat bạn cho màu muốn xuất hiện
Chúc bạn thành công

huuthang_bd
07-10-09, 02:25 PM
Câu 1 thì mình không biết
Câu 2 bạn làm thế này:
Vào FOMAT=> CONDITIONAL FOTMATTING => CELL VALUE IS - EQUAL TO - trong ô công thức bạn nhập =now()=10/17/2009
Phần fomat bạn cho màu muốn xuất hiện
Chúc bạn thành công
Bạn làm như thế thì vĩnh viễn nó không đổi màu đâu :-=
Có hai cái sai:
- Cách nhập ngày tháng
- Bạn thử gõ công thức =NOW()=TODAY() bạn sẽ hiểu

concogia
07-10-09, 03:22 PM
Bạn làm như thế thì vĩnh viễn nó không đổi màu đâu :-=
Có hai cái sai:
- Cách nhập ngày tháng
- Bạn thử gõ công thức =NOW()=TODAY() bạn sẽ hiểu
Cám ơn bạn nhiệu Tại yêu cầu của người ta có như thế nên mình không nghĩ cái phần sau
Rất cám ơn

paulsteigel
07-10-09, 04:07 PM
Cách làm Conditional Formatting thì thôi không phải bàn, chắc bạn biết rồi!
Phần Formular is bạn nhập vào công thức
=DATEDIF(C1,TODAY(),"d")>6


(chứ không phải là day360 như trước vì đây là hàm dựa trên chuẩn tháng 30 ngày trong một năm) - Trong danh sách hàm Excel không tự động hiển thị hàm Datedif nên tôi nghĩ là chỉ sử dụng được hàm này trong VBA. Giờ biết thêm được là hàm này cũng dùng được ngay trong Sheet. Thành thật cảm ơn bạn Duongdv


Với giả định C là cột chứa ngày hợp đồng được ký và ngày được nhập theo đúng chuẩn (mm/dd/yyyy)
Ô số 1 là ô đầu tiên của cột đó.
Kể từ ngày số 7 thì bắt đầu nhắc việc
Bạn chỉ cần chọn toàn vùng dữ liệu cần lập định dạng (cột C) có điều kiện và nhập vô công thức đó là xong.
Hi vọng là ví dụ trên giúp được bạn!
'=============================================
Xin lỗi các bạn vì vụ hơi cẩu thả trong lần trả lời trước!
Tôi cũng chỉ đọc qua loa phần giải thích hàm của Excel nên không để ý lắm!
Rất cảm ơn bạn duongdv đã nhắc

duongdv
07-10-09, 04:14 PM
Cách làm Conditional Formatting thì thôi không phải bàn, chắc bạn biết rồi!
Phần Formular is bạn nhập vào công thức
=DAYS360(C1,TODAY())>6
Với giả định C là cột chứa ngày hợp đồng được ký và ngày được nhập theo đúng chuẩn (mm/dd/yyyy)
Ô số 1 là ô đầu tiên của cột đó.
Kể từ ngày số 7 thì bắt đầu nhắc việc
Bạn chỉ cần chọn toàn vùng dữ liệu cần lập định dạng (cột C) có điều kiện và nhập vô công thức đó là xong.
Hi vọng là ví dụ trên giúp được bạn!
Nếu làm theo cách của bạn thì theo tôi bạn nên thay hàm DAYS360() bằng hàm DATEDIF().

lenhu038
07-10-09, 07:16 PM
Thử đoạn code này xem, chủ yếu là để nhìn cho rõ chứ đôi lúc nó cũng gây phiền phức.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Cells.Interior.ColorIndex = 0
ActiveCell.EntireRow.Interior.ColorIndex = 8
ActiveCell.EntireColumn.Interior.ColorIndex = 8
Application.CutCopyMode = True
End Sub
Xem File, nhớ Enables Macros.
Cam ơn bạn nhiều nhé, nhưng làm thế này thì không thể copy hoặc paste duoc dung không?? cách này tôi cũng đã thử rồi
Bạn còn cách nào hay hơn không??

ptlong04x1
07-10-09, 08:33 PM
Cam ơn bạn nhiều nhé, nhưng làm thế này thì không thể copy hoặc paste duoc dung không?? cách này tôi cũng đã thử rồi
Bạn còn cách nào hay hơn không??

Bởi vậy mình mới nói nó phiền toái, cách làm bằng VBA thì mình chịu, tuy nhiên vẫn có thể Copy và Paste được, chỉ có điều lâu hơn chút xíu.

Khi Copy thay vì Ctrl C 1 lần thì bạn Ctrl C 2 lần --> Hiện ra cửa sổ Clipboard --> Chọn vị trí cần Paste --> Click vào giá trị mong muốn ở cửa sổ Clipboard, vậy là Paste, chậm hơn vài giây.:-=

ketoanq
19-10-09, 02:48 PM
Mấy hôm nay em tìm không thay chuyên mục này.
Em cảm ơn các anh chị đã giúp em, nhưng em làm không tốt lắm
Công thức em nhập la:
Conditional Formatting : =NOW()=TODAY()
Formular is: =DATEDIF(C1,TODAY(),"d")>6
Em phải nhập cả 2 công thức thì nó mới nổi màu.
Và nổi màu hết các ô chọn công thức, nổi cả ô em chưa nhập ngày nữa. Vậy cho em hỏi như vậy có dúng không ạ?

duongdv
19-10-09, 03:04 PM
Mấy hôm nay em tìm không thay chuyên mục này.
Em cảm ơn các anh chị đã giúp em, nhưng em làm không tốt lắm
Công thức em nhập la:
Conditional Formatting : =NOW()=TODAY()
Formular is: =DATEDIF(C1,TODAY(),"d")>6
Em phải nhập cả 2 công thức thì nó mới nổi màu.
Và nổi màu hết các ô chọn công thức, nổi cả ô em chưa nhập ngày nữa. Vậy cho em hỏi như vậy có dúng không ạ?
Bạn đâu cần phải 2 công thức như vậy nếu điều kiện của bạn là =DATEDIF(C1,TODAY(),"d")>6 (Số ngày >6 thì đổi màu). Bạn xem trong file đính kèm

ngocthang8082
04-04-12, 12:07 AM
Mình có file mẫu này với mục đích muốn đổi màu cho chữ hoặc cả ô khi giá trị nhỏ hơn ô tương ứng,

ngocthang8082
04-04-12, 12:13 AM
Mình có file mẫu này với mục đích muốn đổi màu cho chữ hoặc cả ô khi giá trị nhỏ hơn ô tương ứng,
nhờ các bạn các anh giúp với nha.

xuanhuye
25-05-13, 01:18 AM
Mìnhđang dùng công thức báo ngày thủ công ( tự động báo khi đến ngày )
Nhưng mình muốnnhững ô báo đó được tô màu khi nó đến hạn nhảy lên
bạn nào giúp mình chỗ này với nhé !
thank's

FILE kèm nhé!

tranquangvinhvsp
23-07-13, 03:37 PM
mình cũng đang kẹt cái này .ai biết chỉ mình với nhé

ngocpham1988
03-12-13, 08:27 AM
Cho mình hỏi tý, xin lỗi trước vì nếu post không đúng chỗ

Ví dụ mình muốn đánh giá chỉ tiêu "đạt" hay "không đạt". Nếu chỉ tiêu không đạt sẽ hiện là "không đạt" và ô chứa nó sẽ tự động chuyển sang màu đỏ.

Có bạn nào biết chỉ giùm mình nhe

leonguyenz
03-12-13, 09:03 AM
Cho mình hỏi tý, xin lỗi trước vì nếu post không đúng chỗ

Ví dụ mình muốn đánh giá chỉ tiêu "đạt" hay "không đạt". Nếu chỉ tiêu không đạt sẽ hiện là "không đạt" và ô chứa nó sẽ tự động chuyển sang màu đỏ.

Có bạn nào biết chỉ giùm mình nhe
Tại ô đánh giá bạn dùng IF để hiển thị Đạt hay Không Đạt: =if(ô nào đó thỏa mãn,"Đạt","Không Đạt").
Quét chọn vùng cột Đánh giá mà bạn vừa đặt công thức, nhấn vào Conditional Formatting > New Rule > Format only cells that contain > Cell Value > equal to > ="Không Đạt" > Format > Fill > chọn màu đỏ > OK > OK.

KoNgoan
02-10-14, 11:34 AM
Cho mình hỏi chút.
Mình làm giống như vậy nhưng mà sau khi đặt lệnh xong thì nó tự động đổi màu luôn! Chứ ko giống như là ngày >6 thì mới đổi màu!
Không biết mình làm sai ở đâu nhỉ??
Tks bạn!

Ba Tê
02-10-14, 12:00 PM
Cho mình hỏi chút.
Mình làm giống như vậy nhưng mà sau khi đặt lệnh xong thì nó tự động đổi màu luôn! Chứ ko giống như là ngày >6 thì mới đổi màu!
Không biết mình làm sai ở đâu nhỉ??
Tks bạn!
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.

maquy01
09-12-14, 06:03 PM
Mọi người ơi cho e hỏi là làm thế nào để khi mình nhận nút tìm kiếm thì nó sẽ tô màu cái dòng mà mình đã tìm được trên sheet z m.n?

Hong.Van
09-12-14, 06:06 PM
Mọi người ơi cho e hỏi là làm thế nào để khi mình nhận nút tìm kiếm thì nó sẽ tô màu cái dòng mà mình đã tìm được trên sheet z m.n?
Bạn fải đưa file lên & mô tả rỏ ràng hơn!

quanghai1969
09-12-14, 11:33 PM
Mọi người ơi cho e hỏi là làm thế nào để khi mình nhận nút tìm kiếm thì nó sẽ tô màu cái dòng mà mình đã tìm được trên sheet z m.n?
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
31-12-14, 10:35 AM
Cho mình hỏi tý, xin lỗi trước vì nếu post không đúng chỗ

Ví dụ mình muốn đánh giá chỉ tiêu "đạt" hay "không đạt". Nếu chỉ tiêu không đạt sẽ hiện là "không đạt" và ô chứa nó sẽ tự động chuyển sang màu đỏ.

Có bạn nào biết chỉ giùm mình nhe
Có cùng câu hỏi với bạn này, xin chỉ giáo

Hong.Van
31-12-14, 10:37 AM
Có cùng câu hỏi với bạn này, xin chỉ giáo
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!

sonts1989
10-03-15, 10:48 AM
Cho em hỏi giã sử như ô kế bên có chứa 1 giá trị bất kì thì tự động ô bên cạnh tô màu, ngược lại thì ko? Nhờ cách bác chỉ giáo

comet_1701
10-03-15, 10:55 AM
Cho em hỏi giã sử như ô kế bên có chứa 1 giá trị bất kì thì tự động ô bên cạnh tô màu, ngược lại thì ko? Nhờ cách bác chỉ giáo
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

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

sonts1989
10-03-15, 02:39 PM
Hì bạn thông cảm. tại hiện giờ mình chưa có flie cụ thể lắm. Mà phiền bạn mình hỏi tí là bước làm cụ thể là như thế nào?? Chép vào sheep thì làm sao?? mình tệ excel

sonts1989
10-03-15, 02:49 PM
Hì xem file giùm mình nhé

Ba Tê
10-03-15, 04:14 PM
Hì xem file giùm mình nhé

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
10-03-15, 04:14 PM
Hì bạn thông cảm. tại hiện giờ mình chưa có flie cụ thể lắm. Mà phiền bạn mình hỏi tí là bước làm cụ thể là như thế nào?? Chép vào sheep thì làm sao?? mình tệ excel
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?

comet_1701
10-03-15, 04:18 PM
Hì xem file giùm mình nhé
Bạn lên Hướng dẫn của Thầy Ba tê, code sửa lại thế này

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 Sub
Bạn Alt+F11, chép thẳng code trên vào sheet1. Xem cách Enable macro nhé
http://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ê
10-03-15, 04:27 PM
Bạn lên Hướng dẫn của Thầy Ba tê, code sửa lại thế này

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 Sub
Bạn Alt+F11, chép thẳng code trên vào sheet1. Xem cách Enable macro nhé
http://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é

Bỏ bớt biến Rng cho gọn.

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 Sub

sonts1989
10-03-15, 04:47 PM
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

Hì cho hỏi thêm vậy excel 2010 làm ko dc hả

Ba Tê
10-03-15, 04:58 PM
Hì cho hỏi thêm vậy excel 2010 làm ko dc hả

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.
137510

sonts1989
10-03-15, 05:09 PM
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.
137510
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
10-03-15, 05:17 PM
Hì Cảm ơn bạn nhé. Mình đã làm đc rồi..sao này có gì chỉ giáo nhé.
Bạn down thêm về mà đọc nhé
http://www.giaiphapexcel.com/forum/content.php?52-Chuy%C3%AAn-%C4%91%E1%BB%81-%C4%90%E1%BB%8Bnh-d%E1%BA%A1ng-theo-%C4%91i%E1%BB%81u-ki%E1%BB%87n-trong-Excel-97-2010

sonts1989
10-03-15, 05:35 PM
Bạn down thêm về mà đọc nhé
http://www.giaiphapexcel.com/forum/content.php?52-Chuy%C3%AAn-%C4%91%E1%BB%81-%C4%90%E1%BB%8Bnh-d%E1%BA%A1ng-theo-%C4%91i%E1%BB%81u-ki%E1%BB%87n-trong-Excel-97-2010

Hì Cảm ơn bạn nhiều nhé!