Получение данных в форму VBA из ячейки Excel

[lisa-alisa]

черррт..макрос слетел, и форма туда же. Извините. Создам заново.

[VictorM]

А я то думаю, чё за дела? (У меня Excel 2003)
Очень интересно, кстати. При нажатии "Сохранить" происходит пересчет и в ячейках - #ИМЯ?

[lisa-alisa]

ООО! Работает все!!!!!!!!! Спасибо!
Стоило переделать...Спасибо Вам огромное!

И, раз уж я тут...можно еще один вопросик?


Для того, чтобы нельзя было вводить текст вместо числовых значений, я прописываю
If IsNumeric(TextBox1(2,3...)) = False Then
MsgBox "Ошибка"

но получается так, что при любом "преступном" действии в текстбоксе(не только ввод текста, но и удаление) сообщение срабатывает, причем на каждый вводимый/удаляемый символ. Это исправимо?

[lisa-alisa]

Не поверите. День озарений. Разобралась только что и с ошибками.
Извините за беспокойство.

И еще раз Большое Спасибо!!! Вы очень помогли!

[VictorM]

lisa-alisa,

Это исправимо?

конечно И причем очень легко. Дополнительно к каждому TextBox-у в который должны вводиться только цифровые значения просто добавьте

Код: Выделить всё

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) ' Проверка - только цифры!
    If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
End Sub

теперь в TextBox1 Вы ничего кроме цифр не сможете ввести!

[lisa-alisa]

О, спасибо! Это гораздо изящнее моих попыток!
Только что подумалось - в окно с результатом ведь тоже можно будет вводить значения. а как запретить ввод?

Ничего, что я Вас сегодня потерроризирую.....

[Aent]

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

Код: Выделить всё

TextBox1.enabled = false

[lisa-alisa]

Благодарю!

[VictorM]

lisa-alisa, отредактированные сообщения не отображаются как новые, поэтому я пропустил последний Ваш вопрос .
Вообще - то я в своих формах для отображения данных почти всегда использую Label, в большинстве случаев это удобнее. И в дизайне формы неплохо, когда значение появляется на пустом, казалось бы , месте.

[lisa-alisa]

Ну...можно и метку, тоже неплохо. Главное, что теперь все работает.)))