Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Задание функции для перечня листов - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Задание функции для перечня листов (Макросы/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 должно быть задано...
 
Ответить
СообщениеДобрый день!
Подскажите пожалуйста.
Использовал:

[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 должно быть задано...
Автор - выбрать нужный(е) лист(ы)
Дата добавления - 02.12.2014 в 15:12
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]
 
Ответить
СообщениеНа первый взгляд похоже на необходимость такого кода:

[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]
Автор - DJ_Marker_MC
Дата добавления - 02.12.2014 в 15:50
Roman777 Дата: Вторник, 02.12.2014, 16:48 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 980
Репутация: 127 ±
Замечаний: 0% ±

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

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

Много чего не знаю!!!!
 
Ответить
СообщениеТочно!
Оказалось даже банальнее))).
Спасибо большое.

ПС, а что означает это "КОД ПЕЧАТИ"?
Автор - Roman777
Дата добавления - 02.12.2014 в 16:48
DJ_Marker_MC Дата: Вторник, 02.12.2014, 17:08 | Сообщение № 4
Группа: Друзья
Ранг: Ветеран
Сообщений: 991
Репутация: 213 ±
Замечаний: 0% ±

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


Сообщение отредактировал DJ_Marker_MC - Вторник, 02.12.2014, 17:08
 
Ответить
СообщениеRoman777, тю ))) просто в вашей другой теме которую удалили уже было сказано (кажется) о том что вы с помощью такого перебора отправляли листы на печать, вот я и написал "КОД ПЕЧАТИ" - та часть кода которую вам сюда нужно вставить для отправки на печать)))
Автор - DJ_Marker_MC
Дата добавления - 02.12.2014 в 17:08
krosav4ig Дата: Вторник, 02.12.2014, 21:28 | Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 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
 
Ответить
Сообщениекак вариант
[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]
Автор - krosav4ig
Дата добавления - 02.12.2014 в 21:28
Roman777 Дата: Четверг, 04.12.2014, 09:45 | Сообщение № 6
Группа: Проверенные
Ранг: Ветеран
Сообщений: 980
Репутация: 127 ±
Замечаний: 0% ±

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

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

Много чего не знаю!!!!
 
Ответить
СообщениеDJ_Marker_MC, ясно. Ато меня немного в ступор ввело. Подумал о какой-то определённой функции в ВБА)))

krosav4ig, спасибо!
тоже вариант...) буду иметь в виду.
Автор - Roman777
Дата добавления - 04.12.2014 в 09:45
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Задание функции для перечня листов (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!