VB Код работает но с багами
Вот и сам код:
Sub Вписать()
Dim Dannye As Variant, Adres As String
Dannye = Range("B11")
Adres = Range("C9")
Range(Adres) = Dannye
Range(Adres).Select
If Dannye = Then Selection.Font.ColorIndex = 0
Selection.Font.Size = 8
End Sub
Подскажите что не так!!!!!!!!!!!
Цитата:
On 2002-02-22 1759, JOI wrote
Создал макрос на VB переносит заданное число в определенную ячейку. Вроде все нормально но когда вводятся координаты (примДебет Кредит )цыфровые даные округляются. И вместо счета 2 в ячеке показывается 0,02
Вот и сам код
Sub Вписать()
Dim Dannye As Variant, Adres As String
Dannye = Range("B11")
Adres = Range("C9")
Range(Adres) = Dannye
Range(Adres).Select
If Dannye = Then Selection.Font.ColorIndex = 0
Selection.Font.Size = 8
End Sub
Подскажите что не так!!!!!!!!!!!
add function format