Tô Màu Theo điều Kiện Bằng VBA? | Giải Pháp Excel

Có thể bạn quan tâm

Trang chủ Có gì mới Hoạt động gần nhất Tác giả
Diễn đàn Tìm bài viết mới Tìm theo chuyên mục
Video Video về Excel Video về tin học khác Tin tức về tin học chung
Thông tin mới Featured content Tìm bài mới Tài Nguyên Mới Hoạt động gần nhất
Tài nguyên Đánh giá mới nhất Tìm tài nguyên
Facebook
Đóng góp

Đăng nhập Đăng Ký Có gì mới? Tìm kiếm

Tìm kiếm

Mọi nơi Đề tài Diễn đàn này Đề tài này Chỉ tìm trong tiêu đề Note Bởi: Tìm kiếm Tìm nâng cao…

Tìm bài viết mới
Tìm theo chuyên mục

Menu Đăng nhập Đăng Ký Install the app Install How to install the app on iOS

Follow along with the video below to see how to install our site as a web app on your home screen.

Note: This feature may not be available in some browsers.

Khách ơi! GPE thông tin đến bạn ấn phẩm "lập trình VBA trong Excel": - Phần cơ bản - Phần Nâng Cao - VBA trong Excel - Cải thiện và tăng tốc

Trang chủ
Diễn đàn
Lập Trình với Excel

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. Tô màu theo điều kiện bằng VBA? (1 người xem)

Thread starter Thread starter Miền Cát Trắng
Ngày gửi Ngày gửi 3/1/14

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

Đang trực tuyến: 2 (Thành viên: 0, Khách: 2) M

Miền Cát Trắng

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

Tham gia 18/5/13 Bài viết 171 Được thích 37 Xin kính chào mọi người. Tôi đang gặp phải một vấn đề như đã nêu rõ trong file đính kèm. Nếu sử dụng chức năng CF thì tôi có thể làm được nhưng tôi muốn tìm hiểu khi làm bằng vba. Mong mọi người giúp đỡ. Xin cảm ơn!

File đính kèm

Tomau.xls Tomau.xls 24 KB · Đọc: 472

Sắp xếp theo thời gian sắp xếp theo bầu chọn Ba Tê

Ba Tê

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

Tham gia 5/5/09 Bài viết 12,123 Được thích 17,590 Giới tính Nam

Miền Cát Trắng đã viết: Xin kính chào mọi người. Tôi đang gặp phải một vấn đề như đã nêu rõ trong file đính kèm. Nếu sử dụng chức năng CF thì tôi có thể làm được nhưng tôi muốn tìm hiểu khi làm bằng vba. Mong mọi người giúp đỡ. Xin cảm ơn! Nhấp chuột vào đây để mở rộng...

Muốn VBA thì thử chạy Sub này coi sao: PHP: Sao chép. Public Sub GPE() Dim Rng As Range, Cll As Range, DK As Long With Sheet1 DK = .[C5].Value .[C8:K1000].Interior.ColorIndex = 0 Set Rng = .Range(.[C8], .[C8].End(xlDown)) For Each Cll In Rng If Cll.Value = DK Then Cll.Resize(, 9).Interior.ColorIndex = 6 MsgBox "Ma oi, Ma oi ..... Cuu con!" End If Next Cll End With Set Rng = Nothing End Sub Upvote 0 M

Miền Cát Trắng

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

Tham gia 18/5/13 Bài viết 171 Được thích 37

Ba Tê đã viết: Muốn VBA thì thử chạy Sub này coi sao: PHP: Sao chép. Public Sub GPE() Dim Rng As Range, Cll As Range, DK As Long With Sheet1 DK = .[C5].Value .[C8:K1000].Interior.ColorIndex = 0 Set Rng = .Range(.[C8], .[C8].End(xlDown)) For Each Cll In Rng If Cll.Value = DK Then Cll.Resize(, 9).Interior.ColorIndex = 6 MsgBox "Ma oi, Ma oi ..... Cuu con!" End If Next Cll End With Set Rng = Nothing End Sub Nhấp chuột vào đây để mở rộng...

Trước hết xin cảm Thầy đã vui vẻ giúp đỡ! Về cơ bản thì code của Thầy viết rất đúng ý với em đã nêu tuy nhiên còn một chút xíu nữa mong Thầy sửa giúp cho ạ. Đó là các cột màu xanh trong khung vẫn giữ nguyên màu xanh. Nghĩa là điều kiện màu vàng chỉ hoạt động trong vùng [C8:E17,G8:I17,K8:K17] thôi ạ! ------------------ Em định thêm một dòng code tô lại các vùng màu xanh này. Nhưng nếu như vậy thì nghĩa phải thêm 1 công đoạn phải không ạ. Mong Thầy chỉ dẫn thêm để không phải thêm công đoạn này nữa ạ. Cảm ơn Thầy! Lần chỉnh sửa cuối: 3/1/14 Upvote 0 Ba Tê

Ba Tê

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

Tham gia 5/5/09 Bài viết 12,123 Được thích 17,590 Giới tính Nam

Miền Cát Trắng đã viết: Trước hết xin cảm Thầy đã vui vẻ giúp đỡ! Về cơ bản thì code của Thầy viết rất đúng ý với em đã nêu tuy nhiên còn một chút xíu nữa mong Thầy sửa giúp cho ạ. Đó là các cột màu xanh trong khung vẫn giữ nguyên màu xanh. Nghĩa là điều kiện màu vàng chỉ hoạt động trong vùng [C8:E17,G8:I17,K8:K17] thôi ạ! ------------------ Em định thêm một dòng code tô lại các vùng màu xanh này. Nhưng nếu như vậy thì nghĩa phải thêm 1 công đoạn phải không ạ. Mong Thầy chỉ dẫn thêm để không phải thêm công đoạn này nữa ạ. Cảm ơn Thầy! Nhấp chuột vào đây để mở rộng...

