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

Menu

• Diễn đàn Bài viết mới
• Có gì mới? 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ý

• Diễn đàn
• HỆ SINH THÁI PHẦN MỀM GXD
• Các phần mềm ứng dụng 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 freeway2207
• Ngày gửi 1/5/11

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 thành tích 8 Tuổi 38 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 11,2 KB · Đọc: 443

Last edited by a moderator: 8/5/11 Đào Anh Đạt Email: freeway2207@gmail.com Bạn phải Đăng nhập để thảo luận. Share: Facebook Twitter Pinterest WhatsApp Email Share Link

Bởi	Chủ đề tương tự	Forum	Replies	Date
	Quảng cáo Miếu thờ mẫu thượng ngàn tại nhà ở Hà Nội bằng đá	Kinh doanh, Bán hàng, Marketing online	0	Thứ sáu lúc 15:10
	Bảng Giá Cửa Nhựa Composite Mẫu Cửa Mới – Tại Buôn Mê Thuộc Đắk Lắk	Nội thất, bàn ghế, tủ tài liệu, giá các loại	0	22/5/24
	Quảng cáo 11 Mẫu mồ mả bằng đá tại Long An đẹp năm 2024	Kinh doanh, Bán hàng, Marketing online	0	13/5/24
P	39+ Mẫu vách ngăn phòng ngủ bằng gỗ công nghiệp MDF	Nội thất, bàn ghế, tủ tài liệu, giá các loại	0	8/5/24
	Mẫu am thờ ngoài trời bằng đá đẹp thiết kế chuẩn phong thuỷ năm 2024	Vật liệu xây gạch đá, ốp lát, trang trí	0	2/5/24

Chủ đề tương tự

• Quảng cáoMiếu thờ mẫu thượng ngàn tại nhà ở Hà Nội bằng đá
  • Started by phamthuan
  • Thứ sáu lúc 15:10
  • Trả lời: 0
  Kinh doanh, Bán hàng, Marketing online
• Bảng Giá Cửa Nhựa Composite Mẫu Cửa Mới – Tại Buôn Mê Thuộc Đắk Lắk
  • Started by Hienkingdoor
  • 22/5/24
  • Trả lời: 0
  Nội thất, bàn ghế, tủ tài liệu, giá các loại
• Quảng cáo11 Mẫu mồ mả bằng đá tại Long An đẹp năm 2024
  • Started by phamthuan
  • 13/5/24
  • Trả lời: 0
  Kinh doanh, Bán hàng, Marketing online
• P 39+ Mẫu vách ngăn phòng ngủ bằng gỗ công nghiệp MDF
  • Started by phamthiyennhien1356@gmail
  • 8/5/24
  • Trả lời: 0
  Nội thất, bàn ghế, tủ tài liệu, giá các loại
• Mẫu am thờ ngoài trời bằng đá đẹp thiết kế chuẩn phong thuỷ năm 2024
  • Started by Thieuhaan
  • 2/5/24
  • Trả lời: 0
  Vật liệu xây gạch đá, ốp lát, trang trí

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

• X Top Mẫu Xe Đạp Điện Đời Mới Đang Hot Nhất
  • Latest: xedienxanhsaigon
  • Hôm qua, lúc 22:57
  Ô tô xe máy tham gia giao thông
• H địa chỉ học chứng chỉ môi giới đại lý hàng hải_0969868630
  • Latest: huatham94
  • Thứ ba lúc 16:29
  Các Khóa học và Chứng chỉ hành nghề
• Các Kỹ sư GXD nghiên cứu lập trình chức năng Quản lý tiến độ trong phần mềm QLDA GXD
  • Latest: nguyentheanh
  • 20/6/24
  Phần mềm Quản lý dự án (QLDA GXD)
• X Xe đạp điện chính hãng bán chạy
  • Latest: xedienxanhsaigon
  • 13/6/24
  Ô tô xe máy tham gia giao thông
• D Nội quy diễn đàn các thành viên phải đọc và tuyệt đối tuân thủ
  • Latest: diennuoctphn
  • 12/6/24
  Hướng dẫn tham gia diễn đàn
• T Tủ đựng đồ nghề vật tư chuyên dụng
  • Latest: thietbinprogiatot
  • 12/6/24
  Ô tô xe máy tham gia giao thông
• B Bài 1. Giới thiệu về Dự toán xây dựng
  • Latest: binhnguyen050719
  • 6/6/24
  Khóa học Đo bóc khối lượng Lập dự toán

• Diễn đàn
• HỆ SINH THÁI PHẦN MỀM GXD
• Các phần mềm ứng dụng 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

Top