Excel VBA: Отображение значения в ячейке из msgbox

Question

У меня есть MsgBox, и сообщение содержит счетчик диапазона. Как ввести значение, используемое в Msgbox, в ячейку на листе?

пример кода ниже:

MsgBox "Todays count is" & " " & Count(Range("g2:g484")) 

Answer 1

Число вычисляется с помощью функции Count. Для того, чтобы использовать значение в ячейке, можно присвоить отсчет к переменной, а затем установите значение ячейки вы хотите иметь значение, как так:

Dim i As Long 

i = Count(Range("G2:G484")) 
MsgBox "Todays count is " & i 
Worksheets("WS Name").Range("A1").Value = i 

Внести поправки WS Name на имя рабочего листа и A1 к ячейке, которую вы хотите получить.