Управление документами Word и Excel на VBA - eDrive
Управление документами Word и Excel на VBA - eDrive Управление документами Word и Excel на VBA - eDrive
22 простоПеременная = Range ("c5") MsgBox "Переменная равна " & простоПеременная Cells (5, 3) = 1234 Set объектнаяПеременная = Range ("c5") MsgBox "Ячейка " & объектнаяПеременная.Address & _ " содержит " & объектнаяПеременная.Value End Sub Sub ПеременнаяВместоОбъектаExcel () Set переменная = Лист1.Range ("a2") With переменная .Font.Bold = True .Font.ColorIndex = 3 .Font.Size = 16 .Value = "Тест" End With End Sub Структурное программирование в Excel Sub РабочийЛист () Worksheets.Add Count:=2 Worksheets (1).Name = "Первый лист" Sheets ("Первый лист").Activate ActiveSheet.PageSetup.Orientation = xlLandscape ActiveSheet.PrintOut If MsgBox ("Скрыть лист ", vbYesNo + vbQuestion) = vbYes Then ActiveSheet.Visible = False If MsgBox ("Показать лист ", vbYesNo + vbQuestion) = vbYes Then Sheets ("Первый лист").Visible = True End If End If End Sub Sub ИменаЛистов () Sheets.Add MsgBox "Всего листов: " & Sheets.Count For Each лист In Worksheets лист.Activate лист.Name = InputBox ("Имя " & ActiveSheet.index & "-го листа") Next End Sub Sub Ячейки () With Worksheets (1) .Cells (3, 1).Value = 5678 .Cells (4, 1).Formula = "=sum (b1:f1)" For год = 1 To 5 .Cells (1, год + 1).Value = 1990 + год Next год .Range (.Cells (3, 2), .Cells (5, 6)).Borders.LineStyle = xlThick
23 End With End Sub Sub УдалениеЛистов () сколько = InputBox ("Сколько листов удалить") For i = сколько To 0 Step -1 If Worksheets.Count
- Page 1 and 2: В. М. Водовозов Упра
- Page 3 and 4: Оглавление VISUAL BASIC F
- Page 5 and 6: 5 • ActiveWritingStyle — акт
- Page 7 and 8: 7 • свойство End указ
- Page 9 and 10: 9 Sub ИзменитьПервую
- Page 11 and 12: 11 Sub Красный () ‘ Отд
- Page 13 and 14: 13 ElseIf втораяБуква =
- Page 15 and 16: 15 Sub Поиск () Selection.Home
- Page 17 and 18: 17 имя (0, 50) = "n": имя (0,
- Page 19 and 20: 19 представляющим п
- Page 21: 21 Range ("a6").Value = "Приве
- Page 25 and 26: 25 ‘ выражая его в д
- Page 27 and 28: 27 For Each фигура In Лис
- Page 29 and 30: 29 .Add Type:=msoControlEdit .Add T
- Page 31 and 32: 31 ActiveWindow.ActivePane.View.Typ
22<br />
простоПеремен<strong>на</strong>я = Range ("c5")<br />
MsgBox "Перемен<strong>на</strong>я рав<strong>на</strong> " & простоПеремен<strong>на</strong>я<br />
Cells (5, 3) = 1234<br />
Set объект<strong>на</strong>яПеремен<strong>на</strong>я = Range ("c5")<br />
MsgBox "Ячейка " & объект<strong>на</strong>яПеремен<strong>на</strong>я.Address & _<br />
" содерж<strong>и</strong>т " & объект<strong>на</strong>яПеремен<strong>на</strong>я.Value<br />
End Sub<br />
Sub Перемен<strong>на</strong>яВместоОбъекта<strong>Excel</strong> ()<br />
Set перемен<strong>на</strong>я = Л<strong>и</strong>ст1.Range ("a2")<br />
With перемен<strong>на</strong>я<br />
.Font.Bold = True<br />
.Font.ColorIndex = 3<br />
.Font.Size = 16<br />
.Value = "Тест"<br />
End With<br />
End Sub<br />
Структурное программ<strong>и</strong>рован<strong>и</strong>е в <strong>Excel</strong><br />
Sub Рабоч<strong>и</strong>йЛ<strong>и</strong>ст ()<br />
Worksheets.Add Count:=2<br />
Worksheets (1).Name = "Первый л<strong>и</strong>ст"<br />
Sheets ("Первый л<strong>и</strong>ст").Activate<br />
ActiveSheet.PageSetup.Orientation = xlLandscape<br />
ActiveSheet.PrintOut<br />
If MsgBox ("Скрыть л<strong>и</strong>ст ", vbYesNo + vbQuestion) = vbYes Then<br />
ActiveSheet.Visible = False<br />
If MsgBox ("Показать л<strong>и</strong>ст ", vbYesNo + vbQuestion) = vbYes Then<br />
Sheets ("Первый л<strong>и</strong>ст").Visible = True<br />
End If<br />
End If<br />
End Sub<br />
Sub Име<strong>на</strong>Л<strong>и</strong>стов ()<br />
Sheets.Add<br />
MsgBox "Всего л<strong>и</strong>стов: " & Sheets.Count<br />
For Each л<strong>и</strong>ст In Worksheets<br />
л<strong>и</strong>ст.Activate<br />
л<strong>и</strong>ст.Name = InputBox ("Имя " & ActiveSheet.index & "-го л<strong>и</strong>ста")<br />
Next<br />
End Sub<br />
Sub Ячейк<strong>и</strong> ()<br />
With Worksheets (1)<br />
.Cells (3, 1).Value = 5678<br />
.Cells (4, 1).Formula = "=sum (b1:f1)"<br />
For год = 1 To 5<br />
.Cells (1, год + 1).Value = 1990 + год<br />
Next год<br />
.Range (.Cells (3, 2), .Cells (5, 6)).Borders.LineStyle = xlThick