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
• 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 freeway2207
• Ngày gửi 1/5/11
• Tags Không có Sửa

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 39 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: 467

Last edited by a moderator: 8/5/11 Đào Anh Đạt Email: freeway2207@gmail.com Tên Gửi trả lời Share: Facebook Twitter Pinterest WhatsApp Email Share Link

Bởi	Chủ đề tương tự	Forum	Replies	Date
D	Xây mẫu lăng mộ đơn giản - Mẫu lăng mộ hiện đại bằng đá tự nhiên	Cát, sỏi, đá, xi măng, đất đắp, rọ đá...	0	3/12/24
	Mẫu Sư Tử Phong Thủy Bằng Đá Bán Tại Bình Dương	Đá mỹ nghệ, chế tác, vật phẩm phong thủy	0	1/12/24
	Quảng cáo 15 mẫu mồ mả bằng đá tự nhiên có mái che tại Long An	Kinh doanh, Bán hàng, Marketing online	0	20/11/24
	BST 25 Mau Nha 1 Tret 1 lau Mai Bang DEP Bat Kip Xu Huong	Thiết kế, báo giá và thi công nhà trọn gói	0	14/11/24
	CHỌN LỌC 55+ Mẫu Nhà 1 Tầng Mái Bằng 100m2 “Đẹp Như Mơ”	Thiết kế, báo giá và thi công nhà trọn gói	0	8/11/24

Chủ đề tương tự

• D Xây mẫu lăng mộ đơn giản - Mẫu lăng mộ hiện đại bằng đá tự nhiên
  • Started by dabaochau
  • 3/12/24
  • Trả lời: 0
  Cát, sỏi, đá, xi măng, đất đắp, rọ đá...
• Mẫu Sư Tử Phong Thủy Bằng Đá Bán Tại Bình Dương
  • Started by Đá Mỹ Nghệ Tâm Phúc
  • 1/12/24
  • Trả lời: 0
  Đá mỹ nghệ, chế tác, vật phẩm phong thủy
• Quảng cáo15 mẫu mồ mả bằng đá tự nhiên có mái che tại Long An
  • Started by phamthuan
  • 20/11/24
  • Trả lời: 0
  Kinh doanh, Bán hàng, Marketing online
• BST 25 Mau Nha 1 Tret 1 lau Mai Bang DEP Bat Kip Xu Huong
  • Started by xaydungnhattin
  • 14/11/24
  • Trả lời: 0
  Thiết kế, báo giá và thi công nhà trọn gói
• CHỌN LỌC 55+ Mẫu Nhà 1 Tầng Mái Bằng 100m2 “Đẹp Như Mơ”
  • Started by xaynhatrongoinhattin
  • 8/11/24
  • Trả lời: 0
  Thiết kế, báo giá và thi công nhà trọn gói

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

• H Tại lớp Kỹ sư Quantity Surveyor (QS) GXD bạn sẽ học gì?
  • Latest: hungbvcht
  • Thứ ba lúc 09:57
  Kỹ sư QS Quantity Surveyor
• T Xe đẩy 3 ngăn kết hợp bảng treo khay
  • Latest: tktknpro
  • Thứ bảy lúc 09:12
  Ô tô xe máy tham gia giao thông
• TikTok Nguyễn Thế Anh – Kênh học xây dựng khiến bạn tiến bộ mỗi ngày!
  • Latest: nguyentheanh
  • 19/12/24
  Cty Giá Xây Dựng Tư vấn đầu tư xây dựng
• Q HDSDCung cấp các loại điện trở nhiệt đun hóa chất, đun dầu, điện trở máy ép nhựa
  • Latest: quanglan77
  • 18/12/24
  Máy và thiết bị chuyên dụng
• M Học dự toán công trình ở đâu tốt nhất?
  • Latest: manh8888
  • 16/12/24
  Lập dự toán
• Em mới được giao công việc về đấu thầu, xin anh/chị lời khuyên nếu muốn học cơ bản thì nên bắt đầu từ đâu? Đọc Luật Đấu thầu, Nghị định, hay Thông tư?
  • Latest: nguyentheanh
  • 14/12/24
  Đấu thầu, lập hồ sơ thầu
• Chia sẻ Video Hướng dẫn cách xử lý file dự toán chạy trên bản cũ trong phần mềm Dự toán GXD
  • Latest: kimhien_gxd
  • 11/12/24
  Phần mềm Dự toán GXD
• Q HDSDCung cấp cầu chì trung thế , cầu chì cao thế , cầu chì tự rơi,
  • Latest: quanglan77
  • 5/12/24
  Máy và thiết bị chuyên dụng
• T kệ đồ nghề, xe đẩy 3 ngăn
  • Latest: tktknpro
  • 4/12/24
  Ô tô xe máy tham gia giao thông
• Làm hồ sơ chất lượng công trình thi công lắp đặt hệ thống chiếu sáng
  • Latest: nguyentheanh
  • 3/12/24
  PM Quản lý Chất lượng (QLCL GXD)

• 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

Top