Centar za edukaciju-BiH



#1 21.09.2021 10:27
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,807


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):
  1.     Private Sub SpinButton1_Change()
  2.         'od 1.broj
  3.        
  4.         TextBox46.Text = SpinButton1.Value
  5.     End Sub
  6.      
  7.     Private Sub SpinButton1_SpinDown()
  8.        
  9.         TextBox46.Text = Val(TextBox46.Text) - 1
  10.     End Sub
  11.      
  12.     Private Sub SpinButton1_SpinUp()
  13.        
  14.         TextBox46.Text = Val(TextBox46.Text) + 1
  15.     End Sub
  16.      
  17.     Private Sub UserForm_Initialize()
  18.        
  19.         SpinButton1.min = 1
  20.         SpinButton1.max = 45
  21.         UserForm1.TextBox46.Text = 1
  22.        

evo i primjer

Prilozi:
Informacije o tipu datoteke za:rar  lotoStatistika.rar
Preuzimanja:27
Velicina datoteke:134.87 KB


zivot je moja domovina.
↑  ↓

#2 22.09.2021 17:00
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


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.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#3 23.09.2021 10:19
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,807


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

zivot je moja domovina.
↑  ↓

#4 23.09.2021 23:31
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


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
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#5 24.09.2021 10:05
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,807


Predmet:Re:Ne radi mi spinbox VBA excel
da to je to, hvala

PreuzmiIzvorni kôd (Text):
  1. Private Sub SpinButton1_SpinDown()
  2.     If Val(TextBox46.Text) > 1 Then
  3.         TextBox46.Text = Val(TextBox46.Text) - 1
  4.     End If
  5.    
  6. End Sub
  7.  
  8. Private Sub SpinButton1_SpinUp()
  9.     If Val(TextBox46.Text) < 45 Then
  10.         TextBox46.Text = Val(TextBox46.Text) + 1
  11.     End If
  12. End Sub

zivot je moja domovina.
↑  ↓

Stranice (1):1


Sva vremena su GMT +01:00. Trenutno vrijeme: 11: 57 pm.