А зачем массив импортировать, когда можно подсчитать сумму по ячейкам, через макрос?
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

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

0 0

3 года назад

Срочно,пожалуйста помогите!!!!

Master2013

ДИСК:\ИЗОБРАЖЕНИЯ\www.jpeg

ДИСК:\ИЗОБРАЖЕНИЯ\УСТРОЙСТВО ПК\Системный блок.jpeg

ДИСК:\ИЗОБРАЖЕНИЯ\УСТРОЙСТВО ПК\Устройства ввода.jpeg

ДИСК:\ТЕКСТЫ\Программное обеспечение.txt

ДИСК:\ТЕКСТЫ\Системы программирования.doc

ДИСК:\Презентация MacOS.ppt

Вместо диск то что справа на листочке(вначале ветки)

0 0

3 года назад

Нужен autodesk 3ds max 9 и serial number к need for speed most wanted 2 Плиззз

Aleksa79 [14]

Ккачай кряк для need for speed most wanted, или скачай уже крякнутный.

0 0

1 год назад