Sut i argraffu'r holl reolau fformatio amodol mewn taflen waith?
Mae'n hawdd gweld yr holl reolau fformatio amodol mewn taflen waith trwy glicio Hafan > Fformatio Amodol > Rheoli Rheolau yn Excel, ond a ydych chi'n gwybod sut i argraffu'r holl reolau fformatio cyflwr yn y daflen waith hon? Bydd yr erthygl hon yn cyflwyno VBA i ddatrys y broblem hon.
Argraffwch yr holl reolau fformatio amodol mewn taflen waith
Argraffwch yr holl reolau fformatio amodol mewn taflen waith
Dilynwch y camau isod i argraffu'r holl reolau fformatio amodol mewn taflen waith gan VBA.
1. Agorwch y daflen waith benodol y byddwch chi'n argraffu ei rheolau fformatio amodol, a'i phwyso Alt + F11 allweddi gyda'i gilydd i agor ffenestr Microsoft Visual Basic for Applications.
2. Cliciwch Mewnosod > Modiwlau, ac yna pastiwch islaw cod VBA i mewn i ffenestr y modiwl newydd.
VBA: Rhestrwch yr holl reolau fformatio amodol yn y daflen waith weithredol
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. Cliciwch offer > Cyfeiriadau.
4. Yn y blwch deialog Cyfeiriadau - VBAProject, gwiriwch y Amser Rhedeg Sgriptio Microsoft opsiwn, a chliciwch ar y OK botwm. Gweler y screenshot:
5. Nawr eich bod yn dychwelyd i ffenestr y modiwl, pwyswch F5 allwedd neu cliciwch y Run botwm i redeg y VBA hwn.
Nawr taflen waith newydd o'r enw “Rhestr FmCondtionalList”Yn cael ei greu a'i ychwanegu cyn y daflen waith weithredol. A byddwch yn cael yr holl reolau fformatio amodol yn rhestru yn y daflen waith hon.
6. Cliciwch Ffeil > print > print i argraffu'r rhestr o reolau fformatio amodol.
Erthyglau cysylltiedig:
Sut i argraffu meysydd, dewis, a llyfr gwaith cyfan yn Excel yn gyflym?
Sut i argraffu pob rhes / cell ar dudalen ar wahân yn Excel?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!