The Excel følgende VBA-kode vil hjelpe deg å vise formlene i et utvalg eller et regneark, kan du gjøre som følger:
1. Hold nede ALT + F11-tastene, og det åpner Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > Modul, og lim inn følgende kode i modulen Window
VBA-kode:. List alle formler i et regneark
Sub ListFormulas () 'Update 20141027Dim RNG Som RangeDim WorkRng Som RangeDim xSheet Som WorksheetDim xRow Som IntegerxTitleId = "KutoolsforExcel" Still WorkRng = Application.SelectionSet WorkRng = Application.InputBox ("Range", xTitleId, WorkRng.Address, Type: = 8) Sett WorkRng = WorkRng.SpecialCells (xlFormulas, 23) Hvis WorkRng Er Ingenting Deretter Avslutt SubApplication.ScreenUpdating = FalseSet xSheet = Application.ActiveWorkbook.Worksheets.AddxSheet.Range ("A1: C1") = Array ("adresse", "Formula", "verdi") xSheet.Range ("A1: C1"). Font.Bold = TruexRow = 2 For Hver RNG I 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 + 1NextxSheet.Columns. ("A: C") AutoFitApplication.ScreenUpdating = TrueEnd Sub3. Deretter trykker F5 for å kjøre denne koden, og en rask boks vil komme ut for å minne deg på å velge et område eller hele regnearket du ønsker å liste sine formelceller, se skjermbilde:
4. Og klikk deretter på OK, har formler i utvalget blitt oppført på en gang i et nytt regneark i fronten av ditt aktive regnearket som inneholder informasjon om celleadressen, formel og verdi som følgende skjermbilde vises: