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

21
Range ("a6").Value = "Привет"
Range ("b1:b8").Formula = "=rand ()"
Range ("b2:g1").Borders (xlBottom).LineStyle = xlDouble
End Sub
Sub Диапазоны2 ()
Лист1.Cells.Font.Bold = True
Лист1.Activate
Range ("a1:c5") = 1234
Range ("a1:c5").Select
Range ("c9") = Range ("a1").Value * 2
Range ("a6") = "Привет"
Range ("b1:b8") = "=sum (a1:a3)"
End Sub
Sub Ячейки ()
With Worksheets (1)
.Cells (3, 1).Value = 5678
.Cells (4, 1).Formula = "=sum (b1:b8)"
.Range (.Cells(3, 1), .Cells(5, 10)).Borders.LineStyle = xlThick
End With
End Sub
Sub Смещение ()
Лист1.Activate
Cells.HorizontalAlignment = xlCenter
Activesheet.Range ("a1").Select
Selection.Offset (3, 1).Select
ActiveCell.Value = "Сообщение"
Selection.Font.Bold = True
Selection.Font.Name = "Courier New Cyr"
содержание = ActiveCell.Value
MsgBox содержание
Activesheet.Range ("e5").Select
ActiveCell.Value = "Центр"
ActiveCell.Offset (1, 0).Value = "Юг"
ActiveCell.Offset (0, -1).Value = "Запад"
ActiveCell.Offset (-1, 1).Value = "Северо-Восток"
End Sub
Sub Области ()
Лист1.Activate
Range ("a1:d4").ClearContents
Union (Range("a1:b2"), Range ("c2:d4")).Select
количество = Selection.Areas.Count
MsgBox "Выделено областей: " & количество
Selection.Clear
End Sub
Sub ОбъектнаяПеременнаяExcel ()
Worksheets ("Первый лист").Activate
Range ("c5") = "Тест"