замена символом букв и цифр содержащихся вечейке в коде VBA

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

замена символом букв и цифр содержащихся вечейке в коде VBA (Макросы/Sub)

karponen

Дата: Пятница, 10.04.2015, 14:42 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 20% ±

Excel 2007

добрый день! пытаюсь адаптировать код под свои нужды.
Задача: в табл.№1 "Приход" выделяю стоки и если в столбце "К" значение OR , то в таблице №2 "форма для заполнения" в столбец F заноситься "оригинал", если TR, то "телекс"
в таблице "Приход" данные в столбце "К" в таком виде OR/BC 27.03, OR/BC в ТБ, TR/BC 30.03
подскажите каким символом (ми) можно заменнить часть букв и цифр
я пытался маменить символом "*", но это не работает.
[vba]

Код

If shPRIHOD.Range("K" & myR.Row) = "OR*" Then
destB.Sheets(1).Range("F" & destR) = "оригинал"
ElseIf shPRIHOD.Range("K" & myR.Row) = "TR*" Then
destB.Sheets(1).Range("F" & destR) = "телекс"
End If

[/vba]

[moder]все коды VBA необходимо оформлять ТЕГАМИ!!! Кнопка #
пока не исправите - никто не поможет![/moder]

К сообщению приложен файл: 5551413.xlsx (41.6 Kb)

Александр

Сообщение отредактировал Serge_007 - Пятница, 10.04.2015, 14:53

Ответить

KSV

Дата: Пятница, 10.04.2015, 14:59 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 770

Репутация: 255 ±

Замечаний: 0% ±

Excel 2013

в вашем случае можно просто сверять 2 первых символа...
используя ваш код (для понимания), будет так:
[vba]

Код

    Select Case Left(shPRIHOD.Range("K" & myR.Row))
         Case "OR"
             destB.Sheets(1).Range("F" & destR) = "оригинал"
         Case "TR"
             destB.Sheets(1).Range("F" & destR) = "телекс"
     End Select

[/vba]