Aktív témák

• #38 Apollo17hu őstag bosi84 #36

  2005-05-18 15:19:38 #38

  Ö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

  

  Apollo17hu

  őstag

  válasz bosi84 #36 üzenetére

  Ezt kell a GENERÁLÓ-ba írni (az aposztrófokat írd át idézőjellé!):
  mod: bocs, látom, tegnapra kellett volna kalappal, ha még nem zh.-ztál!
  
  

  
  Private Sub CommandButton1_Click()
      eltolas = InputBox(''Add meg az eltolás értékét!'')
      If eltolas = Empty Then
          eltolas = 0
      End If
      For i = 1 To 10
          For j = 1 To 10
              Cells(i, j) = Int(Rnd * 100) / 100 + eltolas
          Next
      Next
  End Sub
  

  
  
  [Szerkesztve]
• #37 jeges senior tag bosi84 #36

  2005-05-18 06:31:21 #37

  Ö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

  

  jeges

  senior tag

  válasz bosi84 #36 üzenetére

  nem beleszólásképpen, de legalább megpróbálhatnád magad...
  segítségképpen:
  
  generálás:
  1. eltolás bekérése (erre megvannak a megfelelő függvények, pl. inputbox)
  2. for next ciklusban véletlenszám-generálás és kiírás (rnd és cells() függvénnyel a legegyszerűbb talán, használni kell az 1. pont inputbox értékét)
  
  min/max:
  ezt sztem le sem kell írni, csak arra vigyázz, h első lépésként törölni kell a megfelelő cellákat cells(x, y)='''' vagy hasonló eljárással

Aktív témák