Avko |
21.09.2021 11: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 18: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 11: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 |
24.09.2021 00: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 11: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
|