Как поставить процентный формат
Код:
Private Sub Button1_Click()
Dim at, st, dt, pert, zpt, vidrt, oplt As Integer
sy = 100
ay = 120
at = Val(a.Text)
st = Val(s.Text)
dt = Val(d.Text)
pert = Val(per.Text)
zpt = Val(zp.Text)
vidrt = Val(vidr.Text)
oplt = Val(opl.Text)
data = Worksheets("_vba").Range("c2").Value
zp = dt * st
per = (st / at) * 100
vidr = dt * st * 0.4
opl = dt * st * 0.96
End Sub
Dim at, st, dt, pert, zpt, vidrt, oplt As Integer
sy = 100
ay = 120
at = Val(a.Text)
st = Val(s.Text)
dt = Val(d.Text)
pert = Val(per.Text)
zpt = Val(zp.Text)
vidrt = Val(vidr.Text)
oplt = Val(opl.Text)
data = Worksheets("_vba").Range("c2").Value
zp = dt * st
per = (st / at) * 100
vidr = dt * st * 0.4
opl = dt * st * 0.96
End Sub
Код:
Private Sub per_Change()
Debug.Print FormatPercent(3)
End Sub
Debug.Print FormatPercent(3)
End Sub
Пробуем так
Private Sub per_Change()
Form1.Print FormatPercent(3) ' Результат будет выведен на форму
End Sub
или
Private Sub per_Change()
Label1.caption= str(FormatPercent(3)) ' Результат будет выведен в Label1
End Sub
Цитата: UserNet2008
Debug - нужен для отладки(проверки программы)
Пробуем так
Private Sub per_Change()
Form1.Print FormatPercent(3) ' Результат будет выведен на форму
End Sub
или
Private Sub per_Change()
Label1.caption= str(FormatPercent(3)) ' Результат будет выведен в Label1
End Sub
Пробуем так
Private Sub per_Change()
Form1.Print FormatPercent(3) ' Результат будет выведен на форму
End Sub
или
Private Sub per_Change()
Label1.caption= str(FormatPercent(3)) ' Результат будет выведен в Label1
End Sub