Если я укажу часы и количество дней, то скопирую часы в число дней

Question

Я пытаюсь сделать что-то, что кажется довольно простым, но имеет некоторые проблемы с выполнением. Допустим, у меня есть определенное количество часов и количество дней ввода. Затем я хочу указать эти часы в каждом из дней на отдельном листе, то есть 5 дней, если введено 5, 3 дня, если введено 3, и т. Д. И т. Д.

  Sheet A      |                               Sheet B
|hours|days|   |    |monday|tuesday|wednesday|thursday|friday|saturday|sunday|
+--+-----+-+   |    ++--++--++--++--++--++--++--++--++--++--+-++--++--++--++-+
|  8  |  5 |   |    |   8  |   8   |    8    |   8    |   8  |    0   |   0  |

Любой вклад будет иметь неоценимое значение!

Answer 1

Используйте макрос с ярлыком или кнопкой с этим кодом

Dim hours, days, Week as Range

Set hours = sheets(“YourSheetName”).range(“CellWithHours”)

Set days = sheets(“YourSheetName”).range(“CellWithDays”)

Set Week = sheets(“YourSheetName”).range(range(“CellWithMonday”), Range(“CellWithSunday”))

For i = 1 to days.value
     Week.Cells(i).value = hours.value
Next i 

For i = 1 to 7
     If Week.Cells(i).value = “” then
            Week.Cells(i).value = 0
     End if
Next i 

Answer 2

Если у вас есть это в Листе A

, то это в ЛистеB.Поместите эту формулу в A2 и скопируйте через

= IF (КОЛОННЫ ($ A2: A2)> SheetA! $ B $ 2,0, SheetA! $ A $ 2)

Формула COLUMNS будет увеличиваться на 1,2 и т. Д. При перетаскивании формулы через 6 столбцов вдоль формулы будет возвращаться ноль.