Можно ли свойства LinkedCell и ListFillRange элемента ActiveX "Поле со списком" привязать к переменным в макросе?

Пользователь

Сообщений: 90 Регистрация: 30.08.2013

14.08.2014 12:39:46

Привет всем
На листе есть ComboBox (пример во вложенном файле). Свойства LinkedCell (C9) и ListFillRange(A1:A5) заданы вручную. Как в макросе привязать их к переменным t и k? Чтобы с помощью макроса менялся диапазон данных и связанная ячейка (получилось C8 и A1:A25)?
Подскажите, пожалуйста.

Прикрепленные файлы

Поле со списком.xlsm (21.04 КБ)

Изменено: BretHard120 - 14.08.2014 12:42:26

Максим Зеленский

Пользователь

Сообщений: 4663 Регистрация: 11.06.2014

Microsoft MVP 2018-2022

14.08.2014 12:55:53

можно:

Код
Sheets("Лист1").ComboBox1.LinkedCell = Range("C" & t).Address Sheets("Лист1").ComboBox1.ListFillRange = Range("A1:A" & k).Address

F1 творит чудеса

ikki Пользователь Сообщений: 9709 Регистрация: 22.12.2012	#3 14.08.2014 12:58:02 а чем =Range("C" & t).Address будет отличаться от простого ="C" & t ? фрилансер Excel, VBA - контакты в профиле "Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг

BretHard120

Пользователь

Сообщений: 90 Регистрация: 30.08.2013

14.08.2014 14:04:26

Поправил код на

Код

Dim k&, t&
Dim WB As Excel.Workbook
Dim WS As Excel.Worksheet

Public Sub Pole()

Set WB = Application.Workbooks("Поле со списком.xlsm")
Set WS = WB.Worksheets(1)

k = 5
t = 9

'WB.Worksheets(1).ComboBox1.LinkedCell = "C" & t
'WB.Worksheets(1).ComboBox1.ListFillRange = "A1:A" & k

WS.ComboBox1.LinkedCell = "C" & t
WS.ComboBox1.ListFillRange = "A1:A" & k

End Sub

Вот только почему запись в виде:

Код
WB.Worksheets(1).ComboBox1.LinkedCell = "C" & t

срабатывает, а в виде

Код
WS.ComboBox1.LinkedCell = "C" & t

выдает ошибку? (не понимает метод).

Прикрепленные файлы

Поле со списком.xlsm (22.39 КБ)

The_Prist

Пользователь

Сообщений: 15493 Регистрация: 15.09.2012

Профессиональная разработка приложений для MS Office

14.08.2014 14:20:24

1. Возможно С записана на кириллице, а не на латинице.
2. Лучше в таких случаях добавлять имя листа:

Код
WB.Worksheets(1).ComboBox1.LinkedCell = "'" & WB.Worksheets(1) & "'!C" & t

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...

BretHard120 Пользователь Сообщений: 90 Регистрация: 30.08.2013	#6 14.08.2014 14:38:09 "C" записана на латинице, я просто скопировал работающую строку и WB.Worksheets(1) на WS поменял. Ладно, буду пользоваться тем вариантом, который работает. Спасибо за ответы.

Читают тему