Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Select case like
 
#1
28.06.2013 08:50:04
Доброго времени суток.
подскажите пожалуйста, как прикрутить условие like к Select case ?

есть код. который проверяет кастомера, и соответственно пишет значение в ячейку. Но кастомер в таблице может быть с пробелами занесен, как в примере кода.
Код
For i = 1 To 17
    customer = Cells(i, 11).Value
    Select Case customer
    Case "TOV FOOD ", " CROSS DOCK PLATF ", "KIEV            "
      Cells(i, 3).Value = "NA"
      Case "STV     ", "SAV SERVICE  "
      Cells(i, 3).Value = "RD"
      Case Else
       Cells(i, 3).Value = "Other"
    End Select
Next
End Sub
 
 
 
#2
28.06.2013 08:54:29
Код
For i = 1 To 17
    customer = Cells(i, 11).Value
    Select Case Ucase(Trim(customer))
    Case "TOV FOOD", "CROSS DOCK PLATF", "KIEV"
      Cells(i, 3).Value = "NA"
      Case "STV", "SAV SERVICE"
      Cells(i, 3).Value = "RD"
      Case Else
       Cells(i, 3).Value = "Other"
    End Select
Next
End Sub
Учимся сами и помогаем другим...
 
 
 
#3
28.06.2013 08:58:14
Цитата
Евгений Квитницкий пишет:
кастомера
Это замерщик касты или покупатель? :D
There is no knowledge that is not power
 
 
 
#4
28.06.2013 09:02:46
используйте trim для удаления лишних пробелов и lcase для приведения к единому регистру
Живи и дай жить..
 
 
 
#5
28.06.2013 09:05:41
Цитата
Johny пишет:
Цитата
Евгений Квитницкий пишет:
кастомера
Это замерщик касты или покупатель? :D
Покупатель ))
 
 
 
#6
28.06.2013 09:10:25
Цитата
ber$erk пишет:
Код
 For i = 1 To 17
    customer = Cells(i, 11).Value
    Select Case Ucase(Trim(customer))
    Case "TOV FOOD", "CROSS DOCK PLATF", "KIEV"
      Cells(i, 3).Value = "NA"
      Case "STV", "SAV SERVICE"
      Cells(i, 3).Value = "RD"
      Case Else
       Cells(i, 3).Value = "Other"
    End Select
Next
End Sub
а что нить типа like ? если не "CROSS DOCK PLATF" а "CROSS DOCK PLAT" например..
 
 
 
#7
28.06.2013 09:15:19
Код
    For i = 1 To 17
        customer = UCase(Trim(Cells(i, 11).Value))
        
        If customer Like "TOV *" Or customer Like "CROSS DOCK *" Or customer Like "KIEV*" Then
            Cells(i, 3).Value = "NA"
        ElseIf customer Like "STV*" Or customer Like "SAV *" Then
            Cells(i, 3).Value = "RD"
        Else
            Cells(i, 3).Value = "Other"
        End If
    Next
Учимся сами и помогаем другим...
 
 
 
#8
28.06.2013 09:19:45
нет, так не получится

но можно записать массив кастомеров и по массиву циклом пройти с like - получится не хуже
Живи и дай жить..
 
 
 
#9
28.06.2013 09:37:48
Код
    customer = " CROSS DOCK PLATF "
    Select Case True
    Case customer Like "*TOV FOOD*" Or customer Like "*CROSS DOCK PLAT*" Or customer Like "*KIEV*"
        Cells(i, 3).Value = "NA"
    Case customer Like "*STV*" Or customer Like "*SAV SERVICE*"
        Cells(i, 3).Value = "RD"
    Case Else
        Cells(i, 3).Value = "Other"
    End Select
 
 
 
#10
28.06.2013 09:43:17
Вот такая конструкция будет работать

Select Case True
       
Case A Like "*123"
'Ваш код
       Case А Like "123*"
            'Ваш код
' и т.д. и т.п.
End Select

ПыСы. Не могу оформить код тегами - нет панели. У всех так?
Согласие есть продукт при полном непротивлении сторон
 
 
 
#11
28.06.2013 09:46:17
ber$erk , спасибо большое, именно оно
 
 
 
#12
28.06.2013 09:52:45
Есть панель, не пропадала...
 
 
 
#13
28.06.2013 10:11:46
Hugo, спасибо за инфу, тоже все восстановилось после перезапуска Googla
Согласие есть продукт при полном непротивлении сторон
 
 
 
Страницы: 1
Читают тему
Наверх