9 Июнь 2008

Вопрос 3 Написать макрос, формирующий таблицу Пифагора в Excel для чисел от 1 до 10.

sub pifagor()
dim i,j as integer
for i=1 to 10
for j=1 to 10
workscheets(’
Лист1′) cells(i,j)
value=i*j
next
exit
end sub

Вопрос 2 Написать макрос, подсчитывающий кол-во вхождений слова, заданного пользователем.

sub podchet()
dim i,j as integer
dim temp as string
j=0
temp=inputBox(”
введите слово“) for i=1 to ActiveDocument._words.count
if ActiveDocument._words(i)._text=temp then j=j+1
end if
msgBox(j)
end sub

Вопрос 1 Написать макрос, изменяющий начертание первого слова в каждом абзаце на курсивное.

sub Cursiv()
dim i as integer
for i=1 to ActiveDocument._Paragraphs.count
ActiveDocument.Paragraphs(i)._range.words(1).italic=true
next i
end sub

© Проект «Студенты-Программеры»., 2008. Все права защищены.
Перепечатка материалов только при наличии активной ссылки на источник.
Powered by WordPress