Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Программирование на Basic / VBA

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 1.823 RSS
←   Январь 2014   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://prog.rusfaq.ru/basic
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

1.823 подписчиков
0 за неделю
←   Все выпуски   →

RFpro.ru: Программирование на Basic / VBA


Хостинг портала RFpro.ru:
Московский хостер
Профессиональный ХОСТИНГ на базе Linux x64 и Windows x64

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Лучшие эксперты по данной тематике

Асмик Гаряка
Статус: Советник
Рейтинг: 10653
∙ повысить рейтинг » 		Роман Селиверстов
Статус: Советник
Рейтинг: 4952
∙ повысить рейтинг » 		Гуревич Александр Львович
Статус: Профессионал
Рейтинг: 4412
∙ повысить рейтинг »

/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Basic/VBA

Номер выпуска:1092
Дата выхода:14.01.2014, 12:30
Администратор рассылки:Андреенков Владимир (Профессор)
Подписчиков / экспертов:52 / 29
Вопросов / ответов:3 / 10

Консультация # 33482: Здравствуйте!А можно ли сделать так, Что-бы программа запустилась в определённое время по часам компа, причём до этого, она ни разу не запускалась?Если можно, напишите, пожалуйста, как. Спасибо!...

Консультация # 102736: Уважаемые эксперты, не могу решить один важный для меня вопрос. У меня есть список подразделений организации, достаточно длинный. Он находится в столбце А. В столбцах В и С содержатся данные по этим подразделениям. В столбце D напротив каждого филиала мне нужно автоматически проставлять слово "филиал", напротив ...
Консультация # 67915: Здравствуйте! Можно ли в Excel отследить что была нажата левая или правая кнопка мыши и выполнить свою процедуру по нажатию ..

Консультация # 33482:

Здравствуйте!А можно ли сделать так, Что-бы программа запустилась в
определённое время по часам компа, причём до этого, она ни разу не
запускалась?Если можно, напишите, пожалуйста, как.
Спасибо!

Дата отправки: 17.01.2006, 22:26
Вопрос задал: Asdfrewq
Всего ответов: 3
Страница онлайн-консультации »

Консультирует Николай К:

Здравствуйте, Asdfrewq!
Можно, но только с пом. Scheduled Tasks. Чтобы задача запустилась должен работать соответствующий сервис, по моему так и называется Seduled Tasks(или планировщик задач). Задачу можно сделать и у себя на компе, потом просто скопировать в каталог Disk:\Windows\Task.

Консультировал: Николай К
Дата отправки: 18.01.2006, 16:41
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует AlexanderZh:

Здравствуйте, Asdfrewq!
Пуск > Панель управления > Назначенные задания > Добавить задание...

Консультировал: AlexanderZh
Дата отправки: 19.01.2006, 12:53
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует Залетин Виталий Викторович:

Здравствуйте, Asdfrewq!
Можно: для этого надо или писать свой планировщик задач или использовать системный: Меню Пуск\(Настройка, если винда 2000\)Панель управления\Назначенные задания, там щелкните на ярлыке Добавить задание. Запустится мастер, который и добавляет это самое задание.

Консультировал: Залетин Виталий Викторович
Дата отправки: 21.01.2006, 14:47
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 102736:

Уважаемые эксперты,

не могу решить один важный для меня вопрос.

У меня есть список подразделений организации, достаточно длинный. Он находится в столбце А. В столбцах В и С содержатся данные по этим подразделениям.

В столбце D напротив каждого филиала мне нужно автоматически проставлять слово "филиал", напротив каждого агентства - слово "агенство", в случае если это подразделение не является ни агенством, ни филиалом, то проставлять ничего не нужно.

То есть мне нужно реализовать программу, которая будет проверять, содержится ли в тексте ячейки столбца А текст "филиал" или "агенство", и если содержится, проставлять в данные в столбец D.

Просто пределением значения ячейки проблему решить не удастся, так как каждый филиал и каждое агенство имеет уникальное имя и совпадают в них только слова "агентство" и "филиал".

Кроме того, надо, чтобы программа заканчивала своё действие, как только наткнётся на первую пустую ячейку в столбце А.

Заранее благодарен за ответы

С уважением, Александр

Дата отправки: 20.09.2007, 10:25
Вопрос задал: Икрамов Александр Павлович
Всего ответов: 4
Страница онлайн-консультации »

Консультирует Alexander N. Monastyrsky:

Здравствуйте, Икрамов Александр Павлович!

Зачем так сложно. Можно решить гораздо проще.
Вставляем в ячейку D1 формулу:
см. Приложение.

