Code Lấy Mã Màu Của 1 Cell Như Thế Nào ? | Giải Pháp Excel

• 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. Code lấy mã màu của 1 cell như thế nào ? (1 người xem)

• Thread starter Thread starter emgaingayngo
• Ngày gửi Ngày gửi 15/10/13

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

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

emgaingayngo

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

Tham gia 9/2/07 Bài viết 141 Được thích 5 Để tạo 1 mảng 2 chiều chứa mã màu tôi dùng code như sau : Mã: Sao chép. Sub TaoMangMau() Dim i As Long, j As Long Dim mang() ReDim mang(1 To Selection.Rows.Count, 1 To Selection.Columns.Count) For i = 1 To Selection.Columns.Count For j = 1 To Selection.Rows.Count mang(j, i) = Cells(j + Selection.Row - 1, i + Selection.Column - 1).Interior.Color Next j, i MsgBox mang(2, 1) End Sub Mã: Sao chép. Sub TaoMangMau1() Dim tongdong As Long, tongcot As Long Dim mang() tongdong = Selection.Rows.Count: tongcot = Selection.Columns.Count ReDim mang(1 To tongdong, 1 To tongcot) mang = Selection.Interior.Color MsgBox mang(1, 1) End Sub Đoạn mã thứ 2 thì báo lỗi "type mismatch". Xin hỏi có cách nào không cần dùng for mà vẫn làm công việc kia được không hoặc là có giải pháp nào tốc đọ nhanh hơn ? Sắp xếp theo thời gian sắp xếp theo bầu chọn

ndu96081631

Huyền thoại GPE

Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,982

emgaingayngo đã viết: Để tạo 1 mảng 2 chiều chứa mã màu tôi dùng code như sau : Mã: Sao chép. Sub TaoMangMau() Dim i As Long, j As Long Dim mang() ReDim mang(1 To Selection.Rows.Count, 1 To Selection.Columns.Count) For i = 1 To Selection.Columns.Count For j = 1 To Selection.Rows.Count mang(j, i) = Cells(j + Selection.Row - 1, i + Selection.Column - 1).Interior.Color Next j, i MsgBox mang(2, 1) End Sub Mã: Sao chép. Sub TaoMangMau1() Dim tongdong As Long, tongcot As Long Dim mang() tongdong = Selection.Rows.Count: tongcot = Selection.Columns.Count ReDim mang(1 To tongdong, 1 To tongcot) mang = Selection.Interior.Color MsgBox mang(1, 1) End Sub Đoạn mã thứ 2 thì báo lỗi "type mismatch". Xin hỏi có cách nào không cần dùng for mà vẫn làm công việc kia được không hoặc là có giải pháp nào tốc đọ nhanh hơn ? Nhấp chuột vào đây để mở rộng...

