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

Страницы: 1 2 3 След.
Нужен макрос парсер, с использованием регулярных выражений
 
Поясню. Это частный случай. Его можно исключить. В таблице есть еще три аргумента. Для понимания что может быть до первой точки после первой точки и после второй точки. Они эталонны поэтому можно решить. У меня есть пару решений через костыли но хотелось бы наконец-то довести до ума. Могу костыли приложить
Нужен макрос парсер, с использованием регулярных выражений
 
нужно спарсить текст из первой колонки согласно эталона из второй колонки записать результат в третью колонку и в четвертой сравнить третью со второй на истину.
Нужна помощь с выборкой и приведению к нужному виду текста в выделенном диапазоне, помогите допилить регулярные выражения и код по возможности
 
После последней правки файл test.xls тоже перестал корректно отрабатывать некоторые позиции.
Изменено: Иван Васильков - 15.02.2023 11:05:48
Нужна помощь с выборкой и приведению к нужному виду текста в выделенном диапазоне, помогите допилить регулярные выражения и код по возможности
 
Iгор посмотрите пожалуйста в большом ассортименте выпадают значения ЛОЖЬ при сравнении с эталоном во второй колонке. Это можно поправить? Спасибо!!!
Нужна помощь с выборкой и приведению к нужному виду текста в выделенном диапазоне, помогите допилить регулярные выражения и код по возможности
 
На маленьком работает просто безупречно. Огромное спасибо!!!! В большом почему-то ругается в функции GetLenColor на i = Val(Split(n)(1))
Нужна помощь с выборкой и приведению к нужному виду текста в выделенном диапазоне, помогите допилить регулярные выражения и код по возможности
 
1. исходные данные файл test.xls столбец 1, результат должен выглядеть как в столбце 2
2. исходные данные файл !!!!!!весь ассортимент!!!!!.xls столбец 1, результат должен выглядеть как в столбце 2
Нужна помощь с выборкой и приведению к нужному виду текста в выделенном диапазоне, помогите допилить регулярные выражения и код по возможности
 
Пишу парсер. в архиве 2-а файла test.xls там макрос и пример того что парсим в первом столбце и что нужно получить во втором столбце и !!!!!!весь ассортимент!!!!!.xls там весь ассортимент во втором столбце то к чему приводим. Нужно спарсить наименование: Пример: ПС 01, Ткв 01, К 10НСП(304) и т.д.
это первая переменная str1, длину 900, 1350 и т.д. str2 и цвет 082, 500, 01л и т.д. str3 и привести к виду пример: ПС 01.900.082 (str1.str.2.str3).
Проблема в том что все 3-и аргумента могут быть не попорядку а вразнобой Пример:
Профиль   окантовочный.001 алюминий 2700 ПК 03-12.
001 это str3
2700 длина str2
ПК 03-12 str1
900.083   н Профиль разноуровневый ПР 02.
длина 900 str2
ПР 02 наименование str1
083н цвет str3

вариантов может быть масса, так как клиенты народ творческий. вот и пытаюсь с помощью регулярных выражений выдернуть нужные части и привести к нужному виду
Нужна помощь с выборкой и приведению к нужному виду текста в выделенном диапазоне, помогите допилить регулярные выражения и код по возможности
 
Игорь. Спасибо что откликнулись. Задача поправить регулярные выражения. Думаю с помощью их можно решить мои проблемы
Нужна помощь с выборкой и приведению к нужному виду текста в выделенном диапазоне, помогите допилить регулярные выражения и код по возможности
 
Помощь придет хоть откуда? Или я в пустую пишу. Наверняка есть же люди шарящие в регулярных выражениях
Изменено: Иван Васильков - 13.02.2023 19:48:46
Нужна помощь с выборкой и приведению к нужному виду текста в выделенном диапазоне, помогите допилить регулярные выражения и код по возможности
 
наименование вроде выкружил:
(?<=^|\s)[бвгдклнпрстуш]{1,3}.\d{1,3}(-\d{1,2}|)(мдф|нсп|нс|)(\S304\S|)

кроме КПл  ВПу вроде все корректно находит
Нужна помощь с выборкой и приведению к нужному виду текста в выделенном диапазоне, помогите допилить регулярные выражения и код по возможности
 
Добрый день, помогите пожалуйста допилить код. Клиенты присылают всякую белиберду вместо нормального заказа. Приходится много времени править перед загрузкой в 1с. Суть колонку №1 (пример заявки от клиента, но вариаций может быть масса) нужно привести к краткому наименованию в файле test.xls - колонка №2, макрос начал писать с регулярными выражениями, но много косяков не знаю как все выправить. приложил так же файл со всем ассортиментом т.к. ассортимент разношерстный и очень большой. Буду благодарен за любую помощь. Спасибо
Изменено: Иван Васильков - 13.02.2023 13:18:28
Вставка формулы с ПРОМЕЖУТОЧНЫЕ.ИТОГИ макросом
 
спасибо
Вставка формулы с ПРОМЕЖУТОЧНЫЕ.ИТОГИ макросом
 
Добрый день. Помогите понять что не так. Нужно вставить формулу ПРОМЕЖУТОЧНЫЕ.ИТОГИ в ячейку, уже всю голову сломал.
Код
H = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count - 3 
    
    With Cells(1, 3)
        .FormulaR1C1 = "=ПРОМЕЖУТОЧНЫЕ.ИТОГИ(109;R[3]C:R[" & H & "]C)"
        .NumberFormat = "#,##0.00"
    End With

Без 109; вставка проходит, но потом приходится в ручную добавлять. Пробовал через FormulaR1C1Local тогда вставляется 109 но съезжает диапазон.

CommandBar (popup): добавить подменю в выпадающем списке командбара
 
