Задание функции для перечня листов

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Задание функции для перечня листов (Макросы/Sub)

выбрать нужный(е) лист(ы)

Дата: Вторник, 02.12.2014, 15:12 | Сообщение № 1

Группа: Гости

Добрый день!
Подскажите пожалуйста.
Использовал:

[vba]

Код

Dim sheet As Worksheet
For Each sheet In ActiveWorkbook.Worksheets

[/vba]
А мне же необходимо не для каждого листа, а для n листов. Пробовал уже переделать несколько вариантов, чет переваривает эксель мои крики...(
Как создать аналогичный код, только для n числа листов (не для всех).

У меня был вариант:
[vba]

Код

Dim sheet As Worksheet
Dim n As Integer
Set n = sheet.Index
For n = 1 To 3

[/vba]
На что эксель ругается, что n должно быть задано...

Ответить

DJ_Marker_MC

Дата: Вторник, 02.12.2014, 15:50 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 991

Репутация: 213 ±

Замечаний: 0% ±

Excel 2019

На первый взгляд похоже на необходимость такого кода:

[vba]

Код

Sub ttt()
Dim sheet As Worksheet
For Each sheet In ActiveWorkbook.Worksheets
q = sheet.Index
     If q <= 3 Then
         "КОД ПЕЧАТИ"
     Else
     End
     End If
Next
End Sub

[/vba]

Ответить

Roman777

Дата: Вторник, 02.12.2014, 16:48 | Сообщение № 3

Группа: Проверенные

Ранг: Ветеран

Сообщений: 980

Репутация: 127 ±

Замечаний: 0% ±

Excel 2007, Excel 2013

Точно!
Оказалось даже банальнее))).
Спасибо большое.

ПС, а что означает это "КОД ПЕЧАТИ"?

Много чего не знаю!!!!

Ответить

DJ_Marker_MC

Дата: Вторник, 02.12.2014, 17:08 | Сообщение № 4

Группа: Друзья

Ранг: Ветеран

Сообщений: 991

Репутация: 213 ±

Замечаний: 0% ±

Excel 2019

Roman777, тю ))) просто в вашей другой теме которую удалили уже было сказано (кажется) о том что вы с помощью такого перебора отправляли листы на печать, вот я и написал "КОД ПЕЧАТИ" - та часть кода которую вам сюда нужно вставить для отправки на печать)))

Сообщение отредактировал DJ_Marker_MC - Вторник, 02.12.2014, 17:08

Ответить

krosav4ig

Дата: Вторник, 02.12.2014, 21:28 | Сообщение № 5

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

как вариант
[vba]

Код

Sub sdf()
     Dim sheet As Worksheet, arr()
     arr = Evaluate("transpose(row(1:3))")
     For Each sheet In ActiveWorkbook.Sheets(arr)

     Next
End Sub

[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Ответить

Roman777

Дата: Четверг, 04.12.2014, 09:45 | Сообщение № 6

Группа: Проверенные

Ранг: Ветеран

Сообщений: 980

Репутация: 127 ±

Замечаний: 0% ±

Excel 2007, Excel 2013

DJ_Marker_MC, ясно. Ато меня немного в ступор ввело. Подумал о какой-то определённой функции в ВБА)))

krosav4ig, спасибо!
тоже вариант...) буду иметь в виду.

Много чего не знаю!!!!

Ответить

Задание функции для перечня листов (Макросы/Sub)

Страница 1 из 1
1