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

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

Tab Swyddfa Galluogi Golygu a Pori Tabbed yn y Swyddfa, a Gwneud Eich Gwaith yn Haws Orau ...
Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%
  • Ailddefnyddio Unrhyw beth: Ychwanegwch y fformwlâu, siartiau ac unrhyw beth arall a ddefnyddir fwyaf cymhleth i'ch ffefrynnau, a'u hailddefnyddio'n gyflym yn y dyfodol.
  • Mwy nag 20 o nodweddion testun: Rhif Detholiad o Llinyn Testun; Tynnu neu Dynnu Rhan o Testunau; Trosi Rhifau ac Arian Cyfred yn Eiriau Saesneg.
  • Uno Offer: Llyfrau Gwaith a Thaflenni Lluosog yn Un; Uno Celloedd Lluosog / Rhesi / Colofnau Heb Golli Data; Uno Rhesi a Swm Dyblyg.
  • Hollti Offer: Rhannwch Ddata yn Daflenni Lluosog Yn Seiliedig ar Werth; Un Llyfr Gwaith i Ffeiliau Lluosog Excel, PDF neu CSV; Un Golofn i Golofnau Lluosog.
  • Gludo Sgipio Rhesi Cudd / Hidlo; Cyfrif A Swm yn ôl Lliw Cefndir; Anfon E-byst wedi'u Personoli at Dderbynwyr Lluosog mewn Swmp.
  • Hidlo Gwych: Creu cynlluniau hidlo datblygedig a'u cymhwyso i unrhyw daflenni; Trefnu yn yn ôl wythnos, dydd, amlder a mwy; Hidlo gan feiddgar, fformwlâu, sylw ...
  • Mwy na 300 o nodweddion pwerus; Yn gweithio gyda'r Swyddfa 2007-2019 a 365; Yn cefnogi pob iaith; Defnydd hawdd yn eich menter neu sefydliad.


swigen dde glas saethArgraffwch 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.


swigen dde glas saethErthyglau cysylltiedig:


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!
gwaelod officetab
sylwadau (8)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
nid yw hyn yn gweithio. Mae'n creu'r tab ond nid yw'n llenwi'r wybodaeth fformatio amodol
Lleihawyd y sylw hwn gan y safonwr ar y wefan
I mi, fe greodd dab a llenwi gwybodaeth ond nid oedd yn cynnwys llawer o'r fformatio amodol. Pan wnes i ei redeg, roedd gen i 112 o reolau fformatio amodol wedi'u sefydlu ond dim ond 8 cofnod oedd wedi'u harddangos yn y tab.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yr un peth i mi - dim ond 7 allan o 14 o reolau fformatio amodol a ddangosodd. A oes unrhyw ateb i hynny?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn yn gweithio'n wych, ond a oes ffordd i gael dolen sy'n cynnwys pob tab?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
L'algo est mauvais, il n'y a pas de boucle pour couvrir les cas ou un range aurait plusieurs format conditionnels.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yn anffodus nid yw'n gweithio (excel 2013).
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yn gweithio'n iawn!
Dim ond dau nodyn am y sylwadau blaenorol:
* Rhaid ychwanegu Microsoft Scripting Library, neu ni ellir dehongli 'Dim xDic As New Dictionary'
* Os oes gennych fwy nag 1 o reolau wedi'u diffinio ar yr un Ystod, yna dim ond y rhai cyntaf fydd yn cael eu rhestru (mae cragen cod yn cael ei hymestyn gyda chylch o 1 i xCell.FormatConditions.Count)

Diolch yn fawr!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
O ran y sylw gan @Eagle, addasais y cod i feicio hyd at 'xCell.FormatConditions.Count' ac fe wnes i adfer mwy o amodau fformat, ond nid pob un ohonynt.
Mae'n ymddangos bod y newid hwn yn ychwanegu'r fformatau ar wahanol ystodau ar gyfer yr un gell, ond nid yr un ystodau gyda gwahanol fformatau ar gyfer yr un gell.
Nid wyf mor gyfarwydd â'r cod a fyddai'n echdynnu'r fformatau ychwanegol hyn eto.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir