Bu makrosların köməyilə həll edilir. bu kodu Alt+F11 sonra İnsert module edilərək daxil edin, sonra Alt+Q sonra Alt+F8 ilə icra edə bilərsiniz
Code
Sub Chevir()
For Each vall In Range("c3:c9")
If vall.NumberFormat = "[$€-2] #,##0.00" Then
Dim K As String
K = Range("i1").Value
vall.Offset(0, 1).Value = vall.Value * K
Else
vall.Offset(0, 1).Value = (vall.Value * 1)
End If
Next vall
End Sub
|