В макросе пробежаться циклом по значениям времени

Автор Олег*, 17.04.2013, 01:08

« назад - далее »

Олег*

С дробными управляющими переменными цикла я вроде бы разобрался, как надо поступать. Надо выбирать тип Currency, тогда работает как надо. По крайней мере в моем предыдущем примере.

Private Sub CommandButton1_Click()
Dim Дробь As Currency
Dim СчетчикСтрок As Long

    Range("A2:B100").ClearContents
    СчетчикСтрок = 1
    For Дробь = 0 To 0.5 Step 0.1
            СчетчикСтрок = СчетчикСтрок + 1
            Worksheets("Лист1").Range("A" & СчетчикСтрок) = СчетчикСтрок - 1
            Worksheets("Лист1").Range("B" & СчетчикСтрок) = Дробь
    Next Дробь
End Sub
Муж это единственный зарегенный юзер, а все остальные это хакеры :)

Олег*

#16
Замучался плясать с бубном :(

Решил проблему с помощью комбобоксов с заранее "заряженными" значениями, из которых мы выбираем начальные и конечные значения для циклов, когда потребуется. В этот случае совпадение 100% !!!  И никакие округления уже не мешают! :)

В смысле к каждой паре комбобоксов "привязан" массив, содержащий все "заряженные" в эту пару значения. В этом случае управляющей переменой становится уже не значение времени,  а индекс массива.
В начале работы макрос считывает в одном комбобоксе начальное значение, а в другом конечное, определяет их индексы в массиве, ну а дальше уже стандартный цикл, но уже без глюков, связанных с округлением значений времени.


Муж это единственный зарегенный юзер, а все остальные это хакеры :)