Macro Kelompok Excel Fauzia Rahma Faizal Ali Rozan Iqbal Baihaqi Buat tampilan muka seperti di bawah ini : Tambah tombol button di insert di tab Develover bisa juga kok Shape Setelah itu masuk ke menu bar > Developer lalu pilih View code atau bisa pilih visual basic paling kiri Setelah itu akan muncul tampilan seperti ini : Lalu masukan program seperti dibawah ini : Dan ini Codingannya Public Sub Shuffle() Dim lCnt As Long Dim rRng As Range Set rRng = Sheet1.Range("B6:F13") Do 'Add a random value for sorting With rRng.Columns(4) .Formula = "=RAND()" .Value = .Value End With 'Sort on random value Sheet1.Sort.SortFields.Clear Sheet1.Sort.SortFields.Add rRng.Columns(4), xlSortOn...
Gembel ojan
BalasHapusah
BalasHapus