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: 460

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
	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	Thứ tư lúc 14:52
	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
D	Mẫu bàn thờ thiên bằng đá lắp đặt ngoài trời tại Nam Bộ	Đá mỹ nghệ, chế tác, vật phẩm phong thủy	0	4/11/24
P	Chia sẻ 18 mẫu bàn thờ thiên bằng đá vàng năm 2024	Các loại vật liệu khác	0	28/8/24

Chủ đề tương tự

• Quảng cáo15 mẫu mồ mả bằng đá tự nhiên có mái che tại Long An
  • Started by phamthuan
  • Thứ tư lúc 14:52
  • 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
• D Mẫu bàn thờ thiên bằng đá lắp đặt ngoài trời tại Nam Bộ
  • Started by datunhien
  • 4/11/24
  • Trả lời: 0
  Đá mỹ nghệ, chế tác, vật phẩm phong thủy
• P Chia sẻ 18 mẫu bàn thờ thiên bằng đá vàng năm 2024
  • Started by phamthunb
  • 28/8/24
  • Trả lời: 0
  Các loại vật liệu khác

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

• Khối lượng điều chỉnh giảm phản ánh trên mẫu số 03.a/TT hay mẫu số 03.c/TT?
  • Latest: nguyentheanh
  • Thứ sáu lúc 04:49
  PM Thanh Quyết toán GXD
• 12 lý do vì sao bạn nên tham gia khóa học thanh Quyết toán GXD
  • Latest: OanhGXD
  • Thứ năm lúc 16:33
  Thanh quyết toán
• 9 lý do nên chọn khóa học Kỹ sư QS tại GXD
  • Latest: OanhGXD
  • Thứ năm lúc 16:22
  Kỹ sư QS Quantity Surveyor
• 15 điều cần chú ý để tham dự khóa học Thanh Quyết toán GXD đạt hiệu quả cao
  • Latest: OanhGXD
  • Thứ tư lúc 17:27
  Thanh quyết toán
• Nên học lập dự toán công trình như thế nào thì hiệu quả?
  • Latest: OanhGXD
  • Thứ tư lúc 17:00
  Lập dự toán
• Chưa đầy 10 phút đã xong bộ biên bản nghiệm thu chất lượng công việc xây dựng
  • Latest: OanhGXD
  • Thứ tư lúc 16:49
  PM Quản lý Chất lượng (QLCL GXD)
• So sánh sử dụng phần mềm QLCL GXD với cách sử dụng Mailing Word trộn văn bản để lập nhật ký thi công thì hơn kém nhau ở điều gì?
  • Latest: OanhGXD
  • Thứ tư lúc 16:39
  PM Quản lý Chất lượng (QLCL GXD)
• Các phần mềm hữu ích nhất mà các công ty xây dựng không thể thiếu
  • Latest: OanhGXD
  • Thứ tư lúc 16:29
  Phần mềm Dự toán GXD
• Q HDSDGraphite tấm bôi trơn, Bột graphite, graphite tấm chặn đầu lò, điện cực graphite
  • Latest: quanglan77
  • Thứ tư lúc 15:22
  Mấy và thiết bị chuyên dụng
• 10 Phần mềm tối thiểu Kỹ sư QS cần học trước khi nộp CV xin việc!
  • Latest: OanhGXD
  • Thứ ba lúc 17:07
  Kỹ sư QS Quantity Surveyor

• 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