Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.05.2010, 16:13   #1
Радмир4855
Новичок
Джуниор
 
Регистрация: 13.05.2010
Сообщений: 9
По умолчанию Проблема с формулой

Помогите с формулой для подсчета суммы, чтобы она считала цену закупки если приход или цена продажи если расход

Вот у меня обыная формула она считает, но только по цене закупки. т.к не учитываетвф приход и расход

Private Sub CommandButton4_Click()
TextBox7 = Val(TextBox4) * TextBox6
End Sub
Радмир4855 вне форума Ответить с цитированием
Старый 13.05.2010, 16:18   #2
mchip
Форумчанин
 
Регистрация: 24.06.2008
Сообщений: 516
По умолчанию

Вот так:

Код:
Private Sub CommandButton4_Click() 
TextBox7 = Val(TextBox4) * TextBox6*TextBox5
End Sub
Можно сделать все! Было бы время, да деньги...
mchip вне форума Ответить с цитированием
Старый 13.05.2010, 16:37   #3
Радмир4855
Новичок
Джуниор
 
Регистрация: 13.05.2010
Сообщений: 9
По умолчанию

Нет неправильно, вы меня не понели надо чтобы если приход, то по цене закупки считалась, а если расход, то по цене продажи, а вы написали формулы где умножаеться кол на цену закупки и еще раз умножается на цену продажи
Радмир4855 вне форума Ответить с цитированием
Старый 13.05.2010, 16:48   #4
mchip
Форумчанин
 
Регистрация: 24.06.2008
Сообщений: 516
По умолчанию

Цитата:
Сообщение от Радмир4855 Посмотреть сообщение
Помогите с формулой для подсчета суммы, чтобы она считала цену закупки если приход или цена продажи если расход

Вот у меня обыная формула она считает, но только по цене закупки. т.к не учитываетвф приход и расход

Private Sub CommandButton4_Click()
TextBox7 = Val(TextBox4) * TextBox6
End Sub
А где здесь указание на приход или расход?
Можно сделать все! Было бы время, да деньги...
mchip вне форума Ответить с цитированием
Старый 13.05.2010, 16:56   #5
Радмир4855
Новичок
Джуниор
 
Регистрация: 13.05.2010
Сообщений: 9
По умолчанию

чтобы она считала цену закупки если приход или цена продажи если расход
Радмир4855 вне форума Ответить с цитированием
Старый 13.05.2010, 17:01   #6
The_Prist
Участник клуба
 
Аватар для The_Prist
 
Регистрация: 17.07.2009
Сообщений: 1,088
По умолчанию

Цитата:
Сообщение от Радмир4855 Посмотреть сообщение
чтобы она считала цену закупки если приход или цена продажи если расход
Вы сами подумайте, как можно нормально Вам помочь, если Вы не говорите как понять что есть приход, что есть расход? Где смотреть какая операция(приход или расход)? Из приведенных Вами строк макроса ничего этого не видно. Я там даже намека на приходы с расходами не нашел.
Вот простейший пример построения конструкции с условиями:

Код:
Private Sub CommandButton4_Click() 
If Расход Then
TextBox7 = Val(TextBox4) * TextBox6*TextBox5
Else
TextBox7 = Val(TextBox4) * TextBox3*TextBox2
End if
End Sub
WebMoney - R298726502453; Яндекс.Деньги - 41001332272872
www.excel-vba.ru
The_Prist вне форума Ответить с цитированием
Старый 13.05.2010, 17:31   #7
Радмир4855
Новичок
Джуниор
 
Регистрация: 13.05.2010
Сообщений: 9
По умолчанию

Я подогнал ее по себя, но она почему считает только по одной цене, по цене закупки независимо от того что я ставлю в combobox3 приход или расход

Private Sub CommandButton4_Click()
If ComboBox3 = Расход Then
TextBox7 = Val(TextBox5) * TextBox6
Else
TextBox7 = Val(TextBox4) * TextBox6
End If
End Sub


TextBox7=Сумма
TextBox4=Цена закупки
TextBox6=количество
TextBox5=цена продажи
ComboBox3= поле со списком где выбираеться приход или расход
Радмир4855 вне форума Ответить с цитированием
Старый 13.05.2010, 17:36   #8
The_Prist
Участник клуба
 
Аватар для The_Prist
 
Регистрация: 17.07.2009
Сообщений: 1,088
По умолчанию

Кавычки обязательны для текстовых значений. Это раз. Во вторых, лучше еще и TextBox6 приводить к числу
Код:
Private Sub CommandButton4_Click()
If ComboBox3 = "Расход" Then
TextBox7 = Val(TextBox5) * Val(TextBox6)
Else
TextBox7 = Val(TextBox4) * Val(TextBox6)
End If
End Sub
Упрощаем:
Код:
Private Sub CommandButton4_Click()
TextBox7 = Val(IIf(ComboBox3 = "Расход", TextBox5,TextBox4)) * Val(TextBox6)
End Sub
WebMoney - R298726502453; Яндекс.Деньги - 41001332272872
www.excel-vba.ru
The_Prist вне форума Ответить с цитированием
Старый 13.05.2010, 17:41   #9
Радмир4855
Новичок
Джуниор
 
Регистрация: 13.05.2010
Сообщений: 9
По умолчанию

Спасибо большое, что помогли, все работает!!!!
Радмир4855 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
MS Access: проблема с формулой SpokeRu Microsoft Office Access 3 13.02.2010 00:16
Задача с формулой Яков Repby Помощь студентам 1 21.06.2009 15:05
помогите с формулой master_3 Microsoft Office Excel 4 17.04.2009 19:15
Проблема с формулой в фкнкции S@muel Общие вопросы C/C++ 10 15.04.2009 09:16
Проблема с формулой - =ЕСЛИ(ЕПУСТО(B5);" ";ПРОСМОТР(B5;AE$2:AE$5230;AD$2:AD$5230)) КаТеРиНка Microsoft Office Excel 1 20.09.2007 16:34