Conas gach foirmle in Excel a liostáil?
De ghnáth, in Excel, is féidir linn foirmlí a thaispeáint go tapa sna cealla, ach, ní sholáthraíonn Excel gné chun gach foirmle a liostáil i mbileog oibre. Is féidir le liostáil gach foirmle de bhileog oibre cabhrú linn rian a choinneáil ar luachanna na gcealla lena fíor-fhoirmlí. Anseo, is féidir liom labhairt faoi chód VBA a chruthú chun an fhadhb seo a réiteach.
Liostaigh gach foirmle de bhileog oibre le cód VBA
Liostaigh gach foirmle de bhileog oibre le cód VBA
Cuideoidh an cód VBA seo a leanas leat foirmlí roghnaithe nó bileog oibre a liostáil, déan mar a leanas le do thoil:
1. Coinnigh síos an ALT + F11 eochracha, agus osclaíonn sé an Fuinneog Microsoft Visual Basic for Applications.
2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Fuinneog an Mhodúil.
Cód VBA: Liostaigh gach foirmle de bhileog oibre
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. Ansin brúigh F5 eochair chun an cód seo a rith, agus tiocfaidh bosca pras amach le cur i gcuimhne duit raon nó an bhileog oibre iomlán a theastaíonn uait a chealla foirmle a liostáil, féach an scáileán:
4. Agus ansin cliceáil OK, liostaíodh na foirmlí i do rogha ag an am céanna i mbileog oibre nua os comhair do bhileog oibre ghníomhaigh ina bhfuil faisnéis faoi sheoladh cille, foirmle agus luach mar a leanas an pictiúr a thaispeántar:
Earraí gaolmhara:
Conas an fhoirmle a thiontú go sreangán téacs in Excel?
Conas teaghráin téacs a thiontú go foirmlí in Excel?
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!