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

Ինչպե՞ս տպել բոլոր պայմանական ձևավորման կանոնները աշխատանքային թերթում:

Հեշտ է կտտացնելով դիտել բոլոր պայմանական ձևավորման կանոնները աշխատանքային թերթում Գլխավոր > Պայմանական ֆորմատավորում > Կառավարել կանոնները Excel- ում, բայց գիտե՞ք ինչպես տպել պայմանների ձևավորման բոլոր կանոնները այս աշխատանքային էջում: Այս հոդվածը կներկայացնի VBA ՝ այս խնդիրը լուծելու համար:

Տպեք աշխատանքային ֆորմատավորման բոլոր պայմանական կանոնները

Office Tab- ը միացրեք Tabbed խմբագրումը և զննարկումը Office- ում, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք ...
Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով
  • Վերաօգտագործել ցանկացած բան. Ավելացրեք առավել օգտագործված կամ բարդ բանաձևերը, գծապատկերները և ցանկացած այլ բան ձեր նախընտրածներին և հետագայում արագորեն օգտագործեք դրանք:
  • Ավելի քան 20 տեքստի առանձնահատկություններ. Հանեք համարը տեքստային տողից; Հանել կամ հեռացնել տեքստերի մի մասը; Թվերն ու արժույթները վերածեք անգլերեն բառերի:
  • Միաձուլել գործիքներըԲազմաթիվ աշխատանքային գրքեր և թերթեր մեկում; Միավորել բազմաթիվ բջիջներ / տողեր / սյուններ ՝ առանց տվյալների կորստի: Միաձուլեք կրկնօրինակ տողերն ու գումարը:
  • Պառակտման գործիքներՏվյալները պառակտել բազմակի թերթերի ՝ հիմնված արժեքի վրա. Մեկ աշխատանքային գրքույկ ՝ բազմակի Excel, PDF կամ CSV ֆայլեր; Մեկ սյունակ մի քանի սյունակներից:
  • Կպցնել բաց թողնելը Թաքնված / Filտված շարքեր; Հաշվելը և գումարը ըստ Ֆոնի գույնի; Personalանգվածային տարբերակով ստացողներին ուղարկեք անհատականացված էլ.
  • Սուպեր ֆիլտր Ստեղծեք զտման առաջադեմ սխեմաներ և կիրառեք ցանկացած թերթի վրա; Տեսակ ըստ շաբաթվա, օրվա, հաճախականության և ավելին; ֆիլտր համարձակ, բանաձևերով, մեկնաբանությամբ ...
  • Ավելի քան 300 հզոր հատկություններ; Աշխատում է Office 2007-2021 և 365-ի հետ; Աջակցում է բոլոր լեզուներին; Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում:

նետ կապույտ աջ պղպջակՏպեք աշխատանքային ֆորմատավորման բոլոր պայմանական կանոնները

Խնդրում ենք հետևել ստորև ներկայացված քայլերին ՝ VBA- ի կողմից աշխատաթերթում տպելու բոլոր պայմանական ձևաչափման կանոնները տպելու համար:

1, Բացեք նշված աշխատանքային թերթը, որի պայմանական ձևաչափման կանոնները դուք կ տպեք, և սեղմեք ալտ + F11 ստեղները միասին ՝ Microsoft Visual Basic հավելվածների համար պատուհանը բացելու համար:

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 Scripting Runtime տարբերակը եւ սեղմեք OK կոճակ Տեսեք,

5, Այժմ վերադառնում եք մոդուլի պատուհան, սեղմեք F5 ստեղնը կամ սեղմել Վազում այս VBA- ն գործարկելու կոճակը:

Այժմ նոր աշխատանքային թերթ է կոչվում «FmCondtionalList”Ստեղծվում և ավելացվում է մինչև ակտիվ աշխատանքային թերթը: Եվ այս աշխատանքային թերթում դուք կստանաք ձևավորման բոլոր պայմանական կանոնները:

6: Սեղմեք Ֆայլ > տպել > տպել տպել պայմանական ձևավորման կանոնների ցուցակը:


նետ կապույտ աջ պղպջակԱռնչվող հոդվածներ քանակը:


Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (8)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
սա չի աշխատում: Այն ստեղծում է ներդիրը, բայց չի լրացնում պայմանական ձևաչափման տեղեկատվությունը
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինձ համար այն ստեղծեց ներդիր և լրացրեց տեղեկատվությունը, սակայն շատ բան բացառեց, որ պայմանական ձևաչափումը ներառված չէր: Այն ժամանակ, երբ ես գործարկեցի այն, ես ունեի 112 պայմանական ձևաչափման կանոններ, բայց ներդիրում ցուցադրված էին ընդամենը 8 գրառում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Նույնը ինձ համար. այն ցուցադրում էր պայմանական ձևաչափման կանոններից միայն 7-ը: Դրա համար ինչ-որ լուծում կա՞:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա հիանալի է աշխատում, բայց կա՞ որևէ օղակ ստանալու միջոց, որը ներառում է բոլոր ներդիրները:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
L'algo est mauvais, il n'y a pas de boucle pour couvrir les cas ou un range aurait plusieurs format conditionnels.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ցավոք, չի աշխատում (excel 2013):
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Լավ է աշխատում:
Ընդամենը երկու նշում նախորդ մեկնաբանությունների վերաբերյալ.
* Microsoft Scripting Library-ը պետք է ավելացվի, այլապես «Dim xDic As New Dictionary»-ը չի կարող մեկնաբանվել
* Եթե դուք ունեք 1-ից ավելի կանոններ, որոնք սահմանված են նույն տիրույթում, ապա կցուցադրվի միայն առաջինը (կոդը կընդլայնվի 1-ից xCell.FormatConditions.Count ցիկլով)

Thanks a lot!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչ վերաբերում է @Eagle-ի մեկնաբանությանը, ես փոփոխեցի կոդը՝ «xCell.FormatConditions.Count» ցիկլով անցնելու համար, և ես առբերեցի ավելի շատ ձևաչափի պայմաններ, բայց ոչ բոլորը:
Ըստ երևույթին, այս փոփոխությունն ավելացնում է ձևաչափերը տարբեր տիրույթներում նույն բջիջի համար, բայց ոչ նույն տիրույթները՝ նույն բջիջի տարբեր ձևաչափերով:
Ես դեռ այնքան էլ ծանոթ չեմ այն ​​ծածկագրին, որը կարտահանի այս լրացուցիչ ձևաչափերը:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից