Wrap Text - Formula View
After hitting Control + ~ to see formulas in the cells, can/how to
wrap the formula text in the cells for more efficient view/printing purpose? |
Wrap Text - Formula View
No
You could use this John Walkenbach macro to show the formulas as text on another sheet with wrap text enabled. Great for printing. Sub ListFormulas() 'from John Walkenbach Dim FormulaCells As Range, Cell As Range Dim FormulaSheet As Worksheet Dim Row As Integer Dim ws As Worksheet ' Create a Range object for all formula cells On Error Resume Next Set FormulaCells = Range("A1").SpecialCells(xlFormulas, 23) ' Exit if no formulas are found If FormulaCells Is Nothing Then MsgBox "No Formulas." Exit Sub End If ' Add a new worksheet Application.ScreenUpdating = False Set FormulaSheet = ActiveWorkbook.Worksheets.Add FormulaSheet.Name = "Formulas in " & FormulaCells.Parent.Name ' Set up the column headings With FormulaSheet Range("A1") = "Address" Range("B1") = "Formula" Range("C1") = "Value" Range("A1:C1").Font.Bold = True End With ' Process each formula Row = 2 For Each Cell In FormulaCells Application.StatusBar = Format((Row - 1) / FormulaCells.Count, "0%") With FormulaSheet Cells(Row, 1) = Cell.Address _ (RowAbsolute:=False, ColumnAbsolute:=False) Cells(Row, 2) = " " & Cell.Formula Cells(Row, 3) = Cell.Value Row = Row + 1 End With Next Cell ' Adjust column widths With FormulaSheet.Columns("A:C") .Cells.WrapText = True End With Application.StatusBar = False End Sub Gord Dibben MS Excel MVP On Wed, 21 May 2008 15:25:35 -0700 (PDT), ccnlc1 wrote: After hitting Control + ~ to see formulas in the cells, can/how to wrap the formula text in the cells for more efficient view/printing purpose? |
All times are GMT +1. The time now is 04:02 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com