Note: The other languages of the website are Google-translated. Back to English

วิธีพิมพ์กฎการจัดรูปแบบตามเงื่อนไขทั้งหมดในแผ่นงาน

ง่ายต่อการดูกฎการจัดรูปแบบตามเงื่อนไขทั้งหมดในแผ่นงานโดยคลิก หน้าแรก > การจัดรูปแบบตามเงื่อนไข > จัดการกฎ ใน Excel แต่คุณรู้วิธีพิมพ์กฎการจัดรูปแบบเงื่อนไขทั้งหมดในแผ่นงานนี้หรือไม่? บทความนี้จะแนะนำ VBA เพื่อแก้ปัญหานี้

พิมพ์กฎการจัดรูปแบบตามเงื่อนไขทั้งหมดในแผ่นงาน

แท็บ Office เปิดใช้งานการแก้ไขและเรียกดูแบบแท็บใน Office และทำให้งานของคุณง่ายขึ้นมาก ...
Kutools สำหรับ Excel แก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%
  • ใช้ซ้ำอะไรก็ได้: เพิ่มสูตรที่ใช้มากที่สุดหรือซับซ้อนแผนภูมิและสิ่งอื่นใดในรายการโปรดของคุณและนำกลับมาใช้ใหม่ได้อย่างรวดเร็วในอนาคต
  • คุณสมบัติข้อความมากกว่า 20 รายการ: แยกหมายเลขจากสตริงข้อความ แยกหรือลบบางส่วนของข้อความ แปลงตัวเลขและสกุลเงินเป็นคำภาษาอังกฤษ
  • ผสานเครื่องมือ: สมุดงานและแผ่นงานหลายเล่มเป็นหนึ่งเดียว ผสานหลายเซลล์ / แถว / คอลัมน์โดยไม่สูญเสียข้อมูล รวมแถวและผลรวมที่ซ้ำกัน
  • แยกเครื่องมือ: แยกข้อมูลออกเป็นหลายแผ่นตามมูลค่า; สมุดงานหนึ่งเล่มเป็นไฟล์ Excel, PDF หรือ CSV หลายไฟล์ หนึ่งคอลัมน์ถึงหลายคอลัมน์
  • วางการข้าม แถวที่ซ่อน / กรอง; นับและผลรวม โดย Background Color; ส่งอีเมลส่วนบุคคลไปยังผู้รับหลายคนในกลุ่ม
  • ซุปเปอร์กรอง: สร้างโครงร่างตัวกรองขั้นสูงและใช้กับแผ่นงานใด ๆ ประเภท ตามสัปดาห์วันความถี่และอื่น ๆ กรอง by ตัวหนาสูตรคอมเม้น ...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ; ทำงานร่วมกับ Office 2007-2021 และ 365; รองรับทุกภาษา ง่ายต่อการปรับใช้ในองค์กรหรือองค์กรของคุณ

ลูกศรสีฟ้าฟองขวาพิมพ์กฎการจัดรูปแบบตามเงื่อนไขทั้งหมดในแผ่นงาน

โปรดทำตามขั้นตอนด้านล่างเพื่อพิมพ์กฎการจัดรูปแบบตามเงื่อนไขทั้งหมดในแผ่นงานโดย 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 นี้

ตอนนี้แผ่นงานใหม่ชื่อ“FmCondtionalList” ถูกสร้างและเพิ่มก่อนแผ่นงานที่ใช้งานอยู่ และคุณจะได้รับรายการกฎการจัดรูปแบบตามเงื่อนไขทั้งหมดในแผ่นงานนี้

6. คลิก เนื้อไม่มีมัน > พิมพ์ > พิมพ์ เพื่อพิมพ์รายการกฎการจัดรูปแบบตามเงื่อนไข


ลูกศรสีฟ้าฟองขวาบทความที่เกี่ยวข้อง:


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel แก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office/Excel 2007-2021 และ 365 รองรับทุกภาษา ง่ายต่อการปรับใช้ในองค์กรหรือองค์กรของคุณ คุณสมบัติเต็มรูปแบบ ทดลองใช้ฟรี 30 วัน รับประกันคืนเงินภายใน 60 วัน
kte แท็บ 201905

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (8)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
นี้ไม่ทำงาน มันสร้างแท็บแต่ไม่เติมข้อมูลการจัดรูปแบบตามเงื่อนไข
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สำหรับฉันมันสร้างแท็บและเติมข้อมูล แต่ไม่รวมการจัดรูปแบบตามเงื่อนไขจำนวนมากไม่รวมอยู่ ในขณะที่ฉันใช้งาน ฉันได้ตั้งค่ากฎการจัดรูปแบบตามเงื่อนไข 112 กฎ แต่มีเพียง 8 ระเบียนที่แสดงในแท็บ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เหมือนกันสำหรับฉัน - มันแสดงกฎการจัดรูปแบบตามเงื่อนไข 7 จาก 14 ข้อเท่านั้น มีวิธีแก้ไขสำหรับสิ่งนั้นหรือไม่?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ใช้งานได้ดี แต่มีวิธีรับลูปที่มีแท็บทั้งหมดหรือไม่
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
L'algo est mauvais, il n'y a pas de boucle pour couvrir les cas ou un range aurait plusieurs รูปแบบเงื่อนไข
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขออภัย ใช้งานไม่ได้ (excel 2013)
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ทำงานได้ดี!
เพียงสองหมายเหตุเกี่ยวกับความคิดเห็นก่อนหน้านี้:
* ต้องเพิ่ม Microsoft Scripting Library ไม่เช่นนั้น 'Dim xDic As New Dictionary' จะไม่สามารถตีความได้
* หากคุณมีกฎมากกว่า 1 กฎที่กำหนดไว้ในช่วงเดียวกัน จะแสดงเฉพาะกฎแรกเท่านั้น (โค้ดเชลล์ขยายด้วยวงจรจาก 1 ถึง xCell.FormatConditions.Count)

ขอบคุณมาก!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เกี่ยวกับความคิดเห็นโดย @Eagle ฉันได้แก้ไขโค้ดเพื่อวนเป็น 'xCell.FormatConditions.Count' และฉันได้ดึงเงื่อนไขรูปแบบเพิ่มเติม แต่ไม่ใช่ทั้งหมด
ดูเหมือนว่าการเปลี่ยนแปลงนี้จะเพิ่มรูปแบบในช่วงต่างๆ สำหรับเซลล์เดียวกัน แต่ไม่ใช่ช่วงเดียวกันกับรูปแบบที่แตกต่างกันสำหรับเซลล์เดียวกัน
ฉันยังไม่คุ้นเคยกับโค้ดที่จะแยกรูปแบบพิเศษเหล่านี้
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ

ช่องทางอื่นๆ

ลิขสิทธิ์© 2009 - wwwextendoffice.com | สงวนลิขสิทธิ์. ขับเคลื่อนโดย ExtendOffice. | แผนผังเว็บไซต์
Microsoft และโลโก้ Office เป็นเครื่องหมายการค้าหรือเครื่องหมายการค้าจดทะเบียนของ Microsoft Corporation ในสหรัฐอเมริกาและ / หรือประเทศอื่น ๆ
ได้รับการปกป้องโดย Sectigo SSL