Как создать накопленный инвентарный график на основе номера недели в Excel vba - PullRequest
Новая
       57

Как создать накопленный инвентарный график на основе номера недели в Excel vba

1 голос
/ 16 июня 2019

Я хотел бы нарисовать автоматически накопленный инвентарный график с помощью Excel VBA 2016.

У меня есть данные инвентаризации за разные годы в формате "20XXYY". Здесь «XX» обозначает год, а «YY» обозначает номер недели в году (от 1 до 52). У меня будут данные, аналогичные рисунку 1. Затем я бы хотел отсортировать их как рисунок 2. Наконец, нарисуйте график как рисунок 3. Однако мне бы хотелось, чтобы он автоматически использовался с использованием VBA.

Picture 1

Picture 2

Picture 3

Мой вопрос заключается в том, как автоматически создать последовательный столбец YearWeek для графика?

Я использовал формулу «= SUM ($ Y $ 2: Y2)» ^^ в столбце «Накопленный запас». Я буду очень признателен, если получу какую-либо подсказку.

1 Ответ

0 голосов
/ 17 июня 2019

'Это ответ.Я должен понять это.Спасибо за вашу поддержку.

Sub consecutiveNumber()

Dim wsFrom As Worksheet
Dim Com As String
Dim lLastNumber,FirstNumber, l, i As Long


'change to names of sheets you are coptying from and to

Set wsFrom = ThisWorkbook.Sheets("Sheet1")


'Get the value in the last and first used text box of column A

lLastNumber = wsFrom.Range("A" & Rows.Count).End(xlUp).Value
FirstNumber = wsFrom.Range("A1").Value
'clear column B

wsFrom.Range("B:B").Clear

'Initializing the cell index value
i = 1
'fill column B on sheet 1 with first to last number on column A

 For l = FirstNumber To lLastNumber

'Converting number to string
Com = Right(CStr(l), 2)

If CInt(Com) >= 53 Then
l = l + 48

    wsFrom.Range("M" & i) = l
    i = i + 1
 Else

    wsFrom.Range("M" & i) = l
    i = i + 1

  End If


Next

End Sub
...