Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel, VBA - сравнение содержимого в TextBox / 9 сообщений из 9, страница 1 из 1
09.08.2006, 15:52:55
    #33908449
Stagiere
Stagiere
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel, VBA - сравнение содержимого в TextBox
Добрый день всем!
Я работаю в 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, 16:09:52
    #33908534
Ashton
Ashton
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel, VBA - сравнение содержимого в TextBox
Тебе нужно воспользоваться одной из функций преобразования типов: 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:51:08
    #33908692
Stagiere
Stagiere
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel, VBA - сравнение содержимого в TextBox
Ура! Работает! Спасибо огромное!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.08.2006, 17:57:44
    #33908950
Stagiere
Stagiere
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel, VBA - сравнение содержимого в TextBox
Только у меня теперь другая проблема. Не понимаю почему...
Когда цыфры в 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, 18:17:30
    #33909013
Stagiere
Stagiere
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel, VBA - сравнение содержимого в TextBox
Вернее не
Код: 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:37:50
    #33909082
White Owl
White Owl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel, VBA - сравнение содержимого в TextBox
Stagiereмне выдается ошибка в строке сравнения (Type mismatch):Сравнение здесь не при чем. Это сам CSng так ругается если не смог преобразовать текст в число.
Вариант 1: Замени CSng на Val. Тогда текст не распознаный как число будет превращаться в ноль без ругани.
Вариант 2: Воспользуйся перехватом ошибок
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.08.2006, 14:02:01
    #33910515
Stagiere
Stagiere
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel, VBA - сравнение содержимого в TextBox
Спасибо за советы, начало работать(странно, это же вчера не работало)

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

Не подскажете, чтобы учесть так же негативные значения, какую можно функцию в 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:48:04
    #33910682
Ashton
Ashton
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel, VBA - сравнение содержимого в TextBox
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, 15:37:22
    #33910839
Stagiere
Stagiere
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel, VBA - сравнение содержимого в TextBox
О! Sgn() - то, что нужно. Спасибочки большое!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel, VBA - сравнение содержимого в TextBox / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 318ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2184486]:
 0ms
get settings:
 8ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 21ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 40ms
get tp. blocked users:
 1ms
others: 215ms
total:  318ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]