 |
Free Excel Macros
Free collection of Excel macros for Excel Macro Processor
Welcome to our free collection of Microsoft Excel macros.
You may use this macros with Microsoft Excel 97/2000/XP/2003/2007.
With Excel Macro Processor you may apply this macros to a lot of Excel
documents with progress indication.
Sub NormalPosition()
'
' Select top cell for all sheets
' Visual improvement for your documents
'
k = Worksheets.Count
For i = 1 To k
If Worksheets(k - i + 1).Visible Then
Worksheets(k - i + 1).Select
Cells(ActiveWindow.SplitRow + 1, ActiveWindow.SplitColumn + 1).Select
End If
Next i
End Sub
Sub FormulasToValues()
'
' Replace all formulas with values
'
WCount = Worksheets.Count
For i = 1 To WCount
If Worksheets(WCount - i + 1).Visible Then
Worksheets(WCount - i + 1).Select
RCount = ActiveCell.SpecialCells(xlLastCell).Row
CCount = ActiveCell.SpecialCells(xlLastCell).Column
For j = 1 To RCount
For k = 1 To CCount
Worksheets(WCount - i + 1).Cells(j, k) = Worksheets(WCount - i + 1).Cells(j, k).Value
Next k
Next j
End If
Next i
End Sub
Sub DeleteHiddenSheets()
'
' Remove hidden sheets from your document
'
i = 1
While i <= Worksheets.Count
If Not Worksheets(i).Visible Then
Worksheets(i).Delete
Else
i = i + 1
End If
Wend
End Sub
Sub DeleteHiddenRows()
'
' Remove hidden rows from all sheets
'
For i = 1 To Worksheets.Count
If Worksheets(i).Visible Then
Worksheets(i).Select
ActiveCell.SpecialCells(xlLastCell).Select
k = ActiveCell.Row
For j = 1 To k
If Rows(j).Hidden Then
Rows(j).Hidden = False
Rows(j).Delete
End If
Next j
End If
Next i
If Worksheets(1).Visible Then Worksheets(1).Select
End Sub
| |
|
 
|
