Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как в textbox запихнуть формулу? textbox 
:(
    Опции темы
jazzzbe
Дата 24.8.2006, 16:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 21.5.2006

Репутация: нет
Всего: нет



У меня такой вопрос:
Может кто знает возможно ли на форме в textbox записать формулу, которая бы умножала значения в 2-х combobox и выводила в textbox?
PM MAIL   Вверх
Akina
Дата 24.8.2006, 16:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454



нет 


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
ИгнатьевАлексей
Дата 24.8.2006, 17:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 369
Регистрация: 18.11.2005

Репутация: 2
Всего: 3



jazzzbe, расскажи подробнее что ты делаешь и зачем тебе там ФОРМУЛА понадобилась?


--------------------
Vingrad - FOREVER !!! 

"Как вы яхту назовете - так она и поплывет!" 
 Капитан Врунгель 
PM MAIL   Вверх
Akina
Дата 24.8.2006, 18:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454



Можно сделать так что по изменению содержимого комбобокса будет меняться содержимое текстбокса. Но в текстбоксе будет текст. Типа:

Код

' draft

Sub Combobox_Change
Textbox.Text = CStr( 2 * Val ( Combobox.Value ) )
End Sub



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
jazzzbe
Дата 31.8.2006, 21:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 21.5.2006

Репутация: нет
Всего: нет



Цитата(ИгнатьевАлексей @ 24.8.2006,  17:12)
jazzzbe, расскажи подробнее что ты делаешь и зачем тебе там ФОРМУЛА понадобилась?


У меня есть форма, которая формирует документ качественное удостоверение...на форме есть "количество канистр" (комбобокс) и "объем канистры"(комбобокс) и мне надо что бы в документ в графу "Общий вес товара" заносилось сумма этих 2-х комбобоксов...
Я думал создать на форме текстбокс и что бы в нем выводилась сумма,а потом из него перекидовалась в документ. Но говорят что так нельзя.
Теперь думаю просто прописать код, который бы добавлял в нужные ячейки формулу которая будет считать вышесказаное...но этот вариант не особо мне нравится, так как нижняя граница ячеек(конец диапазона) будет динамичной и будет зависить от количества номенклатуры товара.
Может кто посоветует другие варианты.
И кстате попутно...никто не знает есть ли такой элимент на форме который бы отображал календарь?
PM MAIL   Вверх
Staruha
Дата 31.8.2006, 22:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1292
Регистрация: 1.2.2004
Где: Казань

Репутация: 13
Всего: 27



http://forum.vingrad.ru/index.php?showtopi...%B0%D1%80%D1%8C
А насчет формулы 
Код

textbox1.text=Combobox1*combobox2

 Почитай внимательнее ,что тебе посоветовали


--------------------
Возмездие настигнет
PM MAIL   Вверх
jazzzbe
Дата 1.9.2006, 11:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 21.5.2006

Репутация: нет
Всего: нет



Staruha
Спасибо за инфу на счет календаря...
На счет второго, textbox1.text=Combobox1*combobox2 у меня не хочет работать, но я решил по другому сделать и возник вопрос по одной строчке кода :

Номер строки = Application.CountA(ActiveSheet.Columns(1)) + 1

With UserForm1
Товар = .ComboBox1
Дата = .DTPicker1
Клиент = .ComboBox2
Накладная = .TextBox3
Видтары = .ComboBox3
Дата1 = .DTPicker2
Количество1 = .TextBox4.Text
Вес = .ComboBox4
End With

With ActiveSheet
.Cells(Номер строки, 1).Value = Товар 
.Cells(Номер строки, 2).Value = Дата 
.Cells(Номер строки, 3).Value = Видтары 
.Cells(Номер строки, 4).Value = Количество1 
.Cells(Номер строки, 5).Value = Вес 
.Cells(Номер строки, 6).Formula = "=D11*E11"
.Cells(5, 2).Value = Клиент 
.Cells(6, 2).Value = Накладная 
.Cells(7, 2).Value = Дата1 
End With

Короче говоря, я на форме заполняю все вышеперечисленные поля по одному товару и нажав кнопку добавить они переносятся на лист Ексел.Потом по другому товару и т.д. в зависимости от количества номенклатуры...как мне сделать что бы  .Cells(Номер строки, 6).Formula = "=D11*E11" добавляля формулу Количество1*Вес...то что я сделал добавляет лдну и туже сумму, а именно D11*E11  
PM MAIL   Вверх
jazzzbe
Дата 1.9.2006, 12:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 21.5.2006

Репутация: нет
Всего: нет



Все допетрил...сделал таким образом :
.Cells(Номер строки, 6).Formula = (Cells(Номер строки, 4) * Cells(Номер строки, 5))
Так что всем спасибо за помощь!!!
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами



  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела


Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема »


 




[ Время генерации скрипта: 0.0736 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.