> Автор: jenekcowboy
> как сделать что бы моя SUB запускалась каждый час..??

таймер на форме как вариант, :-), "зашедулить" задание с программой
состоящей из нужной sub

Да много способов, только пока не понятно что предлагать

Posted via ActualForum NNTP Server 1.4

> Автор: jenekcowboy
> таймер на форме не обязателен...
> Задача...Запускать обработку нескольких ячеек и отправлять сообщение
> на мыло
По слову ячейка ТЛ мне шепчет что это Эксель, хотя может быть и таблица в
Ворде, но это не особо важно :-) метод и там и там одноименный OnTime

Posted via ActualForum NNTP Server 1.4

> верно..эхксель...но вот постоянно когда я юзаю ontime он мне выводит
> ошибк уНЕ НАЙДЕН МАКРОС
Ну наконец-то Ексель! Браво!
А на эту ошибку могу сказать "Ошибка в 17 строке!"
Код приведи как и что вызываеш.


Posted via ActualForum NNTP Server 1.4

Excel HacksHack 85 Create a Workbook Splash Screen


Splash screens provide that extra bit of polish to an application—not to mention that they keep you entertained while the application loads. Why shouldn't a spreadsheet do the same?

You can use Excel's VBA capabilities to create a splash screen for any workbook; you'll find the process is easier than you might imagine it would be.

To create a splash screen that shows for 5 to 10 seconds when a workbook opens, then closes itself automatically, start by pressing Alt/Option-F11, or select Tools Macro Visual Basic Editor to open the VBE. Then select Insert UserForm. If the Control toolbox is not showing, select View Toolbox to view it.

From the toolbox, left-click the Label control. (Hover your mouse pointer over each control to display its name.) Left-click anywhere on the UserForm to insert the label. Using the size handles, drag out the label so that you can type some brief text into it. With the label still selected, left-click again. If the label is not selected, slowly double-click it. You should now be in Edit mode and should be able to highlight the default caption Label1.

Within that label, enter the text My Splash Screen. To change other properties of the label (its font size, color, etc.), ensure that the label is selected and press F4, or select View Properties Window. Then change the required property in the Label Controls Property window. Now double-click the UserForm (not the label) and then select Initialize from the Procedure box at the top right of the screen, as shown in Figure 7-3.

Figure 7-3. Procedure drop-down box for the various events of the UserForm object

Within this procedure, enter the following:

Application.OnTime Now + TimeValue("00:00:05"), "KillForm"
Your code for the UserForm should look like this:

Private Sub UserForm_Initialize( )

Application.OnTime Now + TimeValue("00:00:05"), "KillForm"

End Sub
Next, select Insert Module, and enter the following code exactly as shown:

Sub KillForm( )

Unload UserForm1

End Sub
Now all you need is some code in the private module of the Workbook object (ThisWorkbook). In the Project Explorer, you should see the name of your workbook. Expand the folders branching off the bottom of the workbook until you see ThisWorkbook under Microsoft Excel Objects. Double-click ThisWorkbook to expose its private module.

In the private module of the ThisWorkbook object, enter the following:

Private Sub Workbook_Open( )

UserForm1.Show

End Sub
Close the window to get back to Excel. Save and close the workbook, and reopen it to see your splash screen in action. Figure 7-4 shows an example.

Figure 7-4. Example splash screen in action

Just remember that the splash screen should show for only a short period of time and should contain brief but relevant text. Showing it for longer than 10 seconds might annoy users.

> вот допусти даже просто перезапускать процедуру каждые пять
> секунд....

Это в новый модуль
> Private Sub hello()
> MsgBox "fsdafsd"
> End Sub
>
> Private Sub CommandButton1_Click()
> Application.OnTime Now + TimeValue("00:00:05"),
> Workbooks("книга1").Worksheets("лист1").hello

здесь строку сделать так:
Application.OnTime Now + TimeValue("00:00:05"), "hello"

> End Sub
>
> пишет что ен найдена процедура
блин, ты можеш приводить нормальные сообщения об ошибке, а не вялотекущие
фразы о смысле которых нужно догадыватся???
У меня на твой пример, несколько другое сообщение об ошибке

Posted via ActualForum NNTP Server 1.4

в обработчик клика по кнопке пишеш:
Application.OnTime Now + TimeValue("00:00:05"), "hello"
Добавляеш новый модуль и в него пишеш:
Private Sub hello()
MsgBox "fsdafsd"
End Sub
переходиш на форму и жмеш F5, нажимаеш на кнопку и ждеш 5 секунд,
появнляется MsgBox с надписью "fsdafsd"

Posted via ActualForum NNTP Server 1.4

> очень хорошо ..получилось...Но почему не получается зациклить
> процесс????что бы это шло постоянно?

может за тебя и зп получить? ]:->
Dim b As Boolean
Private Sub hello1()
'MsgBox "fsdafsd"
If b Then
ActiveCell.Interior.ColorIndex = 6
Else
ActiveCell.Interior.ColorIndex = xlNone
End If
b = Not b
Application.OnTime Now + TimeValue("00:00:01"), "hello1"
End Sub


Posted via ActualForum NNTP Server 1.4