Xem Cái "má ơi...má ơi ..." này thử xem, sao nhiều cái "oái oăm" vậy? PHP: Sao chép. Public Sub GPE() Dim Rng As Range, Cll As Range, DK As Long, MaOI As Range With Sheet1 DK = .[C5].Value Set MaOI = Union(.[C8:E17], .[G8:I17], .[K8:K17]) MaOI.Interior.ColorIndex = 0 Set Rng = .Range(.[C8], .[C8].End(xlDown)) For Each Cll In Rng If Cll.Value = DK Then Set MaOI = Union(Cll.Resize(, 3), Cll.Offset(, 4).Resize(, 3), Cll.Offset(, 8)) MaOI.Interior.ColorIndex = 6 MsgBox "Ma oi, Ma oi ..... Cuu con!" End If Next Cll End With Set Rng = Nothing Set MaOI = Nothing End Sub Upvote 0 M

Miền Cát Trắng

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

Tham gia 18/5/13 Bài viết 171 Được thích 37

Ba Tê đã viết: Xem Cái "má ơi...má ơi ..." này thử xem, sao nhiều cái "oái oăm" vậy? PHP: Sao chép. Public Sub GPE() Dim Rng As Range, Cll As Range, DK As Long, MaOI As Range With Sheet1 DK = .[C5].Value Set MaOI = Union(.[C8:E17], .[G8:I17], .[K8:K17]) MaOI.Interior.ColorIndex = 0 Set Rng = .Range(.[C8], .[C8].End(xlDown)) For Each Cll In Rng If Cll.Value = DK Then Set MaOI = Union(Cll.Resize(, 3), Cll.Offset(, 4).Resize(, 3), Cll.Offset(, 8)) MaOI.Interior.ColorIndex = 6 MsgBox "Ma oi, Ma oi ..... Cuu con!" End If Next Cll End With Set Rng = Nothing Set MaOI = Nothing End Sub Nhấp chuột vào đây để mở rộng...

Cảm ơn Thầy!! Em đã thử...kết quả là như mong đợi! Năm mới xin kính chúc Thầy sức khỏe tốt và công các tốt! Vạn sự như ý! Upvote 0 M

Miền Cát Trắng

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

Tham gia 18/5/13 Bài viết 171 Được thích 37

Ba Tê đã viết: Xem Cái "má ơi...má ơi ..." này thử xem, sao nhiều cái "oái oăm" vậy? PHP: Sao chép. Public Sub GPE() Dim Rng As Range, Cll As Range, DK As Long, MaOI As Range With Sheet1 DK = .[C5].Value Set MaOI = Union(.[C8:E17], .[G8:I17], .[K8:K17]) MaOI.Interior.ColorIndex = 0 Set Rng = .Range(.[C8], .[C8].End(xlDown)) For Each Cll In Rng If Cll.Value = DK Then Set MaOI = Union(Cll.Resize(, 3), Cll.Offset(, 4).Resize(, 3), Cll.Offset(, 8)) MaOI.Interior.ColorIndex = 6 MsgBox "Ma oi, Ma oi ..... Cuu con!" End If Next Cll End With Set Rng = Nothing Set MaOI = Nothing End Sub Nhấp chuột vào đây để mở rộng...

