+ Ответить в теме
Страница 1 из 3
1 2 3 ПоследняяПоследняя
Показано с 1 по 10 из 24

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

  1. #1
    Дориана is on a distinguished road
    Регистрация
    01.06.2005
    Сообщений
    2
    Вес репутации
    0

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

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

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

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

  2. По умолчанию

     
    Хотите избавиться от рекламы? Зарегистрируйтесь
  3. #2
    programmer Ser Artur is on a distinguished road Аватар для Ser Artur
    Регистрация
    24.05.2005
    Возраст
    44
    Сообщений
    82
    Вес репутации
    14

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

    В столбце А вводим коментарии и пишем код
    Код :
    1. Private Sub CommentToRange()
    2.  
    3. Dim iCell As Range
    4.  
    5. On Error GoTo ErrHandler
    6.  
    7. For Each iCell In Selection.SpecialCells(xlComments)
    8.     If iCell.Column < 256 Then
    9.        iCell.Next.Value = iCell.Comment.Text
    10.     End If
    11. Next
    12.  
    13. Exit Sub
    14.  
    15. ErrHandler:
    16. MsgBox Err.Description, , ""
    17.  
    18. End Sub
    это из форума
    Ser Artur

  4. #3
    system architect pashulka will become famous soon enough pashulka will become famous soon enough
    Регистрация
    24.11.2004
    Возраст
    77
    Сообщений
    830
    Вес репутации
    16

    По умолчанию

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

    Код :
    1. Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    2.  
    3. If Target.Count > 1 Then Exit Sub
    4.  
    5. If Target.Address = "$A$1" And IsNumeric(Target.Value) Then
    6.    If Target.Value < 2 Then
    7.       MsgBox Target.Next.Value, , ""
    8.    End If
    9. End If
    10.  
    11. End Sub

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

  5. #4
    programmer Ser Artur is on a distinguished road Аватар для Ser Artur
    Регистрация
    24.05.2005
    Возраст
    44
    Сообщений
    82
    Вес репутации
    14

    По умолчанию Она хочет

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

  6. #5
    system architect pashulka will become famous soon enough pashulka will become famous soon enough
    Регистрация
    24.11.2004
    Возраст
    77
    Сообщений
    830
    Вес репутации
    16

    По умолчанию

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

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

  7. #6
    Дориана is on a distinguished road
    Регистрация
    01.06.2005
    Сообщений
    2
    Вес репутации
    0

    По умолчанию

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

  8. #7
    system architect pashulka will become famous soon enough pashulka will become famous soon enough
    Регистрация
    24.11.2004
    Возраст
    77
    Сообщений
    830
    Вес репутации
    16

    По умолчанию

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

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

  9. #8
    coder breeze is on a distinguished road
    Регистрация
    18.07.2006
    Сообщений
    23
    Вес репутации
    13

    По умолчанию

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

  10. #9
    system architect pashulka will become famous soon enough pashulka will become famous soon enough
    Регистрация
    24.11.2004
    Возраст
    77
    Сообщений
    830
    Вес репутации
    16

    По умолчанию

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

  11. #10
    senior developer Sokl is on a distinguished road
    Регистрация
    12.09.2005
    Адрес
    ОМ
    Сообщений
    449
    Вес репутации
    14

    По умолчанию

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

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

+ Ответить в теме
Страница 1 из 3
1 2 3 ПоследняяПоследняя

Похожие темы

  1. Поменять цвет шрифта в ячейуе по условию (Excel)
    Есть екселевский файл - примерно 1000 строк и 10 столбцов - я хочу сравнить в каждой строке значения столбца 4,5,6.....10 ( с 4 по 10) со значением в...
    от Ranger в разделе MS Office и VB(A).
  2. Запуск файла из оперативной памяти.
    Здравствуйте ! Известно, что при помощи функции Win32Api ShellExecute можно например запустить какой либо файл на выполнение, либо открыть файл,...
    от Вячеслав в разделе Win API, Shell..
  3. Как сделать автоматический пересчет ячеек в Excel
    Братья, помогите плиззз!!! Насколько я понимаю, если в EXCEL в Параметрах стоит автоматический пересчет, то при изменении какой-либо ячейки...
    от sol2 в разделе MS Office и VB(A).
  4. VIsual Studio 7.0 MFC програмный запуск bat-файла
    Люди знающие, ответьте пожалуйста как програмно запустить на исполнение bat-файл?
    от Kalinich в разделе C и C++
  5. Запуск JAR-файла + параметр
    Всем привет !!! Вот такая проблема: В JBuilder запускается проект с параметром -Xmx110m (иначе вылетает OutOfMemoryError)- работает без ошибок...
    от Oleg_S в разделе Java

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения