Tự động tô màu trong Excel như thế nào???? (2 người xem)

lenhu038 · 6/10/09

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 · 6/10/09

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 · 6/10/09

lenhu038 đã viết:
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.

PHP:

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 · 7/10/09

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 · 7/10/09

ketoanq đã viết:
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 · 7/10/09

concogia đã viết:
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 · 7/10/09

huuthang_bd đã viết:
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 · 7/10/09

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 · 7/10/09

paulsteigel đã viết:
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 · 7/10/09

ptlong04x1 đã viết:
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.

PHP:

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 · 7/10/09

lenhu038 đã viết:
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

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

ketoanq đã viết:
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 · 4/4/12

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 · 4/4/12

ngocthang8082 đã viết:
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/5/13

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/7/13

mình cũng đang kẹt cái này .ai biết chỉ mình với nhé

ngocpham1988 · 3/12/13

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 · 3/12/13

ngocpham1988 đã viết:
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 · 2/10/14

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ê · 2/10/14

KoNgoan đã viết:
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 · 9/12/14

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 · 9/12/14

maquy01 đã viết:
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!

Quang_Hải · 9/12/14

maquy01 đã viết:
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

ngocpham1988 đã viết:
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

xuanhoaktv đã viết:
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/3/15

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/3/15

sonts1989 đã viết:
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

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

sonts1989 · 10/3/15

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/3/15

Hì xem file giùm mình nhé

comet_1701 · 10/3/15

sonts1989 đã viết:
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?

Ba Tê · 10/3/15

sonts1989 đã viết:
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/3/15

sonts1989 đã viết:
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

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 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/3/15

comet_1701 đã viết:
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 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.

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 Sub

sonts1989 · 10/3/15

Ba Tê đã viết:
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/3/15

sonts1989 đã viết:
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.

sonts1989 · 10/3/15

Ba Tê đã viết:
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.
View attachment 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/3/15

sonts1989 đã viết:
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/dienda...-Định-dạng-theo-điều-kiện-trong-Excel-97-2010

sonts1989 · 10/3/15

comet_1701 đã viết:
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é!

codekenh9 · 27/7/16

Chào các bạn
mình có 1 file
nếu số ngày còn lại<= 30 thì tô màu đỏ dòng đó
ngược lại để nguyên, không dùng macro được không a
file đính kèm

khuongvietphong · 27/7/16

codekenh9 đã viết:
Chào các bạn
mình có 1 file
nếu số ngày còn lại<= 30 thì tô màu đỏ dòng đó
ngược lại để nguyên, không dùng macro được không a
file đính kèm

Bạn thử với File này xem

quanghashd · 21/6/17

ptlong04x1 đã viết:
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.

PHP:

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.

bạn ơi cho mình hỏi mình chèn lệnh này vào đâu vậy ak ?

namnhim · 15/8/17

nhờ các bác hướng dẫn giúp em tô màu cả dòng khi mình nhập ngày ở cột D1 thì cả dòng đó chuyển sang màu xanh, tương tự nhập ở D2 thì cả dòng 2 chuyển sang mau xanh. em mò mãi trong Conditional Formatting mà chưa tìm ra. cảm ơn các bác.

phulien1902 · 15/8/17

namnhim đã viết:
nhờ các bác hướng dẫn giúp em tô màu cả dòng khi mình nhập ngày ở cột D1 thì cả dòng đó chuyển sang màu xanh, tương tự nhập ở D2 thì cả dòng 2 chuyển sang mau xanh. em mò mãi trong Conditional Formatting mà chưa tìm ra. cảm ơn các bác.

Bạn tham khảo:

PHP:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
    For Each Target In Range("D1:D100")
        If IsDate(Target) Then
            Target.EntireRow.Interior.ColorIndex = 35
            Else
            Target.EntireRow.Interior.ColorIndex = -4142
        End If
    Next
    Application.ScreenUpdating = True
End Sub

namnhim · 15/8/17

cái này dung thế nào bạn nhỉ. cảm ơn bạn

phulien1902 · 15/8/17

namnhim đã viết:
cái này dung thế nào bạn nhỉ. cảm ơn bạn

Bạn làm như sau:
1. Gõ Alt +F11 để mở cửa sổ VBA
2.Chép Code vào Sheet1
3. Ghi lại
4.Gõ Alt +Q để quay trở lại bảng tính
5. Bây giờ bạn nhập các giá trị là ngày tháng vào cột D xem thế nào nhé

namnhim · 15/8/17

cảm ơn bạn rất nhiều!

namnhim · 15/8/17

