Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
VBA. Фокус с UserForm на лист.
 
#1
28.08.2012 12:51:30
Здравствуйте.  
Имеется Userform (vbModeless)  
На листе выбирается ячейка, нажимается кнопочка на форме и в текстбокс вставляется номер столбца ячейки.  
Как можно сделать, чтобы после нажатия кнопки на userform, автоматически активировалось окно листа, а не userform?  
т.е. фокус чтобы переходил обратно на ячейку?  
Спасибо.
 
 
 
#2
28.08.2012 12:54:14
Unload.Me?  
Или вопрос связан с модальностью?
 
 
 
#3
28.08.2012 12:56:32
Код
Private Sub CommandButton1_Click()   
Dim r As Range: Set r = Selection   
Me.TextBox1 = r.Column   
r.Parent.Activate   
r.Activate   
End Sub  

Хотя я бы сделал так:  
в обычном модуле объявил бы переменную:  
Код
Public rTarget As Range  

Затем:  
Код
Private Sub CommandButton1_Click()   
Set rTarget = ActiveCell   
UserForm1.Show vbModeless   
End Sub  

и в модуле формы:  
Код
Private Sub CommandButton1_Click()   
Me.TextBox1 = rTarget.Column   
rTarget.Parent.Activate   
rTarget.Activate   
End Sub
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#4
28.08.2012 12:57:55
спасибо :)
 
 
 
#5
28.08.2012 13:04:02
Дмитрий. вставила две строчки кода, но все равно активно окно userform.  
А смысл, собственно, вот в чем: на листе курсором выбираю ячейку - нажала кнопочку, дальше курсором выбираю другую ячейку - другую кнопочку. Но вот после нажатия на кнопку, курсор начинает бегать по userform, а не по листу.
 
 
 
#6
28.08.2012 13:52:16
Диана, а Вы после нажатия ввод попробуйте воспользоваться клавиатурой - хотя бы стрелками поперемещаться. Переход будет осуществляться по ячейкам листа.  
 
На всякий случай прикладываю пример. У меня работает(Excel 2010)
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#7
28.08.2012 15:12:18
Дмитрий, а у меня тоже 2010-й, но по userform перемещается... :(
 
 
 
#8
28.08.2012 15:14:48
может, в настроечках где-нибудь покопаться?
 
 
 
#9
28.08.2012 17:15:22
Может это?      
Код
Private Sub CommandButton1_Click()   
Dim r As Range: Set r = Selection   
Me.TextBox1 = r.Column   
AppActivate "Microsoft Excel"   
End Sub
 
 
 
#10
28.08.2012 17:34:31
> AppActivate  
бинго. Но я бы написал Application.Name
Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

https://github.com/nervgh
 
 
 
#11
28.08.2012 17:35:37
или просто AppActivate Application
Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

https://github.com/nervgh
 
 
 
#12
28.08.2012 20:13:20
http://www.planetaexcel.ru/forum.php/news.php?thread_id=37378  
А я запомнил. :)
 
 
 
#13
29.08.2012 10:24:48
Здравсвтуйте.  
Спасибо за помощь всем.  
 
На строке: AppActivate "Microsoft Excel"  
или AppActivate Application.Name  
выдает ошибку:  
Run-time error '5'  
Invalid procedure call or argument  
 
С чем может быть связано?  
Спасибо.
 
 
 
#14
29.08.2012 15:12:42
с тем, что отсутствует файл с примером
Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

https://github.com/nervgh
 
 
 
#15
30.08.2012 14:54:45
Здравствуйте всем.  
Вот он файлик с примером, где выдается ошибка:  
 
Run-time error '5'  
Invalid procedure call or argument
 
 
 
#16
30.08.2012 20:09:33
Обе кнопки работают.
 
 
 
#17
30.08.2012 20:34:11
У меня тоже никакой ошибки не наблюдается.
 
 
 
#18
31.08.2012 09:56:55
Здравствуйте еще раз.  
Давайте попробуем по-порядку, у всех работает, у меня - нет.  
Может, библиотека какая отключена?  
у меня:  
-Visual Basic for Application  
-Microsoft Excel 14.0 Object Library  
-OLE Automation  
-Microsoft Office 14.0 Object Library  
-Microsoft Forms 2.0 Object Library  
-Autocad 2007 Type Library  
 
Может, чего-то не хватает?  
Спасибо.  
 
[20222]
 
 
 
#19
31.08.2012 10:13:56
все библиотеки тоже, кроме Автокада.  
Эксель 2010.  
Все работает.
 
 
 
#20
31.08.2012 20:04:07
Может Автокад и мешает?
 
 
 
#21
01.09.2012 03:04:35
Диана, такая ошибка возникает, если форма модальная, например, если она запускается на форме из VBE по F5 или из меню.  
Попробуйте на форме нажать F4 и вручную установить свойство ShowModal = False
 
 
 
#22
14.09.2012 22:28:26
ZVI, спасибо большое за совет, и правда помогло.
 
 
 
#23
18.09.2012 01:20:07
Диана, это одно из тех чудес, которые иногда случаются, рад, что помогло. :-)  
Вообще, причины могли быть от простых, что я привел, до курьезных, например, присвоение (локальной) константе vbModeless единичного значения вместо нулевого.
 
 
 
Страницы: 1
Наверх