КАТЕГОРИИ:
Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748)
VBA в приложении к Excel
|
|
|
|
МКР: Розділ 3
Текст программы
Private Sub CommandButton1_Click() Начало программы
Dim slovo As String
Dim L As Byte
Dim M As Byte
Dim K As String
Dim D As String
Dim kol as byte
kol = ActiveDocument.Paragraphs.Count
Set myRange = ActiveDocument.Range
(ActiveDocument.Paragraphs(1).Range.Start,
ActiveDocument.Paragraphs(kol).Range.End)
For Each aword In myRange.Words
slovo = aword.Text
L = Len(slovo)
If L <= 1 Then GoTo M1
M = Int(L / 2)
For I = 1 To M
K = Mid$(slovo, I, 1)
D = Mid$(slovo, L - I + 1, 1)
If K <> D Then GoTo M1
Next I
aword.Font.Size = 14
aword.Font.ColorIndex = wdDarkBlue
M1: Next aword
End Sub
| Строка программы | Пункт алгоритма |
| Private Sub CommandButton1_Click() | Начало программы |
| Dim slovo As String | 1a |
| Dim L As Byte | 1b |
| Dim M As Byte | 1c |
| Dim K As String | 1d |
| Dim D As String | 1e |
| Dim kol as byte | 1f |
| kol = ActiveDocument.Paragraphs.Count | |
| Set myRange = ActiveDocument.Range (ActiveDocument.Paragraphs(1).Range.Start, ActiveDocument.Paragraphs(kol).Range.End) | |
| For Each aword In myRange.Words | 4 (Начало внешнего цикла) |
| slovo = aword.Text | |
| L = Len(slovo) | |
| If L <= 1 Then GoTo M1 | |
| M = Int(L / 2) | Подготовка к проверке на палиндром |
| For I = 1 To M | 8 (Начало вложенного цикла) |
| K = Mid$(slovo, I, 1) | |
| D = Mid$(slovo, L - I + 1, 1) | |
| If K <> D Then GoTo M1 | |
| Next I | 8 (Конец вложенного цикла) |
| aword.Font.Size = 14 | |
| aword.Font.ColorIndex = wdDarkBlue | |
| M1: Next aword | 4 (Конец внешнего цикла) |
| End Sub | Конец программы |
В результате выполнения программы слова-палиндромы будут выделены синим цветом.
Прежде чем перейти непосредственно к задачам, необходимо открыть Microsoft Excel и разрешить выполнение всех действий с макросами.
Вид à Макрос à Изменить.
*если у Вас уже создан таковой, если нет – создаём и потом изменяем его
Открывается стандартное окно для записи программы в VB
|
|
|
|
|
Дата добавления: 2017-02-01; Просмотров: 73; Нарушение авторских прав?; Мы поможем в написании вашей работы!