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,079 Được thích 8,019 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

A File Excel kiểm phiếu bầu cử Quốc hội và HĐND các cấp (2 người xem)

• • 

• adua29
• 9/4/21
• Excel Ứng Dụng

Trả lời 18 Đọc 5K Hôm nay lúc 17:33 ongke0711 E

• Question Question

VBA code tô màu ô excel theo điều kiện so sánh

• eagle12
• Hôm nay lúc 09:42
• Lập Trình với Excel

Trả lời 1 Đọc 33 Hôm nay lúc 17:26 HUONGHCKT H

• Question Question

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

• • 
  • 
  • 

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

5 6 7 Trả lời 631 Đọc 94K Hôm nay lúc 15:30 linhbaonguyen42 L B Phần mềm quản lý bán hàng trên excel offline

• buihoanganhminh
• Hôm nay lúc 14:09
• Hàm và công thức Excel

Trả lời 0 Đọc 34 Hôm nay lúc 14:09 buihoanganhminh B [New] BSAC v3.0 bộ công cụ lập trình phần mềm chuyên nghiệp trong VBA

• • 

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

Trả lời 14 Đọc 4K Hôm nay lúc 10:14 Nguyễn Duy Tuân T Sử dụng Google Sheets để tạo webapp nhận báo giá online (1 người xem)

• • 

• thuctien
• 15/2/26
• Google Sheets

Trả lời 1 Đọc 222 Hôm nay lúc 10:13 hotboykute H

• Dán lên cao

Phiên bản mới Add-in A-Tools AI v10 (2024) (1 người xem)

• • 

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

Trả lời 66 Đọc 13K Hôm nay lúc 09:40 Nguyễn Duy Tuân V Một Excel add-in vibe coding (1 người xem)

• • 

• vietdang170
• 28/1/26
• Các Add-ins cho excel

Trả lời 21 Đọc 938 Hôm nay lúc 08:12 Gà Công Nghệ H Chào cả nha! Xin tư vấn về câu chuyện quản lý nhân sự (2 người xem)

• • 

• hotboykute
• Chủ nhật lúc 14:42
• Những vấn đề chung

Trả lời 11 Đọc 196 Hôm qua, lúc 17:42 HUONGHCKT H A

• Question Question

Nhờ sửa câu lệnh AutoFilter

• AnhThu-1976
• Hôm qua, lúc 12:13
• Lập Trình với Excel

Trả lời 1 Đọc 49 Hôm qua, lúc 12:22 LOGANWover L A

• Question Question

Code nối các ghi chú với nhau theo điều kiện (2 người xem)

• AnhThu-1976
• Chủ nhật lúc 11:35
• Lập Trình với Excel

Trả lời 2 Đọc 99 Chủ nhật lúc 18:10 HUONGHCKT H 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 79 Đọc 3K Chủ nhật lúc 14:23 SA_DQ Hướng dẫn tạo Macro chuyển số thành chữ trong Open Office 3.1 (Tiếng Việt Unicode)

• cadafi
• 5/6/09
• Những phần mềm bảng tính

Trả lời 15 Đọc 26K Thứ bảy lúc 20:46 hng1635 H N Tạo COM Add-In bằng Visual C++

• • 

• nguyendang95
• 6/7/25
• Excel và các ngôn ngữ lập trình khác

Trả lời 19 Đọc 2K Thứ sáu lúc 20:45 nguyendang95 N Công thức này có gì thú vị:

• SA_DQ
• Thứ sáu lúc 04:54
• Làm việc với ngày tháng và thời gian

Trả lời 1 Đọc 122 Thứ sáu lúc 11:46 ptm0412 H Hướng dẫn tạo Nút bấm sắp xếp họ tên tiếng Việt trong LibreOffice Calc

• • 

• hng1635
• Thứ năm lúc 23:57
• Những phần mềm bảng tính

Trả lời 0 Đọc 81 Thứ năm lúc 23:57 hng1635 H VNFastSearch – DLL tìm kiếm tiếng Việt tốc độ cao cho Excel VBA

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

Trả lời 5 Đọc 493 Thứ năm lúc 10:37 phuongnam366377 M Bảo mật code VBA autocad!

• Michael Bit
• 9/2/26
• Hỏi đáp những vấn đề khác

Trả lời 18 Đọc 640 Thứ tư lúc 13:11 Michael Bit M A

• Question Question

Đã cách dòng, nhưng có Mã trùng lặp thì báo trùng

• AnhThu-1976
• 9/1/26
• Lập Trình với Excel

Trả lời 14 Đọc 716 14/2/26 ptm0412 Các bạn hãy giúp mình tính tổng số ngày mà Bác Hồ sống trên nhân gian trên trang tính Excel (2 người xem)

• • 

• SA_DQ
• 13/2/26
• Làm việc với ngày tháng và thời gian

Trả lời 3 Đọc 253 13/2/26 SA_DQ 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

• HeSanbi 15
• chothadiem 11
• Michael Bit 9
• SA_DQ 9
• YêuCN 7
• Gà Công Nghệ 6
• HieuCD 5
• ptm0412 5
• HUONGHCKT 5
• ongke0711 5
• DeTong 4
• Officexinh 4
• hng1635 4
• vietdang170 4
• le_vis 3
• chiendich 3
• hoanglocphat 3
• phuongnam366377 3
• AnhThu-1976 3
• LOGANWover 3

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

• HeSanbi 19
• SA_DQ 17
• GPE-Trợ Lý 13
• HUONGHCKT 9
• Quang_Hải 7
• HieuCD 6
• DeTong 5
• le_vis 5
• LOGANWover 5
• vietdang170 5
• ongke0711 5
• Gà Con yêu VBA 4
• Phuocam 3
• pycckuu410 3
• chiendich 3
• Hai Lúa Miền Tây 3
• Michael Bit 3
• hungvinh1402 2
• YêuCN 2
• Officexinh 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