Вопрос № 161899: Здравствуйте, у меня есть база. В ней есть даты. Как сделать так, что бы при на жатии на кнопку она спрашивала "Выбирете сотрудника" после чего моя таблица фильтруется по этому сотруднику затем спросила бы "Задайте интервал" (т.е....
Вопрос № 161911: Здравствуйте. Видел java-скрипт для html, который менял приветствие в зависимости от времени суток (если страницу открыть с 3:00 до 9:00 печаталась «доброе
утро», с 9:00 до 16:00 – «добрый день» и т.д.). Как написать такой же макрос для Word или м...Вопрос № 161928: Здравствуйте. Подскажите как ПОЛНОСТЬЮ удалить с ПК Microsoft office 2003?...Вопрос № 161947: где взять пакет "PRO11.MSI" который у меня запрашивает Word и как его после установить?...
Вопрос № 161.899
Здравствуйте, у меня есть база. В ней есть даты. Как сделать так, что бы при на жатии на кнопку она спрашивала "Выбирете сотрудника" после чего моя таблица фильтруется по этому сотруднику затем спросила бы "Задайте интервал" (т.е. начальную и конечную даты). Конечным результатом была бы сортировка по определённому сотруднику за определённый период. Большое спасибо!
Отправлен: 03.03.2009, 13:40
Вопрос задал: Milannet (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 27)
Отвечает: Faustofel
Здравствуйте, Milannet! Если Excel - выделяете таблицу и нажимаете Данные - Фильтр или Ctrl+Shift+L Потом меняете фильтр в выпадающих меню.
Ответ отправил: Faustofel (статус: 7-й класс)
Ответ отправлен: 03.03.2009, 20:16
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 244969 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Отвечает: Botsman
Здравствуйте, Milannet!
В Access это делается, как я уже говорил, с помощью запроса (простейший путь) с параметрами. Допустим, ваша база хранится в таблице baza, в которой сотрудники хранятся в поле name (тип - текстовый), а даты - в поле dt(тип - дата/время). В этом случае интересующий вас запрос - в приложении. Технология создания запроса (на всякий случай): 1)Ваша база данных (в которой содержится таблица baza) - она называется как-то так db1.mdb - должна быть открыта. Таблицу лучше не
открывать. 2)Выбираем пункт меню Вставка-Запрос. Появится окно, где нужно выбрать "Конструктор" и нажать ОК. Если после этого программа попросит добавить таблицу, можно ничего не добавлять, а просто нажать кнопку "Закрыть". 3) Меню Вид - Режим SQL. В появившемся окне убираем весь текст, а вместо него вставляем текст моего запроса (из приложения), в котором, естественно слова baza, name и dt нужно заменить на ваши имя_таблицы, поле_сотрудника и п
оле_даты соответственно. 4) Закрываете окно. Когда предложат сохраниться - соглашаетесь и вводите удобное имя, по котому потом сможете опознать созданный запрос (Например, МойЗапрос). 5)Переходим в закладку с запросами (Вид - Объекты базы данных - Запросы) и находим сохраненный МойЗапрос. Это и есть та самая кнопка, о которой вы спрашивали и по двойному щелчку по которой будет происходить все то, о чем вы просили. :)) Повторюсь, это простейший вариант. Можно реализовать и более красивые с использованием
форм, но их сложнее описать словами. Лучше сделать готовый пример на кусочке вашей базы Все Рад был помочь!
Приложение:
--------- Хочешь победить Excel? Спроси меня как! ;)
Ответ отправил: Botsman (статус: Студент)
Ответ отправлен: 04.03.2009, 09:43
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 245003 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Вопрос № 161.911
Здравствуйте. Видел java-скрипт для html, который менял приветствие в зависимости от времени суток (если страницу открыть с 3:00 до 9:00 печаталась «доброе утро», с 9:00 до 16:00 – «добрый день» и т.д.). Как написать такой же макрос для Word или можно ли скачать откуда-нибудь готовый?
Отвечает: Савицкий Владимир Вячеславович
Здравствуйте, Власов Алексей Владимирович! Можна так:
Sub Макрос1() Dim MyHour, text_pr MyHour = Hour(Time) If 3 < MyHour < 9 Then text_pr = "доброе утро" If 9 < MyHour < 16 Then text_pr = "добрый день" If 16 < MyHour < 23 Then text_pr = "доброе вечер" MsgBox (text_pr) ´ну а здесь в зависимости куда вывести сообщение End Sub
#thank 244955 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Оценка за ответ: 5 Комментарий оценки: Спасибо. Всё получилось. :)
Отвечает: Megaloman
Здравствуйте, Власов Алексей Владимирович! Вызываем Word В строке меню Сервис-Макрос-Начать запись Вместо стандартного Макрос1 Введите понятное имя макроса, например, Привет_по_времени Определитесь, хотите ли Вы, чтобы макрос был доступен для всех документов (тогда надо выбрать в окне Normal.dot) или для текущего документа (надо выбрать Документ1) Если хотите, назначьте макрос панели: жмите соответствующую кнопку, справа в окне команда захватываете мышкой имя макроса и вытягиваете его,
например, на строку с меню. Далее правой кнопкой мышки нажмите на вытянутую кнопку, выберите вставить значок на кнопку, вставьте значок, который понравится. Далее выберите там же стиль кнопки, например, Основной стиль. Опять же, Определитесь, где Вы хотите это сохранить: или для всех документов -тогда надо выбрать в окне Normal.dot) или для текущего документа (надо выбрать Документ1)
Там же можно назначить макросу горячую клавишу (Клавиатура-Новое сочета
ние клавиш -Нажмите, например, Ctrl T) Опять же, Определитесь, где Вы хотите это сохранить.
Закрыть - Закрыть.
В строке меню Сервис-Макрос-Остановить запись В строке меню Сервис-Макрос-Макрос - Выберите Ваш макрос - нажмите Изменить
Вставьте предлагаемый мной код- это будет выглядеть приблизительно вот так:
Код:
Sub Привет_по_времени() ' ' Привет_по_времени Макрос ' Макрос записан 03.03.2009 Фамилия И.О.
T = Time() H = Hour(T)
Select Case H
Case Is > 22 OutText = "Доброй ночи! " Case Is > 16 OutText = "Добрый вечер! " Case Is > 9 OutText = "Добрый день! " Case
Is > 4 OutText = "Доброе утро! " Case Is > 0 OutText = "Доброй ночи! "
End Select
OutText = OutText + " Сейчас " + CStr(T) + "." 'Если не надо печатать время, строку удалите
Selection.TypeText Text:=OutText
End Sub
Естественно, границы утра, дня, вечера, ночи можете подкорректировать. Всё! Закрываем окно Visual Basic, пользуемся! При нажатии на значок
макроса или на горячие клавиши (если Вы их определили), получите приветствие по времени.
Еще один вариант использования предлагаемого макроса В строке меню Сервис-Макрос-Редактор Visual Basic
Слева в окне откройте Normal - Microsoft Word Object левой кнопкой мышки двойным кликом на -This Document Правее откроется окно (по умолчанию General, но Вы выберите Document) и появится такая вот заготовка:
Private Sub Document_New()
End Sub
Вставьте туда текст макроса Закройте Редактор Visual Basic. Теперь, если нажмёте Файл - Создать, то получите новый документ с приветствием по времени.
Второй способ можно использовать и совместно с первым - они друг другу не мешают.
--------- Нет времени на медленные танцы
Ответ отправил: Megaloman (статус: Практикант)
Ответ отправлен: 03.03.2009, 20:19
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 244970 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Оценка за ответ: 5 Комментарий оценки: Огромное спасибо. Именно так и сделал. Всё получилось. :)
Вопрос № 161.928
Здравствуйте. Подскажите как ПОЛНОСТЬЮ удалить с ПК Microsoft office 2003?
#thank 244963 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Оценка за ответ: 3 Комментарий оценки: то что вы посоветовали-это элеметарно
Отвечает: Protos
Здравствуйте, Андреев Андрей Владимирович! Используйте программу Revo Uninstaller (http://www.revouninstaller.com/revo_uninstaller_free_download.html).
Приложение:
Ответ отправил: Protos (статус: 10-й класс)
Ответ отправлен: 04.03.2009, 17:21
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 245036 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Вопрос № 161.947
где взять пакет "PRO11.MSI" который у меня запрашивает Word и как его после установить?
Отвечает: Stjames
Здравствуйте, Положенцев Игорь Олегович! Данный файл должен находиться на установочном диске MS Office 2003 (или в папке с дистрибутивом этого пакета). Укажите при запросе данного файла правильный путь и будет Вам счастье
Ответ отправил: Stjames (статус: 7-й класс)
Ответ отправлен: 04.03.2009, 07:26
Как сказать этому эксперту "спасибо"?
Отправить SMS
#thank 245000 на номер 1151 (Россия) | Еще номера >>
Вам помогли? Пожалуйста, поблагодарите эксперта за это!
Отвечает: Савицкий Владимир Вячеславович
Здравствуйте, Положенцев Игорь Олегович! Этот файл входит в инсталяционный пакет офиса, запускается как обычный экзешник. Если его запрашивае Word то нужно просто указать путь к этому файлу, скорее всего вы исполюзуете какието функции которые небыло выбрано при начальной установке.
* Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи.
(полный список тарифов)
** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
*** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.
