Ինչպե՞ս տպել բոլոր պայմանական ձևավորման կանոնները աշխատանքային թերթում:
Հեշտ է կտտացնելով դիտել բոլոր պայմանական ձևավորման կանոնները աշխատանքային թերթում Գլխավոր > Պայմանական ֆորմատավորում > Կառավարել կանոնները Excel- ում, բայց գիտե՞ք ինչպես տպել պայմանների ձևավորման բոլոր կանոնները այս աշխատանքային էջում: Այս հոդվածը կներկայացնի VBA ՝ այս խնդիրը լուծելու համար:
Տպեք աշխատանքային ֆորմատավորման բոլոր պայմանական կանոնները
Տպեք աշխատանքային ֆորմատավորման բոլոր պայմանական կանոնները
Խնդրում ենք հետևել ստորև ներկայացված քայլերին ՝ 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- ում տարածքները, ընտրությունը և ամբողջ աշխատանքային գիրքը:
Ինչպե՞ս տպել յուրաքանչյուր տող / բջիջ Excel- ի առանձին էջում:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: