
Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
22.06.2007, 15:19
|
|||
|---|---|---|---|
|
|||
ПОГОГИТЕ с макросом |
|||
|
#18+
Люди ДОБРЫЕ, помогите решить непосильную задачу! Очень нужно. Действие прорисходит в Exelle... есть таблица...примерно такая: Найменование Адрес Обл Индекс Организация 1 Организ 2 Организ 3 ... А нужно нажать на какую-нить организ (1,2,3...) и чтоб мне напечатались реквизиты именно этой организ, а не всех 100. Смысл в том, что это будет распечатка реквизитов на конверте. Чтоб наш адрес печатался справа внизу (постоянный и не изменяемый), и их (Организации 1, 2, 3...) - слева вверху. Или подскажите куда б глянуть чайнику ;( ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
22.06.2007, 16:12
|
|||
|---|---|---|---|
ПОГОГИТЕ с макросом |
|||
|
#18+
http://lib.mexmat.ru/books/14348 что-то типа того =) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
22.06.2007, 16:57
|
|||
|---|---|---|---|
ПОГОГИТЕ с макросом |
|||
|
#18+
это событие помести в модуль того листа, где пользователь дважды кликнет мышкой по организации Код: plaintext 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
23.06.2007, 13:15
|
|||
|---|---|---|---|
|
|||
ПОГОГИТЕ с макросом |
|||
|
#18+
ПАСИБКИ :) Смотри открываю 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 Переименовала один из листов в "Печать", куда и будут копироваться реквизиты при двойном клике а что значит "мой код для печати"? (вопрос чайника :) ) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|

start [/forum/topic.php?fid=60&mobile=1&tid=2163812]: |
0ms |
get settings: |
10ms |
get forum list: |
16ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
192ms |
get topic data: |
10ms |
get forum data: |
2ms |
get page messages: |
48ms |
get tp. blocked users: |
1ms |
| others: | 281ms |
| total: | 568ms |

| 0 / 0 |
