Управление документами Word и Excel на VBA - eDrive

24
.Value = "Тест"
End With
End Sub
Sub ИерархияОбъектовExcel ()
Dim книга As Workbook, таблица As Worksheet, диапазон As Range
Set книга = Workbooks (1)
With книга
Set таблица = .Worksheets (1)
With таблица
Set диапазон = .Range ("a2:b4")
With диапазон
.Font.Italic = True
.Value = 3.5
End With
End With
End With
End Sub
Визуальное программирование в Excel
Sub ПолеExcel ()
Лист2.Activate
UserForm1.Show
Call UserForm1.TextBox1_Change
End Sub
Sub TextBox1_Change ()
Range ("a2") = UserForm1.TextBox1
End Sub
Sub Автосохранение ()
' Форма Excel содержит поле Время и флажок флагСохранения.
‘ Функция КакЧастоСохранятьФайл приведена ранее,
‘ а запускаемая таймером подпрограмма Старт — в последней главе.
On Error GoTo конец
If UserForm1.флагСохранения = True Then
интервал = Val (UserForm1.Время)
If Not КакЧастоСохранятьФайл (интервал) Then
UserForm1.флагСохранения = False
Exit Sub
End If
Call Старт интервал
End If
Exit Sub
конец:
End Sub
Sub СчитатьСтаж ()
‘ Данная программа считает срок (стаж, выслугу) между двумя датами,