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
• 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 ?

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

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

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

linhvtm84@gmail.com

Tham gia 27/2/10 Bài viết 2,637 Được thích 1,903 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,070 Được thích 7,992 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,950

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

N

• Question Question

Cần giúp rút gọn code vba

• nvthanhdienbien
• Hôm qua, lúc 15:12
• Lập Trình với Excel

Trả lời 3 Đọc 72 Hôm qua, lúc 21:24 VetMini V Lỗi khi COPY , viền xung quanh ô được chọn đứng yên, không chạy

• • 

• dungdodac
• 17/12/24
• Hỏi đáp những vấn đề khác

Trả lời 4 Đọc 172 Hôm qua, lúc 21:17 VetMini V B Xin hàm đếm số lượng khách hàng theo 1 điều kiện và bỏ dữ liệu trùng.

• bipbo2008
• 15/12/24
• Hàm và công thức Excel

Trả lời 10 Đọc 331 Hôm qua, lúc 20:22 Phan Thế Hiệp

• Question Question

Xin giúp chuyển dữ liệu từ cột dọc sang hàng ngang theo điều kiện

• • 

• Manhhung90
• Hôm qua, lúc 19:22
• Lập Trình với Excel

Trả lời 1 Đọc 33 Hôm qua, lúc 19:30 Hoàng Tuấn 868 H X Tự động giãn dòng và ẩn các dòng bị bỏ trống

• xuanthucle
• Hôm qua, lúc 17:59
• Giải thích, gỡ rối, xử lý lỗi công thức

Trả lời 0 Đọc 20 Hôm qua, lúc 17:59 xuanthucle X

• Đã giải quyết

ExplorerXL - Quản lý thư mục với Excel: tìm, đổi tên, sao chép, di chuyển và xóa

• • 
  • 
  • 

• HeSanbi
• 20/9/19
• Lập Trình với Excel

2 3 4 Trả lời 79 Đọc 16K Hôm qua, lúc 17:11 viethung78 V H Giao diện mới ở "chế độ tối" mờ quá

• • 
  • 

• HieuCD
• Hôm qua, lúc 12:27
• Những góp ý với diễn đàn

Trả lời 4 Đọc 86 Hôm qua, lúc 16:48 OverAC J quản lý dữ liệu theo cách quản lý bãi container

• • 

• jack nt
• 5/4/13
• Xây dựng ứng dụng.

Trả lời 2 Đọc 7K Hôm qua, lúc 15:29 vunhai V

• 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

13 14 15 Trả lời 298 Đọc 20K Hôm qua, lúc 14:26 ongke0711 M Sắp xếp dữ liệu: Lọc tên theo ABC (alphabet) có lỗi tên Đam đứng trước Diệp

• mrhh
• 6/1/22
• Lọc và sắp xếp dữ liệu

Trả lời 13 Đọc 5K Hôm qua, lúc 12:31 maidinhdung5 S Tính trung bình của tháng đầu tiên.

• SteveNguyen1991
• Chủ nhật lúc 21:36
• Hàm và công thức Excel

Trả lời 1 Đọc 135 Hôm qua, lúc 09:27 Phan Thế Hiệp Hàm BS_FORMATTEXT Tạo công thức định dạng văn bản trong Excel với Add-in A-Tools v10

• Nguyễn Duy Tuân
• Hôm qua, lúc 09:05
• BLUESOFTS: A-Excel, A-Tools

Trả lời 0 Đọc 33 Hôm qua, lúc 09:05 Nguyễn Duy Tuân Hàm BS_TEXT trộn văn bản trong Excel với Add-in A-Tools v10

• Nguyễn Duy Tuân
• Hôm qua, lúc 08:36
• BLUESOFTS: A-Excel, A-Tools

Trả lời 0 Đọc 31 Hôm qua, lúc 08:36 Nguyễn Duy Tuân Nhật ký thi công bằng excel

• • 

• aduc
• 27/10/13
• Excel và Kỹ Thuật

2 Trả lời 36 Đọc 53K Hôm qua, lúc 08:35 PhanTuHuong T

• Question Question

Xin code VBA trả về tên tài khoản theo điều kiện

• • 

• Thanh Binh111
• Thứ sáu lúc 16:40
• Lập Trình với Excel

Trả lời 8 Đọc 152 Chủ nhật lúc 21:02 ptm0412 xin cách lọc này với ạ.

• likosin
• Thứ sáu lúc 09:53
• Lọc và sắp xếp dữ liệu

Trả lời 4 Đọc 132 Chủ nhật lúc 20:58 ptm0412 [Thông báo] Diễn đàn tạm ngừng hoạt động để bảo trì từ 21g thứ Sáu ngày 20/12

• • 
  • 

• OverAC
• Thứ năm lúc 22:13
• Thông tin về diễn đàn

Trả lời 1 Đọc 932 Chủ nhật lúc 14:18 OverAC A Nhờ xử lý tính toán Số nằm trong chuỗi kí tự

• acrox84
• 15/12/24
• Xử lý chuỗi ký tự

2 Trả lời 20 Đọc 560 Thứ sáu lúc 20:35 SteveNguyen1991 S V

• Question Question

FILE EXCEL LOI : WE FOUND A PROBLEM ... RECOVER

• vuasutu08
• Thứ sáu lúc 16:03
• Lập Trình với Excel

Trả lời 0 Đọc 73 Thứ sáu lúc 16:03 vuasutu08 V D

• Question Question

Gửi Email chào giá hàng loạt cho đối tác có nhúng 1 bảng báo giá vào mail

• ductoan.0703
• Thứ tư lúc 14:49
• Lập Trình với Excel

Trả lời 3 Đọc 188 Thứ sáu lúc 15:12 BuiQuangThuan B Xem thêm… Chia sẻ: Facebook X (Twitter) 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

• Hoàng Tuấn 868 30
• HeSanbi 27
• LINHCM 25
• ptm0412 24
• hoangtuaotrang_hp_vn 21
• HieuCD 19
• SA_DQ 18
• ongke0711 18
• qtm1987 17
• huuthang_bd 16
• DeTong 15
• hvnhpro 13
• hoangminhtien 13
• BuiQuangThuan 13
• HUONGHCKT 12
• SteveNguyen1991 11
• Duy Tùng 9x 10
• GPE-Trợ Lý 9
• Nguyễn Duy Tuân 9
• befaint 8

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

• HieuCD 74
• huuthang_bd 34
• Hoàng Tuấn 868 32
• hoangtuaotrang_hp_vn 28
• hoangminhtien 24
• SA_DQ 24
• HeSanbi 23
• HUONGHCKT 22
• befaint 22
• DeTong 22
• GPE-Trợ Lý 21
• ptm0412 21
• ongke0711 15
• longtay1111 13
• Hai Lúa Miền Tây 13
• NT Ngoc Yen 12
• Phuocam 12
• Nguyễn Duy Tuân 11
• OverAC 10
• Phan Thế Hiệp 10

Đếm ngược thời gian

000 Ngày 00 Giờ 00 phút 00 giây Chúc mừng năm mới

• Trang chủ
• Diễn đàn
• Lập Trình với Excel
• 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