Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Как поставить процентный формат

79K
05 апреля 2012 года
noscere
5 / / 05.04.2012
Есть код кнопки:

Код:
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
Я хочу, что бы в поле per расчёты производились в процентах. Я делаю вот так, но расчёт получается обычный числовой:
 
Код:
Private Sub per_Change()
 Debug.Print FormatPercent(3)
End Sub
Подскажите, пожалуйста, как сделать процентный формат поля
327
06 апреля 2012 года
UserNet2008
748 / / 03.04.2010
Debug - нужен для отладки(проверки программы)
Пробуем так

Private Sub per_Change()
Form1.Print FormatPercent(3) ' Результат будет выведен на форму
End Sub

или

Private Sub per_Change()
Label1.caption= str(FormatPercent(3)) ' Результат будет выведен в Label1
End Sub
327
06 апреля 2012 года
UserNet2008
748 / / 03.04.2010
Цитата: UserNet2008
Debug - нужен для отладки(проверки программы)
Пробуем так

Private Sub per_Change()
Form1.Print FormatPercent(3) ' Результат будет выведен на форму
End Sub

или

Private Sub per_Change()
Label1.caption= str(FormatPercent(3)) ' Результат будет выведен в Label1
End Sub



Посмотрите здесь

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог