powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ПОГОГИТЕ с макросом
5 сообщений из 5, страница 1 из 1
ПОГОГИТЕ с макросом
    #34614012
Extremka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Люди ДОБРЫЕ, помогите решить непосильную задачу! Очень нужно.
Действие прорисходит в Exelle...

есть таблица...примерно такая:

Найменование Адрес Обл Индекс
Организация 1
Организ 2
Организ 3
...

А нужно нажать на какую-нить организ (1,2,3...) и чтоб мне напечатались реквизиты именно этой организ, а не всех 100.
Смысл в том, что это будет распечатка реквизитов на конверте.
Чтоб наш адрес печатался справа внизу (постоянный и не изменяемый), и их (Организации 1, 2, 3...) - слева вверху.

Или подскажите куда б глянуть чайнику ;(
...
Рейтинг: 0 / 0
ПОГОГИТЕ с макросом
    #34614242
JaneDoe
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
http://lib.mexmat.ru/books/14348
что-то типа того =)
...
Рейтинг: 0 / 0
ПОГОГИТЕ с макросом
    #34614385
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
это событие помести в модуль того листа,
где пользователь дважды кликнет мышкой по организации
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column =  1  And Target.Row >  1  Then   ' колонка "A" наименование организации
    Dim pro
    Set pro = ThisWorkbook.Worksheets("Печать")
        pro.Cells( 1 ,  1 ) = Cells(Target.Row,  1 ) ' наименование организации
        pro.Cells( 1 ,  2 ) = Cells(Target.Row,  2 ) ' Адрес
        pro.Cells( 1 ,  3 ) = Cells(Target.Row,  3 ) ' Обл
        pro.Cells( 1 ,  4 ) = Cells(Target.Row,  4 ) ' Индекс
        
        ' а дальше твой код для печати
End If
End Sub
...
Рейтинг: 0 / 0
ПОГОГИТЕ с макросом
    #34615235
Extremka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ПАСИБКИ :)
Смотри открываю Exell, Сервис/Макрос/редактор VB. Insert/Module. Там выбираю например, Лист1, ставлю (General) на Worksheet, а (Declarations) на BeforeDoubleClick.
Вставляю код...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 And Target.Row > 1 Then ' колонка "A" наименование организации
Dim pro
Set pro = ThisWorkbook.Worksheets("Печать")
pro.Cells(1, 1) = Cells(Target.Row, 1) ' наименование организации
pro.Cells(1, 2) = Cells(Target.Row, 2) ' Адрес
pro.Cells(1, 3) = Cells(Target.Row, 3) ' Обл
pro.Cells(1, 4) = Cells(Target.Row, 4) ' Индекс

' а дальше твой код для печати
PrintOut
End If
End Sub

Переименовала один из листов в "Печать", куда и будут копироваться реквизиты при двойном клике
а что значит "мой код для печати"? (вопрос чайника :) )
...
Рейтинг: 0 / 0
ПОГОГИТЕ с макросом
    #34615612
Extremka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Все...получилось!!!!
Ехееее......
ГРОМАДНОЕ СПАСИБО klen_, JaneDoe!!!
Ню и Великому Лехи ;)...который активно боролся с макросом
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ПОГОГИТЕ с макросом
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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