Для умножения чисел

Question

Я хочу создать код для умножения разных значений

Первая операция будет 15 * 4, затем 19 * 5

После 14 * 4, затем 17 * 5

Dim C as Range
Set C = Range("i9:i10")

For cell = 1 To C
   cell.Value = Cells(i, j) * Cells(i, j) 

'I thought about changing the identification of the cells to perform the calculations

Next

У меня был бы другой диапазон для второй операции

Answer 1

Если вы хотите, чтобы продукты находились в ячейках «X» и «Y», я бы даже не стал использовать для этого программу VBA, вы можете сделать это, используя формулу. Представьте, что ваш лист Excel выглядит так:

      A    B    C    D    E    F
1 Layer   ys   yd    H    X    Y
2     I   15   14    4
3    II   19   17    5

В ячейку E2 вы можете поместить формулу:

=B2*$D2

Остальные ячейки, которые вы получаете, перетаскивая и бросая формулу в целевые ячейки. Что произойдет?

При перетаскивании вправо исходный столбец изменится (с B столбца на C), вы получите =C2*$D2. $D не изменится из-за знака доллара (это называется абсолютная ссылка)
При перетаскивании исходная строка изменится (с 2 на 3), вы получите =B3*$D3 и =C3*$D3.

Полагаю, это то, что вы ищете?