Centar za edukaciju-BiH

iCentar → Racunari i oprema → Softver i operativni sistemi → Ms office → Ne radi mi spinbox VBA excel


Odgovori na temu





Pomoc


Prosiri Boja Prosiri Velicina Spoiler WMP-Videos Neprimjereno
Podebljano Kurziv Podvuceno Slika Internet adresa (URL) Citat Van teme Neuredena lista Narucena lista Pretplata Nadredeni
Grinning Happy Cool Surprised Disappointed Laughing In love Angry No comment Embarrassing Shy Smiling Tongue Undecided Innocent Wink Sad Prosiri i skupi vise smajlica
Povecaj velicinu · Smanji velicinu Provjeri duzinu
Pretvori smajlice u postu
Pretvori & quot; vokable & quot; u postu

Upravljanje prilozima
Mozete priloziti 3 datoteke!



Posljednjih 15 postova u ovoj temi


Avko (24.09.2021 10:05):
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

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 (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 (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 (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):
  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

Kontakt
Sva vremena su GMT +01:00. Trenutno vrijeme: 2: 52 am.