Ошибка 1004 в VBA при запуске макроса
У меня есть рабочая тетрадь на 4 листа. Я добавил макрос в лист 3 с именем Amt, чтобы найти сумму. Но во время выполнения макроса я получаю ошибку времени выполнения 1004. Во время отладки VBA он указывает на
ActiveSheet.Cells(3, col).Formula = "=SUM(" & rng & ")"
Примечание : значение принимается в
D1,E1
.... и на основе значения в ячейке я вычисляю сумму значений, основанных на входных данных из D6,E6
....и итог отображается в D3,E3
....Что я уже пробовал:
Код приведен ниже. Пожалуйста, помогите мне решить эту проблему.
Dim lastCol As Integer lastCol = ActiveSheet.UsedRange.Column - 1 + ActiveSheet.UsedRange.Columns.Count Dim col As Integer For col = 4 To lastCol 'From D until finished Dim numRows As Long numRows = ActiveSheet.Cells(1, col).Value2 Dim rng As String If numRows > 0 Then rng = ConvertToLetter(col) & "6:" & ConvertToLetter(col) & CStr(numRows + 2) 'Get the appropriate total in D3,E3,F3..... ActiveSheet.Cells(3, col).Formula = "=SUM(" & rng & ")" End If Next
Maciej Los
Вы пытались выяснить, какое значение хранит a rng
переменная?
Обратите внимание, что есть константа: "6", поэтому это не может быть "D3, E3, F3", а "D6:F3"