Prikazi cijelu temu 06.08.2021 07:08
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re:excel randbetween
PreuzmiIzvorni kôd (Visual Basic):
  1. Function razlicit(Broj As Integer)
  2. Dim sluc_broj As Integer
  3.  
  4. sluc_broj = Int((100 * Rnd) + 1)
  5. Do While sluc_broj = Broj
  6. sluc_broj = Int((100 * Rnd) + 1)
  7. Loop
  8. razlicit = sluc_broj
  9.  
  10. End Function

U a2 pises
=razlicit(A1)
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.