Excel VBA SetFocus

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

KECOnaj
nováček
Příspěvky: 4
Registrován: září 17
Pohlaví: Muž

Excel VBA SetFocus

Příspěvekod KECOnaj » 09 lis 2017 15:09

Č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:
  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



Reklama
Uživatelský avatar
elninoslov
Level 2
Level 2
Příspěvky: 175
Registrován: červen 13
Pohlaví: Muž

Re: Excel VBA SetFocus

Příspěvekod elninoslov » 09 lis 2017 18:09

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.

KECOnaj
nováček
Příspěvky: 4
Registrován: září 17
Pohlaví: Muž

Re: Excel VBA SetFocus

Příspěvekod KECOnaj » 09 lis 2017 18:53

Ď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.


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Excel VBA - GetObject
    od Grimm » 11 bře 2019 14:53 » v Kancelářské balíky
    3
    352
    od ITCrowd
    11 bře 2019 16:12
  • Excel - VBA - Makro - odeslání dat ze souboru A do souboru B
    od Pavel Křivánek » 26 lis 2018 15:04 » v Kancelářské balíky
    3
    780
    od MePExG
    28 lis 2018 21:30
  • VBA formatovanievanie
    od tsibee » 09 led 2019 11:18 » v Kancelářské balíky
    1
    408
    od atari
    09 led 2019 12:13
  • skorektnenie riadku VBA
    od tsibee » 04 čer 2018 13:58 » v Kancelářské balíky
    14
    1101
    od tsibee
    08 čer 2018 13:32
  • VBA- změna ikony
    od xpsedla57 » 27 úno 2019 01:23 » v Programování a tvorba webu
    3
    407
    od ChrisTaylor
    27 úno 2019 18:17

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 2 hosti