lrv

Question

Книги
+1 ещё

Простой

Какую электронную библиотеку (техническая литература) вы можете порекомендовать?

14 подписчиков
более трёх лет назад
1512 просмотров

6

ответов

Answer 1 · 2018-04-07 09:33:28

Зачем вам пользовать Range, когда вы обращаетесь к одной ячейке. Листы лучше приучайте себя именовать всегда через Set. Используйте Cells вместо Range.

Set WBMax = thisworkbook.worksheets("max") 
Set WBSheet = thisworkbook.worsheets("sheet")

If WBMax.Cells(1,3).Value = WBMSheet.Cells(1,2).Value Then
     WBMax.Cells(3,3).Value = WBMSheet.Cells(3,2).Value
     WBMax.Cells(3,3).Interior.Color = RBG(1,1,1)

Answer 2 · 2018-04-03 11:27:07

Excel - это не надежно. Лучше сделайте таблицу в БД ингридиент+приход+расход. Дальше уже пишите запрос, который сформирует даты и часы за период и наложит сверху остатки из вашей таблицы.

Answer 3 · 2018-04-01 02:02:58

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