Nhưng mà với cái đoạn này của Thầy: Mã: Sao chép. Set MaOI = Union([B].[C8:E17], .[G8:I17], .[K8:K17][/B]) Mà kết hợp với đoạn này: Mã: Sao chép. Set Rng = .Range(.[C8], .[C8][COLOR=#ff0000][B].End(xlDown)[/B][/COLOR]) thì em nghĩ là chưa hợp lý bởi vì nếu điều kiện khi tô màu vàng ngoài vùng MaOI thì sẽ không thể trở về 0 được khi ngoài vùng MaOI này không còn đúng với điều kiện ạ. Upvote 0 Ba Tê

Ba Tê

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

Tham gia 5/5/09 Bài viết 12,123 Được thích 17,590 Giới tính Nam

Miền Cát Trắng đã viết: Nhưng mà với cái đoạn này của Thầy: Mã: Sao chép. Set MaOI = Union([B].[C8:E17], .[G8:I17], .[K8:K17][/B]) Mà kết hợp với đoạn này: Mã: Sao chép. Set Rng = .Range(.[C8], .[C8][COLOR=#ff0000][B].End(xlDown)[/B][/COLOR]) thì em nghĩ là chưa hợp lý bởi vì nếu điều kiện khi tô màu vàng ngoài vùng MaOI thì sẽ không thể trở về 0 được khi ngoài vùng MaOI này không còn đúng với điều kiện ạ. Nhấp chuột vào đây để mở rộng...

Chời ơi! Chỉ làm theo ví dụ, thực tế ra sao thì tự chỉnh đi. Híc!

Nghĩa là điều kiện màu vàng chỉ hoạt động trong vùng [C8:E17,G8:I17,K8:K17] thôi ạ! Nhấp chuột vào đây để mở rộng...

Biểu sao làm vậy, kết quả có đúng không? Upvote 0 M

Miền Cát Trắng

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

Tham gia 18/5/13 Bài viết 171 Được thích 37 Đúng quá rồi mờ Thầy! hihi Upvote 0

concogia

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

Tham gia 17/9/09 Bài viết 3,412 Được thích 6,881 Má ơi !!! Cái bài này cứ Má ơi như lúc đầu, Má ơi xong thì chèn 2 dòng này vào cho nhẹ nhàng

Rng.Offset(, 3).Interior.ColorIndex = 50 Rng.Offset(, 7).Interior.ColorIndex = 50 Nhấp chuột vào đây để mở rộng...

Code dzì: Mã: Sao chép. Public Sub GPE() Dim Rng As Range, Cll As Range, DK As Long With Sheet1 DK = .[C5].Value .[C8:K1000].Interior.ColorIndex = 0 Set Rng = .Range(.[C8], .[C8].End(xlDown)) For Each Cll In Rng If Cll.Value = DK Then Cll.Resize(, 9).Interior.ColorIndex = 6 MsgBox "Ma oi, Ma oi ..... Cuu con!" End If Next Cll Rng.Offset(, 3).Interior.ColorIndex = 50 Rng.Offset(, 7).Interior.ColorIndex = 50 End With Set Rng = Nothing End Sub Híc, Má ơi Thân Upvote 0 Ba Tê

Ba Tê

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

Tham gia 5/5/09 Bài viết 12,123 Được thích 17,590 Giới tính Nam

concogia đã viết: Má ơi !!! Cái bài này cứ Má ơi như lúc đầu, Má ơi xong thì chèn 2 dòng này vào cho nhẹ nhàng Code dzì: Mã: Sao chép. Public Sub GPE() Dim Rng As Range, Cll As Range, DK As Long With Sheet1 DK = .[C5].Value .[C8:K1000].Interior.ColorIndex = 0 Set Rng = .Range(.[C8], .[C8].End(xlDown)) For Each Cll In Rng If Cll.Value = DK Then Cll.Resize(, 9).Interior.ColorIndex = 6 MsgBox "Ma oi, Ma oi ..... Cuu con!" End If Next Cll Rng.Offset(, 3).Interior.ColorIndex = 50 Rng.Offset(, 7).Interior.ColorIndex = 50 End With Set Rng = Nothing End Sub Híc, Má ơi Thân Nhấp chuột vào đây để mở rộng...

Lỡ "má ơi" muốn thay đổi 2 cột F và J bằng cái màu "má ơi" nào khác tuỳ thích bằng thủ công thì "má ơi... má ơi" tiếp tục. Híc! Ẹc.. Upvote 0

concogia

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

Tham gia 17/9/09 Bài viết 3,412 Được thích 6,881

Ba Tê đã viết: Lỡ "má ơi" muốn thay đổi 2 cột F và J bằng cái màu "má ơi" nào khác tuỳ thích bằng thủ công thì "má ơi... má ơi" tiếp tục. Híc! Ẹc.. Nhấp chuột vào đây để mở rộng...

Thì trước khi Má Ơi tìm em trùng tô màu vàng, mình cho chạy theo cột trong vùng dữ liệu,Má Ơi điểm mặt cột nào có màu & màu gì gom bỏ vào một biến để dành đó Má ơi các việc phải má ơi Má Ơi xong các em trùng để tô vàng, ta Má ơi các cột có màu tô thủ công của chủ topic. Híc Thân Upvote 0 G

giangintem

Thành viên mới

Tham gia 19/4/11 Bài viết 22 Được thích 4 Xin chào cả nhà Tôi đang muốn tô màu theo từng vùng (như file đính kèm). Tôi muốn tìm hiểu khi sử dụng bằng vba. Mong mọi người giúp đỡ. Xin cảm ơn!

File đính kèm

ToMau_Vung.xlsx ToMau_Vung.xlsx 11.3 KB · Đọc: 44

Upvote 0

Nhattanktnn

Thành viên gắn bó

Tham gia 11/11/16 Bài viết 3,161 Được thích 4,150 Donate (Momo)

Giới tính Nam

giangintem đã viết: Xin chào cả nhà Tôi đang muốn tô màu theo từng vùng (như file đính kèm). Tôi muốn tìm hiểu khi sử dụng bằng vba. Mong mọi người giúp đỡ. Xin cảm ơn! Nhấp chuột vào đây để mở rộng...

Record macro thôi! Chứ đề không có điều kiện này thích tô sao tô rồi Upvote 0 Cu Tồ

Cu Tồ

Tìm đến kiến thức! ꧁༺ Cu Tồ ༻꧂

Tham gia 6/5/20 Bài viết 735 Được thích 347

giangintem đã viết: từng vùng Nhấp chuột vào đây để mở rộng...

không có điều kiện cụ thể nào cho vùng nào,thì bạn xem cái code phía trên ấy lệnh tô màu đó rồi cứ phang thẳng cái vùng đó cho màu đó là được chứ nhìn cái file của bạn thì chưa biết làm như thế nào cho tối ưu cả

Mã: Sao chép. sheet1.Range("A34:G44").Interior.ColorIndex = 6 Upvote 0 G

giangintem

Thành viên mới

Tham gia 19/4/11 Bài viết 22 Được thích 4

Cu Tồ đã viết: không có điều kiện cụ thể nào cho vùng nào,thì bạn xem cái code phía trên ấy lệnh tô màu đó rồi cứ phang thẳng cái vùng đó cho màu đó là được chứ nhìn cái file của bạn thì chưa biết làm như thế nào cho tối ưu cả View attachment 248284 Mã: Sao chép. sheet1.Range("A34:G44").Interior.ColorIndex = 6 Nhấp chuột vào đây để mở rộng...

Cám ơn Bạn đã hướng dẫn. Ý mình đây là có đoạn code nào hướng dẫn tô màu theo vùng. Vd: từ ô A6 -> G12: tô màu xanh dương từ ô A13 -> G21: tô màu vàng từ ô A22 -> G44: tô màu xanh lá Upvote 0 Cu Tồ

Cu Tồ

Tìm đến kiến thức! ꧁༺ Cu Tồ ༻꧂

Tham gia 6/5/20 Bài viết 735 Được thích 347

giangintem đã viết: Cám ơn Bạn đã hướng dẫn. Ý mình đây là có đoạn code nào hướng dẫn tô màu theo vùng. Vd: từ ô A6 -> G12: tô màu xanh dương từ ô A13 -> G21: tô màu vàng từ ô A22 -> G44: tô màu xanh lá Nhấp chuột vào đây để mở rộng...

Mã: Sao chép. sheet1.Range("A34:G44") Đây là vùng tham chiếu bạn có thể sửa nó tùy ý Mã: Sao chép. .Interior.ColorIndex = 6 Đây là chỉ số màu trong bảng màu,cái này ít người nhớ hết chỉ có mấy màu hay dùng thì nhớ.có cách khác là dùng vbred .... cũng được.nhưng để nói code hướng dẫn thì chả biết nói như thế nào.bạn ghi lại maro tô màu các vùng bạn muốn rồi chỉ cần quan tâm đến vùng mà nó tô màu trong code + mã màu và lệnh tô mà thì sẽ hiểu mà Upvote 0 G

giangintem

Thành viên mới

Tham gia 19/4/11 Bài viết 22 Được thích 4 Mình đã tô được màu từng cùng cố định. Nhưng mình muốn dùng code để tự động tô mà không chỉnh từ vùng Upvote 0 Cu Tồ

Cu Tồ

Tìm đến kiến thức! ꧁༺ Cu Tồ ༻꧂

Tham gia 6/5/20 Bài viết 735 Được thích 347 End Sub[/CODE]

giangintem đã viết: Mình đã tô được màu từng cùng cố định. Nhưng mình muốn dùng code để tự động tô mà không chỉnh từ vùng Nhấp chuột vào đây để mở rộng...

tự đông kiểu như thế nào đã chứ,tự động cũng cần có điêu kiện để giới hạn vùng,chứ còn không nó chạy tùm lum làm sao bạn? Upvote 0

Nhattanktnn

Thành viên gắn bó

Tham gia 11/11/16 Bài viết 3,161 Được thích 4,150 Donate (Momo)

Giới tính Nam

Cu Tồ đã viết: End Sub[/CODE] tự đông kiểu như thế nào đã chứ,tự động cũng cần có điêu kiện để giới hạn vùng,chứ còn không nó chạy tùm lum làm sao bạn? Nhấp chuột vào đây để mở rộng...

Cái tối thiểu để tính toán "tự động" dù là công thức hay vba là cái điều kiện mà bạn ấy cũng không trình bày ra. Vậy mà bạn ấy cứ muốn "tự động", không hiểu tự động sao luôn Upvote 0 Cu Tồ

Cu Tồ

Tìm đến kiến thức! ꧁༺ Cu Tồ ༻꧂

Tham gia 6/5/20 Bài viết 735 Được thích 347

Nhattanktnn đã viết: Vậy mà bạn ấy cứ muốn "tự động", không hiểu tự động sao luôn Nhấp chuột vào đây để mở rộng...

ông hộ trợ bạn ấy đi Upvote 0

PacificPR

Thành viên mới

Tham gia 6/5/16 Bài viết 1,997 Được thích 2,750

giangintem đã viết: Mình đã tô được màu từng cùng cố định. Nhưng mình muốn dùng code để tự động tô mà không chỉnh từ vùng Nhấp chuột vào đây để mở rộng...

Nhà mình có thể cho một ít dữ liệu vào cái bảng đó không. Cơ sở để ngăn cách vùng là gì vậy Upvote 0 G

giangintem

Thành viên mới

Tham gia 19/4/11 Bài viết 22 Được thích 4 Cám ơn cả nhà, Mình đã làm được Mình tô màu theo vùng và chạy code mẫu, lấy code mẫu pass vô và điều chỉnh ô lại theo mong muốn Range("A6:G14").Select With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 13434879 .TintAndShade = 0 .PatternTintAndShade = 0 End With Range("A15:G23").Select With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 13434828 .TintAndShade = 0 .PatternTintAndShade = 0 End With ActiveWindow.SmallScroll Down:=15 Range("A24:G50").Select With Selection.Font .Color = -16776961 .TintAndShade = 0 End With With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 16772300 .TintAndShade = 0 .PatternTintAndShade = 0 End With Range("B21").Select ActiveWindow.SmallScroll Down:=-21 Range("A6:G50").Select With Selection.Font .ColorIndex = xlAutomatic .TintAndShade = 0 End With Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .ColorIndex = xlAutomatic .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .ColorIndex = xlAutomatic .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .ColorIndex = xlAutomatic .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .ColorIndex = xlAutomatic .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlInsideVertical) .LineStyle = xlContinuous .ColorIndex = xlAutomatic .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlInsideHorizontal) .LineStyle = xlContinuous .ColorIndex = xlAutomatic .TintAndShade = 0 .Weight = xlThin End With Range("F16").Select ActiveWindow.SmallScroll Down:=-30 Range("F11").Select ActiveWindow.SmallScroll Down:=-42 Range("F11").Select Upvote 0

Nhattanktnn

Thành viên gắn bó

Tham gia 11/11/16 Bài viết 3,161 Được thích 4,150 Donate (Momo)

Giới tính Nam

giangintem đã viết: Cám ơn cả nhà, Mình đã làm được Mình tô màu theo vùng và chạy code mẫu, lấy code mẫu pass vô và điều chỉnh ô lại theo mong muốn Range("A6:G14").Select With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 13434879 .TintAndShade = 0 .PatternTintAndShade = 0 End With Range("A15:G23").Select With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 13434828 .TintAndShade = 0 .PatternTintAndShade = 0 End With ActiveWindow.SmallScroll Down:=15 Range("A24:G50").Select With Selection.Font .Color = -16776961 .TintAndShade = 0 End With With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 16772300 .TintAndShade = 0 .PatternTintAndShade = 0 End With Range("B21").Select ActiveWindow.SmallScroll Down:=-21 Range("A6:G50").Select With Selection.Font .ColorIndex = xlAutomatic .TintAndShade = 0 End With Selection.Borders(xlDiagonalDown).LineStyle = xlNone Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .ColorIndex = xlAutomatic .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .ColorIndex = xlAutomatic .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .ColorIndex = xlAutomatic .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .ColorIndex = xlAutomatic .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlInsideVertical) .LineStyle = xlContinuous .ColorIndex = xlAutomatic .TintAndShade = 0 .Weight = xlThin End With With Selection.Borders(xlInsideHorizontal) .LineStyle = xlContinuous .ColorIndex = xlAutomatic .TintAndShade = 0 .Weight = xlThin End With Range("F16").Select ActiveWindow.SmallScroll Down:=-30 Range("F11").Select ActiveWindow.SmallScroll Down:=-42 Range("F11").Select Nhấp chuột vào đây để mở rộng...

À tức là cái chỗ dài thòng lòng đó nó gần gần như này đấy bạn: Mã: Sao chép. Sub ToMauSieuTuDong() Range("A6:G14").Interior.ColorIndex = 36 Range("A15:G23").Interior.ColorIndex = 20 Range("A24:G50").Interior.ColorIndex = 37 Range("A6:G50").Borders.LineStyle = xlContinuous End Sub Upvote 0 G

giangintem

Thành viên mới

Tham gia 19/4/11 Bài viết 22 Được thích 4 Cám ơn Bạn, mình không biết làm nên chỉ làm được như vậy thôi. Mình copy và sử dụng đoạn code của Bạn cũng được rồi Upvote 0

tranthemai

Thành viên mới

Tham gia 18/11/16 Bài viết 25 Được thích 4 Cho em hỏi cách tô màu với: Nếu thu được tiền liên tục trong 10 ngày thì ngày thứ 7 bôi màu cam, nếu 14 ngày liên tục thì ngày thứ 7 và ngày thứ 14 bôi màu cam, Nếu 21 ngày liên tục thì ngày thứ 7, 14 và 21 bôi màu cam Nếu 28 ngày liên tục thì ngày thứ 7, 14, 21, 28 bôi màu cam nếu ngày nào không thu được tiền thì bôi màu vàng còn lại các ngày màu trắng Tính tổng số tiền các ngày màu cam của từng người cám ơn các anh chị

File đính kèm

Bôi màu.xlsx Bôi màu.xlsx 10.7 KB · Đọc: 28

Upvote 0 C

CHAOQUAY

Thành viên gắn bó

Tham gia 24/8/18 Bài viết 2,238 Được thích 2,753

tranthemai đã viết: Cho em hỏi cách tô màu với: Nếu thu được tiền liên tục trong 10 ngày thì ngày thứ 7 bôi màu cam, nếu 14 ngày liên tục thì ngày thứ 7 và ngày thứ 14 bôi màu cam, Nếu 21 ngày liên tục thì ngày thứ 7, 14 và 21 bôi màu cam Nếu 28 ngày liên tục thì ngày thứ 7, 14, 21, 28 bôi màu cam nếu ngày nào không thu được tiền thì bôi màu vàng còn lại các ngày màu trắng Tính tổng số tiền các ngày màu cam của từng người cám ơn các anh chị Nhấp chuột vào đây để mở rộng...

Thử code dưới đây Mã: Sao chép. Option Explicit Sub A_mau_tien() Dim DL, tien Dim i, j, k, t With Sheet1 DL = .Range("A2", .Range("AF" & Rows.Count).End(xlUp)) .Range("A2", .Range("AF" & Rows.Count).End(xlUp)).ClearFormats .Range("A2", .Range("AF" & Rows.Count).End(xlUp)).Borders.LineStyle = 1 For i = 1 To UBound(DL) k = 0 tien = 0 For j = 2 To 32 If DL(i, j) > 0 Then k = k + 1 If k = 10 Then t = j - 4 Else If k > 10 And k Mod 7 = 0 Then t = j - 1 End If If t Then 'tien = tien + DL(i, j) tien = tien + DL(i, t + 1)'<--sua lai .Range("A" & i + 1).Offset(, t).Select Macro1 t = 0 End If Else .Range("A" & i + 1).Offset(, j - 1).Select Macro2 k = 0 End If Next j .Range("AG" & i + 1) = tien Next i End With End Sub Sub Macro1() With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 49407 .TintAndShade = 0 .PatternTintAndShade = 0 End With End Sub Sub Macro2() With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 65535 .TintAndShade = 0 .PatternTintAndShade = 0 End With End Sub Lần chỉnh sửa cuối: 28/11/20 Upvote 0

tranthemai

Thành viên mới

Tham gia 18/11/16 Bài viết 25 Được thích 4 Bác ChaoQuay sửa hộ em cái này với, khi đưa code của bác vào dữ liệu thì em đã sửa lại những cái em biết thì thấy phần tô màu đúng rồi, còn phần tính tổng theo màu vẫn gặp khó khăn, em thấy nó tự lấy dữ liệu ở ô số 10 đem cộng với những ô màu cam khác chứ không phải ở ô thứ 7 có màu cam

File đính kèm

LUONG SL TS 11 2019.xlsm LUONG SL TS 11 2019.xlsm 100.1 KB · Đọc: 20

Upvote 0 C

CHAOQUAY

Thành viên gắn bó

Tham gia 24/8/18 Bài viết 2,238 Được thích 2,753

tranthemai đã viết: Bác ChaoQuay sửa hộ em cái này với, khi đưa code của bác vào dữ liệu thì em đã sửa lại những cái em biết thì thấy phần tô màu đúng rồi, còn phần tính tổng theo màu vẫn gặp khó khăn, em thấy nó tự lấy dữ liệu ở ô số 10 đem cộng với những ô màu cam khác chứ không phải ở ô thứ 7 có màu cam Nhấp chuột vào đây để mở rộng...

Đoạn code trên cộng tiền bị lỗi, sorry. Bạn xem lại bên dưới, thay dòng trên = dòng dưới là được Mã: Sao chép. If t Then 'tien = tien + DL(i, j) tien = tien + DL(i, t + 1) Upvote 0

tranthemai

Thành viên mới

Tham gia 18/11/16 Bài viết 25 Được thích 4

CHAOQUAY đã viết: Đoạn code trên cộng tiền bị lỗi, sorry. Bạn xem lại bên dưới, thay dòng trên = dòng dưới là được Mã: Sao chép. If t Then 'tien = tien + DL(i, j) tien = tien + DL(i, t + 1) Nhấp chuột vào đây để mở rộng...

Thanks Bac chuẩn rồi bác. Cám ơn bác đã giúp đỡ em nhiệt tình Upvote 0

huongmuine

Thành viên GPE

Tham gia 27/5/10 Bài viết 228 Được thích 32 Giới tính Nam Nhờ các anh chị giúp tô màu các ô theo điều kiện ( Yêu cầu nêu rõ trong file ). Cảm ơn rất nhiều.

File đính kèm

Book1.xls Book1.xls 38.5 KB · Đọc: 11

Upvote 0

giaiphap

==(^o^)==

Tham gia 12/3/07 Bài viết 5,809 Được thích 6,368 Donate (Momo)

Giới tính Nam

huongmuine đã viết: Nhờ các anh chị giúp tô màu các ô theo điều kiện ( Yêu cầu nêu rõ trong file ). Cảm ơn rất nhiều. Nhấp chuột vào đây để mở rộng...

Cái này dùng thử CF kết quả cũng được.

File đính kèm

Book1.xls Book1.xls 38.5 KB · Đọc: 22

Upvote 0

huongmuine

Thành viên GPE

Tham gia 27/5/10 Bài viết 228 Được thích 32 Giới tính Nam

giaiphap đã viết: Cái này dùng thử CF kết quả cũng được. Nhấp chuột vào đây để mở rộng...

Hôm trước mình cũng làm thế nhưng sau khi CF xong nó xóa mất tiêu các định dạng của mình ( Có lẽ do lỗi của file ). Cảm ơn bạn đã hỗ trợ. Bài đã được tự động gộp: 4/1/22

huongmuine đã viết: Hôm trước mình cũng làm thế nhưng sau khi CF xong nó xóa mất tiêu các định dạng của mình ( Có lẽ do lỗi của file. File sử dụng vba để Highlight ). Cảm ơn bạn đã hỗ trợ. Nhấp chuột vào đây để mở rộng...

Upvote 0

kokoro mitsubishi

Thành viên chính thức

Tham gia 2/12/13 Bài viết 55 Được thích 3 Xin phép diễn đàn em cũng có nội dung tương tự nhờ thầy và các anh chị em hỗ trợ thay thế bằng VBA Hiện tại file đính kèm đang sử dụng định dạng có điều kiện tuy nhiên số lượng ít dòng thì dùng OK nhưng khi lên đến 800 dòng file chậm quá Điều kiện em cũng đã ghi trong file em trân thành cảm ơn anh chị

File đính kèm

Xác nhận tiến độ.xlsx Xác nhận tiến độ.xlsx 867.7 KB · Đọc: 18

Upvote 0 L

Luong24

Thành viên mới

Tham gia 9/9/22 Bài viết 22 Được thích 2

Ba Tê đã viết: Public Sub GPE() Dim Rng As Range, Cll As Range, DK As Long With Sheet1 DK = .[C5].Value .[C8:K1000].Interior.ColorIndex = 0 Set Rng = .Range(.[C8], .[C8].End(xlDown)) For Each Cll In Rng If Cll.Value = DK Then Cll.Resize(, 9).Interior.ColorIndex = 6 MsgBox "Ma oi, Ma oi ..... Cuu con!" End If Next Cll End With Nhấp chuột vào đây để mở rộng...

Ba Tê đã viết: Xem Cái "má ơi...má ơi ..." này thử xem, sao nhiều cái "oái oăm" vậy? PHP: Sao chép. Public Sub GPE() Dim Rng As Range, Cll As Range, DK As Long, MaOI As Range With Sheet1 DK = .[C5].Value Set MaOI = Union(.[C8:E17], .[G8:I17], .[K8:K17]) MaOI.Interior.ColorIndex = 0 Set Rng = .Range(.[C8], .[C8].End(xlDown)) For Each Cll In Rng If Cll.Value = DK Then Set MaOI = Union(Cll.Resize(, 3), Cll.Offset(, 4).Resize(, 3), Cll.Offset(, 8)) MaOI.Interior.ColorIndex = 6 MsgBox "Ma oi, Ma oi ..... Cuu con!" End If Next Cll End With Set Rng = Nothing Set MaOI = Nothing End Sub Nhấp chuột vào đây để mở rộng...

nếu thay C5 bằng 1 vùng dữ liệu từ c5 tới c 200 thì sao ạ? Upvote 0 H

Hoàng Tuấn 868

Đăng ký hôm qua

Tham gia 9/11/19 Bài viết 6,315 Được thích 6,002

Luong24 đã viết: nếu thay C5 bằng 1 vùng dữ liệu từ c5 tới c 200 thì sao ạ? Nhấp chuột vào đây để mở rộng...

Cứ thử thì sẽ biết thôi. Upvote 0 L

Luong24

Thành viên mới

Tham gia 9/9/22 Bài viết 22 Được thích 2

Hoàng Tuấn 868 đã viết: Cứ thử thì sẽ biết thôi. Nhấp chuột vào đây để mở rộng...

Nhưng em không biết khai báo sao cho OK ạ vì đã thử khai báo rồi nhưng không được. Em mới tìm hiểu về VBA, mong mọi người chỉ giáo thêm. Em cảm ơn! Upvote 0 H

Hoàng Tuấn 868

Đăng ký hôm qua

Tham gia 9/11/19 Bài viết 6,315 Được thích 6,002

Luong24 đã viết: Nhưng em không biết khai báo sao cho OK ạ vì đã thử khai báo rồi nhưng không được. Nhấp chuột vào đây để mở rộng...

Trong đoạn code trên làm gì có biến nào tên là "OK" đâu mà cần khai báo cho nó hả bạn. Upvote 0 L

Luong24

Thành viên mới

Tham gia 9/9/22 Bài viết 22 Được thích 2

Hoàng Tuấn 868 đã viết: Trong đoạn code trên làm gì có biến nào tên là "OK" đâu mà cần khai báo cho nó hả bạn. Nhấp chuột vào đây để mở rộng...

Nghĩa là như này DK = .[C5].Value Giờ e muốn thay C5 bằng 1 vùng dữ liệu chứ không phải 1 ô ( từ ô C5 đến ô C200 ) thì viết như nào ạ? Upvote 0 H

Hoàng Tuấn 868

Đăng ký hôm qua

Tham gia 9/11/19 Bài viết 6,315 Được thích 6,002

Luong24 đã viết: Giờ e muốn Nhấp chuột vào đây để mở rộng...

Đầu tiên hãy sửa từ viết tắt rồi bàn tiếp nhỉ. Lần chỉnh sửa cuối: 14/10/22 Upvote 0 SA_DQ

SA_DQ

/(hông là gì!

Thành viên danh dự Tham gia 8/6/06 Bài viết 14,776 Được thích 23,228 Nghề nghiệp U80

Luong24 đã viết: Nghĩa là như này DK = .[C5].Value Giờ e muốn thay C5 bằng 1 vùng dữ liệu chứ không phải 1 ô ( từ ô C5 đến ô C200 ) thì viết như nào ạ? Nhấp chuột vào đây để mở rộng...

File của chủ bài đăng có 1 ô điều kiện & 1 vùng cần xem xét để tô màu; Cái chính là vùng xem xét tô màu đang là [C8:K17] Như bạn nêu là ô điều kiện biến thành vùng điều kiện & đã ghi rõ là [C5:C200] Vậy là vùng điều kiện đã chồng lấn lên vùng cần khảo sát để tô màu Chuyện này dễ diễn ra chiến tranh nếu 2 vùng đó là lãnh thổ của 2 nước láng giềng thù địch nhau! Trước tiên là bạn phải tách phần chồng lấn của 2 vùng này ra rạch ròi cái đã! Upvote 0 H

Hoàng Tuấn 868

Đăng ký hôm qua

Tham gia 9/11/19 Bài viết 6,315 Được thích 6,002

SA_DQ đã viết: File của chủ bài đăng có 1 ô điều kiện & 1 vùng cần xem xét để tô màu; Cái chính là vùng xem xét tô màu đang là [C8:K17] Như bạn nêu là ô điều kiện biến thành vùng điều kiện & đã ghi rõ là [C5:C200] Vậy là vùng điều kiện đã chồng lấn lên vùng cần khảo sát để tô màu Chuyện này dễ diễn ra chiến tranh nếu 2 vùng đó là lãnh thổ của 2 nước láng giềng thù địch nhau! Trước tiên là bạn phải tách phần chồng lấn của 2 vùng này ra rạch ròi cái đã! Nhấp chuột vào đây để mở rộng...

Vậy phải đợi Nga và Ukraine đàm phán đã anh ơi. Upvote 0 L

Luong24

Thành viên mới

Tham gia 9/9/22 Bài viết 22 Được thích 2

Hoàng Tuấn 868 đã viết: Đầu tiên hãy sửa từ viết tắt rồi bàn tiếp nhỉ. Nhấp chuột vào đây để mở rộng...

sao bác này hay bắt bẻ thế nhỉ bây giờ code người ta khai báo điều kiện là DK, code sao mình copy y vây mà giúp thì giúp, không giúp thì thôi, hiểu ý mà cứ đi bắt bẻ nọ kia, bực mình Bài đã được tự động gộp: 14/10/22

Hoàng Tuấn 868 đã viết: Vậy phải đợi Nga và Ukraine đàm phán đã anh ơi. Nhấp chuột vào đây để mở rộng...

vâng, đúng là nếu để từ C5 đến C200 thì bị lẫn lộn giữa 2 vùng điều kiện và vùng cần tô màu, nhưng ý của mình đang là muốn vùng điều kiện cũng là nhiều giá trị khác nhau chứ k phải là 1 giá trị mặc định tại ô C5 như đề bài ban đầu đổi C5 sang C200 sang M5 đến M10 là k vị phạm rồi chứ ạ? Nhiều khi đọc câu hỏi chỉ cần hiểu ý của người hỏi là được rồi, sao các bác cứ phải đi bắt bẻ người hỏi hoài vậy, người ta không biết mới lên diễn đàn hỏi mà gặp được 10 người biết nhưng cứ bắt bẻ như này chắc hộc máu mất Upvote 0 SA_DQ

SA_DQ

/(hông là gì!

Thành viên danh dự Tham gia 8/6/06 Bài viết 14,776 Được thích 23,228 Nghề nghiệp U80

Luong24 đã viết: . . . . . .Nhiều khi đọc câu hỏi chỉ cần hiểu ý của người hỏi là được rồi, sao các bác cứ phải đi bắt bẻ người hỏi hoài vậy, người ta không biết mới lên diễn đàn hỏi mà gặp được 10 người biết nhưng cứ bắt bẻ như này chắc hộc máu mất Nhấp chuột vào đây để mở rộng...

Ở chiều ngược lại, cũng có khi ngầm hiểu là được rồi như bạn nói, sẽ phải ăn chưỡi te tua đó!

File đính kèm

Ngẫu.rar Ngẫu.rar 20.4 KB · Đọc: 19

Upvote 0 H

Hoàng Tuấn 868

Đăng ký hôm qua

Tham gia 9/11/19 Bài viết 6,315 Được thích 6,002

Luong24 đã viết: đọc câu hỏi chỉ cần hiểu ý của người hỏi là được rồi, người ta không biết mới lên diễn đàn hỏi Nhấp chuột vào đây để mở rộng...

Người đọc không hiểu mới phải hỏi lại, chứ có phải người đọc nào cũng được tinh thông lanh lợi như người phải đi hỏi đâu cơ chứ. Upvote 0 T

ThuyDuong2024

Thành viên chính thức

Tham gia 14/12/11 Bài viết 50 Được thích 5 Vậy rồi đến nay cái vụ Nga đàm phán với Ukraina xong chưa các bác? Code cho điều kiện là vùng tạm chiếm M2:M5 thay vì một ô C5 như đề bài ban đầu thì khai báo như thế nào ạ. Upvote 0 Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

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

P Tìm giá trị tồn kho đầu ngày (1 người xem)

ptthuongtn
Hôm qua, lúc 15:15
Hàm và công thức Excel

Trả lời 1 Đọc 51 Hôm qua, lúc 22:19 thanthanhan

K Các nút Buttom, Combobox, Textbox bị thay đổi kích thước ...

kaoehtkid
Thứ hai lúc 19:04
Những vấn đề chung

Trả lời 6 Đọc 136 Hôm qua, lúc 18:40 ptm0412

M Sai lệch vùng dữ liệu khi tạo Name Range bằng VBA (1 người xem)

Mr_Siro
Hôm qua, lúc 10:57
Giải thích, gỡ rối, xử lý lỗi công thức

Trả lời 4 Đọc 81 Hôm qua, lúc 17:38 SA_DQ

Tính định mức sản phẩm (1 người xem)

Nguyenkhang2404
24/7/25
Hàm và công thức Excel

Trả lời 10 Đọc 826 Hôm qua, lúc 15:54 thaodang88 T

Xin giúp đỡ về việc áp dụng hàm phù hợp để phân tách dữ liệu (1 người xem)

skygatevn
Hôm qua, lúc 11:59
Hướng dẫn sử dụng các hàm trong Excel

Trả lời 3 Đọc 61 Hôm qua, lúc 13:52 skygatevn

Bán sách Excel nâng cao để ủng hộ đồng bào bão lũ năm 2025!

PhanTuHuong
10/12/25
Câu lạc bộ hoạt động xã hội

Trả lời 5 Đọc 281 Hôm qua, lúc 12:43 GPE-Trợ Lý

D Xin giúp.......Kết hợp countifs và Sumproduct để đếm dữ liệu và tính số lượng tổng không trùng lặp với nhiều điều kiện

dieppk.nb92
Chủ nhật lúc 01:22
Hàm và công thức Excel

Trả lời 14 Đọc 372 Hôm qua, lúc 10:20 dieppk.nb92 D

Nếu diễn đàn GPE đóng cửa?

PhanTuHuong
Chủ nhật lúc 23:46
Thư giãn

Trả lời 17 Đọc 510 Hôm qua, lúc 09:21 anhtuanle123 A

CHUNG TAY HƯỚNG VỀ MIỀN TRUNG NĂM 2025

GPE-Trợ Lý
24/11/25
Câu lạc bộ hoạt động xã hội

Trả lời 12 Đọc 843 Hôm qua, lúc 07:38 PhanTuHuong

Đã giải quyết

WeatherXL - Ứng dụng lấy dữ liệu Thời tiết siêu nhanh (***Đang phát triển lại)

HeSanbi
30/5/20
Lập Trình với Excel

Trả lời 92 Đọc 27K Thứ ba lúc 19:57 Maika8008

P Lỗi hàm VBA phải add-in sau mỗi lần mở file

phamdinh.huy.aladin@gmail
Thứ hai lúc 10:18
Hàm và công thức Excel

Trả lời 5 Đọc 152 Thứ ba lúc 13:59 phamdinh.huy.aladin@gmail P D

Question Question

Tách dòng tự động theo điều kiện bằng VBA

duongnhuxuyen
Thứ sáu lúc 15:39
Lập Trình với Excel

Trả lời 14 Đọc 299 Thứ ba lúc 09:00 ptm0412

Question Question

Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba

ongke0711
6/10/24
Lập Trình với Excel

4 5 6 Trả lời 580 Đọc 83K Thứ ba lúc 08:39 pycckuu410

Đã giải quyết

VBA code thay thế cho pivot-table lấy top 10, bottom 10

eagle12
8/12/25
Lập Trình với Excel

Trả lời 24 Đọc 535 Thứ hai lúc 16:19 eagle12 E

Thuật ngữ "Đối chiếu Unicode" quan trọng trong việc xử lý chuỗi ký tự

HeSanbi
Thứ bảy lúc 15:41
Xử lý chuỗi ký tự

Trả lời 1 Đọc 164 Thứ hai lúc 10:34 jonythanht J H tìm kiếm nội dung liên kết giữa cac bảng , cac sheet trong excel

H_P
Thứ bảy lúc 14:23
Tìm kiếm, dò tìm và tham chiếu

Trả lời 2 Đọc 128 Thứ hai lúc 05:30 DeTong D N Công thức trích xuất riêng các ký tự trong chuỗi họ tên (1 người xem)

Ngựa con 2002
Thứ bảy lúc 23:07
Xử lý chuỗi ký tự

Trả lời 7 Đọc 163 Chủ nhật lúc 18:57 Ngựa con 2002 N Q Nhờ các chị cho em xin công thức đếm bản ghi loại bỏ dữ liệu trùng lặp với nhiều điều kiện

QUANSUNG
Thứ bảy lúc 10:55
Hàm và công thức Excel

Trả lời 2 Đọc 148 Chủ nhật lúc 00:02 dungpham01 D

Cùng xây dựng file Gia Phả

huuthang_bd
30/12/13
Xây dựng ứng dụng.

Trả lời 36 Đọc 21K Thứ bảy lúc 16:15 le_vis L D Công thức tính thuế thu nhập cá nhân mới nhất theo mức 5 bậc

Dinh Hong Nhung
11/12/25
Hàm và công thức Excel

Trả lời 14 Đọc 816 Thứ bảy lúc 10:43 Cúc Hr C Xem thêm… Chia sẻ: Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

Thành viên có số lượng bài viết cao nhất tháng

Maika8008 33
thanthanhan 22
dungpham01 19
eagle12 16
ongke0711 16
nguyenanhtruong2409 14
ptm0412 14
Phan Thế Hiệp 13
HUONGHCKT 12
vic_it 11
nhhnam 10
pycckuu410 10
Vũ Hải Sơn 9
HeSanbi 8
dieppk.nb92 8
bsbnhh 7
Gà Con yêu VBA 7
Hana2610 6
duongnhuxuyen 6
Mr.hieudoanxd 5

Thành viên có điểm tương tác cao nhất tháng

Phan Thế Hiệp 63
Maika8008 26
thanthanhan 18
ongke0711 17
ptm0412 15
HeSanbi 12
dungpham01 11
HUONGHCKT 9
Cúc Hr 8
eagle12 8
dieppk.nb92 6
befaint 5
Mr.hieudoanxd 5
pycckuu410 5
Phuocam 4
nguyenanhtruong2409 4
SA_DQ 4
nhhnam 2
Gà Con yêu VBA 2
huuthang_bd 2

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

000 Ngày 00 Giờ 00 phút 00 giây Thân mời tham dự sự kiện sinh nhật GPE 2025

Trang chủ
Diễn đàn
Lập Trình với Excel

Website này sử dụng cookies. Tiếp tục sử dụng trang này, đồng nghĩa với việc bạn chấp nhận website sử dụng cookies. Chấp nhận Tìm hiểu thêm.…

Back Top Bottom

Từ khóa » Tô Màu ô Trong Excel Bằng Vba