범위의 임의의 행 강조 표시

Question

버튼을 누르면 선택 영역의 임의의 행이 강조 표시됩니다. 내가 범위를 차지하는 헤더가 시트에서 지금

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 

("A1 : L5") 그래서 나는 (관대 @Kyle 스넬에 @gtwebb에서 제공하는 답변을 기반으로) 다음 코드가 무작위로 데이터를 포함하는 헤더 아래의 행에서 행을 선택하고 강조 표시하는 코드가 필요합니다. 그 일을 내가 어떻게 할까? 코드는 현재 데이터가 포함 된 마지막 행만 선택하고 강조 표시합니다.

Answer 1

아래 코드를 사용해보십시오.

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