Код
Dim popup As CommandBarControl, popup2 As CommandBarControl
    
    Set popup = Add_Control(AddinMenu, ct_POPUP, 548, None, "Меню", , True)
    Add_Control popup, ct_BUTTON, None, "1", "Один", False
    Add_Control popup, ct_BUTTON, None, "2", "Два", False
    Set popup2 = Add_Control(popup, ct_POPUP, 1087, "3", "Три", False)
    Add_Control popup2, ct_BUTTON, None, "4", "Четыре", False
    Add_Control popup2, ct_BUTTON, None, "5", "Пять", Fals
Изменено: Иван Васильков - 25.01.2017 16:08:08
CommandBar (popup): добавить подменю в выпадающем списке командбара
 
Вопрос снят!!
CommandBar (popup): добавить подменю в выпадающем списке командбара
 
Добрый день форумчане.
Пытаюсь воспользоваться CommandBar-ом хозяина форума. Но не могу добавить подменю в выпадающем меню. Помогите пожалуйста.
Код
Dim popup As CommandBarControl
    Set popup = Add_Control(AddinMenu, ct_POPUP, 548, "", "Меню", , True)
    Add_Control popup, ct_BUTTON, None, "1", "Один", False
    Add_Control popup, ct_BUTTON, None, "2", "Два", False
дальше нужно подменю: 3, 4
Как не прописывать одинаковый код для разных кнопок на форме. Оптимизация
 
Всем спасибо за помощь.  
Как не прописывать одинаковый код для разных кнопок на форме. Оптимизация
 
Огромное спасибо!!!
Как не прописывать одинаковый код для разных кнопок на форме. Оптимизация
 
прошу прощения, вот новый файл
Как не прописывать одинаковый код для разных кнопок на форме. Оптимизация
 
Добрый день. Помогите пожалуйста оптимизировать код чтобы не плодить много дублей. Пример прилагается. Кнопки А и Б дубли хотелось бы чтобы часть общего кода не копировать от одной кнопки к другой, а сделать что-то типа как на кнопке В, обозначил только имя и общий код подцепил это имя а еще лучше брал его с кэпшна самой кнопки.  
Координатное выделение, Нужно поправить макрос чтобы работал во всей книге
 
Огромное спасибо!!
Изменено: Иван Васильков - 19.05.2016 09:22:25
Координатное выделение, Нужно поправить макрос чтобы работал во всей книге
 
Добрый день.
Прочитал замечательную статью по координатному выделению.
И возникла потребность в данном методе. Помогите подправить макрос чтобы он работал не в текущем листе, а во всей книге.
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim WorkRange As Range, CrossRange As Range
        Set WorkRange = Range("A1:H36")    'адрес рабочего диапазона с таблицей
        If Target.Count > 1 Then
        WorkRange.FormatConditions.Delete
        Exit Sub
        End If
        Application.ScreenUpdating = False
        If Not Intersect(Target, WorkRange) Is Nothing Then
            Set CrossRange = Intersect(WorkRange, Union(Target.EntireRow, Target.EntireColumn))
            WorkRange.FormatConditions.Delete
            CrossRange.FormatConditions.Add Type:=xlExpression, Formula1:="=1"
            CrossRange.FormatConditions(1).Interior.ColorIndex = 15
            Target.FormatConditions.Delete
        End If
End Sub
Чем заменить (?m) в регулярных выражениях?
 
в личкуе-маил бросьте плиз атач не могу сделать через сайт
Чем заменить (?m) в регулярных выражениях?
 
МВТ,можно в личку отправлю
Чем заменить (?m) в регулярных выражениях?
 
спасибо забыл написать ))))
Чем заменить (?m) в регулярных выражениях?
 
МВТ, по любому огромное спасибо Ваши варианты буду пробовать дорабатывать, но все равно, что проявили интерес к этому не простому решению. Сам бъюсь очень долго. пришлю вариант если есть желание продолжить дискуссию полностью рабочий, но жажда оптимизации не дает остановиться )))
Чем заменить (?m) в регулярных выражениях?
 
вариантов длины не много 900 1000 1350 1800 2000 2500 2700
у меня в коде прописан патерн (900|90|0.9|1000|1350|1.35|1800|1.8|2000|2500|2.5|2700|2.7)
Чем заменить (?m) в регулярных выражениях?
 
МВТ,
////- в некоторых вариантах убирается один из нулей
есть шифры цвета они находятся на вкладке "дата" поэтому цвет должен соответствовать либо 2-м цифрам либо 5-и
////- в вариант "т паыпапа" выбирается "т", в варианте "анод люкс" - "л"
016 цвета нет есть 16 поэтому 0 нужно убрать если поле цифр цвета либо через пробел либо через дифиз встречаются буквы [нлптчс], то они плюсом добавляются к цифрам 083 н или 083-н на выходе 083н
так же с анодом если есть встречается слово анод или люкс то добавлется к цифрам цвета буква "л"
хотя это можно позже заменой сделать
аля:
Код
                If InStr(arr(i, 1), "люкс") > 0 Or InStr(arr(i, 1), "анод") > 0 Then
                    oRE.Pattern = "\d*"
                    Set rr = oRE.Execute(s)
                    s = "." & rr.Item(0) & "л"
                End If
////- как понять где в строке размер: "(20х20) ", "(1,8м) .15 черный", "(1,8м) 25мм"?
с этим сложнее просто нужно ловить 1,8 м длину и .15 черный - цвет
Чем заменить (?m) в регулярных выражениях?
 
На вскидку наиболее частые варианты
Чем заменить (?m) в регулярных выражениях?
 
можно сказать это справочник, есть еще один проблем, есть цвет .500 и есть длина .2500 поэтому 500 ловится и там и там
Страницы: 1 2 3 След.
Наверх