По выбору из ComboBox'а присвоить значения ячейкам

@Antonbik · Регистрация: 16.03.2012

Студворк — интернет-сервис помощи студентам

Добрый день, сразу извините если мой вопрос покажется банальным, просто я только учусь писать макросы....
Суть макроса заключается в следующем:
1.Есть форма с combobox'ом в документе Word, при инциализации формы необходимо подключится к рабочей книге Excel и добавить значения ячеек столбца "A" в combobox для выбора.
2.Далее по выбору из combobox'а значения необходимо что бы соответствующим выбранному, значениям ячеек столбца "B""C" присваивались переменные.
Суть вопроса:
1.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Sub UserForm_Initialize()
Dim oExcel As New Excel.Application 
Dim oWbk As Excel.Workbook
Dim oSheet As Excel.Worksheet
Dim oColumn As Range
Dim oCell As Range
Set oWbk = Workbooks.Open("C:\BS_Beeline.xls")  
Set oSheet = oWbk.Worksheets.Item("A1") 
oExcel.Visible = True 
oSheet.Activate
Set oColumn = oSheet.Columns("A")
For Each oCell.Value In oColumn.Cells
If oCell <> "" Then
ComboBox.AddItem oCell.Value
End If
Next

Выдает ошибку "13" что то связанное с типами, убираю As Range в строках

Visual Basic
1
Dim oColumn As Range, Dim oCell As Range

, ругается на oCell.Value, убираю Value, начинает работать но очень долго инициализирует форму
В столбце "А" 150 записей. Где ошибка?
2. Каким кодом решить второй вопрос?
Пожалуйста помогите решить эти вопросы, две недели ломаю голову, а толку ни какого...

@Казанский · 17.03.2012, 20:41

Сообщение от Antonbik

Где ошибка?

1. Range без указания родительского объекта это Word.Range с совершенно другими свойствами. Следовало указать Excel.Range.
2.

Visual Basic
1
For Each oCell In oColumn.Cells 'без .Value

3. Долго, потому что перебирается весь столбец (65536 ячеек в 2003 или миллион ячеек в 2007). Надо выходить из цикла при первой пустой ячейке или найти последнюю заполненную ячейку:

Visual Basic
1
2
3
4
5
6
7
8
Public Sub UserForm_Initialize()
Dim oWbk As Object
Set oWbk = GetObject("C:\BS_Beeline.xls")
With oWbk.Parent 'excel.application
    ComboBox.List = .Range(oWbk.sheets(1).Cells(1, 1), oWbk.sheets(1).Cells(60000, 1).End(-4162)).Value
    .Quit
End With
End Sub

Второй вопрос не понял.

@Antonbik · 23.03.2012, 16:20 **[ТС]**

Спасибо огромное за помощь, в принципе с первым вопросом разобрался сам:

Visual Basic
1
2
3
4
5
6
7
8
Set oColumn = oSheet.Columns("A")
For Each oCell In oColumn.Cells
If oCell <> "" Then
ComboBox.AddItem oCell.Value
Else 
Exit For
End If
Next

Суть второго заключается в том что листе Excel 3 столбца при выборе значения из столбца "A" мне надо сделать так что бы соответствующим значениям столбцов "B" и "C" присваивались переменные, подскажите хотя бы с чего начать пожалуйста?

@Казанский · 24.03.2012, 16:15

Visual Basic
1
2
Cells(ComboBox.ListIndex + 1, "B") = varB
Cells(ComboBox.ListIndex + 1, "C") = varC

@Antonbik · 26.03.2012, 09:34 **[ТС]**

Уважаемый Казанский, подскажите пожалуйста, строки вставляю после "next", вылетает ошибка "1004" Application - defined, что не так?

@Казанский · 26.03.2012, 09:45

Сообщение от Antonbik

строки вставляю после "next"

То есть в процедуре Sub UserForm_Initialize() ?
Разумеется, в этот момент в комбобоксе нет выбранного значения и ComboBox.ListIndex = -1.
Эти строки надо располагать в процедуре Sub ComboBox_Change() или в процедуре обработки нажатия какой-нибудь кнопки.

