Управление документами Word и Excel на VBA - eDrive
Управление документами Word и Excel на VBA - eDrive Управление документами Word и Excel на VBA - eDrive
16 Dim массив (2, 64) Call ЗаполнитьМассив (массив) буква = ЧтоМенять If буква < "А" Then начало = "А" конец = "я" Else начало = "A" конец = "z" End If Do While буква < начало Or буква > конец прежняяСтрока = строка For i = 0 To 63 If массив (0, i) = буква Then строка = массив (1, i) & строка ElseIf массив (1, i) = буква Then строка = массив (0, i) & строка End If Next If строка = прежняяСтрока Then строка = буква & строка If Len (Selection.Text) < Len (строка) Then буква = "" строка = Right (строка, Len (Selection.Text)) Exit Do Else буква = ЧтоМенять End If Loop строка = буква & строка Selection.TypeText (строка) End Sub Sub ЗаполнитьМассив (имя) For i = 0 To 63 имя (1, i) = Chr (i + Asc("А")) Next имя (0, 0) = "A": имя (0, 1) = "" имя (0, 31) = "Z" имя (0, 32) = "f": имя (0, 33) = "," имя (0, 34) = "d": имя (0, 35) = "u" имя (0, 36) = "l": имя (0, 37) = "t" имя (0, 38) = ";": имя (0, 39) = "p" имя (0, 40) = "b": имя (0, 41) = "q" имя (0, 42) = "r": имя (0, 43) = "k" имя (0, 44) = "v": имя (0, 45) = "y" имя (0, 46) = "j": имя (0, 47) = "g" имя (0, 48) = "h": имя (0, 49) = "c"
17 имя (0, 50) = "n": имя (0, 51) = "e" имя (0, 52) = "a": имя (0, 53) = "[" имя (0, 54) = "w": имя (0, 55) = "x" имя (0, 56) = "i": имя (0, 57) = "o" имя (0, 58) = "]": имя (0, 59) = "s" имя (0, 60) = "m" имя (0, 61) = Chr(39): имя (0, 62) = ".": имя (0, 63) = "z" End Sub Визуальное программирование в Word 'Процедуры формы Word, в которой есть надпись, поле и кнопки Ввод и Удаление Sub UserForm_Activate () Call Ввод_Click End Sub Sub Ввод_Click () Label1 = "Вводите сообщение" TextBox1.Enabled = True End Sub Sub Удаление_Click () Label1 = "Сообщение удалено" TextBox1 = "" TextBox1.Enabled = False End Sub Sub TextBox1_Change () Selection.Characters.Text = UserForm1.TextBox1.Text End Sub 'В форме Word находятся кнопка и переключатели Sub CommandButton1_Click () If OptionButton1 = True Then Selection.Font.Bold = True Selection.Font.Italic = True Else Selection.Font.Bold = False Selection.Font.Italic = False End If End Sub Visual Basic for Excel Модель объектов Excel Конкретные ячейки, диапазоны, рабочие листы, электронные книги и т.п. являются объектами проекта, представляющими свои классы. В модель объектов Excel входят:
- 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: 15 Sub Поиск () Selection.Home
- Page 19 and 20: 19 представляющим п
- Page 21 and 22: 21 Range ("a6").Value = "Приве
- Page 23 and 24: 23 End With End Sub Sub Удале
- 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
16<br />
Dim масс<strong>и</strong>в (2, 64)<br />
Call Заполн<strong>и</strong>тьМасс<strong>и</strong>в (масс<strong>и</strong>в)<br />
буква = ЧтоМенять<br />
If буква < "А" Then<br />
<strong>на</strong>чало = "А"<br />
конец = "я"<br />
Else<br />
<strong>на</strong>чало = "A"<br />
конец = "z"<br />
End If<br />
Do While буква < <strong>на</strong>чало Or буква > конец<br />
прежняяСтрока = строка<br />
For i = 0 To 63<br />
If масс<strong>и</strong>в (0, i) = буква Then<br />
строка = масс<strong>и</strong>в (1, i) & строка<br />
ElseIf масс<strong>и</strong>в (1, i) = буква Then<br />
строка = масс<strong>и</strong>в (0, i) & строка<br />
End If<br />
Next<br />
If строка = прежняяСтрока Then строка = буква & строка<br />
If Len (Selection.Text) < Len (строка) Then<br />
буква = ""<br />
строка = Right (строка, Len (Selection.Text))<br />
Exit Do<br />
Else<br />
буква = ЧтоМенять<br />
End If<br />
Loop<br />
строка = буква & строка<br />
Selection.TypeText (строка)<br />
End Sub<br />
Sub Заполн<strong>и</strong>тьМасс<strong>и</strong>в (<strong>и</strong>мя)<br />
For i = 0 To 63<br />
<strong>и</strong>мя (1, i) = Chr (i + Asc("А"))<br />
Next<br />
<strong>и</strong>мя (0, 0) = "A": <strong>и</strong>мя (0, 1) = "" <strong>и</strong>мя (0, 31) = "Z" <strong>и</strong>мя (0, 32) = "f": <strong>и</strong>мя (0, 33) = ","<br />
<strong>и</strong>мя (0, 34) = "d": <strong>и</strong>мя (0, 35) = "u" <strong>и</strong>мя (0, 36) = "l": <strong>и</strong>мя (0, 37) = "t"<br />
<strong>и</strong>мя (0, 38) = ";": <strong>и</strong>мя (0, 39) = "p" <strong>и</strong>мя (0, 40) = "b": <strong>и</strong>мя (0, 41) = "q"<br />
<strong>и</strong>мя (0, 42) = "r": <strong>и</strong>мя (0, 43) = "k" <strong>и</strong>мя (0, 44) = "v": <strong>и</strong>мя (0, 45) = "y"<br />
<strong>и</strong>мя (0, 46) = "j": <strong>и</strong>мя (0, 47) = "g" <strong>и</strong>мя (0, 48) = "h": <strong>и</strong>мя (0, 49) = "c"
Change language