Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / условие с кавычками / 7 сообщений из 7, страница 1 из 1
23.06.2010, 14:57
    #36703536
ffflake
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
условие с кавычками
Помогите плиз!!!
В макросе есть следующий цикл

For i = 1 To 4000
If sh.Cells(i, 2).Text = "Сахар "тростниковый" " Then
Cells(i, 1).Select
Selection.ClearContents
End If
Next i

выдает ошибку из-за кавычек в названии Сахар "тростниковый", как нужно правильно записать
...
Рейтинг: 0 / 0
23.06.2010, 15:03
    #36703559
-O_o-
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
условие с кавычками
ffflakeПомогите плиз!!!
В макросе есть следующий цикл

For i = 1 To 4000
If sh.Cells(i, 2).Text = "Сахар "тростниковый" " Then
Cells(i, 1).Select
Selection.ClearContents
End If
Next i

выдает ошибку из-за кавычек в названии Сахар "тростниковый", как нужно правильно записать

Код: plaintext
1.
2.
3.
4.
5.
For i =  1  To  4000 
If  sh.Cells(i,  2 ).Text = "Сахар "тростниковый" " Then
    Cells(i,  1 ).Select
    Selection.ClearContents
End If
Next i
вы ищите в ячейках именно такое совпадение... "Сахар "тростниковый" " , попробуй "Сахар тростниковый"
...
Рейтинг: 0 / 0
23.06.2010, 15:37
    #36703639
ffflake
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
условие с кавычками
-O_o-,

у меня в данных написано именно Сахар "тростниковый"
...
Рейтинг: 0 / 0
23.06.2010, 15:37
    #36703642
nilem
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
условие с кавычками
Так попробуйте
If sh.Cells(i, 2).Text = "Сахар ""тростниковый""" Then
...
Рейтинг: 0 / 0
23.06.2010, 15:39
    #36703648
nilem
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
условие с кавычками
Не видно получилось

Код: plaintext
"Сахар ""тростниковый"""
...
Рейтинг: 0 / 0
23.06.2010, 15:46
    #36703665
-O_o-
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
условие с кавычками
nilemТак попробуйте
If sh.Cells(i, 2).Text = "Сахар ""тростниковый""" Then
Код: plaintext
If sh.Cells(i,  2 ).Text = "Сахар *трост*" Then
А так будет работать? Ну скажем как в АКЦЕСЕ....
...
Рейтинг: 0 / 0
23.06.2010, 15:55
    #36703686
ffflake
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
условие с кавычками
nilemНе видно получилось

Код: plaintext
"Сахар ""тростниковый"""


Так получилось, спасибо большое!!!!!!!!!!!!
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / условие с кавычками / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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