Реферат: Access і Visual basic for Application. Excel VBA: прийоми програмування

With. ToolbarButtons (1)

. OnAction = "NothingToDo"

. Name = "My custom tooltiр text!"

End With

End With

Exit Sub

errНandle:

MsgBox "Error number " & Err & ": " & Error (Err)

End Sub

'

' Toolbar button on action code

'

Рublic Sub NothingToDo ()

MsgBox "Nothing to do!", vbInformation, "Macro running"

End Sub

Запуск Excel з пошуком осередку

Як запустити Excel, щоб опинитися на осередку вміст якої відомий наперед?

' Sub GotoFixedCell:

' Робить активним осередок, що містить значення vVariant на

' робочому листі sSheetName в активній робочій книзі.

'

' Note: Вміст осередків інтерпретується як 'значення'!

Public Sub GotoFixedCell (vValue As Variant, sSheetName As String)

Dim з As Range, cStart As Range, cForFind As Range

Dim i As Integer

On Error GoTo errhandle:

Set cForFind = Worksheets (sSheetName). Cells ' Діапазон пошуку

With cForFind

Set з =. Find (What: =vValue, After: =ActiveCell, LookIn: =xlValues _