Реферат: Access і Visual basic for Application. Excel VBA: прийоми програмування
Loop
Різновидом циклу Do є Until-цикл, який виконується, поки умовний вираз помилковий:
Do Until Счетчик=10
Счетчик=Счетчик+1
Loop
6. Excel VBA: Прийоми програмування
Як визначити останній запис в таблиці Excel?
Необхідно знайти останній запис в електронній таблиці. Це можна було б організувати функцією Application. SpecialCells (xlLastCell)
Як відмінити виділення діапазону осередків?
ActiveSheet. Cells. Select
Після припинення роботи макросу діапазон залишається виділеним. Як це виділення прибрати?
Selection. Cells (1). Select Фокус введення потрапить після цього на перший осередок раніше виділеного діапазону.
Як з макросу Excel програмно створити таблицю Access?
Ось фрагмент коду, який створює таблицю "BalanceShifr" базі даних MS Access:
Не забудьте виставити в Excel посилання на об'єкти DAO!
[VBA] Tools/References/Available References/ [x] MicroSoft DAO?.? Library ' Function CreateTable ' Create temporary table "BalanceShifr" into temporary database
Public Function CreateTable (ByVal dbTemp As Database) As Boolean
Dim tdfTemр As TableDef
Dim idx As Index
Dim fld As Field
On Error GoTo errhandle
CreateTable = True
' CREATE TABLE "BalanceShifr"
Set tdfTemp = dbTemp. CreateTableDef ("BalanceShifr")
Set fld = tdfTemp. CreateField ("ConditionId", dbLong)
fld. Required = True
tdfTemp. Fields. Append fld
Set fld = tdfTemp. CreateField ("Account", dbText,
4)