Страницы: 1
RSS
Использование ListBox для ввода нескольких значений в указанный диапазон
 
Создал простенький макрос, понял что надо усовершенствовать. Полагаю применить ListBox для добавления новый участников в диапазон. Нужна методическая помощь - реально ли это сделать и на сколько это будет удобно. В идеале необходимо добавить Новые ФИО и в соседний столбец маркер, соответсвующий номеру заявки (берется из столбца А листа ЗАЯВКА соответсвующей курсору строки). Совет дайте!?
 
Пытался понять, что требуется.  
Ничего не понял )  
 
Куда (на какой лист) вы собираетесь добавлять участников?  
Что значит добавлять - выбирать из списка имеющхся (на каком-то листе),  
или вводить новые фамилии?  
 
Пока не вижу смысла использовать макросы.  
Вроде бы, хватит выпадающего списка в ячейках (выполненного через ДАННЫЕ - ПРОВЕРКА - СПИСОК) и формулы ВПР для простановки маркера.
 
это фрагмент постановки учета и документооборота в одном флаконе. В данном случае Необходимо добавить новые ФИО в спровочник на листе СПРАВОЧНИКИ.
 
хорошо, тогда 2 вопроса:  
как тогда добавить указанное кол-во строк?  
и как присвоить ячейке на другом листе значение значение первого столбца выбранной курсором строки?
 
Вот пример: http://excelvba.ru/XL_Files/Sample__18-06-2010__0-27-40.zip  
Нажмите зеленую кнопку (предварительно выделив хотя бы по одной ячейке в строках, фамилии из которых надо скопировать в справочник)  
 
spr - это кодовое имя листа СПРАВОЧНИК (так проще обращаться к листам из макроса)
 
Спасибо, почерпнул много полезного в коде. Однако не совсем то: я предположил что слушателей (допустим 5: Иванов, Петров, Сидоров,.....) будет проще вводить прям в ListBox - Это возможно?
 
1. В листбокс ввод текста вручную невозможен.  
 
2. Где этот листбокс вы намерены поместить? (на форму, на лист, ещё куда-то...)  
 
3. ЗАЧЕМ ОН НУЖЕН ???  
Неужто неудобно вводить данные напрямую в ячейки?
 
именно это и хотел услышать. спасибо за помощь
 
последний вопрос: как вставить указанное в InputBox количество строк?
 
Вот так можно вставить 3 строки, начиная со строки 5:  
 
Sub Макрос1()  
   Rows(5).Resize(3).Insert  
End Sub  
 
 
С InputBox-ом будет так:  
 
Sub Макрос1()  
   n = CInt(Val(InputBox("Сколько строк вставить?", , 3)))  
   If n > 0 Then Rows(5).Resize(n).Insert  
End Sub
Страницы: 1
Читают тему
Наверх