|
Данные из Combobox в ячейку Excel
|
|||
---|---|---|---|
#18+
Подобная но более сложная проблема: Есть 2 Combobox на одной форме, и несколько Textbox. Имеем книгу с проименованными листами На каждом из которых располагается одинаковая таблица. За выбор листов отвечает Combobox1 и тут все просто: Private Sub ComboBox1_Change() Sheets(ComboBox1.ListIndex + 1).Select End Sub Private Sub UserForm_Initialize() Dim n As Long n = Sheets.Count For i = 1 To n ComboBox1.AddItem Sheets(i).Name Тут все просто _________________________________________________ значения Combobox2 прописаны так: ComboBox2.AddItem "3-экипаж" ComboBox2.AddItem "4-экипаж" ComboBox2.AddItem "5-экипаж" ComboBox2.AddItem "6-экипаж" ComboBox2.AddItem "7-экипаж" ComboBox2.AddItem "8-экипаж" Эти данные должны вставляться при выборе в столбец "B" при чем ячейка там на прямую зависит от последнего заполненного столбца "С" другими словами Постановка в столбец "В" начинается с .Cells(Rows.Count, "C").End(xlUp).Row +1, Примерно так только не знаю как должен выглядеть этот алгоритм в сборе и +1 я поставил сам оно где то там должно быть но где не знаю ПЛЗ соберите все в кучу весь нет перешерстил но ни как, а сам не силен! Заранее спасибо! "С УВАЖЕНИЕМ МЫШОВСКИЙ" ... |
|||
:
Нравится:
Не нравится:
|
|||
14.06.2012, 11:36 |
|
|
start [/forum/topic.php?fid=60&fpage=76&tid=2157680]: |
0ms |
get settings: |
12ms |
get forum list: |
15ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
39ms |
get topic data: |
13ms |
get forum data: |
2ms |
get page messages: |
29ms |
get tp. blocked users: |
2ms |
others: | 290ms |
total: | 410ms |
0 / 0 |