VBa Кто поможет - Microsoft Office Excel

Work92 · 20.09.2012, 11:53

Private Sub CommandButton1_Click()
Dim Q, W, E, R, T, Y, U, I, O, P As Single
Q = Val(TextCymma.Value)
NTL1 = Q * 0.35
NTL2 = Q * 0.6
NTL3 = Q * 0.05
W = Q * 0.35 + Q * 0.6 + Q * 0.05
Label8.Caption = W
Fires = Ler1 - Ler2
U = Val(Fires)
Fret = Fires * LER3
Ler4.Caption = Fret

End Sub

Tanit · 20.09.2012, 11:56

А что с эти нужно сделать?

Serge 007 · 20.09.2012, 12:00

Work92, попросить модераторов что бы Вас и здесь забанили?
Что за неуважение к помогающим Вам?!

20.09.2012, 11:53	#1
Work92 Новичок Джуниор Регистрация: 20.09.2012 Сообщений: 1	VBa Кто поможет Private Sub CommandButton1_Click() Dim Q, W, E, R, T, Y, U, I, O, P As Single Q = Val(TextCymma.Value) NTL1 = Q * 0.35 NTL2 = Q * 0.6 NTL3 = Q * 0.05 W = Q * 0.35 + Q * 0.6 + Q * 0.05 Label8.Caption = W Fires = Ler1 - Ler2 U = Val(Fires) Fret = Fires * LER3 Ler4.Caption = Fret End Sub

20.09.2012, 12:00	#3
Serge 007 Участник клуба Регистрация: 15.12.2009 Сообщений: 1,448	Work92, попросить модераторов что бы Вас и здесь забанили? Что за неуважение к помогающим Вам?! Бесплатная помощь: www.excelworld.ru Платная помощь: serge_007.planetaexcel@mail.ru https://yoomoney.ru: 41001419691823

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Кто поможет	димон4ик_	Помощь студентам	0	17.10.2011 14:34
кто поможет	Marta18	Microsoft Office Excel	1	14.06.2011 02:40
Может кто поможет?	lastarmyman	Фриланс	4	28.05.2010 06:21
Кто поможет???	sashahttp	Общие вопросы Delphi	1	24.06.2008 09:15

20.09.2012, 11:56	#2
Tanit Пользователь Регистрация: 31.08.2012 Сообщений: 19	А что с эти нужно сделать?