em muốn thêm nếu nhập ngày ở cột b1 thì dòng đó chuyển sang màu đỏ, nhập cột C1 thì dòng đó chuyển sang màu vàng, cảm ơn bác

phulien1902 · 15/8/17

namnhim đã viết:
em muốn thêm nếu nhập ngày ở cột b1 thì dòng đó chuyển sang màu đỏ, nhập cột C1 thì dòng đó chuyển sang màu vàng, cảm ơn bác

Bạn thử:

PHP:

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    If Target.Address = "$B$1" And IsDate(Target) Then
        Target.EntireRow.Interior.ColorIndex = 3
    End If
    If Target.Address = "$C$1" And IsDate(Target) Then
        Target.EntireRow.Interior.ColorIndex = 6
    End If
    If Target.Address = "$D$1" And IsDate(Target) Then
        Target.EntireRow.Interior.ColorIndex = 35
    End If
    Application.ScreenUpdating = True
End Sub

namnhim · 15/8/17

cảm ơn bạn phulien1902 rất nhiều. cái này dùng cho 1 động ok, nếu nhiều dòng thì sửa thế nào bạn nhỉ?

phulien1902 · 15/8/17

namnhim đã viết:
cảm ơn bạn phulien1902 rất nhiều. cái này dùng cho 1 động ok, nếu nhiều dòng thì sửa thế nào bạn nhỉ?

Thì thế này bạn nhé:

PHP:

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    If Target.Column = 2 And IsDate(Target) Then
        Target.EntireRow.Interior.ColorIndex = 3
    End If
    If Target.Column = 3 And IsDate(Target) Then
        Target.EntireRow.Interior.ColorIndex = 6
    End If
    If Target.Column = 4 And IsDate(Target) Then
        Target.EntireRow.Interior.ColorIndex = 35
    End If
    Application.ScreenUpdating = True
End Sub

namnhim · 15/8/17

cảm ơn bạn rất nhiều!

boma · 3/10/18

Xin kéo chủ đề này lên một chút
- Mình có sửa một chút đoạn code của anh Batê ở trang 2 và tạo được một đoạn mã sao cho khi nhập dữ liệu ở cột A thì tự động tô màu cho 4 ô A,B,C,D trên cùng hàng đó. Xóa dữ liệu đi thì phần tô màu cũng mất. Code này dùng cho một form nhập liệu của mình
-Vì một số dữ liệu cuối của ngày hôm nay có thể là dữ liệu đầu tiên của ngày mai cho nên thay vì xóa đi nhập lại thì mình giữ chuột trái và kéo thả nó lên hàng đầu tiên. Vấn đề phát sinh là khi kéo như vậy, phần tô màu cũ của nó không bị mất đi. Vậy có cách nào xóa phần tô màu cũ đi không ? Mình gởi file đính kèm.

huytuna · 3/11/19

ptlong04x1 đã viết:
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.

PHP:

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.

Làm cách nào để khi in nó không in cái màu hàng hoặc cột đó không hả các bác? Xin cám ơn các bác nhiều!

AnhThu-1976 · 4/11/19

huytuna đã viết:
Làm cách nào để khi in nó không in cái màu hàng hoặc cột đó không hả các bác? Xin cám ơn các bác nhiều!

Bạn xóa code hoặc chuyển các dòng code thành chú thích = cách thêm dấu ' ở trước các dòng code hoặc ....

huytuna · 4/11/19

AnhThu-1976 đã viết:
Bạn xóa code hoặc chuyển các dòng code thành chú thích = cách thêm dấu ' ở trước các dòng code hoặc ....

Bạn giúp mình cụ thể hơn có được ko? Cám ơn bạn nhiều!

AnhThu-1976 · 5/11/19

huytuna đã viết:
Bạn giúp mình cụ thể hơn có được ko? Cám ơn bạn nhiều!

Bạn tham khảo ở đây

Cách vô hiệu hóa nhanh một Sub

Chào các thành viên GPE! Thông thường để vô hiệu hóa một Sub nào đó thì ta thường đánh dấu nháy ' cho Sub đó, ta đánh dấu nháy cho tất cả các dòng từ đầu Sub cho đến End Sub như vậy sẻ mất nhiều thời gian. Vậy cho hỏi có cách nào để vô hiệu hóa nhanh một Sub không? đồng thời có cách nào bỏ toàn...

www.giaiphapexcel.com

Hoặc

Xin hỏi Vô hiệu hóa code khi không muốn sử dụng

Chào các bạn! Mình có một đoạn code khi sử dụng sẽ đọc số tiền thành chữ: Cụ thể là ô C3: 100.000.000 khi ở ô D3 sử dụng code =VND(C3) sẽ đọc là: (Một trăm triệu đồng ./. ) Các bạn cho mình hỏi Sub để sử dụng đọc tiền trong code nói trên là sub nào trong đoạn code mình gửi. Nhờ các bạn vô hiệu...

