ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Довойная вставка из макроса
5 сообщений из 5, страница 1 из 1
Довойная вставка из макроса
    #34912209
Гость11111
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость11111
Гость
Приветик всем!!!
Не могу понять в чем дело - начала создавать макрос по которому вставляется пустая строка и в нее добавляется Выпадающий список, так вот вставляются 2 выпадающих списка - один в правильное место, а другой куда зря. Как это исправить, файл прилагается. (исходный Выпадающий список - АВ 109)
...
Рейтинг: 0 / 0
02.11.2007, 10:36:47
| Ответить | Цитировать | Написать  
Довойная вставка из макроса
    #34912329
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
нет файла
...
Рейтинг: 0 / 0
02.11.2007, 11:03:51
| Ответить | Цитировать | Написать  
Довойная вставка из макроса
    #34912352
Гость11111
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость11111
Гость
Сейчас попробую еще раз прикрепить
...
Рейтинг: 0 / 0
02.11.2007, 11:06:53
| Ответить | Цитировать | Написать  
Довойная вставка из макроса
    #34912961
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Не очень понятно что должен делать макрос!
...
Рейтинг: 0 / 0
02.11.2007, 13:13:55
| Ответить | Цитировать | Написать  
Довойная вставка из макроса
    #34913103
LETME
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LETME
Участник
Вы вставляете новую строку в строку Selection.Row, а копируете поле со списком каждый раз в ячейку F1.
Я так понимаю нужно следующее:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
    Dim rn As Long
    
    rn = Selection.Row
    Cells(rn,  1 ).Select
    Selection.EntireRow.Insert
        
    ActiveSheet.Shapes("Drop Down 25").Select
    Selection.Copy
    ActiveSheet.DropDowns.Add( 1341 . 75 ,  1847 . 25 ,  91 . 5 ,  15 . 75 ).Select
    Cells(rn,  2 ).Select
    ActiveSheet.Paste
...
Рейтинг: 0 / 0
02.11.2007, 13:46:39
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Довойная вставка из макроса
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34913103&tid=2181978]:
 0ms
get settings:
 8ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 38ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 36ms
get tp. blocked users:
 1ms
others: 228ms
total:  340ms
созд. / загр.: 340ms
x
x
Закрыть


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