ReSQL.ru
     
powered by simpleCommunicator - 2.0.54     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Выделение страниц в Excel
17 сообщений из 17, страница 1 из 1
Выделение страниц в Excel
    #37408094
Valeriu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Valeriu
Участник
Вопрос в вдогонку на предыдущего вопроса.
Как выделить страницы в Excel, где уже скинули данные ?
Их много и для печати приходится их выделить в ручную (Ctrl+Click)

Код: plaintext
1.
2.
3.
4.
For shit =  0  To cmbGraf.ListCount -  1 
scet = scet +  1 
 objExcel.Worksheets(shit +  1 ).Activate
 objExcel.Worksheets(shit +  1 ). ???? здесь
......................

Select не действует ...
...
Рейтинг: 0 / 0
23.08.2011, 15:44
| Ответить | Цитировать | Написать  
Выделение страниц в Excel
    #37408120
Valeriu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Valeriu
Участник
Вроде нашел в инете, но не хочет выделить ...

Код: plaintext
objExcel.Worksheets(shit +  1 ).Select Replace:=False
...
Рейтинг: 0 / 0
23.08.2011, 15:53
| Ответить | Цитировать | Написать  
Выделение страниц в Excel
    #37408747
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Valeriuгде уже скинули данные
Как это расшифровать?

ЗЫ: оригинальное у вас название переменной
 
shit [ ]
1) а) дерьмо
б) понос
2) вздор, чушь собачья
3) дерьмо, дрянь ( о человеке )
2. гадить
...
Рейтинг: 0 / 0
23.08.2011, 21:16
| Ответить | Цитировать | Написать  
Выделение страниц в Excel
    #37409039
Valeriu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Valeriu
Участник
Получится выделить листы Excel
(Использую как отчеты и перебрасываю в них данные из БД) - переименую в более приятное слово

Есть вариант сразу на печать, но это неудобно.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
.....................
scet =  0 
For shit =  0  To cmbGraf.ListCount -  1 
MDIFrm.Pause
scet = scet +  1 
objExcel.Worksheets(shit +  1 ).Activate
objExcel.Worksheets(shit +  1 ).PrintOut From:= 1 , To:=scet
.......................

Пользователь хоть глянуть туда должен одним глазом ...
...
Рейтинг: 0 / 0
24.08.2011, 08:30
| Ответить | Цитировать | Написать  
Выделение страниц в Excel
    #37409057
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Что требуется-то? Я уловить вопроса не могу
Выделить несколько листов? Самому с помощью записи макроса слабо посмотреть?
...
Рейтинг: 0 / 0
24.08.2011, 08:51
| Ответить | Цитировать | Написать  
Выделение страниц в Excel
    #37409080
Valeriu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Valeriu
Участник
Да. Выделить всех листов, что проходят по циклу.
те: от 0 до сколько значений в комбо. (всегда количество РАЗНОЕ !!!)

Код: plaintext
For shit =  0  To cmbGraf.ListCount -  1
...
Рейтинг: 0 / 0
24.08.2011, 09:13
| Ответить | Цитировать | Написать  
Выделение страниц в Excel
    #37409101
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Макрос записывать умеешь?
...
Рейтинг: 0 / 0
24.08.2011, 09:29
| Ответить | Цитировать | Написать  
Выделение страниц в Excel
    #37409117
Valeriu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Valeriu
Участник
Придется ... Если честно, не разу не писал.
Только средствами VB обходился.
...
Рейтинг: 0 / 0
24.08.2011, 09:38
| Ответить | Цитировать | Написать  
Выделение страниц в Excel
    #37409147
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Сервис - Макросы - Начать запись

