วิธีพิมพ์กฎการจัดรูปแบบตามเงื่อนไขทั้งหมดในแผ่นงาน
ง่ายต่อการดูกฎการจัดรูปแบบตามเงื่อนไขทั้งหมดในแผ่นงานโดยคลิก หน้าแรก > การจัดรูปแบบตามเงื่อนไข > จัดการกฎ ใน Excel แต่คุณรู้วิธีพิมพ์กฎการจัดรูปแบบเงื่อนไขทั้งหมดในแผ่นงานนี้หรือไม่? บทความนี้จะแนะนำ VBA เพื่อแก้ปัญหานี้
พิมพ์กฎการจัดรูปแบบตามเงื่อนไขทั้งหมดในแผ่นงาน
พิมพ์กฎการจัดรูปแบบตามเงื่อนไขทั้งหมดในแผ่นงาน
โปรดทำตามขั้นตอนด้านล่างเพื่อพิมพ์กฎการจัดรูปแบบตามเงื่อนไขทั้งหมดในแผ่นงานโดย VBA
1. เปิดแผ่นงานที่ระบุซึ่งมีกฎการจัดรูปแบบตามเงื่อนไขที่คุณจะพิมพ์และกด อื่น ๆ + F11 คีย์ร่วมกันเพื่อเปิดหน้าต่าง Microsoft Visual Basic for Applications
2. คลิก สิ่งที่ใส่เข้าไป > โมดูลแล้ววางโค้ด VBA ด้านล่างลงในหน้าต่างโมดูลใหม่
VBA: แสดงกฎการจัดรูปแบบตามเงื่อนไขทั้งหมดในแผ่นงานที่ใช้งานอยู่
Sub M_snb()
Dim xRg As Range, xCell As Range
Dim xFormat As Object
Dim xFmStr, xFmAddress As String
Dim xDic As New Dictionary
Dim xSpArr, xOperatorArr
On Error Resume Next
Set xRg = ActiveSheet.Cells.SpecialCells(xlCellTypeAllFormatConditions)
If xRg Is Nothing Then Exit Sub
xDic.Item("Title") = "Type|Typename|Range|StopIfTrue|Operator|Formula1|Formula2|Formula3"
If xSpArr.Count = 0 Then
xSpArr = Split("Cell Value|Expression|Color Scale|DataBar|Top 10|Icon Sets||Unique Values|Text|Blanks|Time Period|Above Average||No Blanks||Errors|No Errors|||||", "|")
xOperatorArr = Split("xlBetween|xlNotBetween|xlEqual|xlNotEqual|xlGreater|xlLess|xlGreaterEqual|xlLessEqual", "|")
End If
For Each xCell In xRg
Set xFormat = xCell.FormatConditions(1)
xFmAddress = xFormat.AppliesTo.Address
If Not xDic.Exists(xFmAddress) Then
xDic.Item(xFmAddress) = xFormat.Type & "|" & xSpArr(xFormat.Type - 1) & "|" & xFmAddress & "|" & xFormat.StopIfTrue
If Not IsEmpty(xFormat.Operator) Then
xDic.Item(xFmAddress) = xDic.Item(xFmAddress) & "|" & xOperatorArr(xFormat.Operator - 1)
End If
If Not IsEmpty(xFormat.Formula1) Then
xDic.Item(xFmAddress) = xDic.Item(xFmAddress) & "|'" & xFormat.Formula1
End If
End If
Next
If ActiveWorkbook.Worksheets("FmCondictionList") Is Nothing Then
Sheets.Add.Name = "FmCondictionList"
End If
Sheets("FmCondictionList").Cells(1).Resize(xDic.Count) = Application.Transpose(xDic.items)
Sheets("FmCondictionList").Columns(1).TextToColumns , , , , 0, 0, 0, 0, -1, "|"
End Sub
3. คลิก เครื่องมือ > อ้างอิง.
4. ในกล่องโต้ตอบการอ้างอิง - VBAProject โปรดตรวจสอบไฟล์ รันไทม์การเขียนสคริปต์ของ Microsoft ตัวเลือกและคลิกที่ OK ปุ่ม. ดูภาพหน้าจอ:
5. ตอนนี้คุณกลับไปที่หน้าต่างโมดูลโปรดกด F5 หรือคลิกปุ่ม วิ่ง เพื่อเรียกใช้ VBA นี้
ตอนนี้แผ่นงานใหม่ชื่อ“รายการเงื่อนไข Fm” ถูกสร้างและเพิ่มก่อนแผ่นงานที่ใช้งานอยู่ และคุณจะได้รับรายการกฎการจัดรูปแบบตามเงื่อนไขทั้งหมดในแผ่นงานนี้
6. คลิก เนื้อไม่มีมัน > พิมพ์ > พิมพ์ เพื่อพิมพ์รายการกฎการจัดรูปแบบตามเงื่อนไข
บทความที่เกี่ยวข้อง:
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!