3 маленких врпроса, может быть кто-то ответит на них !

[amrnijad]

Здравствуйте коллеги, у меня такие вопросы (посмотрите фото):
1-как могу создать комбо бокс так чтобы переходить на любой лист документа. желательно даже если без кнопки Go! , а автоматически.
2-как создать команду чтобы explorer нажав кнопку открывал мне любую папку, здесь как пример папку проекта.
3-как создать команду чтобы запустить любую программу указав конечно её путь.

это и заранее благодарен

[viter.alex]

1. Событие OnChange
2. ShellExecute
3. ShellExecute

[amrnijad]

Сообщение от viter.alex

1. Событие OnChange
2. ShellExecute
3. ShellExecute

подробнее можно, примеры! а то я ещё не тот специалист!

[EducatedFool]

Вопрос 3: http://www.programmersforum.ru/showthread.php?t=37071

Вопрос 2: http://www.programmersforum.ru/showthread.php?t=31844
http://msoffice.nm.ru/faq/macros/shell.htm#faq404

На первый вопрос получите ответ, прикрепив к сообщению файл с комбобоксом.

[amrnijad]

Сообщение от EducatedFool

Вопрос 3: http://www.programmersforum.ru/showthread.php?t=37071

Вопрос 2: http://www.programmersforum.ru/showthread.php?t=31844
http://msoffice.nm.ru/faq/macros/shell.htm#faq404

Спасибо
я посмотрю если чего-то напишу вам ещё раз.
а что на счет 1-ого вопроса!!!

[amrnijad]

Сообщение от EducatedFool

Вопрос 3: http://www.programmersforum.ru/showthread.php?t=37071

Вопрос 2: http://www.programmersforum.ru/showthread.php?t=31844
http://msoffice.nm.ru/faq/macros/shell.htm#faq404

На первый вопрос получите ответ, прикрепив к сообщению файл с комбобоксом.

Супер всё сработало, я напишу коды если увидите какие-то ошибки скажите пожалуйста !

1-Private Sub CommandButton10_Click()
MyPath = "C:\Program Files\AutoCAD 2009\"
Set WshShell = CreateObject("WScript.Shell")
WshShell.CurrentDirectory = MyPath
Call Shell("acad.exe")
End Sub
2-
Private Sub CommandButton8_Click()
CreateObject("Shell.Application").E xplore ThisWorkbook.Path
End Sub


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

[EducatedFool]

Вместо

Private Sub CommandButton10_Click()
MyPath = "C:\Program Files\AutoCAD 2009\"
Set WshShell = CreateObject("WScript.Shell")
WshShell.CurrentDirectory = MyPath
Call Shell("acad.exe")
End Sub

можно написать так:

Private Sub CommandButton10_Click()
    Shell "C:\Program Files\AutoCAD 2009\acad.exe"
End Sub

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

Попробуйте такой вариант:

[amrnijad]

Сообщение от EducatedFool

Вместо

Private Sub CommandButton10_Click()
MyPath = "C:\Program Files\AutoCAD 2009\"
Set WshShell = CreateObject("WScript.Shell")
WshShell.CurrentDirectory = MyPath
Call Shell("acad.exe")
End Sub

можно написать так:

Private Sub CommandButton10_Click()
    Shell "C:\Program Files\AutoCAD 2009\acad.exe"
End Sub

Сейчас попробую что-нибудь придумать.

Вы просто наш спаситель

[amrnijad]

Сообщение от EducatedFool

Вместо

Private Sub CommandButton10_Click()
MyPath = "C:\Program Files\AutoCAD 2009\"
Set WshShell = CreateObject("WScript.Shell")
WshShell.CurrentDirectory = MyPath
Call Shell("acad.exe")
End Sub

можно написать так:

Private Sub CommandButton10_Click()
    Shell "C:\Program Files\AutoCAD 2009\acad.exe"
End Sub

Попробуйте такой вариант:

вот что надо, благодарю.
понял вас EducatedFool!

[EducatedFool]

2 amrnijad

Совсем необязательно цитировать все сообщения подряд...

И ещё - есть кнопка Правка - не надо плодить посты...