делаешь нужные действия (выделяешь несколько листов), останавливаешь запись, смотришь, что получилось, адаптируешь под свои нужды
...
Рейтинг: 0 / 0
24.08.2011, 09:54
| Ответить | Цитировать | Написать  
Выделение страниц в Excel
    #37409151
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
кстати, если надо выделить несколько листов подряд, то это надо делать не с контролом, а с шифтом... и код будет проще - не нужен будет цикл
...
Рейтинг: 0 / 0
24.08.2011, 09:55
| Ответить | Цитировать | Написать  
Выделение страниц в Excel
    #37409579
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Да, сразу видно, что макрорекордер и F1 - неизвестны
Код: plaintext
1.
2.
3.
4.
5.
6.
' Выделить определенные листы
objExcel.Sheets(Array("Лист5", "Лист8", "Лист11")).Select
' Выделить все листы
objExcel.Sheets.Select
' ...
' Не забывайте "сбросить" выделение
objExcel.Sheets("Лист1").Select
...
Рейтинг: 0 / 0
24.08.2011, 13:04
| Ответить | Цитировать | Написать  
Выделение страниц в Excel
    #37410226
Valeriu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Valeriu
Участник
Спасибо большое !
Да, выделение для массива работает и для всех тоже.

Код: plaintext
1.
 objExcel.Sheets(Array( 1 , 2 , 3 , 4 , 5 , 6 , 7 ).Select
 objExcel.Sheets.Select

Просто я не могу понять, почему так не хочет ?

Код: plaintext
1.
2.
For i =  1  To  7 
    objExcel.Sheets(Array(i)).Select
Next i

Последнею 7-ю страницу выделяет и все ...
В чем разница ?
...
Рейтинг: 0 / 0
24.08.2011, 17:21
| Ответить | Цитировать | Написать  
Выделение страниц в Excel
    #37410238
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Потому что первый код выделяет ВСЕ указанные листы

а второй выделяет по очереди все листы, последний - седьмой
Эквивалентно:
Код: plaintext
1.
2.
3.
4.
5.
6.
objExcel.Sheets(Array( 1 )).Select
objExcel.Sheets(Array( 2 )).Select
objExcel.Sheets(Array( 3 )).Select
objExcel.Sheets(Array( 4 )).Select
objExcel.Sheets(Array( 5 )).Select
objExcel.Sheets(Array( 6 )).Select
objExcel.Sheets(Array( 7 )).Select
...
Рейтинг: 0 / 0
24.08.2011, 17:28
| Ответить | Цитировать | Написать  
Выделение страниц в Excel
    #37410243
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Dim sh( 1  To  7 ) As Integer
Dim i As Integer
For i =  1  To  7 
  sh(i) = i
Next

Sheets(sh).Select
...
Рейтинг: 0 / 0
24.08.2011, 17:31
| Ответить | Цитировать | Написать  
Выделение страниц в Excel
    #37410288
Valeriu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Valeriu
Участник
Все отлично !
Но, мне неизвестно (1 To ?????), а переменная не катит.
Ну и задача ... Нет просто добить ее хочу, а нету сил на сегодня

Код: plaintext
1.
2.
3.
4.
Dim sh( 1  To ????? ) As Integer
For i =  1  To cmbGraf.ListCount -  1 
  sh(i) = i
Next
objExcel.Sheets(sh).Select
...
Рейтинг: 0 / 0
24.08.2011, 17:48
| Ответить | Цитировать | Написать  
Выделение страниц в Excel
    #37410308
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ну ё моё, ну совсем элементарные основы нужно объяснять?
надо использовать массив динамического размера

Изучай ReDim
...
Рейтинг: 0 / 0
24.08.2011, 17:57
| Ответить | Цитировать | Написать  
Выделение страниц в Excel
    #37410567
Valeriu
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Valeriu
Участник
Опа ... Лохонулся малость. :)
Да. Согласен.
...
Рейтинг: 0 / 0
24.08.2011, 21:30
| Ответить | Цитировать | Написать  
17 сообщений из 17, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Выделение страниц в Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=37408747&tid=2158478]:
 0ms
get settings:
 7ms
get forum list:
 17ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 96ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 62ms
get tp. blocked users:
 1ms
others: 13ms
total:  215ms
созд. / загр.: 215ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]