PC-HELP.CZ

České diskuzní fórum o počítačích
https://pc-help.cnews.cz/

Excel VBA SetFocus

https://pc-help.cnews.cz/viewtopic.php?f=35&t=193554

Stránka 1 z 1

Excel VBA SetFocus

Napsal: 09 lis 2017 15:09
od KECOnaj
Čaute,

vo VBA mám vytvorený formulár a nefunguje mi zvýraznenie tlačítka Button_Dalej.SetFocus, keď ho volám z funkcie Private Sub ComboBox_Firma_Exit(ByVal Cancel As MSForms.ReturnBoolean).

Tlačítko mám nastavené dobre (keby som to zavolal z Private Sub UserForm_Initialize(), tak je to OK).
Problém je v tom, že tlačítko sa mi nenastaví, keď opustím ComboBox stlačením "tab", alebo "Enter", keď sa prepnem myškou je to OK. Pri tom "tab", alebo "Enter" to funguje len pokiaľ neopustím funkciu Private Sub ComboBox_Firma_Exit, potom ma to hodí o jednu hodnotu TabIndex ďalej (namiesto 2 na 3, napr. keby som nemal použité Button_Dalej.SetFocus, tak ma to po stlačení Enter hodí na pozíciu 2, keď to použijem hodí ma to na pozíciu 3).

Vôbec tomu nechápem a už som z toho zúfalý... :(

Celý kód:
Code: [Vybrat vše] [Zobrazit/Skrýt] [Download] (Bez_jmena.vb)
  1. Private Sub ComboBox_Firma_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  2.     Dim SuborDatabazaNazov As String    'Premena s nazvom databazi
  3.    SuborDatabazaNazov = "Databaza Firiem.xlsx" 'Zadame nazov databazi do premennej
  4.  
  5.     On Error Resume Next    'Nezobrazime err
  6.    'Zistime ci je subor otvoreny
  7.    Set SuborDatabaza = Workbooks(SuborDatabazaNazov)   'Nacitame subor
  8.    SuborDatabazaOtvoreny = Not SuborDatabaza Is Nothing    'Zistime ci je otvoreny
  9.    
  10.     If SuborDatabazaOtvoreny = True Then   'Ak je otvoreny
  11.        Workbooks(SuborDatabazaNazov).Activate   'Aktivujeme subor
  12.        
  13.         With Range("Nazov_DatabazaFirmy")   'Prehladavame v nazvoch firiem
  14.            Set Rng = .Find(FormFirma.ComboBox_Firma.Value, MatchCase:=True)    'Hladame ci je zadana firma v databaze
  15.            If Not Rng Is Nothing Then  'Ak je nastavime hodnoty z databazy
  16.                FirmaZDatabazy = True   'Firma sa nachadza v databaze
  17.                
  18.                 TextBox_Adresa.Value = Rng.Offset(0, 1).Value
  19.                 TextBox_PSC.Value = Rng.Offset(0, 2).Value
  20.                 TextBox_Mesto.Value = Rng.Offset(0, 3).Value
  21.                 TextBox_ICO.Value = Rng.Offset(0, 4).Value
  22.                 TextBox_DIC.Value = Rng.Offset(0, 5).Value
  23.                 Button_Dalej.SetFocus
  24.                
  25.             Else    'Ak nie je vymazeme hodnoty
  26.                TextBox_Adresa.Value = ""
  27.                 TextBox_PSC.Value = ""
  28.                 TextBox_Mesto.Value = ""
  29.                 TextBox_DIC.Value = ""
  30.                 TextBox_ICO.Value = ""
  31.             End If
  32.             ThisWorkbook.Activate   'Nastavime aktivny, aktualny zosit, aby nas nepreplo do databazy
  33.         End With
  34.     End If
  35. End Sub
  36. Private Sub UserForm_Initialize()
  37.     ComboBox_Firma.SetFocus 'Na zaciatku nastavime kurzor na nazov firmy
  38. End Sub
GeSHi © Codebox Plus Extension

Re: Excel VBA SetFocus

Napsal: 09 lis 2017 18:09
od elninoslov
A čo keby ste nastavil TabIndex toho buttonu o jedno vyšší ako ma TabIndex ten combobox ? Tak by to malo fungovať... aspoň u mňa to v tom prípade funguje aj pri Enter aj pri Tab.

Re: Excel VBA SetFocus

Napsal: 09 lis 2017 18:53
od KECOnaj
Ďakujem za odpoveď. Toto mi robilo problém v tom, že na tlačítko som chcel skočiť iba ak sa mi formulár vyplnil automaticky. Ale už to mám: overovanie som zmenil z funkcie _Exit na _Change a tam mením TabIndex, ako píšete, podľa toho či sa mi formulár automaticky vyplnil. Potom vo funkcií ComboBox_Firma_Exit naspäť nastavím TabIndex na pôvodné číslo, aby následne fungoval tab normálnym poradím.
Časové pásmo: UTC+02:00
Stránka 1 z 1
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/