Prikazi cijelu temu 29.11.2019 20:14
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: excel vba promijeni button kad je pritisnut
PreuzmiIzvorni kôd (Visual Basic):
  1. Function string2array(Broj)
  2.    
  3.     Dim brojac As Long
  4.     Dim arr As Variant
  5.     Dim izborBrojevaTemp As String
  6.  
  7.     strBroj = Broj.Caption
  8.     '=== ako izborBrojeva nije prazan ===
  9.    If Not izborBrojeva = Empty Then
  10.         'ako je ponovljen broj
  11.        If InStr(1, izborBrojeva, strBroj) > 0 Then
  12.             arr = Split(izborBrojeva, ",")
  13.             For brojac = 0 To UBound(arr) - 1
  14.                 If arr(brojac) <> strBroj Then
  15.                     izborBrojevaTemp = izborBrojevaTemp & arr(brojac) & ","
  16.                 End If
  17.             Next brojac
  18.             izborBrojeva = izborBrojevaTemp
  19.             ukupnoBrojeva = ukupnoBrojeva - 1
  20.            
  21.             GoTo ispisi
  22.            
  23.         Else 'ako broj nije ponovljen
  24.            If ukupnoBrojeva = 20 Then
  25.                 MsgBox "Izabrali ste max. broj brojeva!"
  26.                 Exit Function
  27.             End If
  28.             izborBrojeva = izborBrojeva & strBroj & ","
  29.         End If
  30.    
  31.     Else
  32.         izborBrojeva = strBroj & ","
  33.     End If
  34.    
  35.     arr = Split(izborBrojeva, ",")
  36.     ukupnoBrojeva = UBound(arr)
  37.    
  38. ispisi:
  39.     UserForm1.TextBox2.Value = "": UserForm1.TextBox2.Value = ukupnoBrojeva
  40.            
  41.     If Len(izborBrojeva) > 0 Then
  42.         UserForm1.TextBox1.Value = ""
  43.         UserForm1.TextBox1.Value = Left(izborBrojeva, Len(izborBrojeva) - 1)
  44.     Else
  45.         UserForm1.TextBox1.Value = ""
  46.     End If
  47.  
  48. End Function

kad radis sa form2 kontrolama.
ovo stavi na sve tastere
samo kopiras umjesto tvog koda.

PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub CommandButton1_Click()
  2.    Dim Broj As CommandButton
  3.    Set Broj = Me.ActiveControl
  4.    Call string2array(Broj)
  5.    Call ButtonCaptions(Broj)
  6. End Sub

Sad mi je jasnije malo sta hoces.
Mozda bi se brojevi mogli automatizirati
da kompjuter sam odabere brojeve.
Neznam dali bi ti to pasalo.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 3 puta. Posljednja izmjena 01.12.2019 23:03 od strane Avko.