Ինչպե՞ս ցուցակագրել բոլոր բանաձևերը Excel- ում:

Սովորաբար, Excel- ում մենք կարող ենք արագորեն բանաձեւեր ցուցադրել բջիջներում, բայց, Excel- ը չի տալիս հատկություն բոլոր բանաձևերը աշխատանքային թերթում ցուցակելու համար: Աշխատաթերթի բոլոր բանաձևերը թվարկելը կարող է օգնել մեզ հետք պահել բջիջների արժեքներից ՝ իր իրական բանաձևերով: Այստեղ ես կարող եմ խոսել այս խնդիրը լուծելու համար VBA կոդ ստեղծելու մասին:

Նշեք VBA կոդով աշխատաթերթի բոլոր բանաձեւերը

Նշեք VBA կոդով աշխատաթերթի բոլոր բանաձեւերը

Հետևյալ VBA կոդը կօգնի ձեզ թվարկել ընտրության կամ աշխատանքային թերթի բանաձևերը, խնդրում ենք կատարել հետևյալը.

1, Պահեք պահեք ALT + F11 ստեղները, և այն բացում է Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլի պատուհան.

VBA կոդ. Թվարկեք աշխատանքային թերթի բոլոր բանաձևերը

Sub ListFormulas()
'Update 20141027
Dim Rng As Range
Dim WorkRng As Range
Dim xSheet As Worksheet
Dim xRow As Integer
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlFormulas, 23)
If WorkRng Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xSheet = Application.ActiveWorkbook.Worksheets.Add
xSheet.Range("A1:C1") = Array("Address", "Formula", "Value")
xSheet.Range("A1:C1").Font.Bold = True
xRow = 2
For Each Rng In WorkRng
    xSheet.Cells(xRow, 1) = Rng.Address(RowAbsolute:=False, ColumnAbsolute:=False)
    xSheet.Cells(xRow, 2) = " " & Rng.Formula
    xSheet.Cells(xRow, 3) = Rng.Value
    xRow = xRow + 1
Next
xSheet.Columns("A:C").AutoFit
Application.ScreenUpdating = True
End Sub

3, Դրանից հետո սեղմեք F5 այս կոդն աշխատեցնելու բանալին, և կհայտնվի հուշման տուփ, որը կհիշեցնի ձեզ ընտրել մի տիրույթ կամ ամբողջ աշխատանքային թերթ, որը ցանկանում եք թվարկել դրա բանաձևի բջիջները, տե՛ս նկարը.

4. Եվ այնուհետեւ կտտացրեք OK, ձեր ընտրության բանաձևերը միանգամից թվարկվել են ձեր նոր աշխատաթերթի առջևում գտնվող նոր աշխատանքային թերթում, որը պարունակում է բջջային հասցեի, բանաձևի և արժեքի վերաբերյալ տեղեկություններ, ինչպես ցույց է տրված հետևյալ նկարը.

Առնչվող հոդվածներ քանակը:

Ինչպե՞ս փոխել բանաձևը տեքստի տողի Excel- ում:

Ինչպե՞ս վերափոխել տեքստի տողերը Excel- ում ՝ բանաձևերի: