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

End With

. Visible = True

End With

End Sub

Як визначити адресу активного осередку

Як в макросі дізнатися і використовувати поточне положення курсора

ActiveCell. Row і ActiveCell. Column - покажуть координати активного осередку.

Підрахунок коментарів на робочому листі

Як дізнатися чи є хоч один Notes (коментар) в робочому листі, окрім як перебором по всіх осередках?

У Excel'97 ця проблема може бути вирішена от як:

' Function IsCommentsPresent

' Повертає TRUE, якщо на активному робочому листі є хоч би

' один осередок з коментарем, інакше повертає FALSE

'

Public Function IsCommentsPresent () As Boolean

IsCommentsPresent = (ActiveSheet.comments. Count <> 0)

End Function

Підказки до Toolbar (Excel'95 і '97)

Як зробити свій власний Toolbar з tooltip’ами на кнопках в Excel’95?

Ось фрагмент коду для Excel'95, який створює toolbar з однією кнопкою з призначеним для користувача tooltiр'ом. Натиснення кнопки приводить до виконання макросу NothingToDo ().

' This example creates а new toolbar, adds the Camera button

' (button index number 228) to it, and then displays the new toolbar.

'

Public Sub CreateMyToolBar ()

Dim myNewToolbar As Toolbar

On Error GoTo errHandle:

Set myNewToolbar = Toolbars. Add (Name: ="My New Toolbar")

With myNewToolbar

. ToolbarButtons. Add Button: =228, StatusBar: ="Statusbar help string"