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

Microsoft office - word, excel, powerpoint... самоучитель

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 9.477 RSS
←   Декабрь 2009   →
 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://cicr.ru/computers
Открыта: 17-05-2001

Автор
Игорь

Статистика

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

Microsoft office - word, excel, powerpoint... самоучитель


Советы и рекомендации по работе в Microsoft office - word, excel, powerpoint, access, visio, outlook. Самоучитель - как организовать самостоятельное изучение этих программ. Компьютерная помощь и советы пользователя
Microsoft Office - совет дня.

Эффективные рекламные кампании в Интернете.
Немного Юмора:
Чем хороши плоские анекдоты - их в голове больше помещается...
Анекдот должен быть коро... Дальше>>

Пишите автору

Реклама и консультации

Рекомендую подписаться! Интересные и полезные рассылки.
Хорошее настроение! Смешные истории. Анекдоты.
Лучшие сайты. Обмен ссылками
Планирование карьеры. Как правильно составить резюме?
Работа в Москве. Рынок вакансий.
Читать книги! Рецензия на книгу.
Умные мысли. Афоризмы и цитаты.
Метафоры в жизни.
Лучшие цитаты и афоризмы о жизни и о бизнесе
Бизнес в условиях кризиса. Бизнес новости.
Маркетинговая стратегия.
Интернет маркетинг. Реклама в интернете
Антикризисное управление.
Современный мир. Глобальные проблемы.
Аренда квартир в Москве.
Обслуживание компьютеров
Раскрутка продвижение сайта.
Создание сайтов недорого. Анализ и оптимизация сайта. Раскрутка и продвижение в интернете.
Microsoft Office - совет дня
___________________________
Рассылка новостей
Выпуск от 2009-12-16 18:25

Здравствуйте, дорогие читатели! Вопросы и предложениям присылайте на msoffi@mail.ru. .


Давайте доделаем пример из предыдущего выпуска. Вспомним "условие задачи":
Возможно ли взаимосвязывать ячейки?
Например:
В одной ячейке у меня создан список клиентов и после выбора конкретного клиента в следующей ячейке чтобы выпадал список сотрудников, непосредственно относящейся только к выбранному клиенту?

Полезные функции ActiveCell.Row и ActiveCell.Column

"В общих чертах" в прошлом выпуске мы эту задачу решили. Правда, решение получилось у нас "для одной строки". А повторять программу макроса "для всех строк" или "считать количество строк" и организовывать цикл - не всегда оптимальное решение.
В этом случае нам могут помочь функции: ActiveCell.Row() и ActiveCell.Column() , которые показывают координаты активной ячейки, т.е. первая функция возвращает номер текущей строки, а вторая - номер текущего столбца. Нам не всегда нужно знать одновременно текущий столбец и текущую строчку. Например, если вы привыкли работать "по столбцам", "сверху вниз". И если "зависимые столбцы" находятся на фиксированном расстоянии друг от друга, то вам может потребоваться только номер строки. А столбец Вы будете вычислять, прибавляя или отнимая расстояние от заданного. Например, в нашем случае мы будем считать, что колонка с менеджерами (для которых мы будем подбирать клиентов) - 3я. Мы ее "зафиксировали" в нашем макросе: C = 3, хотя ее можно были "вычислить" с помощью функции ActiveCell.Column(). Обратите внимание на круглые скобки, которые идут за названием функции. Скобки предназначены для списка параметров, которые передаются конкретной функции. Даже если параметры в конкретном случае и не должны передаваться - скобки все равно должны быть...
Программа, которая получилась у нас в предыдущем выпуске перепишется тогда таким образом:

Sub СвязныеСписки()
'
' СвязныеСписки Макрос
' Макрос записан 04.12.2009 (adm)
'
' ActiveCell.Row и ActiveCell.Column - покажут координаты активной ячейки.
'
R = ActiveCell.Row()
C = 3
Cells(R, C + 1).Select
With Selection.Validation
.Delete
If Cells(R, C) = "Иванов" Then
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=КлиентыИванова"
End If

If Cells(R, C) = "Петров" Then
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=КлиентыПетрова"
End If

If Cells(R, C) = "Сидоров" Then
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=КлиентыСидорова"
End If

If Cells(R, C) = "" Then
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=ОбщиеКлиенты"
End If

If Cells(R, C) = "Медведев" Then
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=ОбщиеКлиенты"
End If


.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub


