Új hozzászólás Aktív témák

• #14346 Fire/SOUL/CD félisten pitman #14342

  Új Válasz 2012-07-17 00:01:05 #14346

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fire/SOUL/CD

  félisten

  válasz pitman #14342 üzenetére

  Ezt csak makróval lehet.

  Amice

  Function FSCD_Generator() As Variant
  
  Dim NumberOfDigits As Integer, RNDRange As Integer, MyIndex As Integer
  Dim MyDigits As Variant, MyNumber As Variant
  MyDigits = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9")
  
  'Hány számjegyű legyen a generált szám
  '(10 számjegyűnél nem lehet több, mert akkor biztosan ismétlődik legalább 1 számjegy)
  
  NumberOfDigits = 8
  
  If NumberOfDigits < 1 Or NumberOfDigits > 10 Then
  FSCD_Generator = "A számjegyek száma 1 és 10 közé kell, hogy essen!"
  Exit Function
  End If
  
  RNDRange = UBound(MyDigits)
  MyNumber = ""
  For i = 0 To NumberOfDigits - 1
  MyIndex = WorksheetFunction.RandBetween(0, RNDRange)
  MyNumber = MyNumber + MyDigits(MyIndex)
  If MyIndex <> RNDRange Then
  For j = MyIndex To RNDRange - 1
  MyDigits(j) = MyDigits(j + 1)
  Next j
  End If
  RNDRange = RNDRange - 1
  Next i
  
  FSCD_Generator = MyNumber
  
  End Function

Új hozzászólás Aktív témák