Я хочу остановить l oop каждый раз, когда он печатает значение - PullRequest
Новая
       23

Я хочу остановить l oop каждый раз, когда он печатает значение

1 голос
/ 29 апреля 2020

Я использую этот код, чтобы получить различное случайное значение в столбце A таблицы, но этот код дает мне все значения за раз. я хочу получать значение по одному каждый раз после нажатия кнопки рабочего листа / активной кнопки x.

например, при первом щелчке ячейка A1 должна заполняться первым случайным значением, а затем при каждом нажатии A2, A3 , A4 и A5 Ячейки должны быть заполнены. Как только все ячейки заполнены, при нажатии кнопки ничего не происходит. 

Option Explicit

Sub RAND1()
Dim myStart As Long
Dim myEnd As Long
Dim i As Long
Dim a()
Dim sh As Worksheet

    Set sh = Sheet1
    myStart = 1
    myEnd = 5

ReDim a(0 To myEnd - myStart)

    With CreateObject("System.Collections.SortedList")

        Randomize

            For i = myStart To myEnd
            .Item(Rnd) = i
            Next i

                For i = 0 To .Count - 1
                a(i) = .GetByIndex(i)
                Next

    End With

sh.Range("a1").Resize(UBound(a) + 1).Value = Application.Transpose(a)

End Sub
...