Добрый вечер, уважаемые. На userform есть 40 текстбоксов , 1 лейбл и кнопка выхода. Текстбоксы нужны для расчета Длина*Ширина*Кол-во = Сумма (4 в ряд и 10 строк) 1) Количество вводимых строк неизвестно, поэтому сделал с запасом. Можно ли вставлять следующий набор текстбоксов, если к примеру был нажат Энтер или все таки придется изначально делать большее количество? 2) Как отследить (изменить общую сумму), если в каком то текстбоксе была изменена цифра? Пытаюсь сделать так [vba]
Код
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox4.Text = TextBox1.Text * TextBox2.Text * 3 / 10000 End Sub
[/vba] но в этом случае для всех текстбоксов придется дублировать формулы. Есть ли более простое и правильное решение?
Добрый вечер, уважаемые. На userform есть 40 текстбоксов , 1 лейбл и кнопка выхода. Текстбоксы нужны для расчета Длина*Ширина*Кол-во = Сумма (4 в ряд и 10 строк) 1) Количество вводимых строк неизвестно, поэтому сделал с запасом. Можно ли вставлять следующий набор текстбоксов, если к примеру был нажат Энтер или все таки придется изначально делать большее количество? 2) Как отследить (изменить общую сумму), если в каком то текстбоксе была изменена цифра? Пытаюсь сделать так [vba]
Код
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox4.Text = TextBox1.Text * TextBox2.Text * 3 / 10000 End Sub
[/vba] но в этом случае для всех текстбоксов придется дублировать формулы. Есть ли более простое и правильное решение?Stormy
RAN, Вот нашел статью от Дмитрия, в принципе все описано и как то что мне нужно. Работа с модулями классов , не не удается сделать по примеру. Да и сам пример не хочет работать. То ли ошибка у автора, то ли у меня с Экзелем проблемы.
RAN, Вот нашел статью от Дмитрия, в принципе все описано и как то что мне нужно. Работа с модулями классов , не не удается сделать по примеру. Да и сам пример не хочет работать. То ли ошибка у автора, то ли у меня с Экзелем проблемы.Stormy
Место для рекламы.
Сообщение отредактировал Stormy - Вторник, 27.05.2014, 20:58
RAN, Благодарю, Андрей, разобрался. Это я, дурья башка, пытался объявить переменную в модуле листа и не вчитывался в ошибку А когда скачал пример, то естественно ошибка в моем файле не давала и ему нормально работать Как-то так.
RAN, Благодарю, Андрей, разобрался. Это я, дурья башка, пытался объявить переменную в модуле листа и не вчитывался в ошибку А когда скачал пример, то естественно ошибка в моем файле не давала и ему нормально работать Как-то так.Stormy