Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.11.2018, 16:48   #11
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от tor45 Посмотреть сообщение
в условии немного не так написал. у каждой строки свой адрес же. в макросе конкретную ячейку же не укажешь..
вопрос понятен.
но это вопрос к Вам. Вы собираетесь запустить макрос с какой ячейкой?
с одной активной?
тогда строчка будет такая:
Код:
Sub RunToActiveCell()
  Call Shell("SecureCRT.exe /TELNET " & ActiveCell.Text, vbNormalFocus)
End Sub
для всех выделенных ячеек?
для всех ячеек в заданном диапазоне?

тогда цикл Вам в помощь (For Each, например).
Если, конечно, SecureCRT.exe позволяет одновременно множественные независимые запуски с разными параметрами командной строки.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 13.11.2018, 16:54   #12
tor45
Пользователь
 
Регистрация: 13.11.2018
Сообщений: 17
По умолчанию

таблица вида как на приложенном файле Снимок. напротив нужного коммутатора нажимаем кнопку CRT и программа запускается с его ip-адресом.
Изображения
Тип файла: jpg Снимок.JPG (28.4 Кб, 69 просмотров)
tor45 вне форума Ответить с цитированием
Старый 13.11.2018, 17:12   #13
tor45
Пользователь
 
Регистрация: 13.11.2018
Сообщений: 17
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
вопрос понятен.
но это вопрос к Вам. Вы собираетесь запустить макрос с какой ячейкой?
с одной активной?
тогда строчка будет такая:
Код:
Sub RunToActiveCell()
  Call Shell("SecureCRT.exe /TELNET " & ActiveCell.Text, vbNormalFocus)
End Sub
для всех выделенных ячеек?
для всех ячеек в заданном диапазоне?

тогда цикл Вам в помощь (For Each, например).
Если, конечно, SecureCRT.exe позволяет одновременно множественные независимые запуски с разными параметрами командной строки.
макрос заработал, но с небольшим и понятным нюансом)) нажимаем на ячейку с адресом а потом жмём кнопку с макросом и всё работает. но если нет выделенной ячейки (что в общем-то ожидаемо , то программа запускается без доп.параметров. А как сделать запуск программы без выделения ячейки? чтобы макрос сам понимал, что нужно взять адрес коммутатора из этой же строки?
tor45 вне форума Ответить с цитированием
Старый 13.11.2018, 17:21   #14
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

выложите сюда пример вашего файла (достаточно кусочек файла - тот, что виден на скриншоте).
Serge_Bliznykov вне форума Ответить с цитированием
Старый 13.11.2018, 17:23   #15
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,695
По умолчанию

"SecureCRT.exe /TELNET " & ActiveSheet.Cells(2, ActiveCell.Row).Text
p51x вне форума Ответить с цитированием
Старый 13.11.2018, 17:24   #16
tor45
Пользователь
 
Регистрация: 13.11.2018
Сообщений: 17
По умолчанию

ок.
Вложения
Тип файла: rar sw-1.rar (37.9 Кб, 5 просмотров)
tor45 вне форума Ответить с цитированием
Старый 13.11.2018, 17:30   #17
Казанский
Старожил
 
Аватар для Казанский
 
Регистрация: 31.12.2010
Сообщений: 2,133
По умолчанию

Код:
Sub RunToActiveCell()
  Shell "SecureCRT.exe /TELNET " & Cells(ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row, "B"), vbNormalFocus
End Sub
Верхний край кнопки должен располагаться в соотв. строке.
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
Казанский вне форума Ответить с цитированием
Старый 13.11.2018, 17:31   #18
tor45
Пользователь
 
Регистрация: 13.11.2018
Сообщений: 17
По умолчанию

Отлично! Заработало. Большое спасибо всем!
tor45 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Builder исполняемого файла .exe LD-One Visual C++ 9 07.08.2017 08:12
размер исполняемого файла. Ponch_Begginer Общие вопросы C/C++ 3 02.04.2016 20:01
запуск исполняемого файла из макроса caute Microsoft Office Word 4 06.03.2016 20:28
Запуск исполняемого файла bibika Помощь студентам 0 14.03.2012 10:31
библиотеки и размер исполняемого файла DrStrangeLove Помощь студентам 5 25.12.2011 05:37