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

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

Дориана
Сообщения: 2
Зарегистрирован: 01 июн 2005, 12:07

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

Сообщение Дориана » 01 июн 2005, 12:26

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

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

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

Аватара пользователя
Ser Artur
Сообщения: 82
Зарегистрирован: 24 май 2005, 15:32

Я не понял вопрос, но кое-что могу предложить

Сообщение Ser Artur » 06 июн 2005, 11:40

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

Код: Выделить всё

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 If
Next

Exit Sub

ErrHandler:
MsgBox Err.Description, , ""

End Sub
это из форума
Ser Artur

pashulka
Сообщения: 831
Зарегистрирован: 24 ноя 2004, 03:46
Контактная информация:

Сообщение pashulka » 06 июн 2005, 16:01

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

Код: Выделить всё

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 If
End If

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

Аватара пользователя
Ser Artur
Сообщения: 82
Зарегистрирован: 24 май 2005, 15:32

Она хочет

Сообщение Ser Artur » 07 июн 2005, 11:05

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

pashulka
Сообщения: 831
Зарегистрирован: 24 ноя 2004, 03:46
Контактная информация:

Сообщение pashulka » 07 июн 2005, 16:31

А вот здесь девушка говорит, что ей не надо открывать текстовый файл, а нужно вывести текст из ячейки "B1"
Было бы просто супер запускать не файл, а сообщение в трэй с текстом в ячеке B1
Теперь остаётся только узнать, устроил её или нет второй ответ …

Дориана
Сообщения: 2
Зарегистрирован: 01 июн 2005, 12:07

Сообщение Дориана » 07 июн 2005, 17:03

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

pashulka
Сообщения: 831
Зарегистрирован: 24 ноя 2004, 03:46
Контактная информация:

Сообщение pashulka » 08 июн 2005, 02:41

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

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

breeze
Сообщения: 23
Зарегистрирован: 18 июл 2006, 20:32

Сообщение breeze » 18 июл 2006, 20:42

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

pashulka
Сообщения: 831
Зарегистрирован: 24 ноя 2004, 03:46
Контактная информация:

Сообщение pashulka » 19 июл 2006, 00:22

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

Sokl
Сообщения: 449
Зарегистрирован: 12 сен 2005, 07:52
Откуда: ОМ

Сообщение Sokl » 19 июл 2006, 10:31

pashulka, необязательно с расширением TXT на компьютере пользователя ассоциируется Notepad.exe...
Не самый лучший вариант, но всё-таки, использовать Windows Script Host Object Model... :j Ну, да ладно... Я ж о другом хотел спросить! Девушка сказала
Было бы просто супер
а потом
сообщение в трэй с текстом ИЗ ячеке B1
Дак как в ТРЭЙ то???!!! :shock:

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

Ответить