Макрос на разноску данных по книгам - Microsoft Office Excel - Страница 2

804040 · 01.03.2011, 15:51

Разносит =)
А можно его доработать?
1. Чтобы можно было задавать диапазон данных, которые нужно разносить (а не править макрос [a1:a25])
2. Чтобы запрашивал путь к файлам, в которые вставлять и их имена
3. Чтобы запрашивал название листа в книге в который вставлять
4. Чтобы запрашивал ячейку в которую вставлять(а не править в коде[h16])
5. Чтобы работал как с xls, так и с xlsx
6. Если в списке присутствует номер и сумма, а файла нет, то чтобы пропускал, а не вылетал с ошибкой.
....
7. сообщите номер WM кошелька для оплаты)
Спасибо)

kuklp · 01.03.2011, 17:39

Деньги переведите Игорю:
webmoney: E265281470651 Z422237915069 R418926282008

804040 · 01.03.2011, 18:01

ок! Биг спасибо, а
"Чтобы запрашивал название листа в книге в который вставлять" не удалось реализовать?

kuklp · 01.03.2011, 18:05

Просто забыл.
Держите. На мой взгляд не совсем удобно, что между вводами имени листа и адреса ячейки нужно переключать раскладку клавиатуры. Ну, Вы сами так просили...

doober · 01.03.2011, 18:54

Код:


 Private Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long

Включить Английскую раскладку

Код:

 ActivateKeyboardLayout 67699721, 0

Включить Русскую раскладку

Код:

 ActivateKeyboardLayout 68748313, 0

kuklp · 01.03.2011, 19:08

Да знаю я Серег. Только не уверен, что это будет работать во всех виндах. Я применял такое еще под вин98.

doober · 01.03.2011, 19:14

На ХР работает,на 7 не знаю

kuklp · 01.03.2011, 19:28

Цитата:

Сообщение от doober

На ХР работает,на 7 не знаю

И я не знаю, поэтому и не стал. Можно было бы включить проверку версии, но... Автор просил так, я сделал. Дальше проблемы автора

Hugo121 · 01.03.2011, 20:21

Сергей, тогда я буду тебе должен...
Если написать так:
shNam = InputBox("Имя листа", "Лист", "Лист1")
то может раскладку переключать и не надо будет

Кстати, мой первый код и с файлами этого примера без переделки отработал (дома на 2007 проверил). Но навешивать туда диалоги уже смысла нет.

01.03.2011, 15:51	#11
804040 Пользователь Регистрация: 31.03.2010 Сообщений: 29	Разносит =) А можно его доработать? 1. Чтобы можно было задавать диапазон данных, которые нужно разносить (а не править макрос [a1:a25]) 2. Чтобы запрашивал путь к файлам, в которые вставлять и их имена 3. Чтобы запрашивал название листа в книге в который вставлять 4. Чтобы запрашивал ячейку в которую вставлять(а не править в коде[h16]) 5. Чтобы работал как с xls, так и с xlsx 6. Если в списке присутствует номер и сумма, а файла нет, то чтобы пропускал, а не вылетал с ошибкой. .... 7. сообщите номер WM кошелька для оплаты) Спасибо) Последний раз редактировалось 804040; 01.03.2011 в 16:11.

01.03.2011, 18:54	#15
doober Старожил Регистрация: 02.05.2009 Сообщений: 3,907	Код: `Private Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long` Включить Английскую раскладку Код: `ActivateKeyboardLayout 67699721, 0` Включить Русскую раскладку Код: `ActivateKeyboardLayout 68748313, 0` Анализ,обработка данных Недорого

01.03.2011, 19:08	#16
kuklp Участник клуба Регистрация: 02.05.2010 Сообщений: 1,390	Да знаю я Серег. Только не уверен, что это будет работать во всех виндах. Я применял такое еще под вин98. mailto: kuklp60@gmail.com, ящики для благодарностей: WM Z206653985942, R334086032478, U238399322728

01.03.2011, 19:14	#17
doober Старожил Регистрация: 02.05.2009 Сообщений: 3,907	На ХР работает,на 7 не знаю Анализ,обработка данных Недорого

01.03.2011, 20:21	#19
Hugo121 Старожил Регистрация: 11.05.2010 Сообщений: 5,166	Сергей, тогда я буду тебе должен... Если написать так: shNam = InputBox("Имя листа", "Лист", "Лист1") то может раскладку переключать и не надо будет Кстати, мой первый код и с файлами этого примера без переделки отработал (дома на 2007 проверил). Но навешивать туда диалоги уже смысла нет. webmoney: E265281470651 Z422237915069 R418926282008

01.03.2011, 18:01	#13
804040 Пользователь Регистрация: 31.03.2010 Сообщений: 29	ок! Биг спасибо, а "Чтобы запрашивал название листа в книге в который вставлять" не удалось реализовать?

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Макрос по выборке данных	zenner	Microsoft Office Excel	11	09.04.2010 15:09
как привязать одну кнопку к разным книгам	akd2009	Microsoft Office Excel	2	02.02.2010 16:26
Возможно ли самому по книгам изучить С++	покаЧайник	Свободное общение	11	07.10.2009 18:42
МАКРОС!ПОИСК ДАННЫХ. HELP!	jungo	Microsoft Office Excel	8	02.04.2008 10:50
Макрос - до конца данных	jungo	Microsoft Office Excel	6	08.02.2008 09:47