Excel, VBA - сравнение содержимого в TextBox / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel, VBA - сравнение содержимого в TextBox

9 сообщений из 9, страница 1 из 1

Excel, VBA - сравнение содержимого в TextBox

#33908449

Stagiere

Гость

Добрый день всем!
Я работаю в Excel и создала окошко (UserForm) для заполнения в ней некоторой информации.
Никто не сталкивался со сравнением значений TextBox в форме?
Код примерно такой:

Код: plaintext

1.
2.
3.

If (TextBoxUSLR.Value <= TextBoxUCLR.Value) Then
    TextBoxUSLR.Value =  1 . 01  * TextBoxUCLR.Value
End If

То есть если пользователь вводит USLR меньше UCLR, я его насильно делаю на один процент выше UCLR.
Проблема в сравнении. В TextBox'ах информация должна быть в текстовой форме, я так полагаю . То есть, когда я получаю заполненные юзером циферки и посылаю их на лист Эксель, все конвертируется в цифровой формат автоматически, так как потом сложения и вычитания проходят корректно. Но вот беда: не могу я произвести корректно сравнение в VBA среде. Он не видит, что 99<100 и рассматривает 100 как меньшее число(ну, в общем, число знаков в цифре неодинаковое = дает не правильный результат сравнения). Когда же я насильно конвертирую содержание текстовой ячейки в форме, он мне вообще неизвестно что выдает... Пробовала

Код: plaintext

Asc(TextBoxUSLR.Value )

Такое впечатление, что он воспринимает то же 1.01 как 101 = 7 или 1.01 = 1*2^0-(2^(-1)+1*2^(-2)). Резальтаты, в общем, необъяснимые.

Так какой же тип данных в этих TextBox и какую функцию можно использовать, чтобы представить их содержимое как числа и правильно их сравнивать?

...

Рейтинг:

0 / 0

09.08.2006, 15:52:55

| Ответить | Цитировать | Написать

Excel, VBA - сравнение содержимого в TextBox

#33908534

Ashton

Гость

Тебе нужно воспользоваться одной из функций преобразования типов: CInt, CLng, CSng, CDbl.

Код: plaintext

1.
2.

    If (CLng(TextBoxUSLR.Value) <= CLng(TextBoxUCLR.Value)) Then
        TextBoxUSLR.Value =  1 . 01  * CLng(TextBoxUCLR.Value)
    End If

...

Рейтинг:

0 / 0

09.08.2006, 16:09:52

| Ответить | Цитировать | Написать

Excel, VBA - сравнение содержимого в TextBox

#33908692

Stagiere

Гость

Ура! Работает! Спасибо огромное!!!

...

Рейтинг:

0 / 0

09.08.2006, 16:51:08

| Ответить | Цитировать | Написать

Excel, VBA - сравнение содержимого в TextBox

#33908950

Stagiere

Гость

Только у меня теперь другая проблема. Не понимаю почему...
Когда цыфры в TextBox берутся из ячеек эксель, а не вводятся пользователем, мне выдается ошибка в строке сравнения (Type mismatch):

Код: plaintext

1.
2.
3.
4.
5.
6.

TextBoxUCLX.Value = CSng(Sheet4.Range("UCLxDin").Value)
TextBoxUCLR.Value = CSng(Sheet4.Range("UCLrDin").Value)

If (CSng(TextBoxUSLX.Value) <= CSng(TextBoxUCLX.Value)) Then
   TextBoxUSLX.Value =  1 . 01  * CSng(TextBoxUCLX.Value)         
End If

...

Рейтинг:

0 / 0

09.08.2006, 17:57:44

| Ответить | Цитировать | Написать

Excel, VBA - сравнение содержимого в TextBox

#33909013

Stagiere

Гость

Вернее не

Код: plaintext

1.
2.

TextBoxUCLX.Value = CSng(Sheet4.Range("UCLxDin").Value)
TextBoxUCLR.Value = CSng(Sheet4.Range("UCLrDin").Value)

Код: plaintext

1.
2.

