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

Вход

Регистрация

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

 

= Мир MS Excel/Связь с ячейкой в VBA - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Связь с ячейкой в VBA
CAMOY4KA_21rus Дата: Понедельник, 08.09.2014, 11:44 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Всем здрасте!
Вот мой макрос который копирует поле со списком:

[vba]
Код
Sub Макрос9()

ActiveSheet.Shapes("Drop Down 1").Select
Selection.Copy
Cells(6, 3).Select
ActiveSheet.Paste
With Selection
.ListFillRange = "$L$2:$L$10"
.LinkedCell = "C6"
.DropDownLines = 8
.Display3DShading = False
End With

End Sub
[/vba]
Вопрос в следующем: можно ли как нибудь по другому прописать с строке
.LinkedCell = "C6"
"С6" - по другому, ну например через Cells(6,3) или еще как, чтобы я мог задать массив; хочу чтобы он мне при каждом нажатии кнопки копировал поле со списком на ячейку ниже и связь была с той же ячейкой на которую он копирует, вот как-то так...
Помогите кто чем может...всем спасибо)
 
Ответить
СообщениеВсем здрасте!
Вот мой макрос который копирует поле со списком:

[vba]
Код
Sub Макрос9()

ActiveSheet.Shapes("Drop Down 1").Select
Selection.Copy
Cells(6, 3).Select
ActiveSheet.Paste
With Selection
.ListFillRange = "$L$2:$L$10"
.LinkedCell = "C6"
.DropDownLines = 8
.Display3DShading = False
End With

End Sub
[/vba]
Вопрос в следующем: можно ли как нибудь по другому прописать с строке
.LinkedCell = "C6"
"С6" - по другому, ну например через Cells(6,3) или еще как, чтобы я мог задать массив; хочу чтобы он мне при каждом нажатии кнопки копировал поле со списком на ячейку ниже и связь была с той же ячейкой на которую он копирует, вот как-то так...
Помогите кто чем может...всем спасибо)

Автор - CAMOY4KA_21rus
Дата добавления - 08.09.2014 в 11:44
Rioran Дата: Понедельник, 08.09.2014, 11:56 | Сообщение № 2
Группа: Авторы
Ранг: Ветеран
Сообщений: 903
Репутация: 290 ±
Замечаний: 0% ±

Excel 2013
CAMOY4KA_21rus, здравствуйте.

Можете ввести дополнительную переменную (например, RowX) и задавать строку через неё:

[vba]
Код
.LinkedCell = "C" & RowX
[/vba]
По такому же принципу можете попробовать ссылки RC.


Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279
 
Ответить
СообщениеCAMOY4KA_21rus, здравствуйте.

Можете ввести дополнительную переменную (например, RowX) и задавать строку через неё:

[vba]
Код
.LinkedCell = "C" & RowX
[/vba]
По такому же принципу можете попробовать ссылки RC.

Автор - Rioran
Дата добавления - 08.09.2014 в 11:56
CAMOY4KA_21rus Дата: Понедельник, 08.09.2014, 12:01 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Rioran, Все понял, уже попробовал, все получилось, Спасибо.
 
Ответить
СообщениеRioran, Все понял, уже попробовал, все получилось, Спасибо.

Автор - CAMOY4KA_21rus
Дата добавления - 08.09.2014 в 12:01
  • Страница 1 из 1
  • 1
Поиск:

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