Посмотрела форум и мне показалось , что здесь мне смогут помочь...
Задача:
Есть две ячейки в Excel - в первой параметр(А1), во второй текст(B1).
Необходимо по условию (например A1 <2) автоматически запустить файл (например text.txt) и отобразить в нём содержимое ячейки B1.
Было бы просто супер запускать не файл, а сообщение в трэй с текстом в ячеке B1.
Это очень сложно?
Я в VBA ни бум бум, но отредактировать смогу....
Очень надо )) помогите....
Автоматический запуск файла в Excel по условию
Модератор: Naeel Maqsudov
В столбце А вводим коментарии и пишем код
это из форума
Код: Выделить всё
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
По-моему девушке надо что-то типа :
Примечание :
В качестве примера приведено событие рабочего листа, которое необходимо расположить в модуле соответствующего рабочего листа. Если подобные действия нужно производить во всех рабочих листах, то можно использовать событие рабочей книги Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range), но его необходимо расположить в модуле ThisWorkbook (ЭтаКнига)
Код: Выделить всё
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 (ЭтаКнига)
Она хочет чтобы при условии А1<2 открывался какой то файл или в лучшем случае чтобы в В1 был вписан текст из того же файла
Я так понял. Но это невозможно чтобы в В1 вписался текст из файла.
Я так понял. Но это невозможно чтобы в В1 вписался текст из файла.
Ser Artur
А вот здесь девушка говорит, что ей не надо открывать текстовый файл, а нужно вывести текст из ячейки "B1"
Теперь остаётся только узнать, устроил её или нет второй ответ …Было бы просто супер запускать не файл, а сообщение в трэй с текстом в ячеке B1
текстом ИЗ ячейки B1, то есть.
1. Значит текстовый файл открывать не надо, но он в моём коде и не открывается.
2. При вводе () данных в ячейку A1 нужно вывести сообщение с текстом, который находится в ячейке B1, при условии, что в ячейке A1 находятся числовые данные < 2 ... но и эти условия в моём коде выполняются, а сообщение выводится с использованием макрофункции MsgBox.
Следовательно я всё-таки решил Вашу задачу ...
2. При вводе () данных в ячейку A1 нужно вывести сообщение с текстом, который находится в ячейке B1, при условии, что в ячейке A1 находятся числовые данные < 2 ... но и эти условия в моём коде выполняются, а сообщение выводится с использованием макрофункции MsgBox.
Следовательно я всё-таки решил Вашу задачу ...
Доброго времени суток...
У меня ситуация практически такая же:
есть две ячейки А1 и Б1...Необходимо автоматически запустить(допустим текстовой) файл если А1 > Б1...
Подскажите пожалуйста, что конкретно надо прописать, где и как...
Заранее спасибо!
У меня ситуация практически такая же:
есть две ячейки А1 и Б1...Необходимо автоматически запустить(допустим текстовой) файл если А1 > Б1...
Подскажите пожалуйста, что конкретно надо прописать, где и как...
Заранее спасибо!
Вот пример реализации поставленной Вами задачи.
pashulka, необязательно с расширением TXT на компьютере пользователя ассоциируется Notepad.exe...
Не самый лучший вариант, но всё-таки, использовать Windows Script Host Object Model... :j Ну, да ладно... Я ж о другом хотел спросить! Девушка сказала
Девушка, зачем вам в ТРЭЙ, мошт лучше куданьть в другое место?
Не самый лучший вариант, но всё-таки, использовать Windows Script Host Object Model... :j Ну, да ладно... Я ж о другом хотел спросить! Девушка сказала
а потомБыло бы просто супер
Дак как в ТРЭЙ то???!!! :shock:сообщение в трэй с текстом ИЗ ячеке B1
Девушка, зачем вам в ТРЭЙ, мошт лучше куданьть в другое место?