Saya mencoba membuat makro yang dengan menekan tombol menyoroti baris acak dalam suatu pilihan. Saya memiliki kode berikut (yang didasarkan pada jawaban yang diberikan dengan murah hati oleh @gtwebb kepada @Kyle Snell):

Sub SelectRandom()
Dim mrg As Worksheet
Set mrg = ActiveWorkbook.Sheets("Merged")

Dim PopulationSelect As Range
Set PopulationSelect = mrg.Range("A" & Rows.Count).End(xlUp)


RandSample = Int(PopulationSelect.Rows.Count * Rnd + 1)
PopulationSelect.Rows(RandSample).EntireRow.Interior.Color = RGB(255, 255, 153)

End Sub

Sekarang pada lembar saya memiliki tajuk yang menggunakan Range("A1:L5") jadi saya perlu kode untuk memilih dan menyorot baris secara acak dari salah satu baris di bawah tajuk yang berisi data. Bagaimana saya akan melakukannya? Kode hanya memilih dan menyoroti baris terakhir yang berisi data saat ini.

0
Rhyfelwr 20 Desember 2017, 12:29

1 menjawab

Jawaban Terbaik

Silakan coba kode di bawah ini.

Sub SelectRandom()
    Dim mrg As Worksheet
    Dim Rand As Long
    Dim PopulationSelect As Range

    Set mrg = ActiveWorkbook.Sheets("Merged")

    'Define your start row below (instead of 6)
    Rand = Application.WorksheetFunction.RandBetween(6, mrg.Range("A" & Rows.Count).End(xlUp).Row)
    mrg.Rows(Rand).EntireRow.Interior.Color = RGB(255, 255, 153)

End Sub
1
Arul 20 Desember 2017, 10:01