Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Ошибка VBA error Expected then or goto
 
#1
02.11.2015 06:50:13
Доброе утро! Подскажите в чем проблема?Выводит ошибку


Код
If Cells(i, 4) = "AO  "ABC"" Then Cells(i, 5) = 15
Изменено: Keilash - 02.11.2015 06:50:41
 
 
 
#2
02.11.2015 07:21:52
Попробуйте удвоить кавычки (и к-во пробелов после АО?) -
Код
If Cells(i, 4) = "AO  ""ABC""" Then Cells(i, 5) = 15
Изменено: Апострофф - 02.11.2015 07:23:28
 
 
 
#3
02.11.2015 07:43:21
Апострофф,ошибка исчезла,но не срабатывает,так как не находит .Лишние кавычки меняют условие
Изменено: Keilash - 02.11.2015 07:47:19
 
 
 
#4
02.11.2015 07:53:59
Цитата
Keilash написал:не срабатывает
у меня срабатывает
 
 
 
#5
02.11.2015 08:01:34
Catboyun, Вы по таким образом прописывали? Мне нужно проверить именно AO "ABC", а не AO ""ABC""
Код
Sub replace()
Dim ws As Worksheet
Dim i As Integer
For i = 1 To 1000
If Cells(i, 4) = "AO  ""ABC""" Then Cells(i, 5) = 15
If Cells(i, 4) = "AO  ""BCA""" Then Cells(i, 5) = 16
If Cells(i, 4) = "AO  ""CCA""" Then Cells(i, 5) = 16
Next
End Sub
Изменено: Keilash - 02.11.2015 08:05:12
 
 
 
#6
02.11.2015 08:04:52
Да, макрос сработал.
 
 
 
#7
02.11.2015 08:21:29
Catboyun,скиньте свой вариант пожалуйста
 
 
 
#8
02.11.2015 08:24:43
пожалуйста
 
 
 
#9
02.11.2015 08:29:55
Catboyun,спасибо! у Вас прекрасно работает. А как быть в случае,когда нужно вытащить "AO "ABC" ?
 
 
 
#10
02.11.2015 08:31:53
Keilash, не понял Вас
 
 
 
#11
02.11.2015 08:40:52
Catboyun,есть случай,когда необходимо при наличии AO "ABC" заполнить ячейку цифрой 15,ее решили прописывать вот таким образом "AO  ""ABC""", а как быть в случае с "AO "ABC" ?
 
 
 
#12
02.11.2015 08:46:02
"""AO ""ABC"""
 
 
 
#13
02.11.2015 08:49:39
Catboyun, Спасибооо! все,последний вопрос. Если вместо цифры надо вставить букву?
 
 
 
#14
02.11.2015 08:57:14
= "ф"
 
 
 
#15
02.11.2015 09:07:04
Catboyun,Благодарю, проблема была в неправильном расположении)) выручили!!!
 
 
 
Страницы: 1
Наверх