Vầy cho khỏe: Mã: Sao chép. [COLOR=#ff0000]Function ColorArray(ByVal rng As Range) Dim lR As Long, lC As Long, lRs As Long, lCs As Long lRs = rng.Rows.Count: lCs = rng.Columns.Count ReDim arr(1 To lRs, 1 To lCs) For lR = 1 To lRs For lC = 1 To lCs arr(lR, lC) = rng(lR, lC).Interior.ColorIndex Next Next ColorArray = arr End Function[/COLOR] [COLOR=#0000cd]Sub TaoMangMau1() Dim arr arr = ColorArray(Selection) MsgBox arr(1, 1) End Sub[/COLOR] Chổ màu xanh là chổ ta áp dụng. Chổ màu đỏ là hàm tự tạo, khỏi cần để ý đến Upvote 0

emgaingayngo

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

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

ndu96081631 đã viết: Vầy cho khỏe: Chổ màu xanh là chổ ta áp dụng. Chổ màu đỏ là hàm tự tạo, khỏi cần để ý đến Nhấp chuột vào đây để mở rộng...

Cảm ơn anh. Cách của anh cũng giống như đoạn mã thứ 1 của em nhưng nó nhanh hơn . ý em là ở đoạn mã 2 em gán câu lệnh : Mã: Sao chép. mang = Selection.Interior.Color thì nó báo lỗi. Bình thường thì Mã: Sao chép. mang = Selection thì excel sẽ gán giá trị của cell vào mảng (cái này chắc là mặc định). Vậy có cách nào mà mình dùng câu lệnh tương tự như vậy để lấy mã màu không anh. Cảm ơn anh. Upvote 0

vu_tuan_manh_linh

[email protected]

Tham gia 27/2/10 Bài viết 2,642 Được thích 1,923 Giới tính Nam Nghề nghiệp Kỹ sư Kinh tế Xây dựng

emgaingayngo đã viết: Cảm ơn anh. Cách của anh cũng giống như đoạn mã thứ 1 của em nhưng nó nhanh hơn . ý em là ở đoạn mã 2 em gán câu lệnh : Nhấp chuột vào đây để mở rộng...

Thế này mới đúng chứ bạn: mang = Selection.Interior.Colorindex Upvote 0

Quang_Hải

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

Tham gia 21/2/09 Bài viết 6,077 Được thích 8,012 Nghề nghiệp Làm đủ thứ

vu_tuan_manh_linh đã viết: Thế này mới đúng chứ bạn: mang = Selection.Interior.Colorindex Nhấp chuột vào đây để mở rộng...

Làm sao mà gán như vậy được chứ??? Hic Upvote 0

ndu96081631

Huyền thoại GPE

Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,982

emgaingayngo đã viết: Cảm ơn anh. Cách của anh cũng giống như đoạn mã thứ 1 của em nhưng nó nhanh hơn . ý em là ở đoạn mã 2 em gán câu lệnh : Mã: Sao chép. mang = Selection.Interior.Color thì nó báo lỗi. Bình thường thì Mã: Sao chép. mang = Selection thì excel sẽ gán giá trị của cell vào mảng (cái này chắc là mặc định). Vậy có cách nào mà mình dùng câu lệnh tương tự như vậy để lấy mã màu không anh. Cảm ơn anh. Nhấp chuột vào đây để mở rộng...

Sao mà gán kiểu đó được, gán xong nó đâu có thành 1 mảng Bạn có thể thí nghiệm: Mã: Sao chép. Sub Test() Dim rng As Range Set rng = Selection Dim arr arr = rng.Interior.Color MsgBox IsArray(arr), , TypeName(arr) End Sub Tóm lại: thuộc tính .Interior.Color hoặc .Interior.ColorIndex cũng chỉ trả về kết quả là 1 giá trị, không bao giờ là 1 mảng cả Cũng giống như: Range(...).Value có thể là 1 mảng nhưng Range(...).Text thì không bao giờ là mảng Upvote 0

emgaingayngo

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

Tham gia 9/2/07 Bài viết 141 Được thích 5 Vậy là excel nó không cho mình chơi kiểu này rồi. Nó chỉ cho lấy giá trị trong cell thôi và nếu như là màu hoặc cái gì khác thì chỉ cho lấy giá trị của 1 cell thôi. Hic. 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

Copilot bình luận các ván cờ vua từng ngày.

• • 

• SA_DQ
• 3/11/25
• Chia sẻ

Trả lời 56 Đọc 2K Hôm nay lúc 03:54 SA_DQ

• Đã giải quyết

FitRowXL v1.0 - Giãn dòng tự động và bổ trợ in ấn Excel (*01/2026 mới) (1 người xem)

• • 
  • 

• HeSanbi
• 18/4/21
• Lập Trình với Excel

Trả lời 67 Đọc 30K Hôm qua, lúc 20:17 HeSanbi

• Question Question

Tạo Add-in, tệp Excel, Word, Access tự động cập nhật phiên bản mới từ Cloud cho chính nó

• HeSanbi
• Hôm qua, lúc 20:14
• Lập Trình với Excel

Trả lời 0 Đọc 24 Hôm qua, lúc 20:14 HeSanbi V Một Excel add-in vibe coding

• • 

• vietdang170
• Thứ tư lúc 12:55
• Các Add-ins cho excel

Trả lời 14 Đọc 449 Hôm qua, lúc 18:14 vietdang170 V H Xin giúp đặt điều kiện trong Conditional Formating (1 người xem)

• hoanglocphat
• Hôm qua, lúc 14:23
• Hỏi đáp những vấn đề khác

Trả lời 5 Đọc 52 Hôm qua, lúc 17:41 DeTong D

• Dán lên cao

Phiên bản mới Add-in A-Tools AI v10 (2024)

• • 

• Nguyễn Duy Tuân
• 13/9/24
• BLUESOFTS: A-Excel, A-Tools

Trả lời 61 Đọc 12K Hôm qua, lúc 15:13 Nguyễn Duy Tuân

• 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

5 6 7 Trả lời 613 Đọc 90K Hôm qua, lúc 10:00 pycckuu410 Xin giúp hàm excel để tìm 1 số trong số có 2 chữ số

• mrjun80
• Thứ bảy lúc 23:43
• Hàm và công thức Excel

Trả lời 4 Đọc 111 Chủ nhật lúc 08:38 Gà Con yêu VBA N Vấn đề về hiệu năng khi thực hiện ghép chuỗi trong VBA với tần suất lớn (1 người xem)

• • 
  • 

• nguyendang95
• 23/1/26
• Excel và các ngôn ngữ lập trình khác

Trả lời 36 Đọc 923 Thứ bảy lúc 21:11 ptm0412

• Question Question

Tra cứu thông tin mã số thuế (cập nhật lại code cũ)

• • 
  • 
  • 

• ongke0711
• 24/7/25
• Lập Trình với Excel

Trả lời 16 Đọc 2K Thứ bảy lúc 17:46 tuyethao T VNFastSearch – DLL tìm kiếm tiếng Việt tốc độ cao cho Excel VBA

• phuongnam366377
• Thứ bảy lúc 14:41
• Excel và các ngôn ngữ lập trình khác

Trả lời 0 Đọc 99 Thứ bảy lúc 14:41 phuongnam366377 N

• Question Question

Tạo khung viền ô theo số trong ô

• • 

• Nguyễn Xuân Sơn
• Thứ năm lúc 13:44
• Lập Trình với Excel

Trả lời 9 Đọc 182 Thứ bảy lúc 12:25 Mr.hieudoanxd J Đừng chỉ "Cập nhật" dữ liệu. Hãy "Xếp chồng" chúng lên.

• • 

• jack nt
• Thứ năm lúc 17:19
• Excel và các ngôn ngữ lập trình khác

Trả lời 5 Đọc 241 Thứ bảy lúc 10:27 ptm0412 T gửi email đến nhân viên công ty

• tuantv9
• 26/1/26
• Excel và các ngôn ngữ lập trình khác

Trả lời 2 Đọc 227 Thứ sáu lúc 09:28 nguyendang95 N H

• Question Question

Code trích lọc mặt hàng theo thuế suất GTGT

• hoanglocphat
• Thứ năm lúc 10:36
• Lập Trình với Excel

Trả lời 4 Đọc 197 Thứ sáu lúc 09:25 Maika8008 Hỏi cách tổng hợp dữ liệu

• Nguyenkhang2404
• 27/1/26
• Hàm và công thức Excel

Trả lời 12 Đọc 330 Thứ năm lúc 14:22 ptm0412 Add-Ins cho Excel 2007 -2016 32bit và 64bit

• • 
  • 
  • 

• giaiphap
• 8/8/15
• Các Add-ins cho excel

4 5 6 Trả lời 517 Đọc 225K Thứ năm lúc 09:51 Gà Công Nghệ

• Dán lên cao

Hướng dẫn lập trình VBA với Google Sheets và Excel Online | Add-in A-Tools v10

• • 

• Nguyễn Duy Tuân
• 28/11/24
• BLUESOFTS: A-Excel, A-Tools

Trả lời 12 Đọc 2K Thứ tư lúc 23:38 Nguyễn Duy Tuân Q Tính Tổng Có Điều Kiện Từ Nhiều Sheet

• quydangktk
• 20/1/11
• Hàm và công thức Excel

Trả lời 32 Đọc 34K Thứ tư lúc 17:46 87kilua StringCore – Thư viện COM StringBuffer hiệu năng cao (Free Binary)

• phuongnam366377
• 26/1/26
• Excel và các ngôn ngữ lập trình khác

Trả lời 2 Đọc 250 27/1/26 phuongnam366377 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

• chothadiem 4
• hoanglocphat 3
• Gà Công Nghệ 2
• pycckuu410 2
• DeTong 2
• vietdang170 2
• HeSanbi 2
• HUONGHCKT 1
• Phuocam 1
• Gà Con yêu VBA 1

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

• Phuocam 3
• Gà Con yêu VBA 3
• pycckuu410 3
• DeTong 3
• HUONGHCKT 2
• vietdang170 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