Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 9.473 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.473 подписчиков
0 за неделю

• Выпуски
• Статистика

←   Все выпуски   →

MS Office. Группировка в Excel. Таблицы. Создание прайс-листа, редактор Visual Basic (основы работы)

Создание сайтов недорого. Анализ и оптимизация сайта. Раскрутка и продвижение в интернете. Microsoft Office - совет дня. В чрезмерных спорах утрачивается истина. (Публий Сир) Природа породила и создала нас для каких-то более значительных дел. (Цицерон) Мудрость приходит c возрастом, но иногда возраст приходит один. "Люди одиноки, потомy что вместо мостов они стpоят стены" (Станислав Ежи Лец) "Одиночество как состояние, не поддается лечению" (Фаина Раневская) Пишите автору Реклама и консультации Рекомендуем подписаться! Наши самые интересные рассылки. Рассылки Subscribe.Ru Стратегический анализ. Стратегия развития бизнеса Планирование карьеры. Как правильно составить резюме? Работа в Москве. Рынок вакансий. Как найти работу в Москве? Маркетинговая стратегия. Управление маркетингом Аренда квартир в Москве. Снять (сдать) квартиру. Наем жилья Управление рисками. Антикризисное управление. Бизнес в условиях кризиса. Бизнес новости. Современный мир. Глобальные проблемы. Эволюция человека Умные мысли. Афоризмы и цитаты великих людей. Афоризм дня Метафоры в жизни. Метафора как подражание и как троп Читать книги! Рецензия на книгу. Что почитать? Лучшие сайты. Обмен ссылками Обслуживание компьютеров Создание сайтов недорого. Анализ и оптимизация сайта. Раскрутка и продвижение в интернете.

