Страница 1 из 3
Автоматический запуск файла в Excel по условию
Добавлено: 01 июн 2005, 13:26
Дориана
Посмотрела форум и мне показалось , что здесь мне смогут помочь...
Задача:
Есть две ячейки в Excel - в первой параметр(А1), во второй текст(B1).
Необходимо по условию (например A1 <2) автоматически запустить файл (например text.txt) и отобразить в нём содержимое ячейки B1.
Было бы просто супер запускать не файл, а сообщение в трэй с текстом в ячеке B1.
Это очень сложно?
Я в VBA ни бум бум, но отредактировать смогу....
Очень надо )) помогите....
Я не понял вопрос, но кое-что могу предложить
Добавлено: 06 июн 2005, 12:40
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 If
Next
Exit Sub
ErrHandler:
MsgBox Err.Description, , ""
End Sub
это из форума
Добавлено: 06 июн 2005, 17:01
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 If
End If
End Sub
В качестве примера приведено событие рабочего листа, которое необходимо расположить в модуле соответствующего рабочего листа. Если подобные действия нужно производить во всех рабочих листах, то можно использовать событие рабочей книги Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range), но его необходимо расположить в модуле ThisWorkbook (ЭтаКнига)
Она хочет
Добавлено: 07 июн 2005, 12:05
Ser Artur
Она хочет чтобы при условии А1<2 открывался какой то файл или в лучшем случае чтобы в В1 был вписан текст из того же файла
Я так понял. Но это невозможно чтобы в В1 вписался текст из файла.
Добавлено: 07 июн 2005, 17:31
pashulka
А вот здесь девушка говорит, что ей не надо открывать текстовый файл, а нужно вывести текст из ячейки "B1"
Было бы просто супер запускать не файл, а сообщение в трэй с текстом в ячеке B1
Теперь остаётся только узнать, устроил её или нет второй ответ …
Добавлено: 07 июн 2005, 18:03
Дориана
текстом ИЗ ячейки B1, то есть.
Добавлено: 08 июн 2005, 03:41
pashulka
1. Значит текстовый файл открывать не надо, но он в моём коде и не открывается.
2. При вводе () данных в ячейку A1 нужно вывести сообщение с текстом, который находится в ячейке B1, при условии, что в ячейке A1 находятся числовые данные < 2 ... но и эти условия в моём коде выполняются, а сообщение выводится с использованием макрофункции MsgBox.
Следовательно я всё-таки решил Вашу задачу ...
Добавлено: 18 июл 2006, 21:42
breeze
Доброго времени суток...
У меня ситуация практически такая же:
есть две ячейки А1 и Б1...Необходимо автоматически запустить(допустим текстовой) файл если А1 > Б1...
Подскажите пожалуйста, что конкретно надо прописать, где и как...
Заранее спасибо!
Добавлено: 19 июл 2006, 01:22
pashulka
Вот
пример реализации поставленной Вами задачи.
Добавлено: 19 июл 2006, 11:31
Sokl
pashulka, необязательно с расширением TXT на компьютере пользователя ассоциируется Notepad.exe...
Не самый лучший вариант, но всё-таки, использовать Windows Script Host Object Model... :j Ну, да ладно... Я ж о другом хотел спросить! Девушка сказала
Было бы просто супер
а потом
сообщение в трэй с текстом ИЗ ячеке B1
Дак как в ТРЭЙ то???!!! :shock:
Девушка, зачем вам в ТРЭЙ, мошт лучше куданьть в другое место?