Страницы: 1
RSS
Переместить фокус ячейки
 
Уважаемые гуру, помогите решить небольшую (для Вас конечно) проблему. В коде:  
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)  
   If ListBox1.ListCount = 0 Then Cancel = True  
   ActiveCell = ListBox1.Value  
End Sub  
 
данные выбранные из ListBox1 попадают в активнную ячейку, а вот что надо дописать, чтобы ПОСЛЕ ЭТОГО фокус ячейки сместился скажем на n столбцов вправо и в эту выбранную ячейку можно было бы сразу ввести данные (если я правильно понял это назывется "модально")? А совсем замечательно было бы, если бы после этого самого ввода данных фокус перместился  бы под искомую активную ячейку для дальнейшего выбора из ListBox1 (это уж конечно была бы вишенка на торте). Заранее спасибо всем откликнувшимся.
 
Может быть так..  
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)  
If ListBox1.ListCount = 0 Then Cancel = True  
ActiveCell = ListBox1.Value  
ActiveCell.Offset(1).Activate  
End Sub
 
Маугли, большое спасибо, вариант работает, но только если рассматиривать первую половину моего вопроса (я правда изменил ActiveCell.Offset(1).Activate на ActiveCell.Offset(0, 1).Activate). А вот что насчет второй половины, т.е. перемещения фокуса ячейки после ввода данных в "смещенную" ячейку?
 
Не очень понял..  
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)  
If ListBox1.ListCount = 0 Then Cancel = True  
ActiveCell = ListBox1.Value  
ActiveCell.Offset(0, 3) = InputBox("Вводим инфу")  
ActiveCell.Offset(1).Activate  
End Sub
 
Замечательно, Маугли. Я предполагал немного другое (задумывалось:    
1. Выбор в активной ячейке из ListBox  
2. Автоматическое перемещение фокуса ячейки  
3. Ввод количества  
4. Автоматическое перемещение фокуса ячейки под первую активную ячейку), но так даже лучше наверное.  
 
Большое спасибо
Страницы: 1
Читают тему
Наверх