Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Довойная вставка из макроса / 5 сообщений из 5, страница 1 из 1
02.11.2007, 10:36:47
    #34912209
Гость11111
Гость11111
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Довойная вставка из макроса
Приветик всем!!!
Не могу понять в чем дело - начала создавать макрос по которому вставляется пустая строка и в нее добавляется Выпадающий список, так вот вставляются 2 выпадающих списка - один в правильное место, а другой куда зря. Как это исправить, файл прилагается. (исходный Выпадающий список - АВ 109)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.11.2007, 11:03:51
    #34912329
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Довойная вставка из макроса
нет файла
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.11.2007, 11:06:53
    #34912352
Гость11111
Гость11111
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Довойная вставка из макроса
Сейчас попробую еще раз прикрепить
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.11.2007, 13:13:55
    #34912961
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Довойная вставка из макроса
Не очень понятно что должен делать макрос!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.11.2007, 13:46:39
    #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
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Довойная вставка из макроса / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 309ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2181978]:
 0ms
get settings:
 7ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 43ms
get topic data:
 8ms
get forum data:
 3ms
get page messages:
 31ms
get tp. blocked users:
 1ms
others: 197ms
total:  309ms
x
x
Закрыть


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