Макрос не хочет работать, если его применять для нескольких ячеек. Работает только для одной ячейки.
Собственно, тело макроса:
Sub devideby1000()
'
' devideby1000 Macro
'
' Keyboard Shortcut: Ctrl+r
'
With ActiveCell
If IsNumeric(.Value) And Not IsEmpty(.Value) Then
If .HasFormula Then
.Formula = "=(" & Mid(.Formula, 2) & " /1000"
Else
.Formula = "=" & .Formula & "/1000"
End If
End If
End With
End Sub
Можете, плз, подсказать, что нужно поправить, чтобы оно работало, если выделить несколько ячеек.
Спасибо
Собственно, тело макроса:
Sub devideby1000()
'
' devideby1000 Macro
'
' Keyboard Shortcut: Ctrl+r
'
With ActiveCell
If IsNumeric(.Value) And Not IsEmpty(.Value) Then
If .HasFormula Then
.Formula = "=(" & Mid(.Formula, 2) & " /1000"
Else
.Formula = "=" & .Formula & "/1000"
End If
End If
End With
End Sub
Можете, плз, подсказать, что нужно поправить, чтобы оно работало, если выделить несколько ячеек.
Спасибо