VBA/Excel/Access/Word/Excel/Excel

Материал из VB Эксперт
Перейти к: навигация, поиск

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>