Автоматический запуск файла в Excel по условию

[Дориана]

Посмотрела форум и мне показалось , что здесь мне смогут помочь...
Задача:
Есть две ячейки в Excel - в первой параметр(А1), во второй текст(B1).
Необходимо по условию (например A1 <2) автоматически запустить файл (например text.txt) и отобразить в нём содержимое ячейки B1.

Было бы просто супер запускать не файл, а сообщение в трэй с текстом в ячеке B1.

Это очень сложно?
Я в VBA ни бум бум, но отредактировать смогу....
Очень надо )) помогите....

[Ser Artur]

В столбце А вводим коментарии и пишем код

Private Sub CommentToRange() Dim iCell As Range On Error GoTo ErrHandler For Each iCell In Selection.SpecialCells(xlComments)    If iCell.Column < 256 Then       iCell.Next.Value = iCell.Comment.Text    End IfNext Exit Sub ErrHandler:MsgBox Err.Description, , "" End Sub

это из форума

[pashulka]

По-моему девушке надо что-то типа :

Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Count > 1 Then Exit Sub If Target.Address = "$A$1" And IsNumeric(Target.Value) Then   If Target.Value < 2 Then      MsgBox Target.Next.Value, , ""   End IfEnd If End Sub

Примечание :
В качестве примера приведено событие рабочего листа, которое необходимо расположить в модуле соответствующего рабочего листа. Если подобные действия нужно производить во всех рабочих листах, то можно использовать событие рабочей книги Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range), но его необходимо расположить в модуле ThisWorkbook (ЭтаКнига)

[Ser Artur]

Она хочет чтобы при условии А1<2 открывался какой то файл или в лучшем случае чтобы в В1 был вписан текст из того же файла
Я так понял. Но это невозможно чтобы в В1 вписался текст из файла.

[pashulka]

А вот здесь девушка говорит, что ей не надо открывать текстовый файл, а нужно вывести текст из ячейки "B1"

Было бы просто супер запускать не файл, а сообщение в трэй с текстом в ячеке B1

Теперь остаётся только узнать, устроил её или нет второй ответ …

[Дориана]

текстом ИЗ ячейки B1, то есть.

[pashulka]

1. Значит текстовый файл открывать не надо, но он в моём коде и не открывается.
2. При вводе () данных в ячейку A1 нужно вывести сообщение с текстом, который находится в ячейке B1, при условии, что в ячейке A1 находятся числовые данные < 2 ... но и эти условия в моём коде выполняются, а сообщение выводится с использованием макрофункции MsgBox.

Следовательно я всё-таки решил Вашу задачу ...

[breeze]

Доброго времени суток...
У меня ситуация практически такая же:
есть две ячейки А1 и Б1...Необходимо автоматически запустить(допустим текстовой) файл если А1 > Б1...
Подскажите пожалуйста, что конкретно надо прописать, где и как...
Заранее спасибо!

[pashulka]

Вот пример реализации поставленной Вами задачи.

[Sokl]

pashulka, необязательно с расширением TXT на компьютере пользователя ассоциируется Notepad.exe...
Не самый лучший вариант, но всё-таки, использовать Windows Script Host Object Model... :j Ну, да ладно... Я ж о другом хотел спросить! Девушка сказала

Было бы просто супер

а потом

сообщение в трэй с текстом ИЗ ячеке B1

Дак как в ТРЭЙ то???!!! :shock:

Девушка, зачем вам в ТРЭЙ, мошт лучше куданьть в другое место?