А потом применяем умное копирование на столько строк, сколько нужно.
В крайнем случае, можно разобрать конструкцию и склепать макрос-модуль.
Логику я показал.

Часть ответа удалена, как неимеющая отношения к вопросу.


-----
∙ Отредактировал: Maxim V. Tchirkine (Академик)
∙ Дата редактирования: 20.09.2007, 11:34

Приложение:

Консультировал: Alexander N. Monastyrsky
Дата отправки: 20.09.2007, 10:55
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует Черников Игорь Владимирович:

Здравствуйте, Икрамов Александр Павлович!
Sub Макрос1()
Dim Наименование As String
Dim счётчик As Integer
Do
счётчик = счётчик + 1
Наименование = Worksheets("Лист1").Range("A" & счётчик)
If Наименование = "" Then Exit Do
If InStr(Наименование, "агентство") <> 0 Then Worksheets("Лист1").Range("D" & счётчик).Value = "Агентство"
If InStr(Наименование, "филиал") <> 0 Then Worksheets("Лист1").Range("D" & счётчик).Value = "Филиал"
Loop
End Sub

Можно и без макроса:
=ЕСЛИ(ЕОШИБКА(ПОИСК("агентство";A1)>0)=ИСТИНА;ЕСЛИ(ЕОШИБКА(ПОИСК("филиал";A1)>0)=ИСТИНА;"";"филиал");"агентство")

Консультировал: Черников Игорь Владимирович
Дата отправки: 20.09.2007, 18:48
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует Тесленко Евгений Алексеевич:

Здравствуйте, Икрамов Александр Павлович!
Совсем случайно (как рояль в кустах:)) у меня есть готовое решение для Вас.
http://ifolder.ru/3435362
Это надстройуа Excel. После ее подключения, появляется пункт меню, вызывающий диалог. В диалоге указываете столбец поиска, искомый текст, целевой столбец и отобращаемую метку - "Выполнить" и все готово.
Удачи.
Евгений.

Консультировал: Тесленко Евгений Алексеевич
Дата отправки: 21.09.2007, 22:05
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует Архипов Александр Леонидович:

Здравствуйте, Икрамов Александр Павлович!
Попробуй вот так:
=ЕСЛИ(ЕОШИБКА(ПОИСК("филиал";A1)>0);ЕСЛИ(ЕОШИБКА(ПОИСК("агенство";A1)>0);"";"агенство");"филиал")

Консультировал: Архипов Александр Леонидович
Дата отправки: 24.09.2007, 13:59
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 67915:

Здравствуйте! Можно ли в Excel отследить что была нажата левая или правая кнопка мыши и выполнить
свою процедуру по нажатию

Дата отправки: 21.12.2006, 00:35
Вопрос задал: Rewer8
Всего ответов: 3
Страница онлайн-консультации »

Консультирует din:

Здравствуйте, Rewer8!
Для листа это событие BeforeRightClick
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

End Sub
Для книги:
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

End Sub
Удачи!

Консультировал: din
Дата отправки: 21.12.2006, 00:50
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует Макаренко Е.В.:

Здравствуйте, Rewer8!
Сюда можно бы добавить отслеживание позиции курсора:

Private Sub Chart_MouseMove(ByVal Button As Long, ByVal Shift As Long, ByVal X As Long, ByVal Y As Long)
MsgBox "X = " & X & " Y = " & Y
End Sub

Консультировал: Макаренко Е.В.
Дата отправки: 21.12.2006, 10:16
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует HookEst:

Здравствуйте, Rewer8!
Есть вариант(немного опасный, зато не надо привязыватся к листам или формам) - это установить мой любимый HOOK на WH_MOUSE.
см Приложение
после запуска процедуры SetHook, перхватываются: движение мыши и нажатие левой кнопки, при нажатии правой кнопки HOOK снимается.

Приложение:

Консультировал: HookEst
Дата отправки: 21.12.2006, 13:15
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Оценить выпуск | Задать вопрос экспертам

главная страница  |  стать участником  |  получить консультацию
техническая поддержка  |  восстановить логин/пароль

Дорогой читатель!
Команда портала RFPRO.RU благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались. Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора - для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение. Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал, который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом. Заходите - у нас интересно!
МЫ РАБОТАЕМ ДЛЯ ВАС!

© 2001-2012, Портал RFPRO.RU, Россия
Авторское право: ООО "Мастер-Эксперт Про"
Калашников О.А. | Гладенюк А.Г.
Хостинг: Компания "Московский хостер"
Версия системы: 2011.6.36 от 26.01.2012
В избранное