Bảng Mã Màu Trong Excel - Giá Xây Dựng

• Diễn đàn Bài viết mới
• Có gì mới? Featured content Bài viết mới Hoạt động mới nhất
• Phần mềm Quản lý chất lượng GXD Dự toán GXD Dự thầu GXD Quyết toán GXD
• Đăng ký học
• Quản lý dự án Học dự toán Tra cứu định mức online Hồ sơ chất lượng Tư liệu Quản lý dự án Lập dự án đầu tư Thanh quyết toán Đấu thầu và lựa chọn nhà thầu

Đăng nhập Đăng ký Có gì mới?

• Bài viết mới

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.

Ghi chú: This feature may not be available in some browsers.

• Diễn đàn
• CÔNG TY GXD: TƯ VẤN - PHẦN MỀM - ĐÀO TẠO
• Phần mềm (PM) và giải pháp GXD
• Tin học văn phòng
• Word, Excel, PowerPoint
• Microsoft Excel VBA
• Lập trình VBA

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. Bảng mã màu trong Excel

• Khởi xướng Khởi xướng freeway2207
• Ngày gửi Ngày gửi 1/5/11
• Tags Tags Không có

F

freeway2207

Thành viên sắp được phong Thành viên Năng động

Tham gia 18/2/11 Bài viết 37 Điểm tích cực 21 Điểm thành tích 8 Tuổi 40 Trong Excel khi cần thay đổi màu sắc của một đối tượng ví dụ chư màu font chữ, màu nền background, màu tên sheets (tabs color) một cách rất đơn giản bằng cách lựa chọn màu hiển thị trong bảng màu. Tuy nhiên khi lập trình thì điều này phức tạp hơn một chút vì các bản phải sử dụng mã màu trên bảng màu gồm có 56 màu của Excel. ​ Để ứng dụng, sử dụng thể hiện các màu trên lên Excel bằng VBA bạn có thể sử dụng chương trình sau (có được thể kiện ở file đính kèm): Mã: Sub colors56() '57 colors, 0 to 56 Dim i As Long Dim str0 As String, str As String Cells(1, 1) = "Interior" Cells(1, 2) = "Font" Cells(1, 3) = "HTML" Cells(1, 4) = "RED" Cells(1, 5) = "GREEN" Cells(1, 6) = "BLUE" Cells(1, 7) = "COLOR" For i = 0 To 56 Cells(i + 2, 1).Interior.ColorIndex = i Cells(i + 2, 2).Font.ColorIndex = i Cells(i + 2, 2).Value = "[Color " & i & "]" str0 = Right("000000" & Hex(Cells(i + 2, 1).Interior.Color), 6) 'Excel shows nibbles in reverse order so make it as RGB str = Right(str0, 2) & Mid(str0, 3, 2) & Left(str0, 2) 'generating 2 columns in the HTML table Cells(i + 2, 3) = "#" & str Cells(i + 2, 4).Formula = "=Hex2dec(""" & Right(str0, 2) & """)" Cells(i + 2, 5).Formula = "=Hex2dec(""" & Mid(str0, 3, 2) & """)" Cells(i + 2, 6).Formula = "=Hex2dec(""" & Left(str0, 2) & """)" Cells(i + 2, 7) = "[Color " & i & "]" Next i End Sub Để chương trình trên chạy tốt các bạn cần khai báo sử dụng 2 Add-in có sẵn là Analysis ToolPak và Analysis ToolPak - VBA bằng cách: Trong Excel 2003 : Tools -> Add-in -> Chọn Analysis ToolPak và Analysis ToolPak rồi nhấn OK (sau khi có khai báo đó mới sử dụng được hàm Hex2dec chuyển đổi số từ hệ số 16 về hệ số thập phân 10). ​

File đính kèm

• Bang-ma-mau-Excel.zip Bang-ma-mau-Excel.zip 11,2 KB · Đọc: 537

Last edited by a moderator: 8/5/11 Đào Anh Đạt Email: [email protected] Tên Gửi trả lời Share: Facebook X Bluesky LinkedIn Pinterest WhatsApp Email Share Link

Các bài viết mới

• Xe khách Hyundai dẫn sóng thị trường năm 2026
  • Latest: hyundaiviethan
  • Hôm nay lúc 08:20
  Ô tô xe máy tham gia giao thông
• Ống mềm inox 304 chịu nhiệt, Khớp nối mềm cao su nối ren, khớp nối mềm cao su mặt bích, khớp nối mềm inox mặt bích, khớp nối mềm inox DN65
  • Latest: Vattukythuatqt
  • Thứ ba lúc 23:58
  Máy và thiết bị chuyên dụng
• X Top mẫu xe máy 50cc nhỏ gọn, dễ chạy, ít hao xăng
  • Latest: xedienxanhsaigon
  • Thứ ba lúc 15:44
  Ô tô xe máy tham gia giao thông
• Đ Nguồn cung cấp sỉ sản lề lá xe tải uy tín cho xưởng đóng thùng & garage xe tải
  • Latest: ĐinhthịngocAnh
  • Thứ hai lúc 21:57
  Ô tô xe máy tham gia giao thông
• Xu Hướng Xe Tải Việt Nam Giai Đoạn 2025–2026: Hyundai, Teraco Và Foton Được Dự Báo Dẫn Đầu Thị Trường
  • Latest: hyundaiviethan
  • Thứ hai lúc 10:24
  Ô tô xe máy tham gia giao thông
• Đ Có nên sử dụng móc buộc bạt xe tải, móc bạt ô tô cho thùng xe tải?
  • Latest: ĐinhthịngocAnh
  • Thứ bảy lúc 23:12
  Ô tô xe máy tham gia giao thông
• L Kiểm định nhà xưởng định kỳ – Việc nên làm sớm thay vì xử lý sự cố muộn
  • Latest: lylinh15
  • Thứ bảy lúc 22:59
  Hoạt động diễn đàn
• T Tủ đồ nghề 3 ngăn, xe đẩy dụng cụ 3 khay
  • Latest: thietbinprogiatot
  • Thứ bảy lúc 13:56
  Ô tô xe máy tham gia giao thông
• O BÁN XE TẢI FOTON 990KG WONDER: THÙNG LỬNG - MUI BẠT - MUI KÍN | NỘI THẤT NHƯ XE CON | ĐỘNG CƠ 1.6L DONG'AN
  • Latest: otosaigonvn
  • Thứ bảy lúc 09:14
  Ô tô xe máy tham gia giao thông
• O Mổ xẻ "tân binh" Foton Aumark S90 9 tấn: Máy Cummins, thùng dài 7m4, có thực sự là "món hời" cho dân chạy đường dài?
  • Latest: otosaigonvn
  • Thứ sáu lúc 14:20
  Ô tô xe máy tham gia giao thông

• Diễn đàn
• CÔNG TY GXD: TƯ VẤN - PHẦN MỀM - ĐÀO TẠO
• Phần mềm (PM) và giải pháp GXD
• Tin học văn phòng
• Word, Excel, PowerPoint
• Microsoft Excel VBA
• Lập trình VBA

• Chào Khách. Để tải bộ cài phần mềm GXD mời bạn kích vào đây

Back Top