Microsoft Office - совет дня ___________________________ Рассылка новостей Выпуск от 2009-07-31 18:07 Здравствуйте, дорогие читатели!  Присылайте свои вопросы на msoffi@mail.ru . Приношу свои извинения за задержку выпусков - а кому сейчас легко? J Но Вы можете в любое время присылать письма со своими вопросами, на которые я буду отвечать по мере возможности. Продолжить наше обучение я предлагаю хрестоматийным примером - созданием прайс-листа. Этот пример легко трансформируется в другие задачи. Его можно усложнять бесконечно, добавляя все новые и новые возможности, формируя клиентский прайс-лист из внутрифирменного, добавлять данные из различных источников, отбирать разные данные для разных клиентов и т.д. Для начала я хочу обратить ваше внимание на группировку данных в Excel - очень полезная функция, о которой часто забывают, хотя она и "лежит на виду". Как группировать данные? Предположим, что вы делаете простой прайс-лист, состоящий из множества позиций и Вы хотите, чтобы можно было бы "сворачивать" и "разворачивать" отдельные товарные группы. Я думаю, что почти все Вы видели как это работает на практике. Итак: 1. Выделите все строки раздела кроме его заголовка. 2. Выполните в меню Данные - Группа и структура - команду Группировать    3. Выделенные строки сразу будут сгруппированы. Если были выделены не целые строки при помощи их заголовков, а просто группа ячеек, то отобразится диалоговое окно, в котором пользователю будет предложено уточнить, что он группирует —  строки или столбцы. Выполнив эти действия для каждого из разделов, будет получен прайс-лист из набора сворачивающихся списков, в котором каждый раздел может быть представлен как целиком, так и всего лишь одной строкой—его заголовком. Список структурирован: каждый из его разделов можно свернуть или развернуть щелчком на кнопках  “—“ или “+“ Уже сгруппированные данные можно еще раз сгруппировать, создав более высокий уровень иерархии. Для этого необходимо снабдить несколько разделов общим заголовком, выделить все строки за исключением этого заголовка и снова выполните команду Данные - Группа и структура - Группировать    При этом появится еще одна ступень группировки данных на панели в левой части листа. Итак, мы получили простой прайс-лист, сгруппированный по товарным позициям, которые можно "показывать" и "прятать". Но, для того, чтобы формировать из "внутрифирменного" несколько прайс-листов для разных клиентов, нам не обойтись без написания макросов (обойтись, конечно, можно, но иногда это будет занимать много времени…). Поэтому продолжим осваивать написание макросов. Давайте дальше попробуем отметить те позиции в нашем прайс-листе, которые отсутствуют в данный момент на складе, или которые не должны попасть в клиентский прайс-лист. Отмечать будем двойным щелчком мышки на соответствующей позиции (в первой колонке таблицы). Откроем окно редактора Visual Basic. Для этого существует специальная команда в меню Сервис- Макрос- редактор Visual Basic, или  можно нажать Alt+F11. Но можно и расположить указатель мыши на ярлыке с названием рабочего листа в нижней части окна Excel и щелкнуть правой кнопкой мыши. Текущим должен быть именно тот лист рабочей книги, для которого создается макрос. В результате откроется контекстное меню, в котором нужно выполнить команду Исходный текст. В верхней части окна кода (большое, или "центральное окно" редактора) находятся два списка, определяющие конкретную процедуру (макрос). Разверните левый список и выберите в нем пункт Worksheet. Затем, в правом списке выберите пункт BeforeDoubleClick. В результате в окне кода будет создан заголовок нужной процедуры Worksheet_BeforeDoubleClick. Первая и последняя строки процедуры созданы автоматически, и теперь требуется ввести исходный текст процедуры Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)   With ActiveCell     If .Column = 1 Then         If .Interior.Pattern = xlPatternNone Then            .Interior.Pattern = xlPatternGray25         Else            .Interior.Pattern = xlPatternNone         End If         Cancel = True     End If    End With End Sub   Если мы будем набирать код макроса "вручную", а не копируя из рассылки, то редактор Visual Basic будет "не лету" проверять набираемый текст и указывать на ошибки (или предлагать возможные варианты продолжения, предлагая различные процедуры, функции, аргументы и т.д.), редактор может раскрыть окно с предупреждением об ошибке - тогда нужно проверить - то ли мы набрали… Наконец, исходный текст макроса введен, и можно испытать его в деле. Для возврата в окно Excel можно воспользоваться кнопкой на панели задач или специальной кнопкой со значком Excel, расположенной в левом верхнем углу окна редактора Visual Basic. Пробуем выполнить двойной щелчок на одной из ячеек 1 столбца нашего прайс-листа. Если все набрано верно, то ячейка должна заштриховаться. Еще один двойной щелчок - штриховка исчезает... Дальше - подсказка для "любопытных", для тех, кто хочет разобраться в работе нашего макроса. В двух списках были выбраны пункты Worksheet и BeforeDoubleClick— в результате процедура (Sub) стала называться Worksheet_BeforeDoubleClick. Здесь Worksheet — это стандартный объект, для которого создавалась данная процедура — рабочий лист. BeforeDoubleClick — это стандартное событие рабочего листа, событие это происходит при каждом двойном щелчке на листе. Если бы в правом списке было выбрано другое событие, например, Activate, то код процедуры выполнялся бы при активации листа, то есть в момент, когда лист становится текущим. Но в нашем случае код будет выполняться при двойных щелчках мыши на любой ячейке данного листа. С командами: Private Sub Worksheet_BeforeDoubleClick  …   и   End Sub мы уже знакомы - они обозначают соответственно начало и конец макроса. Все "значимые" для нас команды должны располагаться между ними. Дальше - команда  With ActiveCell   (и ее "окончание"  End With ) Первая и последняя строчки определяют, что весь заключенный между ними код относится к объекту ActiveCell, то есть к текущей ячейке. Именно она-то нас и интересует. Поскольку любая ячейка, на которой выполнен двойной щелчок мыши, автоматически становится текущей. Оператор   If .Column = 1 Then является "условным", т.е. означает если выполняется такое-то условие (.Column=1)    то мы будем выполнять команды, расположенные после  Then (но до End If) В нашем случае "условием" является то, что мы ограничиваем "нужные нам столбцы" только 1м столбцом. Т.е. если мы будем "щелкать"  не в первом столбце, то с такими ячейками ничего происходить не будет. Непосредственно само "заштриховывание" (и его "снятие") выполняется следующими командами:         If .Interior.Pattern = xlPatternNone Then            .Interior.Pattern = xlPatternGray25         Else            .Interior.Pattern = xlPatternNone         End If Здесь мы встречаемся с конструкцией   If … Then …  Else… End If Добавился оператор Else  После данного оператора идут команды, которые будут выполняться в том, случае, если не выполняется условие, описанное после If В нашем случае, если проверка на "заштрихованность"  показала, что ячейка уже заштрихована, то командой,           .Interior.Pattern = xlPatternNone  следующей после  Else   будет восстановлен "нормальный" вид ячейки. Переменная Cancel является параметром процедуры, и смысл этого параметра таков: присвоив ему логическое значение True (Истина), пользователь как бы сообщается рабочему листу Excel, что двойной щелчок отменяется, т.е. его не было. Поэтому Excel не перейдет по двойному щелчку к редактированию ячейки, как он это обычно делает. Примечание. Такой объект, как ячейка, обладает множеством свойств. Если, например, вместо .Interior.Pattern = xlPatternGray25 использовать оператор .Value = 100, то по двойному щелчку на ячейке в нее будет помещаться число 100. Можно использовать такой оператор, как .Interior.ColorIndex = 3 — в этом случае ячейка будет окрашиваться в красный цвет. Вернуть ей белый цвет можно оператором .Interior.ColorIndex = 2. Черному цвету соответствует значение 1, а серому — 15. Чтобы получить более подробную справку, достаточно выделить выражение ColorIndex и нажать клавишу F1. Справка по Visual Basic не устанавливается автоматически при установки MS Office. Поэтому при получении ответа, что справка не установлена, можно ее установить (однако она на английском..).   Подсказки при работе в редакторе Visual Basic.   ∙ Если окно редактора Visual Basic закрывает весь экран и панель задач не видна, щелкните на кнопке максимизации окна в правом верхнем углу (средняя из трех кнопок). ∙ Если при вводе исходного текста появляется окно с сообщением об ошибке “Ошибка компиляции. Ожидалось...”, щелкните на кнопке OK или нажмите клавишу [Esc], а затем исправьте ошибку. ∙ Если при переходе из окна Excel в окно Visual Basic нельзя ввести текст при помощи клавиатуры или выбрать, какой-нибудь элемент окна мышью, вернитесь в окно Excel и нажмите клавишу [Esc]. Видимо, Excel был оставлен в состоянии редактирования ячейки, а в такой ситуации окно Visual Basic не реагирует на действия пользователя. ∙ Если при выполнении макроса возникла ошибка, то на экране появится окно с сообщением “Ошибка выполнения...”. Если щелкнуть на кнопке Завершить, то выполнение макроса прервется —выполняемые им операции не будут завершены. ∙ В случае, когда макрос не может завершить свою работу из-за логической ошибки в тексте программы (при этом Excel может не реагировать на действия пользователя), необходимо нажать сочетание клавиш [Ctrl]+[Break] или, что, то же самое, [Ctrl]+[Pause]. ∙ Если выполнение программы прервано пользователем (см. выше), появится окно с сообщением “Выполнение программы прервано...”. В этом случае необходимо щелкнуть на кнопке Завершить. ∙ Если макрос “отказывается” стартовать, выдавая окно с сообщением “Невозможно выполнение программы в режиме прерывания”, следует перейти в окно редактора Visual Basic и выполнить команду Запуск | Сброс (Run | Reset).     До встречи в следующих выпусках! Игорь msoffi@mail.ru     Создание сайтов недорого. Анализ и оптимизация сайта. Раскрутка и продвижение в интернете. Рассылки Subscribe.Ru Стратегический анализ. Стратегия развития бизнеса Планирование карьеры. Как правильно составить резюме? Работа в Москве. Рынок вакансий. Как найти работу в Москве? Маркетинговая стратегия. Управление маркетингом Аренда квартир в Москве. Снять (сдать) квартиру. Наем жилья Управление рисками. Антикризисное управление. Бизнес в условиях кризиса. Бизнес новости. Современный мир. Глобальные проблемы. Эволюция человека Умные мысли. Афоризмы и цитаты великих людей. Афоризм дня Метафоры в жизни. Метафора как подражание и как троп Читать книги! Рецензия на книгу. Что почитать? Лучшие сайты. Обмен ссылками Обслуживание компьютеров Рекомендуем подписаться! Наши самые интересные рассылки.

