Страницы: 1
RSS
Несмежный диапазон для печати ( выбора данных ), Выбор мышкой несмежного диапазона для печати (выбора данных для последующей обработки)
 
 Добрый день Господа Товарищи )
Бьюсь второй день уже ( мне кажется  вокруг трубы кручусь, но не пойму куда копать )) ).
Имеется макрос, который запрашивает диапазон для печати и потом по полученным номерам (выбранным мышкой) строк формируется текст с последующей вставкой в word-шаблон и выводом на печать.
Суть проблемы (для меня ) ): выбор смежных ячеек отрабатывает нормально, а вот, если выбрать не смежные ячейки, то вылазит ошибка после нажатия "Ок" в окне "Выбор данных для печати" (k).
Как ее победить?
Думается мне, что нужно как-то по хитрому организовать "забор данных" не смежных ячеек, но как не соображу.
Направьте на путь истинный ну или тут подскажите куда копать :sceptic:
Код
On Error GoTo Inform
xAddress = Application.ActiveWindow.RangeSelection.Address
Set k = Application.InputBox("Выберите данные для печати:", "Выбор данных для печати", xAddress, , , , , 8)
If k Is Nothing Then Exit Sub
    xScreenUpdate = Application.ScreenUpdating
    xAlert = Application.DisplayAlerts
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
 
N причем тут выбор? Выбирается правильно, а что дальше творится, ведомо только вам.
 
Slonaviator, здравствуйте
Цитата
Slonaviator: нужно как-то по хитрому организовать "забор данных" не смежных ячеек
Range.Address. Как быстро получить длинный адрес диапазона, состоящего из множества областей
Ну или медленно и просто
Изменено: Jack Famous - 09.08.2022 12:02:05
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
Jack Famous, спасибо. Победил  :D  
Страницы: 1
Наверх