Zavrieť
Upraviť
Hlavné
- Auto Moto [x]
- Cestovanie [x]
- Deti [x]
- Domácnosť [x]
- Elektronika [x]
- Foto [x]
- Hoby [x]
- Hudba [x]
- Iné [x]
- Kaviareň Porady [x]
- Kultúra [x]
- Mobily a Tablety [x]
- Móda [x]
- Mzdy a personalistika [x]
- Neziskové organizácie [x]
- Počítače [x]
- Podnikanie [x]
- Porada (o stránke Porada) [x]
- Právo [x]
- Recenzie [x]
- Recepty [x]
- Software [x]
- Stavba [x]
- Šport [x]
- Účtovníctvo a dane [x]
- Vzdelávanie [x]
- Záhrada [x]
- Zdravie [x]
- Zvieratá [x]
Otázku
Pravidlá
Položte novú otázku, ak:
- Potrebujete odpoveď (na diskusiu slúžia Debaty).
- Ste nenašli odpoveď cez vyhľadávanie
Tip
Pravidlá a tipy
Vaše rady, tipy a vedomosti!
Tip môžete napísať stručne ale môže ísť aj o dlhší článok.
Ak chcete zdieľať cudzí článok, zdieľajte link.
Tip môžete napísať stručne ale môže ísť aj o dlhší článok.
Ak chcete zdieľať cudzí článok, zdieľajte link.
Zdieľaj link
Pravidlá a tipy
Zdieľajte s nami link na články z iných webov.
Komentáre k linku budú zoradené podľa počtu hlasov,
môžete využiť aj filter komentárov a zobraziť
len komentáre od členov ktorých na Porade sledujete.
Komentáre k linku budú zoradené podľa počtu hlasov,
môžete využiť aj filter komentárov a zobraziť
len komentáre od členov ktorých na Porade sledujete.
Sledovať
ComboBox a TextBox
Ahoj poradaci,
po dlhom case zas nieco neviem zaradit domakra
ComboBox1.AddItem "bu1", 1
ComboBox1.AddItem "bu2", 2
ComboBox1.AddItem "bu3", 3
ComboBox1.DropDownLines = 4
ComboBox1.DropDownWidth = 75
ComboBox1.ListHeaderCount = 0
a = TextBox1.Value
Potrebujem vediet:
- ako sa zapisuje ComboBox a TextBox, lebo tak ako som to zapisal ja to nefunguje
- Textboxu: hodnotu priradit k premennej
- ComboBox: tvorba zoznamu a priradenie premenej
pridavam aj xls pre lepsi prehlad
po dlhom case zas nieco neviem zaradit domakra
ComboBox1.AddItem "bu1", 1
ComboBox1.AddItem "bu2", 2
ComboBox1.AddItem "bu3", 3
ComboBox1.DropDownLines = 4
ComboBox1.DropDownWidth = 75
ComboBox1.ListHeaderCount = 0
a = TextBox1.Value
Potrebujem vediet:
- ako sa zapisuje ComboBox a TextBox, lebo tak ako som to zapisal ja to nefunguje
- Textboxu: hodnotu priradit k premennej
- ComboBox: tvorba zoznamu a priradenie premenej
pridavam aj xls pre lepsi prehlad
Naposledy upravil Palo235 : 20.01.10 at 06:21
-
AUTOMATIZACIA.xls
(46.0 KB, 28 videní)
- Každý móže napísať len 1 odpoveď. Neskor mozete svoju odpoveď vylepšiť.
- Odpoveď má priniesť riešenie na otázku, vyvarujte sa hodnotenia otázky.
- Odpoveď má byť viac o faktoch ako o názoroch.
Ak potrebujete v otázke niečo upresniť, najskôr sa spýtajte na podrobnosti.
Koncept slúži na uloženie rozpracovanej odpovede, koncept sa zobrazuje len Vám, až kým ho nezverejníte.
Ak máte podobnú otázku, založte Novú otázku alebo Súvisiacu otázku.
Koncept slúži na uloženie rozpracovanej odpovede, koncept sa zobrazuje len Vám, až kým ho nezverejníte.
Ak máte podobnú otázku, založte Novú otázku alebo Súvisiacu otázku.
❤ Buďte priateľskí ❤
Sme súčasťou jednej komunity, ktorá si chce vzájomne pomáhať, rozdieľnosť je vítaná ak neubližuje!
Usporiadať podľa času 1) definovať default hodnoty - fn: UserForm_Activate()
v tvojom kóde by sa dupľovali voľby výberu pri každej zmene
2) premenné použiteľné v celom kóde:
Global a As Variant, b As Variant, c As Variant (definovať v module)
3) šírka prvku a šírka zoznamu môžu byť rozdielne - viď ComboBox1
TIP: Vo VBA okne pri úprave UserFormu po stlačení F4 sa zobrazí okno s vlastnosťami. Zobrazené vlastnosti pre daný objekt (napr. ComboBox) možno nastaviť alebo aspoň čítať ich hodnoty.
F1 - pomôže vždy
Celá funkcia:
Private Sub UserForm_Activate()
Dim xPU, aPU
xPU = "SLSP;VUB;Tatra Banka": aPU = Split(xPU, ";")
On Error GoTo xErr:
' ComboBox: tvorba zoznamu
With Me.ComboBox1
For i = 0 To 2
.AddItem aPU(i)
Next i
.Width = 100
.ListWidth = 80 'nie "DropDownWidth"
.ListRows = 2 'nie "DropDownLines"
'ComboBox: priradenie premenej
.Value = aPU(0)
End With
With Me.ComboBox2
For i = 0 To 2
.AddItem aPU(i)
Next i
.Value = aPU(1)
End With
With Me.ComboBox3
For i = 0 To 2
.AddItem aPU(i)
Next i
.Value = aPU(2)
End With
'TextBox: priradenie premenej
Me.TextBox1.Value = "A"
Me.TextBox2.Value = "B"
Me.TextBox3.Value = "C"
xResume:
Exit Sub
xErr:
GoTo xResume
End Sub
Palo 
Palo235 
v tvojom kóde by sa dupľovali voľby výberu pri každej zmene
2) premenné použiteľné v celom kóde:
Global a As Variant, b As Variant, c As Variant (definovať v module)
3) šírka prvku a šírka zoznamu môžu byť rozdielne - viď ComboBox1
TIP: Vo VBA okne pri úprave UserFormu po stlačení F4 sa zobrazí okno s vlastnosťami. Zobrazené vlastnosti pre daný objekt (napr. ComboBox) možno nastaviť alebo aspoň čítať ich hodnoty.
F1 - pomôže vždy
Celá funkcia:
Private Sub UserForm_Activate()
Dim xPU, aPU
xPU = "SLSP;VUB;Tatra Banka": aPU = Split(xPU, ";")
On Error GoTo xErr:
' ComboBox: tvorba zoznamu
With Me.ComboBox1
For i = 0 To 2
.AddItem aPU(i)
Next i
.Width = 100
.ListWidth = 80 'nie "DropDownWidth"
.ListRows = 2 'nie "DropDownLines"
'ComboBox: priradenie premenej
.Value = aPU(0)
End With
With Me.ComboBox2
For i = 0 To 2
.AddItem aPU(i)
Next i
.Value = aPU(1)
End With
With Me.ComboBox3
For i = 0 To 2
.AddItem aPU(i)
Next i
.Value = aPU(2)
End With
'TextBox: priradenie premenej
Me.TextBox1.Value = "A"
Me.TextBox2.Value = "B"
Me.TextBox3.Value = "C"
xResume:
Exit Sub
xErr:
GoTo xResume
End Sub
Palo
- AUTOMATIZACIA_PPa.xls
(64.0 KB, 27 videní)
ComboBox a TextBox
Vieš, kto pozná odpoveď?
Porady, ktoré by vás mohli zaujímať
Prihláste sa a sledujte len tie Porady, ktoré Vás zaujímajú.32
Odpovedáte na otázku?
Zoznámte sa s novými pravidlami.Áno, poznám odpoveď.
Každý môže napísať 1 odpoveď, neskôr ju môže vylepšiť. Pokračovať v odpovedi
Nie, chcem sa ešte spýtať na upresnenie otázky.
Upresnenie si vyžiadajte v komentári otázky (nájdete pod otázkou). Vyžiadať upresnenie
Copyright © PORADA.sk, s.r.o. - žiadna časť stránky nemôže byť rozširovaná, alebo reprodukovaná bez predchádzajúceho súhlasu
