Предмет: Информатика, автор: sinkaa

Помогите пожалуйста создать макрос,или объясните как

Приложения:

Ответы

Автор ответа: srzontmp
0
А зачем массив импортировать, когда можно подсчитать сумму по ячейкам, через макрос?
Sub Макрос1()
'
' Макрос1 Макрос
'
'
  s = 0
  MsgBox "Выбраны ячейки:  " & ActiveWindow.RangeSelection.Address
  For n = 1 To Selection.Rows.Count
    s = s + Selection.Cells(n, n)
  Next n
  MsgBox "сумма диагональных элементов: " & s
  End Sub

На самом листе Excel  заводим кнопку  CommandButton1  и даем название кнопке "Подсчет"
Набираем процедуру   CommandButton1_Click

Private Sub CommandButton1_Click()
  Макрос1
End Sub

После выделения диапазона ячеек мышью нажимаем кнопку  "Подсчет"  и  получаем результат.
Решение в прикрепленном файле.

Приложения:
Похожие вопросы
Предмет: География, автор: ASGOLOVA
срочно!!!!!!!!!!!!!
В 7. Определите регионы России по его краткому описанию.1. Это
большая по площади территории республика европейской части России
богата природными ресурсами. Она является примером района нового
освоения советского времени. В республике разрабатываются месторождения
нефти и природного газа. На северо-востоке добывается коксующийся уголь.
На юге главными отраслями промышленности являются лесная и
деревообрабатывающая. Основной тип поселений – поселок городского типа.
Ответ: Республика _____________________.2. Эта
область имеет выгодное ЭГП. На юге граничит с одной из крупнейших по
площади стран СНГ, с которой у России сложились добрососедские
отношения. Через область проходит Транссибирская железнодорожная
магистраль. Областной центр – город миллионер. В нем сложился мощный
промышленный узел, основу которого составляют предприятия
машиностроения, нефтепереработки, нефтехимии, легкой и пищевой
промышленности.
Ответ: _____________________ область