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

• #27602 Delila_1 veterán Carasc0 #27601

  Új Válasz 2015-07-04 06:14:03 #27602

  Ú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

  

  Delila_1

  veterán

  válasz Carasc0 #27601 üzenetére

  A makró átmásolja az A1:A9 tartományt a B1:B9-be. Véletlenszámokat ír a C1:C9-be, ami szerint rendezi a B oszlopot, majd törli az ideiglenes C-t.
  A rendezést makrórögzítéssel vittem be.

  Sub Kever()
  Dim sor As Integer
  
  Range("A1:A9").Copy Range("B1")
  
  For sor = 1 To 9
  Cells(sor, "C") = "=RAND()"
  Cells(sor, "C") = Cells(sor, "C").Value
  Next
  
  ActiveWorkbook.Worksheets("Munka1").Sort.SortFields.Clear
  ActiveWorkbook.Worksheets("Munka1").Sort.SortFields.Add Key:=Range("C1:C9"), _
  SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
  With ActiveWorkbook.Worksheets("Munka1").Sort
  .SetRange Range("B1:C9")
  .Header = xlGuess
  .MatchCase = False
  .Orientation = xlTopToBottom
  .SortMethod = xlPinYin
  .Apply
  End With
  
  Range("C1:C9").ClearContents
  End Sub

  Betehetsz egy képernyőfrissítés tiltását az elejére, hogy ne látsszanak a véletlenek, a végén pedig engedélyezed.

  Application.ScreenUpdating=False

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