Макрос, добавляющий листы

@davitalik · Регистрация: 26.02.2015

Author24 — интернет-сервис помощи студентам

Здравствуйте, помогите пожалуйста. Требуется написать макрос, добавляющий к имеющимся трем листам нового файла Excel еще 5 листов и закрашивающий все 8 листов в различные базовые цвета, выдавая перед каждой окраской информационное сообщение с названием цвета листа.

@Alex77755 · 28.07.2015, 20:14

Сделай вручную с записью макроса добавление и окраску листа.
Посмотри что получилось.
Организуй цикл с 1 до 8 окраски листов и при счётчике цикла больше 3 предварительного добавление листа

Добавлено через 1 минуту
Для сообщения используй MsgBox

@Казанский · 28.07.2015, 21:58

Сообщение от davitalik

различные базовые цвета

Это которые QBColor() выдает?

Без сообщений

Visual Basic

Sub davitalik()
Dim i&
Worksheets.Add after:=Sheets(3), Count:=5
For i = 1 To 8
  Sheets(i).Cells.Interior.Color = QBColor(i)
  Sheets(i).Tab.Color = QBColor(i)
Next
End Sub

@davitalik · 29.07.2015, 12:08 **[ТС]**

Сообщение от Казанский

Это которые QBColor() выдает?

Нет, я использовал ColorIndex для базовых цветов. А вот как выдать сообщение с цветом не пойму.

Visual Basic

Sub Задание()
Dim i&
Worksheets.Add after:=Sheets(3), Count:=5
For i = 1 To 8
  Sheets(i).Cells.Interior.ColorIndex = (i)
  Sheets(i).Tab.ColorIndex = (i)
  MsgBox "Лист № " & i
Next
End Sub

@davitalik 0 / 0 / 0 Регистрация: 26.02.2015 Сообщений: 51
		1
	Макрос, добавляющий листы 28.07.2015, 18:38. Показов 3043. Ответов 3 Метки нет (Все метки) Здравствуйте, помогите пожалуйста. Требуется написать макрос, добавляющий к имеющимся трем листам нового файла Excel еще 5 листов и закрашивающий все 8 листов в различные базовые цвета, выдавая перед каждой окраской информационное сообщение с названием цвета листа. 0

@Alex77755 11517 / 3803 / 681 Регистрация: 13.02.2009 Сообщений: 11,223
	28.07.2015, 20:14	2
	Сделай вручную с записью макроса добавление и окраску листа. Посмотри что получилось. Организуй цикл с 1 до 8 окраски листов и при счётчике цикла больше 3 предварительного добавление листа Добавлено через 1 минуту Для сообщения используй MsgBox 0

	29.07.2015, 12:08