Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Парсинг данных в ячеке по заданной маске, Нужен макрос (или формула, но лучше макрос), который будет из ячейки по маске вытягивать данные в столбцы
 
Доброго времени суток, нужен макрос который будет из файла примера из столбца исходные данные декодировать их к виду в столбце после декодирования.
Далее должен удаляться хвост, который может начинаться с трех параметров &_openstat, &yclid, &gclid. В итоге будет строка вида

Код
=|gc:1047889346|gb:282564164635|gad:51826865259|gk:kwd-422283136922|gst:g|gf:|gs:|gp:1t1
или
|c:34158797|g:3275183547|b:5601331100|k:13043360311|st:search|a:no|s:none|t:premium|p:1|r:

Которую надо разбить по прямым слешам в отельные столбцы которые будут называться соответственно параметрам перед двоеточием, то есть собственно нужны значения после двоеточия.

Изменено: Денис Голуб - 11.09.2018 22:05:14
Ошибка run-time error 1004 в цикле макроса, При прогоне цикла возникает ошибка run-time error 1004
 
Есть макрос(ниже), ошибка возникает в строке то ли следующей после строки с Do, то ли через одну от нее. Код ошибки: run-time error 1004. Смысл в том чтоб пробегать столбец С, и проверять столбец А, на соответствие значению в столбце С, если есть совпадения красим, если нет бежим дальше. Имя специально не менял ибо название в дальнейшем будет "Страшное".
Код
Sub Макрос6()
'
' Макрос6 Макрос
' stop
'
' Сочетание клавиш: Ctrl+t
'
i = 1
    Range(Selection, Selection.End(xlDown)).Select
    Do While i <= 100
        Selection.FormatConditions.Add Type:=xlTextString, String:="=$C$i", _
        TextOperator:=xlContains
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Font
        .Color = -16383844
        .TintAndShade = 0
    End With
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 13551615
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    Loop
End Sub
Изменено: decha - 02.03.2017 00:13:42
Страницы: 1
Loading...