www.giaiphapexcel.com

huytuna · 5/11/19

AnhThu-1976 đã viết:
Bạn tham khảo ở đây

Cách vô hiệu hóa nhanh một Sub

Chào các thành viên GPE! Thông thường để vô hiệu hóa một Sub nào đó thì ta thường đánh dấu nháy ' cho Sub đó, ta đánh dấu nháy cho tất cả các dòng từ đầu Sub cho đến End Sub như vậy sẻ mất nhiều thời gian. Vậy cho hỏi có cách nào để vô hiệu hóa nhanh một Sub không? đồng thời có cách nào bỏ toàn...

www.giaiphapexcel.com

Hoặc

Xin hỏi Vô hiệu hóa code khi không muốn sử dụng

Chào các bạn! Mình có một đoạn code khi sử dụng sẽ đọc số tiền thành chữ: Cụ thể là ô C3: 100.000.000 khi ở ô D3 sử dụng code =VND(C3) sẽ đọc là: (Một trăm triệu đồng ./. ) Các bạn cho mình hỏi Sub để sử dụng đọc tiền trong code nói trên là sub nào trong đoạn code mình gửi. Nhờ các bạn vô hiệu...

www.giaiphapexcel.com

Mình không hiểu gì về VBA cả bạn à! Mình chỉ thấy code trên rất hay, nên mình muốn nhờ bạn và mọi người trên GPE giúp làm sao vẫn giữ sử dụng code trên, nhưng khi mình in thì nó sẽ không hiển thị màu sắc của cột và hàng đã chuyển màu tự động đó thôi… Cám ơn bạn và mọi người rất nhiều!

AnhThu-1976 · 5/11/19

huytuna đã viết:
Mình không hiểu gì về VBA cả bạn à! Mình chỉ thấy code trên rất hay, nên mình muốn nhờ bạn và mọi người trên GPE giúp làm sao vẫn giữ sử dụng code trên, nhưng khi mình in thì nó sẽ không hiển thị màu sắc của cột và hàng đã chuyển màu tự động đó thôi… Cám ơn bạn và mọi người rất nhiều!

Trước đây tôi cũng như bạn, tôi cũng không biết gì và cũng tự tìm tòi thêm khi được các thành viên khác hướng dẫn

hoanghia7980 · 25/3/22

Chào các ac nhờ các ac chuyển cho e file dpf này sang exel mà ko bị lỗi font cho e với ạ

Hoàng Tuấn 868 · 25/3/22

hoanghia7980 đã viết:
Chào các ac nhờ các ac chuyển cho e file dpf này sang exel mà ko bị lỗi font cho e với ạ

Bài này chẳng liên quan đến chủ đề tô mầu cả.

Tự động tô màu trong Excel như thế nào???? (2 người xem)

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

Thành viên mới

Thành viên tích cực

Thành viên tích cực

File đính kèm

Thành viên mới

Gội rồi mới Cạo

Chuyên gia GPE

Gội rồi mới Cạo

Nhi bất hoặc!

Thành viên tích cực

Thành viên mới

Thành viên tích cực

Thành viên mới

Thành viên tích cực

File đính kèm

Thành viên mới

Thành viên mới

File đính kèm

Thành viên mới

File đính kèm

Thành viên mới

Thành viên mới

Thành viên gạo cội

Thành viên mới

Cạo Rồi Khỏi Gội

Thành viên mới

Busy

Thành viên gạo cội

Thành viên mới

Busy

Thành viên mới

Thành viên tiêu biểu

Thành viên mới

Thành viên mới

File đính kèm

Thành viên tiêu biểu

Cạo Rồi Khỏi Gội

Thành viên tiêu biểu

Cạo Rồi Khỏi Gội

Thành viên mới

Cạo Rồi Khỏi Gội

Thành viên mới

Thành viên tiêu biểu

Thành viên mới

Thành viên mới

File đính kèm

Be all you can be !

File đính kèm

Thành viên mới

Thành viên mới

GPE - My love

Thành viên mới

GPE - My love

Thành viên mới

Thành viên mới

GPE - My love

Thành viên mới

GPE - My love

Thành viên mới

Thành viên mới

File đính kèm

Thành viên hoạt động

Thành viên tích cực

Thành viên hoạt động

Thành viên tích cực

Thành viên hoạt động

Thành viên tích cực

Thành viên mới

Đăng ký hôm qua

Thời gian đếm ngược.