Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Val / 15 сообщений из 15, страница 1 из 1
22.05.2009, 08:45
    #36000836
Rusaln
Rusaln
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Val
программирую на Визуал.
в ячейки Exceell прописано значение цифры, а потом есть пробелы.
через Trim убераю пробел.
Product_type3 = Trim(Worksheets(5).Cells(find_val4.Row, product_val2.Column).Value)
Но когда сравниваю значение Product_type3 с другой ячейкой, где так же прописано цифры но без пробела, сравнения равняеться к не ровну <>.
кто знает как произвести ковертацию со строки на цифру?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2009, 08:59
    #36000866
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Val
Если вы уверены, что в ячейке после цифр идут пробелы, то используйте преобразование CDbl или CInt.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2009, 10:04
    #36000997
PlanB
PlanB
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Val
Dim Product_type3 As Integer ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2009, 10:36
    #36001095
EmilRegis
EmilRegis
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Val
для начала русский бы подучить))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2009, 10:39
    #36001105
PlanB
PlanB
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Val
EmilRegis, сюда посмотрите
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2009, 13:01
    #36001653
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Val
PlanBDim Product_type3 As Integer ?
Вы сторонник неявного преобразования типов ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2009, 13:06
    #36001681
Rusaln
Rusaln
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Val
прикол приколом, а если серьезно, то там не всегда после цифр могут быть пробелы. CDbl не помог, а Cint дела тоже не помог.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2009, 13:11
    #36001698
EmilRegis
EmilRegis
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Val
выведи значения той и другой ячейки после всех преобразований и посмотри чем они отличаются
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2009, 13:22
    #36001736
Rusaln
Rusaln
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Val
если в ячейки где есть пробелы, убираю пробелы после цифр, то все .аебись работает, ну то есть хорошо ))).
а если не убираю, то не работает.
выводил, не знаю, Trim всегда убирал пробелы, а тут не убирает, или он пробелы не видит???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2009, 13:28
    #36001758
EmilRegis
EmilRegis
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Val
попробу вместо трима replace(" ","") или что там вместо реплайса в вб..." " - это 2 пробела
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2009, 14:06
    #36001947
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Val
> Автор: Rusaln
> если в ячейки где есть пробелы, убираю пробелы после цифр, то все .аебись работает, ну то есть хорошо ))).
> а если не убираю, то не работает.
> выводил, не знаю, Trim всегда убирал пробелы, а тут не убирает, или он пробелы не видит???

Пример значений можно увидеть? Хотя-бы те что не преобразовывает
И вообще зачем тему назвал Val если в коде нигде не применяеш её?


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2009, 15:23
    #36002255
Rusaln
Rusaln
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Val
Product_type = Trim(Worksheets(1).Cells(r, product_val.Column).Value)
Fin_Plan_type = Trim(Worksheets(1).Cells(r, fin_plan_val.Column).Value)

Product_type3 = Trim(Worksheets(5).Cells(find_val4.Row, product_val2.Column).Value)
Fin_Plan_type3 = Trim(Worksheets(5).Cells(find_val4.Row, fin_plan_val2.Column).Value)

If Product_type = Product_type3 And Fin_Plan_type = Fin_Plan_type3 Then
L_check = "False"
Worksheets(1).Cells(r, pl_cat_dr.Column).Value = pl_type
Else
check_Cat2 = "True"
End If
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2009, 15:24
    #36002256
Rusaln
Rusaln
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Val
даже в аски код перерводил, выводит 32 , это же пробел. но Trim не убирает (((
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2009, 15:37
    #36002307
by-pass
by-pass
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Val
тогда
Replace("строка", Chr(32),"")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.05.2009, 15:40
    #36002314
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Val
> Автор: Rusaln
Я вообще-то просил книгу со значениями, которые не преобразовываются как нужно.

А по вышеприведенному коду такие вопросы:
типы переменных Product_type, Fin_Plan_type, Product_type3, Fin_Plan_type3 ?
И если уж на то пошло, может проще делать так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
If Worksheets( 1 ).Cells(r, product_val.Column).Value = Worksheets( 5 ).Cells(find_val4.Row, 
product_val2.Column).Value and Worksheets( 1 ).Cells(r, fin_plan_val.Column).Value = Worksheets( 5 ).Cells(find_val4.Row, 
fin_plan_val2.Column).Value Then
    L_check = "False"
    Worksheets( 1 ).Cells(r, pl_cat_dr.Column).Value = pl_type
Else
    check_Cat2 = "True"
End If



Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Val / 15 сообщений из 15, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 383ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2160960]:
 0ms
get settings:
 9ms
get forum list:
 20ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 56ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 47ms
get tp. blocked users:
 2ms
others: 229ms
total:  383ms
x
x
Закрыть


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