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

Страницы: 1
Свести остатки по штрих-кодам
 
Сканер в данной задаче вообще никакого значения не имеет. Это просто способ ввода артикула товара (ускоренный). Все дело в пересчете формул.
округление при поиске решений
 
А что такое использование "Поиска решений"
Копирование данных с одного листа на другой, переодически переносить данные определенному параметру
 
Похожая ситуация.Но с примером. Нужно с листа "вручение" макросом перенести строки с "Николаевск-на-Амуре, Совгавань, Солнечный" на лист "внутриобластные" ниже уже заполненных.
Макрос для извлечения номеров телефонов из сканированного текста
 
Всё проверил, всё работает, Johny и всем спасибо.
Макрос для извлечения номеров телефонов из сканированного текста
 
Спасибо  я понял, буду пробовать разные варианты.
Макрос для извлечения номеров телефонов из сканированного текста
 
Но мне перевод как бы не нужен. Нужны номера отправлений и номера телефонов.
Макрос для извлечения номеров телефонов из сканированного текста
 
Хорошо, в следующий раз попробую на другом языке. А на  каком лучше русском или русско-английском. Проблема возникла относительно недавно и всевозможные варианты пока еще испробовать не успел.
Макрос для извлечения номеров телефонов из сканированного текста
 
Спасибо, кажется получается. Только пока не могу проверить на большом файле. И все же нельзя сделать так чтобы при запуске макроса, лист с результатом создавался автоматически. И также чтобы макрос  не опирался на конкретные названия листов, а просто независимо от имеющихся названий листов создавал лист с результатами.
Дело с том, что в случае успеха, этим макросом будут пользоваться сотрудники, понимающие в Excel еще меньше, чем я.  Спасибо за участие.
Макрос для извлечения номеров телефонов из сканированного текста
 
Цитата
Михаил С. пишет: вы чем текст распознавали?
Я распознавал на английском, т.к. для меня важны только номера отправлений (там латиница) и телефоны.

Думаю шаблонов не так уж много:
1. 79147757587- основной(правильный)
2. 9147757587
3. 914-775-75-87
4.7-914-775-75-87

К тому же можно предварительно удалить тире и останутся только первые два.
Макрос для извлечения номеров телефонов из сканированного текста
 
"75.914-412-43-70" - тоже номер телефона, 75.-это осталось от адреса. Надо получить 89144124370.
Телефоны забивают разные люди в разных городах и по разному. Поэтому и приходится подгонять все под один шаблон.
Я пробовал функцией ПРАВСИМВ, но телефон бывает в середине текста.
Макрос для извлечения номеров телефонов из сканированного текста
 
Нет в итоге все номера должны быть 11-значные. То есть телефон может быть
сначала 9147757587 или 89147757587, но в итоге он должен быть 89147757587.
Иначе если 8 нет то добавить ее, а если есть то оставить без изменений.
А 7 или 8 в начале значения не имеет.

А в случае "75.914-412-43-70" необходимо извлечь 9144124370 и добавить в начало 8. в итоге должно быть 89144124370
Изменено: Дмитрий Бакшин - 19.05.2014 09:12:24
Макрос для извлечения номеров телефонов из сканированного текста
 
Городской телефон имеет формат 4212 и 6цифр (4212720712).
А к неполным сотовым (десятизначным) нужно добавлять в начало 8 или 7
Все это нужно для подготовки к автоматической СМС рассылке.
Спасибо что откликнулись. Кстати лист "результат" желательно чтобы создавался автоматически при запуске макроса.
Изменено: Дмитрий Бакшин - 19.05.2014 08:55:27
Макрос для извлечения номеров телефонов из сканированного текста
 
Добый день.
Есть такая задача. Имеется сканированный и переведенный в Excel текст с данными
из которого на другой лист необходимо извлечь номера телефонов в одиннадцатизначном
формате и номер отправления.
Если номера телефона в тексте нет, или он городской, то их пропустить.
Корректировка кода, Изменить код макроса
 
Цитата

Добрый день.
Есть такой макрос:
Sub ПОСТ_ВРУЧЕННЫЕ()
Dim oIE As Object, sHTML As String, tmp, i As Long, j As Long
Set oIE = CreateObject("InternetExplorer.Application"  ;)  
oIE.Visible = 0
oIE.Navigate ("http://info.russianpost.ru/servlet/track_post_item"  ;)  
Do While oIE.busy Or (oIE.ReadyState <> 4): DoEvents: Loop
For j = 6 To Cells(Rows.Count, 2).End(xlUp).Row
 oIE.Document.forms(0).elements("barCode"  ;)  .Value = Cells(j, 2).Value
 oIE.Document.forms(0).elements("barCodeSearchBtn"  ;)  .Click
 Do While oIE.busy Or (oIE.ReadyState <> 4): DoEvents: Loop
 sHTML = oIE.Document.body.innerhtml
 tmp = Split(sHTML, "<"  ;)  
 For i = 0 To UBound(tmp)
