Sub Ìàêðîñ1() Dim Sum(heigth - 1, width - 1) Dim Product(heigth - 1, width - 1)
For i = 0 To heigth - 1 For j = 0 To width - 1 Sum(i, j) = i + j Product(i, j) = i * j Next j Next i
Call Show(Sum, 0, 0) Call Show(Product, 0, 12) End Sub
Sub Show(ByRef m, dx, dy) For i = 0 To heigth - 1 For j = 0 To width - 1 ActiveSheet.Cells(dx + i + 1, dy + j + 1).Value = Hex(m(i, j)) Next j Next i End Sub
1. перетаскивание (из одного окна в другое, то есть из папки откуда в папку куда) 2. горячими клавишами (CTRL+C скопировать, или CTRL+X вырезать и CTRL+V вставить, в требуемое место, предварительно выбрав это место кликом) 3. через контекстное меню (там есть аналогичные пункты: "скопировать", "вырезать" и "вставить"... в некоторых случаях даже пункты "копировать в.." или "переместить в...") 4. через командную строку (путем написания команд "копирования" и "перемещения" с указанием путей... данный вариант может быть сохранен в виде исполняемого файла с расширением .bat для могоразовго и быстрого применения) 5. есть еще вариант копирования (в том числе резервного) с специальных программ и планировщика задач), но если это вопрос из теста школьной программы, то маловероятно что этот там рассматривается.
Const width = 10
Sub Ìàêðîñ1()
Dim Sum(heigth - 1, width - 1)
Dim Product(heigth - 1, width - 1)
For i = 0 To heigth - 1
For j = 0 To width - 1
Sum(i, j) = i + j
Product(i, j) = i * j
Next j
Next i
Call Show(Sum, 0, 0)
Call Show(Product, 0, 12)
End Sub
Sub Show(ByRef m, dx, dy)
For i = 0 To heigth - 1
For j = 0 To width - 1
ActiveSheet.Cells(dx + i + 1, dy + j + 1).Value = Hex(m(i, j))
Next j
Next i
End Sub
2. горячими клавишами (CTRL+C скопировать, или CTRL+X вырезать и CTRL+V вставить, в требуемое место, предварительно выбрав это место кликом)
3. через контекстное меню (там есть аналогичные пункты: "скопировать", "вырезать" и "вставить"... в некоторых случаях даже пункты "копировать в.." или "переместить в...")
4. через командную строку (путем написания команд "копирования" и "перемещения" с указанием путей... данный вариант может быть сохранен в виде исполняемого файла с расширением .bat для могоразовго и быстрого применения)
5. есть еще вариант копирования (в том числе резервного) с специальных программ и планировщика задач), но если это вопрос из теста школьной программы, то маловероятно что этот там рассматривается.