Как сравнить часть ячейки????

[UliyaP]

У меня есть зелопленый столбец Мне надо сравнить часть ячейки и записать в месть целой ячейки соответствующее значение.
Пример PhotoSmart R607 BMW WilliamsF1 Team
Надо определить что ячейка содержит PhotoSmart и записать в эту ячейку Принтер.
Подскажите как это сделать?Я идиот! Убейте меня, кто-нибудь!??

[UliyaP]

--------------------------------------------------------------------------------

У меня есть заполненый столбец. Мне надо сравнить часть ячейки и записать в место целой ячейки соответствующее значение.
Пример PhotoSmart R607 BMW WilliamsF1 Team
Надо определить что ячейка содержит PhotoSmart и записать в эту ячейку Принтер.
Подскажите как это сделать?Я идиот! Убейте меня, кто-нибудь!??

[KL]

Если с помощью VBA, то...

в ячейке например так:

Код: Выделить всё

If [A1] Like "*PhotoSmart*" Then [A1] = "Принтер"

Код: Выделить всё

If InStr([A1], "PhotoSmart") Then [A1] = "Принтер"

Код: Выделить всё

If Application.CountIf([A1], "*PhotoSmart*") Then [A1] = "Принтер"

Код: Выделить всё

'здесь запись производится в любом случае
[A1] = IIf(InStr([A1], "PhotoSmart"), "Принтер", [A1])

можно еще с пом. Regular Expressions, но все зависит от реальной задачи.

Но в столбце быстрее всего так:

Код: Выделить всё

Sub Test()
    Columns("A:A").Replace What:="*PhotoSmart*", Replacement:="принтер"
End Sub

[UliyaP]

Спасибо!!!!!
Ты опять меня очень выручил!!!!!!
Завтра обязательно попробую!!!!!!

[UliyaP]

А что бы он записывал в соседний столбей или какой-то другой?

[KL]

Тогда чтобы не перебирать все ячейки что-нить в этом духе:

Код: Выделить всё

Sub test()
    Dim rng As Range, c As Range, cnt As Long, i As Long
    On Error Resume Next
    With ActiveSheet
        Set rng = Intersect(.[A:A], .UsedRange)
        Set c = rng(1)
    End With
    cnt = Application.CountIf(rng, "*PhotoSmart*")
    For i = 1 To cnt
        Set c = rng.Find("PhotoSmart", c)
        c.Offset(, 3) = "Принтер"
    Next i
End Sub

[Estilla]

Если с помощью VBA, то...
в ячейке например так:

Код: Выделить всё

If [A1] Like "*PhotoSmart*" Then [A1] = "Принтер"

Первый раз увидел, что можно квадратными скобками обратиться к ячейке. А на сколько это правильно?

[alibek]

Вполне правильно.
Иногда удобно, иногда нет.

[KL]

Вполне правильно.
Иногда удобно, иногда нет.

Пара примеров неудобства:

- обращение к рангу с помощью квадратных скобок ([]) расчитывается VBA медленнее чем Range(). Поэтому лучше не использовать этот синтаксис внутри циклов.

- запись типа [VLOOKUP(A1,B1:D10;2;0)] эквивалентна Evaluate("VLOOKUP(A1,B1:D10;2;0)"), но не позволяет свободной манипуляции формулой путем использования переменных.