Вопрос о списках (ComboBox)...
Есть ComboBox со списком данных. Как сделать, чтобы выбранные данные вставлялись в выделенную ячейку.
Если речь идет об Excel, о раскрывающыемся списке созданым спомощю "Формы" панетли инструментов:
- щелкнем правой мышкой на обЪекте(Ваш ComboBox);
- в контексном меню (оно появиться)выберем
назначить макрос;
- в диалоговм окне "Назначить макрос", задать имя
макроса и книгу, где этот макрос будет
находится;
- отредактируем макрос редактором Visual Basik
Пример. Вставляет данные в "B5".
Sub ВстДанЯч()
Dim Список As Range
Dim ЯчСвязи As Range
Set Список = Sheets(1).Range("A1: A10")
Set ЯчСвязи = Range("B2") '
range("B5")= Список.Cells(ЯчСвязи.Value, 1)
End Sub
Успехов dedtolya
Если речь идет об Excel, о раскрывающыемся списке созданым спомощю "Формы" панетли инструментов:
- щелкнем правой мышкой на обЪекте(Ваш ComboBox);
- в контексном меню (оно появиться)выберем
назначить макрос;
- в диалоговм окне "Назначить макрос", задать имя
макроса и книгу, где этот макрос будет
находится;
- отредактируем макрос редактором Visual Basik
Пример. Вставляет данные в "B5".
Sub ВстДанЯч()
Dim Список As Range
Dim ЯчСвязи As Range
Set Список = Sheets(1).Range("A1: A10")
Set ЯчСвязи = Range("B2") '
range("B5")= Список.Cells(ЯчСвязи.Value, 1)
End Sub
Успехов dedtolya
Я извиняюсь, но мне нужно, чтобы днные вставлялись не в B5, а в выделенную ячейку или как-то определить пустую ячейку в диапазоне A1:A65536 .
Я извиняюсь, но мне нужно, чтобы днные вставлялись не в B5, а в выделенную ячейку или как-то определить пустую ячейку в диапазоне A1:A65536 .
Sub ВстДанЯч()
Dim Список As Range
Dim ЯчСвязи As Range
Dim Cтолбец As String
Set Список = Sheets(1).Range("A1: A10")
Set ЯчСвязи = Range("B2")
'Вставляет данные в "B5"
'Range("B5") = Список.Cells(ЯчСвязи.Value, 1)
'Вставляет данные в выделенную ячейку
'ActiveCell = Список.Cells(ЯчСвязи.Value, 1)
'Вставляет данные в последнюю пустую из определенныго стобца
Cтолбец = "C"
Range(Cтолбец & Range(Cтолбец & 65000).End(xlUp).Row + 1) _
= Список.Cells(ЯчСвязи.Value, 1)
End Sub
Успехов dedtolya
Sub ВстДанЯч()
Dim Список As Range
Dim ЯчСвязи As Range
Dim Cтолбец As String
Set Список = Sheets(1).Range("A1: A10")
Set ЯчСвязи = Range("B2")
'Вставляет данные в "B5"
'Range("B5") = Список.Cells(ЯчСвязи.Value, 1)
'Вставляет данные в выделенную ячейку
'ActiveCell = Список.Cells(ЯчСвязи.Value, 1)
'Вставляет данные в последнюю пустую из определенныго стобца
Cтолбец = "C"
Range(Cтолбец & Range(Cтолбец & 65000).End(xlUp).Row + 1) _
= Список.Cells(ЯчСвязи.Value, 1)
End Sub
Успехов dedtolya
СПАСИБО ОГРОМНОЕ!!!