Как увеличить значение в листе excel на некоторый процент

Question

У меня есть книга Excel с несколькими листами с некоторыми численными значениями. Я хочу увеличить эти значения на некоторый процент, скажем, на 10%. Как я могу добиться использования скрипта vb.

Answer 1

Вот пример:

Sub Increment() 
    Sheets(1).Range("A1").Value = Sheets(1).Range("A1").Value * 1.1 
    Sheets(2).Range("B9").Value = Sheets(2).Range("B9").Value * 1.1 
End Sub 

для одной ячейки в каждом из двух листов.

Answer 2

Просто для разнообразия:

Sub Multiply() 
MyMultiplier = 5  'Set your Multiply value here 
For i = 1 To 10  'Set your last cell here 
    For j = 1 To 10 'Set your last column here 
      If Application.WorksheetFunction.IsNumber(ActiveSheet.Cells(i, j)) Then 
      ActiveSheet.Cells(i, j) = ActiveSheet.Cells(i, j).Value * MyMultiplier 
     End If 
    Next j 
Next i 
End Sub 

Может также попытаться проверить, если ячейка содержит anithing с

If ActiveSheet.Cells(i, j) <> "" Then 

Код Испытано и это работает, но это НЕ РЕКОМЕНДУЕТСЯ :) Просто придерживайтесь до Excel Formulas, и все будет хорошо.