Задача: есть некоторая таблица в экселе с числами. необходимо с этими числами в стоках, столбцах, по диагонали выполнить некоторые математические действия.
Решение: vba, создаём макрос такого содержания
1 2 3 4 5 6 7 8 9 10 11 12 13 | Sub РаботаСВыделеннымДиапазономЯчеек() Dim cur_range As Range With ActiveSheet Set cur_range = Selection cur_range.Activate For x = 1 To cur_range.Rows.Count For y = 1 To cur_range.Columns.Count ' тут любые математические операции cur_range(x, y) = cur_range(x, y).Value * 10 Next y Next x End With End Sub |
