Predmet:Re: excel vba promijeni button kad je pritisnut
PreuzmiIzvorni kôd (Visual Basic):Function string2array(Broj)
Dim brojac As Long
Dim arr As Variant
Dim izborBrojevaTemp As String
strBroj = Broj.Caption
'=== ako izborBrojeva nije prazan ===
If Not izborBrojeva = Empty Then
'ako je ponovljen broj
If InStr(1, izborBrojeva, strBroj) > 0 Then
arr = Split(izborBrojeva, ",")
For brojac = 0 To UBound(arr) - 1
If arr(brojac) <> strBroj Then
izborBrojevaTemp = izborBrojevaTemp & arr(brojac) & ","
End If
Next brojac
izborBrojeva = izborBrojevaTemp
ukupnoBrojeva = ukupnoBrojeva - 1
GoTo ispisi
Else 'ako broj nije ponovljen
If ukupnoBrojeva = 20 Then
MsgBox "Izabrali ste max. broj brojeva!"
Exit Function
End If
izborBrojeva = izborBrojeva & strBroj & ","
End If
Else
izborBrojeva = strBroj & ","
End If
arr = Split(izborBrojeva, ",")
ukupnoBrojeva = UBound(arr)
ispisi:
UserForm1.TextBox2.Value = "": UserForm1.TextBox2.Value = ukupnoBrojeva
If Len(izborBrojeva) > 0 Then
UserForm1.TextBox1.Value = ""
UserForm1.TextBox1.Value = Left(izborBrojeva, Len(izborBrojeva) - 1)
Else
UserForm1.TextBox1.Value = ""
End If
End Function
kad radis sa form2 kontrolama.
ovo stavi na sve tastere
samo kopiras umjesto tvog koda.
PreuzmiIzvorni kôd (Visual Basic):Private Sub CommandButton1_Click()
Dim Broj As CommandButton
Set Broj = Me.ActiveControl
Call string2array(Broj)
Call ButtonCaptions(Broj)
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.