Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Копировать "поле со списком" в определенную ячейку через VBA - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копировать "поле со списком" в определенную ячейку через VBA (Макросы/Sub)
Копировать "поле со списком" в определенную ячейку через VBA
CAMOY4KA_21rus Дата: Пятница, 22.08.2014, 16:37 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Суть проблемы в принципе в названии темы...не могу скопировать заранее заданную функцию "поле со списком" в определенную ячейку через VBA.
Сам я программировать начал совсем недавно, учусь сам по книгам и интернету, поэтому пока всего языка программирования не знаю в основном опираюсь на логику. Так вот мои пошаговые действия:
1) я создаю "поле со списком" на нужном мне месте и нужного мне размера
2) нажимаю ГЕНИАЛЬНУЮ кнопку "запись макроса"
3) выделяю созданное ранее "поле со списком"
4) копирую "поле со списком"
4) выбираю нужную мне ячейку в которую хочу скопировать "поле со списком"
5) вставляю "поле со списком"
6) так несколько раз
7) нажимаю кнопу "остановить запись"
8) удаляю копии которые сделал в ручную, оригинал оставил (чтобы проверить записанный мною код)
9) захожу в макрос
10) изменит макрос
11) ну и само сабой запускаю его
в итоге он мне копии делает, но не так как я их делал в ручную, он мне их делает совершенно в другом месте.

вот получившийся макрос при записи:

[vba]
Код
Sub Макрос9()
ActiveSheet.Shapes("Drop Down 7").Select
Selection.Copy
Range("C8").Select
ActiveSheet.DropDowns.Add(64.5, 60.75, 209.25, 15.75).Select
ActiveSheet.Paste
Range("C9").Select
ActiveSheet.DropDowns.Add(64.5, 60.75, 209.25, 15.75).Select
ActiveSheet.Paste
End Sub
[/vba]

Помогите пожалуйста кто чем может.Спасибо.
 
Ответить
СообщениеСуть проблемы в принципе в названии темы...не могу скопировать заранее заданную функцию "поле со списком" в определенную ячейку через VBA.
Сам я программировать начал совсем недавно, учусь сам по книгам и интернету, поэтому пока всего языка программирования не знаю в основном опираюсь на логику. Так вот мои пошаговые действия:
1) я создаю "поле со списком" на нужном мне месте и нужного мне размера
2) нажимаю ГЕНИАЛЬНУЮ кнопку "запись макроса"
3) выделяю созданное ранее "поле со списком"
4) копирую "поле со списком"
4) выбираю нужную мне ячейку в которую хочу скопировать "поле со списком"
5) вставляю "поле со списком"
6) так несколько раз
7) нажимаю кнопу "остановить запись"
8) удаляю копии которые сделал в ручную, оригинал оставил (чтобы проверить записанный мною код)
9) захожу в макрос
10) изменит макрос
11) ну и само сабой запускаю его
в итоге он мне копии делает, но не так как я их делал в ручную, он мне их делает совершенно в другом месте.

вот получившийся макрос при записи:

[vba]
Код
Sub Макрос9()
ActiveSheet.Shapes("Drop Down 7").Select
Selection.Copy
Range("C8").Select
ActiveSheet.DropDowns.Add(64.5, 60.75, 209.25, 15.75).Select
ActiveSheet.Paste
Range("C9").Select
ActiveSheet.DropDowns.Add(64.5, 60.75, 209.25, 15.75).Select
ActiveSheet.Paste
End Sub
[/vba]

Помогите пожалуйста кто чем может.Спасибо.

Автор - CAMOY4KA_21rus
Дата добавления - 22.08.2014 в 16:37
doober Дата: Пятница, 22.08.2014, 17:27 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 947
Репутация: 323 ±
Замечаний: 0% ±

Excel 2010
Попробуйте так
Вставляет на оду строку ниже
[vba]
Код
ActiveSheet.Shapes("Drop Down 7").Select
Selection.Copy
Range("C8").Select
ActiveSheet.Paste
Range("C9").Select
ActiveSheet.Paste
[/vba]




Сообщение отредактировал doober - Пятница, 22.08.2014, 17:41
 
Ответить
СообщениеПопробуйте так
Вставляет на оду строку ниже
[vba]
Код
ActiveSheet.Shapes("Drop Down 7").Select
Selection.Copy
Range("C8").Select
ActiveSheet.Paste
Range("C9").Select
ActiveSheet.Paste
[/vba]

Автор - doober
Дата добавления - 22.08.2014 в 17:27
CAMOY4KA_21rus Дата: Пятница, 22.08.2014, 19:44 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
doober, Спасибо большое, так все работает)
 
Ответить
Сообщениеdoober, Спасибо большое, так все работает)

Автор - CAMOY4KA_21rus
Дата добавления - 22.08.2014 в 19:44
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копировать "поле со списком" в определенную ячейку через VBA (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!