TextBoxUCLX.Value = CSng(Sheet4.Range("UCLxDin").Value)
TextBoxUSLX.Value = CSng(Sheet4.Range("USLX").Value)

(где в UCLxDin считается результат по формуле, но представлен в той же числовой форме, что и USLX)

...

Рейтинг:

0 / 0

09.08.2006, 18:17:30

| Ответить | Цитировать | Написать

Excel, VBA - сравнение содержимого в TextBox

#33909082

White Owl

Участник

Сообщения: 12 726

Рейтинг: 0 / 0

Stagiereмне выдается ошибка в строке сравнения (Type mismatch):Сравнение здесь не при чем. Это сам CSng так ругается если не смог преобразовать текст в число.
Вариант 1: Замени CSng на Val. Тогда текст не распознаный как число будет превращаться в ноль без ругани.
Вариант 2: Воспользуйся перехватом ошибок

...

Рейтинг:

0 / 0

09.08.2006, 18:37:50

| Ответить | Цитировать | Написать

Excel, VBA - сравнение содержимого в TextBox

#33910515

Stagiere

Гость

Спасибо за советы, начало работать(странно, это же вчера не работало)

А можно поподробнее с перехватом ошибок?

Не подскажете, чтобы учесть так же негативные значения, какую можно функцию в VBA использовать, ну, типа IsNegative() (не нашла такой).

Или если она не существует, то как написать функцию, которая возвращала бы число. Так как "return a" не распознает:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.

Private Sub TheSigne(TxtB As TextBox)
      If(TxtB.Value< 0 ) Then
              a =  1 . 01 
      Else
              a= 0 . 99 
      End If

      Return a
End Sub

Как правильно записать строчку с возвращением?

P.S.Никто не в курсе, есть ли в VBA такая функция, которая могла бы распознавать размер экрана, как, например, в Java?

...

Рейтинг:

0 / 0

10.08.2006, 14:02:01

| Ответить | Цитировать | Написать

Excel, VBA - сравнение содержимого в TextBox

#33910682

Ashton

Гость

IsNegative - нет такой функции.

Можешь так сделать.

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.

Private a As Double

Private Sub CommandButton1_Click()
    TheSigne TextBox1
    
    MsgBox a
End Sub

Private Sub TheSigne( _
  TxtB As MSForms.TextBox)
    If (TxtB.Value <  0 ) Then
        a =  1 . 01 
    Else
        a =  0 . 99 
    End If
End Sub

Или следующим образом.

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.

Private Sub CommandButton1_Click()
    MsgBox TheSigne(TextBox1)
End Sub

Private Function TheSigne( _
  TxtB As MSForms.TextBox) As Double
    If (TxtB.Value <  0 ) Then
        TheSigne =  1 . 01 
    Else
        TheSigne =  0 . 99 
    End If
End Function

Или еще так можно определить отрицательное число.

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.

Public Function fnIsNegative( _
  dblValue As Double) As String
    If Sgn(dblValue) = - 1  Then
        fnIsNegative = "Число отрицательное."
    ElseIf Sgn(dblValue) =  0  Then
        fnIsNegative = "Ноль."
    ElseIf Sgn(dblValue) =  1  Then
        fnIsNegative = "Число положительное."
    End If
End Function

Под размером ты подразумеваешь разрешение экрана? Тогда воспользуйся функцией Win API GetSystemMetrics.

...

Рейтинг:

0 / 0

10.08.2006, 14:48:04

| Ответить | Цитировать | Написать

Excel, VBA - сравнение содержимого в TextBox

#33910839

Stagiere

Гость

О! Sgn() - то, что нужно. Спасибочки большое!

...

Рейтинг:

0 / 0

10.08.2006, 15:37:22

| Ответить | Цитировать | Написать

9 сообщений из 9, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel, VBA - сравнение содержимого в TextBox

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&msg=33910839&tid=2184486]:	0ms
get settings:	7ms
get forum list:	9ms
check forum access:	2ms
check topic access:	2ms
track hit:	72ms
get topic data:	7ms
get forum data:	2ms
get page messages:	29ms
get tp. blocked users:	1ms
others:	240ms

total:	371ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы