Макрос для набора номера из Excel

[ts3]

сделал в прикрепленном файле кроме этого там же папка OCX

запускаю макрос в комбобоксе рисует ряд цифр от 1 до 15 что дальше делать ?

MSCommLib.dll - весь диск С проверил по поиску файла - ее нет - если нужна то где взять ?

[doober]

через 3 часа буду на месте .помогу

[doober]

3 часа переросли во все 5
Во вложении файл из статьи,я в него добавил просмотр всех компортов.
А далее уже сами творите.Подключение есть

[ts3]

Сделал немного по другому
Макрос осуществляет звонок по двойному клику в ячейке с номером телефона с помощью любого модема, подключенного к телефонной линии

Макрос использует в качестве «звонилки» программу Callem (http://rghost.ru/26018581 - наиболее удобный вариант «звонилки» с настройками-прописывается по пути "C:\Program Files\Callem\callem.exe"). Callem забирает номер из буфера обмена.( в настройках указать),прописывает строку инициализации модема, делает автодозвон и пр.
Чтоб работало надо подключить Microsoft Forms 2.0 Object Library
окно редактора VBA ( Alt + F11)-Tools – References-галка Microsoft Forms 2.0 Object Library (если вдруг ее нет – было у меня такое в References нажать Browse – найти по пути
C:Windows\system32\fm20.dll – OK -библиотека подключится)

Макрос работает но ряд эл.доработок нужен не знаю как сделать

-при вызове
1. Если двойной клик на пустой ячейке - MsgBox "Некорректно введен № телефона либо нет телефона клиента» - это сделано
2. Если количество введенных цифр в ячейку менее 7 и более 11; либо введен текст – тот же MsgBox "Некорректно введен № телефона либо нет телефона клиента» вылазит – как сделать ?
3.После набора и поднятия трубки через 30 сек принудително закрыть Callem (в трее остается висеть) - иначе повторный звонок иногда может сглючить - тоже неясно как сделать .

[ts3]

мда чем дальше в лес тем больше дров
проблема ошибочного введения телефона еще больше
1.например телефон Нижнего Тагила имеет формат 8(3435)243829
телефон Екатеринбурга 8(343)3706688
Если применить обычный телефонный формат excel (формат-дополнительный-номер телефона) то оба телефона превратятся в вид (8343)524-3829 и (8343)370-6688
те оба телефона видятся как тел Екатеринбурга (ТЕ тел форматирование не подходит)
2. чтоб исключить ошибки при набитии номера в ячейку надо считать именно кол-во цифр а не символов (пробовал ввести условия <= 999999 и > 99999999999# но они считают количество символов в том числе например 8(3435)24-38-39 посчитает и () и - ТЕ СЧИТАТЬ НАДО КОЛ_ВО ЦИФР и в том числе исключить текстовые значения в телефонном номере

Получается что надо делать ввод телефона через форму с условиями чтоб исключить ошибки и вид телефона был комфортный с () и - ...

[EducatedFool]

Если применить обычный телефонный формат excel (формат-дополнительный-номер телефона) то оба телефона превратятся в вид

Проблема решается просто:
в ячейку вводятся только цифры,
а макрос перехватывает событие изменения ячейки, после чего по коду города определяет формат ячейки, и назначает его (или меняет текст ячейки с номером)

PS: И вообще, почему бы ВСЕ телефонные номера не вводить в формате (###) ######## ?
Зачем усложнять задачу?

[ts3]

обьясню на одном примере почему так лучше
допустим клиент -завод находится в нижнем тагиле и имеет представительство в екатеринбурге по коду выделенному в скобках визуально понятно куда звонить
для меня вариант EducatedFool сложен для реализации (надо поднимать базу городов россии где какой код анализировать как кода формируются как этот макрос написать не знаю и тд)

остался один вопрос - можно ли макросом закрыть принудительно программу Сallem по событию: программа легла в трей и ждет следующего вызова. Такое возможно сделать макросом или програму стороннюю искать ?

[VictorM]

Здравствуйте, Уважаемые.
Получается у меня позвонить и с помощью кода из сообщения №3 от SAS888 и с помощью кода из сообщения №5 от EducatedFool.
Но возникли 2 вопроса, с которыми не получается справиться, как ни пытаюсь.
Кнопка "Позвонить" у меня находиться на форме и теперь вопросы:
1. Как (можно-ли) скрыть все окна программы-звонилки?
2. Для запуска программ из Excel существует команда Shell. А можно-ли точно так же закрыть внешнее приложение, например, кнопкой "Выход" на форме?
Спасибо.

[SAS888]

1. У функции Shell есть опциональный атрибут, отвечающий за стиль открываемого окна.

2. Можно воспользоваться API функциями. Например, закрыть калькулятор можно так:

Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As Any) As Long
Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Sub Close_Calc()
    PostMessage FindWindow(vbNullString, "Калькулятор"), &H10, 0&, 0&
End Sub

[VictorM]

Можно воспользоваться API функциями

Спасибо.
Буду пробовать.
Что получится - отпишусь.