---

В избранное

{#template MAIN} <div id="loginForm" style="display:none;" class="subscriberu_popup"> <div class="popup_register"> {#include js_tmpl_auth_reg_tab} {#if $P.login_register_tab == 1} <form class="authentication-form" method="post" action="/MEMBERLOGIN_authen_cred"> <dl class="rg_block_options"> <dt id="js_tap_panel_auth"> <h1>Войти на сайт</h1> {* {#include js_tmpl_auth_reg_button} *} {#include js_tmpl_auth_reg_action} <hr class="logreg_line noPhones"> <div class="logreg_descr noPhones"><p>{#include js_tmpl_auth_reg_descr} </p></div> <div class="logreg_advice noPhones"> Если вы еще не с нами, то начните с <a href="#" onclick="rgNav('js_tab_reg');return false;" class="dashed" data-func="registr">регистрации</a> </div> <br><br> <a class="dashed auth-enter" href="/manage/author/"><b>Вход для авторов</b></a> </dt> </dl> </form> {#/if} {#if $P.login_register_tab == 2} <div class="rg_block_options"> <div id="js_tap_panel_auth"> <h1>Регистрация</h1> <div class="social_reg"> {* <div class="rg_description">{#include js_tmpl_soc_auth_reg_descr}</div> *} {#include js_tmpl_auth_reg_soc} <div class="rg_soc_auth_agree">{#include js_tmpl_auth_reg_agree}</div> </div> <div class="subscribe_reg"> {* <div class="rg_description"> #include js_tmpl_auth_reg_descr </div> *} {#include js_tmpl_auth_reg_action} </div> {* {#include js_tmpl_auth_reg_button} *} <div class="clr"> </div> <hr class="logreg_line noPhones"> <div class="logreg_descr noPhones">{#include js_tmpl_auth_reg_descr} {#include js_tmpl_soc_auth_reg_descr} </div> </div> </div> {#/if} </div> {* <div class="gray_bg register_shadow"></div> *} </div> {#/template MAIN} {#template js_tmpl_auth_reg_tab} <ul class="rg_nav"> <li id="js_tab_auth" class="{#if $P.login_register_tab == 1} rg_active_nav {#/if} rg_first_nav"><a onclick="rgNav('js_tab_auth');return false;" href="">Вход на сайт</a></li> <li id="js_tab_reg" class="{#if $P.login_register_tab == 2} rg_active_nav {#/if}"><a onclick="rgNav('js_tab_reg');return false;" href="">Регистрация </a></li> </ul> <span onclick="hidebo();" class="rg_closed"> </span> {#/template js_tmpl_auth_reg_tab} {#template js_tmpl_auth_reg_action} {#if $P.login_register_tab == 1} {#include js_tmpl_auth_reg_soc} {#/if} <div class="rg_forms"> <input type="hidden" id="login_register_destination" value="{$P.login_register_destination}"/> {#if $P.login_register_tab == 1} <div class="rg_for_input"> <span class="rg_text_inner">E-mail или код подписчика</span> <input id="credential_0" class="js_keydown_selector rg_input_text" data-js_submit="no" data-js_next_input_name="credential_1" name="" type="text" /> </div> <div class="rg_for_input"> <span class="rg_text_inner">Пароль</span> <input id="credential_1" class="js_keydown_selector rg_input_text" data-js_submit="yes" data-js_action="js_loginFormBut" name="" type="password" onkeyup="showAttention(this,!!window.event.shiftKey)" /> <span class="pswd_attention" id="attention_pswd"> <span class="icon_attention"></span> <span class="pswd_attention-text" id="attention-text_pswd1">Русская раскладка клавиатуры!</span> <span class="pswd_attention-text" id="attention-text_pswd2">У вас включен Caps Lock!</span> <span class="pswd_attention-text" id="attention-text_pswd3">У вас включен Caps Lock и русская раскладка клавиатуры!</span> </span> </div> <div class="rg_for_input input-alien"> <span class="chk noPhones"><input id="chk_alien" name="" type="checkbox" /></span><label for="chk_alien" class="noPhones"> Чужой компьютер</label> <a class="forgot_pass" href="/member/totalrecall">Забыли пароль?</a> </div> <div class="rg_for_input"> <em id="auth_msg" class="reg_error"></em> <input id="lf_typeauthid" value="email" type="hidden"> <input type="submit" class="button button-red logreg_submit" id="js_loginFormBut" value="Войти"> <!--</a>--> <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> </div> {#/if} {#if $P.login_register_tab == 2} <div class="rg_for_input"> <span class="rg_text_inner">E-mail</span> <input id="arfemail" class="js_keydown_selector rg_input_text" name="" type="text" data-js_submit="yes" data-js_action="js_regFormBut"/> </div> <div class="rg_for_input rg_set_lineh rg_for_input_wide"> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_terms' type="checkbox" data-js_submit="yes" /></span> Я ознакомился и согласен с <a class="link_txd logreg_accLink" href="/faq/vereinbarung.html">условиями сервиса Subscribe.ru</a> </label> <br /> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_personal' type="checkbox" data-js_submit="yes" /></span> Нажимая на кнопку "Готово!", я даю <a class="link_txd logreg_accLink" href="/faq/persverordnung.html">согласие на обработку персональных данных</a> </label> </div> {* <div style="float: left;position: absolute;left: 11em;"> <img src="http://www.kupivip.ru/images/vip/logo.png?1604" style="width: 86px; vertical-align: middle;display: block;"> </div> <div class="rg_for_input rg_set_lineh"> <label class="js_tap_panel_checkbox"><input name="" id="js_tap_panel_checkbox_kupivip" type="checkbox" data-js_submit="yes"> Я хочу получать новости о скидках на одежду</label> </div> *} <div class="rg_for_input"> <em id="reg_msg" class="reg_error rg_for_input_wide"></em> <em id="reg_msg2" class="reg_error rg_for_input_wide"></em> <input id="rf_typeauthid" value="email" type="hidden"> <a class="button button-red logreg_submit" id="js_regFormBut" href="#">Готово!</a> <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> </div> {#/if} </div> {#/template js_tmpl_auth_reg_action} {#template js_tmpl_auth_reg_agree} <div class="rg_for_input rg_set_lineh rg_for_input_wide"> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_terms_reg' type="checkbox" data-js_submit="yes" /></span> Я ознакомился и согласен с <a class="link_txd logreg_accLink" href="/faq/vereinbarung.html">условиями сервиса Subscribe.ru</a></label> <em id="reg_msg_soc" class="reg_error rg_for_input_wide"></em> </div> {#/template js_tmpl_auth_reg_agree} {#template js_tmpl_auth_reg_button} <div class="rg_butons_socials"> {#if $P.login_register_tab == 1} <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="auth_email" href="#"><span><i></i>Email</span></a> <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="auth_openid" href="#"><span><i></i>OpenID</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="auth_vkontakte" href="#"><span><i></i>Вконтакте</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="auth_mailru" href="#"><span><i></i>Mail.Ru</span></a> {#/if} {#if $P.login_register_tab == 2} <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="reg_email" href="#"><span><i></i>Email</span></a> <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="reg_openid" href="#"><span><i></i>OpenID</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="reg_vkontakte" href="#"><span><i></i>Вконтакте</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="reg_mailru" href="#"><span><i></i>Mail.Ru</span></a> {#/if} </div> {#/template js_tmpl_auth_reg_button} {#template js_tmpl_auth_reg_descr} {#if $P.login_register_tab == 1} Для оформления подписки на выбранную рассылку, работы с интересующей вас группой или доступа в нужный вам раздел, просим авторизоваться на Subscribe.ru {#/if} {#if $P.login_register_tab == 2} Для регистрации укажите ваш e-mail адрес. Адрес должен быть действующим, на него сразу после регистрации будет отправлено письмо с инструкциями и кодом подтверждения. {#/if} {#/template js_tmpl_auth_reg_descr} {#template js_tmpl_soc_auth_reg_descr} Или зарегистрируйтесь через социальную сеть. {#/template js_tmpl_soc_auth_reg_descr} {#template js_tmpl_auth_reg_soc} <div class="rg_soc"> {#if $P.login_register_tab == 1} <a onclick="return _checkSocConfirm(event)" href="https://oauth.vk.com/authorize?client_id=3954260&scope=wall,offline,photos,groups,video,audio,email&redirect_uri={location.protocol+'//'+location.host}/member/login/vk/&response_type=code&v=5.15" class="login_register_vk_button"> <span class="login_register_vk_icon"></span> </a> {#/if} {#if $P.login_register_tab == 2} <a onclick="return _checkSocConfirm(event)" href="https://oauth.vk.com/authorize?client_id=3954260&scope=wall,offline,photos,groups,video,audio,email&redirect_uri={location.protocol+'//'+location.host}/member/join/vk&response_type=code&v=5.15" class="login_register_vk_button"> <span class="login_register_vk_icon"></span> </a> {#/if} </div> {#/template js_tmpl_auth_reg_soc}

{#template MAIN} <div id="loginForm" style="display:none;" class="subscriberu_popup"> <div class="popup_register"> {#include js_tmpl_auth_reg_tab} <dl class="rg_block_options"> <dt id="js_tap_panel_auth"> <p class="rg_description">{#include js_tmpl_auth_reg_descr}</p> <div class="clr"> </div> {#include js_tmpl_auth_reg_action} <div class="clr"> </div> </dt> </dl> </div> <!-- <div class="gray_bg register_shadow"></div> --> </div> {#/template MAIN} {#template js_tmpl_auth_reg_tab} <ul class="rg_nav"> <li id="js_tab_reg" class="rg_active_nav rg_first_nav"><a href="" onclick="return false;" >Регистрация</a></li> </ul> <span onclick="hidebo();" class="rg_closed"> </span> {#/template js_tmpl_auth_reg_tab} {#template js_tmpl_auth_reg_descr} <strong>Пожалуйста, подтвердите ваш адрес.</strong><br><br>Вам отправлено письмо для подтверждения вашего адреса {$P.register_confirm_mail}.<br>Для подтверждения адреса перейдите по ссылке из этого письма. {#/template js_tmpl_auth_reg_descr} {#template js_tmpl_auth_reg_action} <div class="rg_forms confirm_code_from_letter"> <div class="rg_for_input"> <span class="rg_inp_descr" style="width:15em;">Или введите код из письма:</span> <input type="text" value="" id="confirm_code" name="" data-js_submit="yes" data-js_action="js_confirmFormBut" class="js_keydown_selector rg_input_text_conf" > </div> <div class="rg_for_input"><label>Не пришло письмо? <b>Пожалуйста, проверьте папку Спам</b><br /> (папку для нежелательной почты).</label><br />  <a href="" onclick="ajax_recall_code();return false" >Вышлите мне письмо еще раз!</a></div> <div class="rg_for_input"> <em class="reg_error" id="confirm_msg"></em> <a href="#" class="button button-red" id="js_confirmFormBut">Готово</a> <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> <br> </div> </div> {#/template js_tmpl_auth_reg_action}