Сумма диапазона в указанной c ячейке с предопределенным диапазоном в vba - PullRequest
Новая
       65

Сумма диапазона в указанной c ячейке с предопределенным диапазоном в vba

0 голосов
/ 09 июля 2020

У меня есть выбранный диапазон, который я определил как свой диапазон. Я хочу получить сумму этого выбора в определенной ячейке c. Макро должен найти "x", выбрать ячейку ниже и ввести "Sum" + диапазон, который я определил в "myrange" 

Sub more_twelve_months()
Dim myrange As Range

Set myrange = Range(Range("F5"), Range("F5").End(xlToRight))
       
Set more_twelve_months = Range("A1:ZZ10000").Find("x")
    more_twelve_months.Select
    FormularCell = ActiveCell.Offset(1, 0).Select
    Selection.Resize(Selection.Rows.Count, _
    Selection.Columns.Count).Select


   ActiveCell.Sum (myrange)

Я пробовал несколько способов получить сумму, ActiveCell.Sum (myrange) просто последнее, что я пробовал.

Есть идеи, как я могу это решить?

1 Ответ

1 голос
/ 09 июля 2020

Это то, что вы хотите?

Вам следует по возможности избегать использования Select . 

Sub more_twelve_months()

Dim myrange As Range
Dim more_twelve_months As Range 'declare your variables

Set myrange = Range(Range("F5"), Range("F5").End(xlToRight))
    
Set more_twelve_months = Range("A1:ZZ10000").Find("x")

If Not more_twelve_months Is Nothing Then 'check you've found something to avoid errors
    more_twelve_months.Offset(1).Value = Application.Sum(myrange)
End If

End Sub
...