If InStr(tmp(i), "Приём" > 0 Then
   Cells(j, 3) = Format(Split(tmp(i + 2), ">"  ;)  (1), "DD.MM.YYYY"  ;)  
   Cells(j, 4) = Split((Split(tmp(i + 6), ">"  ;)  (1)), " "(0)
End If
If InStr(tmp(i), "Вручение" > 0 Then
   Cells(j, 5) = Format(Split(tmp(i + 2), ">"(1), "DD.MM.YYYY"
   Cells(j, 6) = Split(tmp(i + 4), ">"(1)
   Cells(j, 7) = Split(tmp(i + 10), ">"(1)
   Exit For
End If
 Next
   Next
   Set oIE = Nothing
   Application.ScreenUpdating = True
End Sub


После изменений на сайте, стал некорректно работать "Прием", то есть он стал брать данные от второго найденного слова "Прием", а нужно чтобы данные брались от первого. Вопрос что нужно для этого изменить в коде.
Изменено: Дмитрий Бакшин - 09.01.2014 04:53:52
Создать штрих-код, читаемый сканером из имеющихся букв и цифр
 
Собственно вопрос решился после установки шрифта CODE-128 по ссылке   http://code128.narod.ru/ Всем спасибо.
Создать штрих-код, читаемый сканером из имеющихся букв и цифр
 
Кто может подсказать как в Excel из имеющихся буквенно-цифровых выражений сделать штрих-код, воспринимаемый сканером.
[ Закрыто] МАКРОС ДЛЯ ПРОВЕРКИ ПОЧТОВЫХ ОТПРАВЛЕНИЙ
 
{quote}{login=sva}{date=27.06.2011 10:39}{thema=}{post}Как-то так.{/post}{/quote}  
А МОЖНО СДЕЛАТЬ ТАК ЧТОБЫ ДАТА БЫЛА БЕЗ ВРЕМЕНИ И ПОЧЕМУ-ТО ВЕС ИНОСТРАННЫХ ПОСЫЛОК НЕ ПОЛУЧАЕТСЯ, И ЧТО БЫ МАКРОС НЕ ОСТАНАВЛИВАЛСЯ ПОКА НЕ ЗАККОНЧАТСЯ ШТРИХ КОДА, А ИХ БЫВАЕТ НЕСКОЛЬКО СОТЕН. ИЗВИНИТЕ КОНЕЧНО ЗА НАГЛОСТЬ, НО В EXCELE Я, МЯГКО ГОВОРЯ, НОВИЧОК, ПЫТАЮСЬ ЧТО-НИБУДЬ ПОНЯТЬ ИЗ ИНТЕРНЕТА. ВОТ НАШЕЛ ЭТОТ ФОРУМ, ПОПРОСИЛ ПОМОЧЬ. СПАСИБО ЧТО ОТКЛИКНУЛИСЬ.
[ Закрыто] МАКРОС ДЛЯ ПРОВЕРКИ ПОЧТОВЫХ ОТПРАВЛЕНИЙ
 
{quote}{login=sva}{date=27.06.2011 10:39}{thema=}{post}Как-то так.{/post}{/quote}  
СПАСИБО,РАБОТАЕТ!!!  
А МОЖНО ЧТОБЫ ФОРМАТ БЫЛ ТАКИМ?
[ Закрыто] МАКРОС ДЛЯ ПРОВЕРКИ ПОЧТОВЫХ ОТПРАВЛЕНИЙ
 
МОЖНО ЛИ СОЗДАТЬ МАКРОС ДЛЯ ПРОВЕРКИ ПОЧТОВОГО ОТПРАВЛЕНИЯ ПО ШТРИХ-КОДУ. ТО ЕСТЬ ЧТОБЫ ИЗ ОДНОГО СТОЛБЦА БРАЛСЯ ИМЕЮЩИЙСЯ ШТРИХ КОД, А ИЗ (ИВЦ ОАСУ РПО - Отслеживание РПО)http://info.russianpost.ru/servlet/post_item  ВОЗВРАШАЛИСЬ ДАННЫЕ О ДАТЕ ПРИЕМА, МЕСТЕ ПРИЕМА,ВЕСЕ, ДАТЕ ВРУЧЕНИЯ. И ЧТО БЫ АВТОМАТИЧЕСКИ ПРОВЕРЯЛСЯ ВЕСЬ СТОЛБЕЦ.
Страницы: 1
Наверх