| Avko |
21.09.2021 10:27 |
Predmet:Ne radi mi spinbox VBA excel
pokusao sam nesto sa spinbox, ali mi cudno to broji.
Zna li netko?
pocininje ovdje:
PreuzmiIzvorni kôd (Text): Private Sub SpinButton1_Change() 'od 1.broj TextBox46.Text = SpinButton1.Value End Sub Private Sub SpinButton1_SpinDown() TextBox46.Text = Val(TextBox46.Text) - 1 End Sub Private Sub SpinButton1_SpinUp() TextBox46.Text = Val(TextBox46.Text) + 1 End Sub Private Sub UserForm_Initialize() SpinButton1.min = 1 SpinButton1.max = 45 UserForm1.TextBox46.Text = 1
evo i primjer |
Prilozi:
lotoStatistika.rar (Velicina datoteke:134.87 KB)
|
| zxz |
22.09.2021 17:00 |
Predmet: Re:Ne radi mi spinbox VBA excel
Moras malo pojasniti sta zlis napraviti.
U zadnje vrijeme si postao zagonetean ili sam ja ostario pa te ne razumijem.
Sve mi s cini da si pri****lje objasnjavao. |
| Avko |
23.09.2021 10:19 |
Predmet: Re:Ne radi mi spinbox VBA excel
treba crtati
pocetak
kliknem na gore i skoci na 3 a trebao bi na 2
kliknem na gore i dobro zbroji pokaze 4
sada kliknem na dolje i umjesto na 3 pokaze 1
 |
| zxz |
23.09.2021 23:31 |
Predmet: Re:Ne radi mi spinbox VBA excel
ako imas kod na on change sto ce ti jos i ovo:
Private Sub SpinButton1_SpinDown()
'TextBox46.Text = Val(TextBox46.Text) - 1
End Sub
Private Sub SpinButton1_SpinUp()
'TextBox46.Text = Val(TextBox46.Text) + 1
End Sub |
| Avko |
24.09.2021 10:05 |
Predmet: Re:Ne radi mi spinbox VBA excel
da to je to, hvala
PreuzmiIzvorni kôd (Text):Private Sub SpinButton1_SpinDown() If Val(TextBox46.Text) > 1 Then TextBox46.Text = Val(TextBox46.Text) - 1 End If End Sub Private Sub SpinButton1_SpinUp() If Val(TextBox46.Text) < 45 Then TextBox46.Text = Val(TextBox46.Text) + 1 End If End Sub
|
