По макросам Excell вопрос

[Pedro]

Поможите ламеру кто чем может :

нужно осуществить поиск ячеек, содержащим символ ' " ' (кавычки), например

If k = "бла-бла-бла " бла-бла-бла" then ...

или как-то избавиться от этих грёбаных кавычек во всех ячейках.

[voffka]

Ctrl + H и меняйте " на пустое место

[Pedro]

1: voffka:

в макросе надо!
Нужно, например, чтобы макрос менял кавычки на ничто.

[voffka]

так запишите макрос а потом код подправте как надо
аля
Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 11.05.2010 (Voffka)

Range("A1:D26").Select
Selection.Replace What:="""", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub

[Pedro]

Вот так Оно ругается на """"
Собственно, как и ожидалось

[voffka]

Pedro пишет:
> Вот так Оно ругается на """"
> Собственно, как и ожидалось

попросите кого нибудь показать как это сделать там делов на 5 минут

[djdance]

6: voffka:
>попросите кого нибудь показать

вот он в №0 и попросил!


0: Pedro:

выполняется , не ругается

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

Sub Макрос1()
'
' Макрос1 Макрос
'

'
    Cells.Replace What:="""", Replacement:="", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

[Pedro]

7: djdance:

дарова Дэнс
Ты тоже нихрена не понял, что мне надо! Наверное я так хренова объяснил...

Вот осуществляется поиск ячейки в цикле (просто пример):

i = 1
While Worksheets("name").Cells(i, 1) <> 0
If Worksheets("name").Cells(i, 1) = "сова" Then Worksheets("Price List").Cells(i, 22) = "скворец"
Worksheets("name").Cells(i, 11).Select
Selection.EntireRow.Delete
i = i - 1
End If

i = i + 1
Wend

Если в ячейке присутствует символ ", то макрос не работает.

[djdance]

8: Pedro:
а перед циклом запускать дестроер всех кавычек?

[Pedro]

9: djdance:

не годится!

[djdance]

10: Pedro:
то есть ты хочешь проводить поиск по результату единственного строкового сравнения, которое игнорит кавычки внутри операнда?
я даже не знаю, есть ли такой оператор хоть в одном языке мира.
на php можно из двух сделать, вначале обработав операнд командой strtr или preg_replace

[Pedro]

11: djdance:
>то есть ты хочешь проводить поиск по результату единственного строкового сравнения, которое игнорит кавычки внутри операнда?

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

[djdance]

двойная кавычка

If Worksheets("name").Cells(i, 1) = """"

upd. а , понял. щас

[djdance]

работает.
может у тебя wrong basic?
у меня вот на твой End if заругался.

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

Sub Макрос11()
i = 1
While Cells(i, 1) <> 0
If Cells(i, 1) = """" Then Cells(i, 1) = "дж"


i = i + 1
Wend
End Sub

[Pedro]

14: djdance:

в таком варианте basic ругается как в 4: Pedro:

[djdance]

15: Pedro:
ну точно бейсик не тот. у меня excel 2007

[Pedro]

16: djdance:

тут уж ничего не поделаешь. У меня лицензия, сносить не целесообразно.

[djdance]

17: Pedro:
вот и я в том же положении раком


запустил в 2003-ем. Не ругаецо, заменяет.