2012-01-31 2 views
1

Как получить выбранное значение combobox?Получите выбранное значение combobox activex, используя vba

У меня есть сводка, которая имеет значения: «Корпоративный» и «Потребитель».

Я хочу получить значение, которое я выбрал, а не индекс и сохранить в строке.

что-то вроде этого:

string a = combobox.value; 

(а -> Потребитель)

спасибо

+0

Вы делаете это от C#? –

+0

@SiddharthRout, он сказал, что делает это из VBA в описании. –

+0

Да, он сделал :), но код выше кода C#;) –

ответ

1

Value имеет капитал "V" в VBA, но при условии, combobox это имя ComboBox вы создали на экране, код, который у вас есть, будет работать (за исключением того, что ваш оператор присваивания неверен, см. ниже). Если вы не знаете, что такое имя ComboBox, это, скорее всего, ComboBox1. Чтобы проверить, посмотрите на свойство Name в окне свойств VBA.

Попробуйте это:

Dim a as String 

a = combobox.Value 
+0

Это не сработало. Имя combobox имеет значение «CBSegmento», поэтому я сделал точно, как вы сказали. Dim Seg As String SEG = CBSegmento.Value Ошибка: времени выполнения error'424' : Требуется объект – Raphael

+0

Где находиться код? Является ли ComboBox в форме пользователя или в электронной таблице непосредственно где-то? –

5

Если ComboBox встроен в таблицу, которую вы можете использовать это:

Dim ws as Worksheet 
Dim cboCorpConsumer as ComboBox 
Dim a as String 

Set ws = Worksheets("YourWorksheetName") 
Set cboCorpConsumer = ws.OLEObjects("cboNameFromActiveXProperties").Object 

a = cboCorpConsumer.Value 

Или в одной строке:

a = Worksheets("YourWorksheetName").OLEObjects("cboNameFromActiveXProperties").Object.Value 
+0

Это правильный ответ; однако, я был немного смущен именем поля со списком (это cboName, и вы добавляете на него стандартный суффикс?). Этот ответ предполагает, что имя combobox является «cboNameFromActiveXProperties». Аналогично, если ваш поле со списком называется «ComboBox1», вы должны использовать этот синтаксис: 'a = Worksheets (« YourWorksheetName »). OLEObjects (« ComboBox1 »). Object.Value ' – GlennFromIowa

Смежные вопросы