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,981

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,011 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,981

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

K Hàm tìm theo kết quả gần đúng nhất

• • 

• kiemkhach2
• Hôm qua, lúc 21:14
• Hàm và công thức Excel

Trả lời 6 Đọc 109 Hôm nay lúc 16:01 SA_DQ 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 24 Đọc 980 Hôm nay lúc 15:15 SA_DQ N Tổng hợp 2 sheet khác nhau (có 1 cột dữ liệu trùng) trong goole sheet

• Na7979
• 19/12/25
• Google Sheets

Trả lời 1 Đọc 184 Hôm nay lúc 09:51 yeudoi

• Question Question

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

• • 
  • 
  • 

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

4 5 6 Trả lời 585 Đọc 85K Hôm qua, lúc 17:12 maphuong M S TỰ ĐỘNG CẬP NHẬT DỮ LIỆU (1 người xem)

• sangdennh
• Thứ sáu lúc 09:55
• Hàm và công thức Excel

Trả lời 14 Đọc 505 Hôm qua, lúc 07:51 le_vis L V Giúp tạo bảng phân công lịch trực tự động

• • 

• vudaicacvatn
• Thứ tư lúc 17:05
• Những vấn đề chung

Trả lời 5 Đọc 237 Hôm qua, lúc 07:41 vudaicacvatn V T Mọi người giúp mình lập bảng tính sao hạn ạ (2 người xem)

• thinhthien1
• Chủ nhật lúc 22:23
• Tìm kiếm, dò tìm và tham chiếu

Trả lời 1 Đọc 125 Hôm qua, lúc 06:15 Phan Thế Hiệp hỏi về công thức tách kí tự từ chuỗi

• Momominh
• Thứ bảy lúc 11:52
• Hàm và công thức Excel

Trả lời 9 Đọc 236 Hôm qua, lúc 03:24 DeTong D File.xlsx hay bị tự động out, khi mở lại báo lỗi repaired và chỉ lưu được đến lần last saved gần nhất ạ

• zonmaomao
• Thứ sáu lúc 21:50
• Giải thích, gỡ rối, xử lý lỗi công thức

Trả lời 3 Đọc 103 Chủ nhật lúc 12:38 huhumalu H T Nhờ làm file excel quản lý kho N-X-T theo vị trí

• • 

• Tuan_Leok
• 1/11/18
• Excel Ứng Dụng

Trả lời 15 Đọc 6K Thứ bảy lúc 18:11 thanhphongtslocphat

• Question Question

Liệt kê tổ hợp chập k của nhóm n phần tử.

• • 
  • 

• NguyenNgocThuHien
• 5/12/17
• Lập Trình với Excel

Trả lời 55 Đọc 19K Thứ sáu lúc 14:14 tohop T G Em xin hỏi hàm Vlook up ạ!

• giangong
• Thứ sáu lúc 10:23
• Hàm và công thức Excel

Trả lời 1 Đọc 91 Thứ sáu lúc 10:38 dungpham01 D Chương trình lập Báo cáo khảo sát Địa chất công trình GeoSection

• • 

• PhanTuHuong
• 7/10/21
• Xây dựng ứng dụng.

Trả lời 10 Đọc 7K Thứ năm lúc 14:52 PhanTuHuong 2 Xin hỏi về Công thức tính tiết theo PPCT (phân phối chương trình) trong Lịch báo giảng tự động

• 2013myvietnam
• Thứ tư lúc 20:22
• Excel và Giáo Dục

Trả lời 9 Đọc 324 Thứ năm lúc 14:25 2013myvietnam 2 [GPE21] ỨNG DỤNG POWER QUERY TRONG ĐỐI CHIẾU DỮ LIỆU HÓA ĐƠN ĐIỆN TỬ VÀ DỮ LIỆU KẾ TOÁN (1 người xem)

• • 

• GPE-Trợ Lý
• 21/12/25
• Học tập Online

Trả lời 1 Đọc 10K Thứ năm lúc 05:26 GPE-Trợ Lý Nhờ các cao nhân chỉ giúp file excel quá nặng. không không biết nguyên nhân

• hanhlx88
• 29/12/25
• Giải thích, gỡ rối, xử lý lỗi công thức

Trả lời 5 Đọc 248 Thứ tư lúc 22:56 Mr.hieudoanxd Q Nhờ các anh chị giúp cho công thức đếm số khách hàng theo File đính kèm

• QUANSUNG
• 29/12/25
• Hướng dẫn sử dụng các hàm trong Excel

Trả lời 8 Đọc 293 Thứ tư lúc 16:31 dungpham01 D T Nhờ các Pro giúp thiết lập bảng excel

• thanhkybk
• 29/12/25
• Hàm và công thức Excel

Trả lời 10 Đọc 484 Thứ tư lúc 15:19 thanhkybk T D

• Question Question

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

• • 

• duongnhuxuyen
• 12/12/25
• Lập Trình với Excel

Trả lời 20 Đọc 787 30/12/25 ptm0412 D Công thức tính thuế TNCN cho người lao động nước ngoài

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

Trả lời 1 Đọc 225 29/12/25 Phan Thế Hiệp 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

• sangdennh 7
• Phan Thế Hiệp 6
• dungpham01 5
• DeTong 5
• 2013myvietnam 4
• Duy Tùng 9x 3
• SA_DQ 3
• HUONGHCKT 2
• thanhphongtslocphat 2
• zonmaomao 2
• huhumalu 2
• kiemkhach2 2
• huuthang_bd 1
• PhanTuHuong 1
• giangong 1
• tohop 1
• Momominh 1
• thinhthien1 1
• vudaicacvatn 1
• yeudoi 1

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

• Phan Thế Hiệp 17
• 2013myvietnam 5
• HUONGHCKT 3
• dungpham01 3
• DeTong 3
• LOGANWover 2
• thanthanhan 2
• PhanTuHuong 2
• huhumalu 2
• Duy Tùng 9x 1
• SA_DQ 1

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