> Автор: jenekcowboy
> вам спасибо..сделал я таймер как написано выше ..при нажатии на
> кнопку отсылается сообщение на мыло ровно в 11 12 13...18...Но вот
> проблема ..при нажатии на кнопку начала мониторинга несколько раз она
> отсылает столько сообщений сколько раз была нажата кнопка..Как это можно
> исправить?
где-то сохранять флаг об отправке мыла и сбрасывать его при зарытии книги

Posted via ActualForum NNTP Server 1.4

> Автор: jenekcowboy
> я про то если форма открыта и несоклько раз нажата кнопка..Эксель сам
> не закрывается...но попробую там
и я об этом, при запуске формы ставиш где-то флаг( в реестре или на листе
какой-то книги или файлик на диске ). при первой отправке сообщения
проверяеш флаг и если отправка первая, отправляеш и меняеш значения флага,
если отправка не тпервая ничего не посылаеш. При закрытии формы удаляеш
значение флага где сохранял его

Posted via ActualForum NNTP Server 1.4

> Автор: jenekcowboy
> понял..спасибо большое...
> Сделал...
> Вот только опять появилась проблема....Раз через раз вылетает
> сообщение НЕ НАЙДЕН МАКРОС RASCHET (моя процедура так называется)...Что
> это такое и как с этим бороться?
:) Где-то вызываеш макрос, где он не виден, из другой книги например

Posted via ActualForum NNTP Server 1.4

> Автор: jenekcowboy
> да нет...все в одной книге....на одном листе даже....Может потому что
> у меня несколько экселек работает с разными макросами
Может и так, попробуй полностью указать имя макроса, начиная с книги

Posted via ActualForum NNTP Server 1.4

> Автор: jenekcowboy
> перенес нажатие кнопки в один файл....вызывает ошибку не найден
> макрос...я так понимаю в строчке
> Application.OnTime Now, "raschet"
> надо указать полное имя макроса...как это сделать?
ну как, имя книги!имя макроса

Posted via ActualForum NNTP Server 1.4

> Автор: jenekcowboy
> имя макроса совпадает с именем процедуры или нет?
да

Posted via ActualForum NNTP Server 1.4

"jenekcowboy" <nospam@sql.ru>; сообщил/сообщила в новостях следующее:
news:5263317@sql.ru...
> Автор: jenekcowboy
> нашел точное место ошибки...
> изначално в процебдуре обработки нажатия кнопки стоит
> Application.OnTime Now, "raschet"...Запускает процедуру RASCHET
> В конце процедуры RASXСHET стоит
> Application.OnTime Now + TimeValue("00:05:00"), "raschet()"
>
> то есть сама процедура ссылаетс яна себя каждые пять минут...Но она
> выдает ошибку что не найден макрос..ЧТо делать?

скобочки не нужны

Posted via ActualForum NNTP Server 1.4

> Автор: jenekcowboy
> без разницы..все равно не зацикливается млин
ну так не бывает, когда я тебе писал как пользоватся OnTime я сделал себе
такой макрос, он у меня проработал до вечера, и никаких проблем не было.
может выложишь упрощенный пример с неработающим таймером, для посмотреть?

Posted via ActualForum NNTP Server 1.4

я тут немного поменял в плане объявлений переменных и проверок условий и запустил, пока работает и не сбоит, пусть поработает там посмотрим :)

я там поставил таймер на 15 секунд и добавил счетчик выполнений. Значение
счетчика выводится в А1. У меня уже 212.

Posted via ActualForum NNTP Server 1.4

"jenekcowboy" <nospam@sql.ru>; сообщил/сообщила в новостях следующее:
news:5265076@sql.ru...
> Автор: jenekcowboy
> спасиюо конечно большое но нельзя ли сделать что бы мой исходный код
> сохранился...а то в вашем я ничего не понимаю.....спасибо...может укажите
> где я был не прав просто?
у меня твой код остановился на этой строке
If price < signallow * (1 + delta / 100) Then
потому что price содержит строку "Error 2042"

З.Ы. посмотри почту

Posted via ActualForum NNTP Server 1.4

> Автор: VladConn
> Читается на одном дыхании. Агата Кристи отдыхает.
Спасибо.

> Игорь, можно нескромный вопрос: почему вы не ставите мягкие знаки
> после шипящих в конце глаголов во втором лице? Это ваш фирменный знак? Мне
> любопытно, я такое видел последний раз в 1969 году в тетрадке у соседа по
> парте.
К сожалению с граматикой всегда были нелады. И Вы правы нужно просто
запомнить это правило и применять, но не получается.

> Не обижайтесь.
Да какие здесь обиды, Вы все правильно говорите.

> И расширение "fm" в вашем адресе - это какая страна?
Страна - Украина, а живу в городе Днепропертовске. Это безплатный почтовый
сервер нашего провайдера Алькар-Телепорт

Сейчас поправлю регистрационные данные.

Posted via ActualForum NNTP Server 1.4

> Автор: jenekcowboy
> опять та же самая проблема в другом скрипте..Уже делаю на VB 6.0..Нужно
> запустить мониторинг текстовика каждые 10 минут. Опять выводит ошибку в
> цикле

> Помогите пожалуста

наверное ошибка в 17 строке ;-)

У тебя два цикла в приведенном примере

Posted via ActualForum NNTP Server 1.4