Новичок здесь!:)
Я хочу взять значение из ячейки и поместить в массив с помощью ключевой команды.
Я работаю на складе и на стене большой экран, на котором отображается числозаказов осталось доставить.Это файл Excel, который я сделал.Я хочу взять это число и помещать его в массив каждую минуту.Затем, по достижении 60 минут, я хочу сравнить значение сейчас со значением часа назад и отобразить его в ячейке.Эффективно показывает, сколько заказов было доставлено за последние 60 минут.
Я пытаюсь создать одну подпрограмму, которая создает массив, а затем другую подпрограмму, которая заполняет массив.Запустите первую подпрограмму вручную, затем запустите вторую подпрограмму с помощью ключевой команды, нажимаемой скриптом AutoHotKey каждые 60 секунд.Я немного новичок в VBA, я не уверен, правильно ли я делаю.
Первый саб:
sub createarray() 'this sub is started once to create the array and variables
dim CellStatus(1 to 121)
dim c as long = 1
dim WorkSpeed as long
end sub
Второй саб:
sub AddToArray() 'this sub is started once every 60 seconds via a key command
CellStatus(c)=ThisWorkbook.Sheets("searchresult").cells(a1).Value 'puts the cellvalue in the array
if c>60
WorkSpeed = Cellstatus(c-60)-Cellstatus(c) 'compare the value 60 minutes ago
else if c<61
Workspeed = Cellstatus(c+60)-Cellstatus(c) 'compare the value 60 minutes ago
end if
ThisWorkbook.Sheets("showresult").cells(d6).value=Workspeed 'puts whats inside the variable WorkSpeed in cell d6 in the sheet "showresults"
c = c + 1
if c=121
CellStatus(1)=ThisWorkbook.Sheets("searchresult").cells(a1).Value 'copies the value of Cell A1 in both place 121 and 1 in the array.
c=2
else
c=c+1
end if
end sub
Я правильно делаю?Видите какие-либо ошибки в коде?/ Jens