МИНОБРНАУКИ РОССИИ. Вологодский государственный технический университет» . Кафедра Управляющих и вычислительных систем. Макрос для MS Word.. Макрос, добавляющий в таблицу два смежных столбца слева от заданного столбца.

МИНОБРНАУКИ РОССИИ

федеральное государственное бюджетное образовательное учреждение

высшего профессионального образования

«Вологодский государственный технический университет»

(ВоГТУ)

Кафедра Управляющих и вычислительных систем

КОНТРОЛЬНАЯ РАБОТА №1

Информатика

Выполнил: Петухов Виталий

Николаевич

Группа: ЗЭПЧ-11у

Шифр: 110132872223

Домашний адрес:

162664, Вологодская область,

Череповецкий район, д.Якушево д.30

Проверил: Андреев Михаил

Александрович

Череповец

Содержание
1 Макрос для MS Word
1.1 Макрос, добавляющий в таблицу два смежных столбца слева от заданного столбца.
2 Макросы для MS Excel
2.1 Макрос, центрирующий столбец
3 Создание функций пользователя в приложении MS Excel

1. Макрос для MS Word.

1.1. Макрос, добавляющий в таблицу два смежных столбца слева от заданного столбца.

Таблица, подлежащая изменению, приведена на рис. 1.

Рис. 1 фрагмент таблицы

Скрин копия экрана после выполнения макроса приведена на рис.2.

Рис. 2

Ниже приведён листинг макроса, добавляющего в таблицу два смежных столбца слева от заданного столбца.

Sub Макрос1_добавление_2_смежных_столбцов_слева_от_заданного()

' Макрос1_добавление_2_смежных_столбцов_слева_от_заданного Макрос

ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, NumColumns:= _

2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _

wdAutoFitFixed

With Selection.Tables(1)

If .Style <> "Сетка таблицы" Then

.Style = "Сетка таблицы"

End If

.ApplyStyleHeadingRows = True

.ApplyStyleLastRow = False

.ApplyStyleFirstColumn = True

.ApplyStyleLastColumn = False

.ApplyStyleRowBands = True

.ApplyStyleColumnBands = False

End With

End Sub

2 Макросы для MS Excel.

12 Следующая ⇒