VBA/Excel/Access/Word/Excel/Excel
Get the Excel version
<source lang="vb">
Public Sub Version()
MsgBox Application.Version
End Sub
</source>
Split windows
<source lang="vb">
Sub SplitWindow()
Dim freezeMode As Boolean, win As Window If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub Set win = ActiveWindow freezeMode = win.FreezePanes win.FreezePanes = False If win.Split Then win.Split = False: Exit Sub win.SplitRow = ActiveCell.Row - win.ScrollRow win.SplitColumn = ActiveCell.Column - win.ScrollColumn win.FreezePanes = freezeMode
End Sub
</source>
Turn row/column headers and gridlines on/off
<source lang="vb">
Sub ToggleHeadingsGrids()
Dim gridMode&, headingsMode& On Error Resume Next headingsMode = ActiveWindow.DisplayHeadings gridMode = ActiveWindow.DisplayGridlines If headingsMode And Not gridMode Then headingsMode = False ElseIf Not headingsMode And Not gridMode Then gridMode = True ElseIf Not headingsMode And gridMode Then headingsMode = True Else gridMode = False End If ActiveWindow.DisplayHeadings = headingsMode ActiveWindow.DisplayGridlines = gridMode
End Sub
</source>