Как выявить рабочий диапазон?

Question

[Bartiwka]

Добрый день! Есть в экселе таблица где указана время начала и конца рабочего дня, и между двумя числами я должен проставить активности на день. Сам вопрос, как сделать так, чтобы вводимые значение(значение рандомные) не выходили за рамки временной шкалы в столбце. Подскажите, лучше виде макроса или отдельного VBA кода или ссылку где это описано.
PS: Excel только учу.

Comments

[lrv]

Можно в виде макроса. Тут несколько вариантов. Есть побыстрее, есть помедленнее.

Answer 1

[lrv]

Самый простой способ это проверять цвет ячейки. Если он серый то пропускать его, иначе вводить значение. Пишешь два цикла
Do while ActiveSheet.Cells(i,1).value<>“”
Do while ActiveSheet.cells(1,j).value <>“”
И внутри if ActiveSheet.cells(i,j).Interior.Color <> RGB(,,) then.
Но это не быстро работать будет, потому что работаете с листом. Быстрее будет с массивом. Там позамороченнее.

Comments

[Bartiwka]

Добрый день! Извините что пишу так запоздало! Не могли бы развернуто показать и рассказать Ваш пример!Спасибо!

[lrv]

Sub test()
    
    Set WBS = ThisWorkbook.Worksheets("Лист1")
    
    Let i = 2
    Let j = 2
    
    
    '197 197 197
        
    Do While WBS.Cells(1, j).Value <> ""
        Do While WBS.Cells(i, 1).Value <> ""
            If WBS.Cells(i, j).Interior.Color <> RGB(197, 197, 197) Then 'или if WBS.Cells(i, j).Interior.Pattern = xlNone then |(197,197,197) - серый цвет
                WBS.Cells(i, j).Value = Int(Rnd(1) * 100) 'числа от 1 до 100
            End If
            i = i + 1
        Loop
        i = 2
        j = j + 1
    Loop
    
End Sub