@Antonbik · 26.03.2012, 13:17 **[ТС]**

я так и думал,только не знал куда, спасибо огромное еще раз Казанский.

Добавлено через 39 минут
Уважаемый Казанский, строки расположил в процедуре Sub ComboBox_Change(), помогите пожалуйста еще раз, пытаюсь значения varB и varC вставить в word документ при нажатии кнопки:

Visual Basic
1
2
oDoc.Bookmarks("V1").Range.Text = varB
oDoc.Bookmarks("V2").Range.Text = varC

но почему то не вставляет, не подскажете почему? Заранее спасибо...
Переменные varB и varC определил как String

Добавлено через 2 часа 23 минуты
Все обошелся без переменных:

Visual Basic
1
2
oDoc.Bookmarks("V1").Range.Text = Cells(ComboBox.ListIndex + 1, "B")
oDoc.Bookmarks("V2").Range.Text = Cells(ComboBox.ListIndex + 1, "С")

@Antonbik · 04.04.2012, 11:11 **[ТС]**

Опять без вашей помощи не обойтись...
Продолжаю писать свой макрос: есть два comboboxa и два переключателя:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
Private Sub UserForm_Initialize()
ComboBox1.Visible = False
ComboBox2.Visible = False
Dim oWbk As Workbook
Dim oSheet As Worksheet
Dim oColumn As Excel.Range
Dim oCell As Excel.Range
End Sub
 
Private Sub OptionButton1_Change()
If OptionButton1.Value = True Then
ComboBox1.Visible = True
Else
ComboBox1.Visible = False
End If
Set oWbk = Workbooks.Add("C:\BS.xls")  
Set oSheet = oWbk.Worksheets.Item("Лист1") 
oSheet.Activate
Set oColumn = oSheet.Columns("A") 
For Each oCell In oColumn.Cells 
If oCell <> "" Then 
ComboBox1.AddItem oCell.Value 
Else 
Exit For 
End If
Next
End Sub
 
Private Sub OptionButton2_Change()
If OptionButton2.Value = True Then
ComboBox2.Visible = True
Else
ComboBox2.Visible = False
End If
 
Set oWbk = Workbooks.Add("C:\Bs.xls")  
Set oSheet = oWbk.Worksheets.Item("Лист2") 
oSheet.Activate
Set oColumn = oSheet.Columns("A") 
For Each oCell In oColumn.Cells 
If oCell <> "" Then 
ComboBox2.AddItem oCell.Value 
Else 
Exit For 
End If
Next
End Sub
 
Private Sub ComboBox1_Change()
Dim VarB As Variant
Set VarB = Cells(ComboBox1.ListIndex + 1, "B")
Dim VarC As Variant
Set VarC = Cells(ComboBox1.ListIndex + 1, "C")
End Sub
 
 
Private Sub CommandButton1_Click()
Dim oDoc As Document
Set oDoc = Application.Documents.Add("C:\Zad.dot")
If OptionButton1.Value = True Then oDoc.Bookmarks("1").Range.Text = ComboBox1.Value
If OptionButton1.Value = True Then oDoc.Bookmarks("2").Range.Text = VarB 
If OptionButton1.Value = True Then oDoc.Bookmarks("3").Range.Text = VarC
 
If OptionButton2.Value = True Then oDoc.Bookmarks("4").Range.Text = ComboBox2.Value
End Sub

В 51-й и 53-й строке переменным VarB и VarC присваиваются значения из столбцов "B","C" Листа №2, соответственно и в шаблон они добавляются, а по моей задумке должны быть значения из Листа №1, Переключатели включены одновременно...
Есть подозрение, что два раза открываю C:\Bs.xls, но как по другому к сожалению не знаю...
Пожалуйста помогите еще разочек, Заранее благодарен!

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

@Antonbik 0 / 0 / 0 Регистрация: 16.03.2012 Сообщений: 5
	26.03.2012, 09:34 [ТС]
	Уважаемый Казанский, подскажите пожалуйста, строки вставляю после "next", вылетает ошибка "1004" Application - defined, что не так? 0