Для запуска этой программы требуется, чтобы Вы создали, как в предыдущем выпуске 5 списков: Менеджеры, КлиентыИванова, КлиентыПетрова, КлиентыСидорова и ОбщиеКлиенты. Попробуйте расположить их по-другому. Например - каждый список в отдельной колонке. Затем, на рабочем листе, в 3й колонке Вы создаете ячейку, в которой из списка "Менеджеры" вы будете выбирать конкретного менеджера. Для этого вам потребуется вспомнить как это делается, или почитать предыдущие выпуски. (меню Данные - Проверка - Список...). Дальше, можно эту ячейку скопировать (для быстроты). Копировать можно таким образом: поместить указатель мыши на правый нижний угол этой ячейки, нажать клавишу SHIFT, удерживая SHIFT, "выделить мышкой" нужный диапазон ячеек.
Дальше - копируем программу в свой макрос (который нужно предварительно создать, назвать СвязныеСписки или по-своему). Назначаем макросу "Сочетание клавиш" - Сервис - Макрос - Макросы - Параметры... И все, можно работать.
Теперь нам нужно только перемещаться по 3й колонке, выбирать нужного Менеджера, нажимать, например - CTRL+q, и в соседней ячейке из списка выбирать клиентов, которых обслуживает выбранный нам менеджер. Вроде бы получается довольно быстро. Хотя - Вам уже будет довольно легко настроить макрос "под себя". Надеюсь, что работу со списками мы закрепили :)


Разные "мелочи"

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

В Excel возможно одновременное редактирование файлов несколькими пользователями. Например, ваш коллега может вводить данные в книгу параллельно с вами. Для этого поместите книгу в папку, доступную для других пользователей, выполните команду Сервис | Доступ к книге и установите флажок Разрешить изменять файл нескольким пользователям одновременно. Если вам нужно ограничить доступ к общей книге, то выполните следующие действия:

1. Выполните команду Сервис | Защита | Защитить книгу и дать общий доступ. Установите флажок Общий доступ с исправлениями.
2. Введите пароль в поле Пароль (необязательно).
3. Щелкните на кнопке ОК.
Теперь никто не сможет открыть книгу, пока вы не сообщите ему пароль.



Некоторые горячие клавиши для Excel, позволяющие более комфортно перемещаться по листу, между листами и рабочими книгами:
PAGE DOWN - переход на один экран вниз;
PAGE UP - переход на один экран вверх;
ALT+PAGE DOWN - смещение на один экран вправо;
ALT+PAGE UP - смещение на один экран влево;
CTRL+END - переход в последнюю ячейку на листе;
CTRL+PAGE DOWN - переход на следующий лист;
CTRL+PAGE UP - переход на предыдущий лист;
CTRL+F6 - переход в следующую рабочую книгу или окно (это так же справедливо и для Word).




Присылайте свои предложения и замечания на msoffi@mail.ru

Компьютерные новости...

Современная электроника...

Палеонтологи обнаружили одного из самых первых динозавров

"Хаббл" сфотографировал звездного тарантула

Танцоров признали самыми ненадежными супругами


 

Немного юмора.

 

- Вы раньше с банками работали?
- Да.
- А чем непосредственно занимались?
- Грабил.


Маленький городок. Пожар в банке. Никто не поехал его тушить.
Из объяснительной пожарных:
"Мы не стали гасить свои долги".


Самая высокая пирамида была построена не рабами в Египте, а евреями в Америке.


Получишь зарплату, а через неделю думаешь: "лучше бы её задержали дней на семь."


Не в деньгах счастье, а в любви! Простой, обычной, человеческой любви к деньгам.


- Что такое банкрот на банкроте?
- Банкир на "Крайслере".


Привычка брать в долг крайне вредно влияет на память.


Читать другие анекдоты>>





Предлагаю подписаться на рассылки:

 

Бизнес новости. Новости экономики за неделю. Юмор, анекдоты

Наш девиз: Секрет хорошего настроения: сначала читаем новости, потом анекдоты!
Новости, аналитика, обзор рынков, событий, СМИ. Бизнес-новости. Самые важные события за текущую неделю. И анекдоты "на злобу дня".



Развитие современной науки. Проблемы науки и техники

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



Деловые предложения о сотрудничестве. Поиск бизнес партнеров

В рассылке публикуются деловые предложения предприятий и предпринимателей России и стран ближнего зарубежья. Деловое сотрудничество, поиск партнеров, представителей, дилеров. Поиск заказчиков и поставщиков. Продажа готового бизнеса. Поиск и предложение инвестиций. Информация о предприятиях и предпринимателях, готовых стать региональными представителями. Эффективные способы привлечения клиентов и увеличения продаж.



На какую рассылку подписаться? Лучшие рассылки Subscribe.ru

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



Жду ваши письма и предложения.   msoffi@mail.ru

Игорь.

 

Эффективные рекламные кампании в Интернете.
Рекомендую подписаться! Интересные и полезные рассылки.
Хорошее настроение! Смешные истории. Анекдоты.
Лучшие сайты. Обмен ссылками
Планирование карьеры. Как правильно составить резюме?
Работа в Москве. Рынок вакансий.
Читать книги! Рецензия на книгу.
Умные мысли. Афоризмы и цитаты.
Метафоры в жизни.
Лучшие цитаты и афоризмы о жизни и о бизнесе
Бизнес в условиях кризиса. Бизнес новости.
Маркетинговая стратегия.
Интернет маркетинг. Реклама в интернете
Антикризисное управление.
Современный мир. Глобальные проблемы.
Аренда квартир в Москве.
Обслуживание компьютеров
Раскрутка продвижение сайта.
Эффективные рекламные кампании в Интернете.
В избранное