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

Форум по Microsoft Excel

  Все выпуски  

KuklP>> Re: Импорт с сайта


Форум по Microsoft Excel

Выпуск 9
от 2011-03-10

Подписчиков: 570

Рассылка сайта "Профессиональные приемы работы в Microsoft Excel"

Основные разделы сайта
Статьи
Форум

Новости сайта в формате RSS
Новые сообщения форума в формате RSS
Читать в Яндекс.Ленте

Порекомендуйте нашу рассылку друзьям

Обратная связь
Поддержка
(форум рассылки)

Наши рассылки:

Рассылки Subscribe.Ru
Православные:
Ежедневные библейские чтения
Смоленский календарь
Для выздоравливающих алкоголиков и наркоманов
Книга "День за днем"
Книга "24 часа в сутки"
Ежедневные размышления анонимного алкоголика
Самообразование:
"Профессиональные приемы работы в Microsoft Excel"

Наши сайты

Профессиональные приемы работы в Microsoft Excel
Excel от новичка до эксперта

bonifatiy.narod.ru
В помощь выздоравливающим алкоголикам и наркоманам

Собор Смоленских святых. Жития, иконы, календарь памятных дат Смоленской епархии.

StudentTools.Narod.Ru Для тех, кто любит учиться

Наши друзья

VBAtips.ru -
подсказки и решения на VBA

wordexpert.ru
Профессиональная работа с текстом

planetaexcel.ru
Когда заешь - все просто

Новые сообщения форума "Профессиональные приемы работы в Microsoft Excel".



KuklP>> Re: Импорт с сайта
2011-03-02 17:41 http://forum.msexcel.ru/profiles/kuklp-u39713.html
Ну, телегу впереди лошади не будем ставить:

Код:
Option Explicit

Public i&
Sub start()
i = 123
Call myMacro
End Sub

Sub myMacro()
Dim NextRow As String
Dim ss$
ss = "URL;http://site.ru/ob/" & i
Application.OnTime Now() + TimeSerial(0, 5, 0), "myMacro"
......
Запускаем start и смотрим
У меня Ваша ссылка не работает, так, что отлаживайте сами.

nilem>> Re: Сортировка буквенно-числовых данных с расширением списка
2011-03-02 17:56 http://forum.msexcel.ru/profiles/nilem-u30547.html
Так пойдет? Зеленая кнопка.

Serge 007>> Re: выпадающий список с автоматическим заполнением ячеек выбранной строки
2011-03-02 17:56 http://forum.msexcel.ru/profiles/serge_007-u25260.html
Во вложении два решения:
1. Удобный (подходит для любого кол-ва условий любого кол-ва данных) - сводной таблицей
2. "Тяжёлый" , но одной формулой

А прощё всего доп. столбец с формулой =ЕСЛИ(B2="нет";1) и сортировкой, но тогда данные больше просто для просмотра годятся чем для работы с ними.

vea419@narod.ru>> Re: выпадающий список с автоматическим заполнением ячеек выбранной строки
2011-03-02 18:14 http://forum.msexcel.ru/profiles/-u0.html
Спасибо, буду разбираться.

Цитировать
А прощё всего доп. столбец с формулой =ЕСЛИ(B2="нет";1) и сортировкой, но тогда данные больше просто для просмотра годятся чем для работы с ними.

Да, это не подходит.

ZORRO2005>> Re: подведение итогов для таблицы с фильтрами
2011-03-02 18:20 http://forum.msexcel.ru/profiles/zorro2005-u4225.html
Подправил формулу iron priest.
см. вложение

Kabrio>> Вопрос по функции "ИЛИ"
2011-03-02 19:52 http://forum.msexcel.ru/profiles/kabrio-u74230.html
Допустим Есть число 14 и таблица числе от 13 до 25. Функция ИЛИ сравниваю 14 с столбом 13:25 Функция ИСТИНА нажимаю ENTER пишет что ЛОЖЬ

_Boroda_>> Re: Вопрос по функции "ИЛИ"
2011-03-02 19:59 http://forum.msexcel.ru/profiles/boroda-u12234.html
Ничего не меняя, встаньте мышой в строку формул и нажмите Контрл+Шифт+Ентер.
Из обычной формулы тогда получается [abbr=Вводится через Ctrl+Shift+Enter]формула массива[/abbr]. Она-то Вам и нужна.

Kabrio>> Re: Вопрос по функции "ИЛИ"
2011-03-02 20:10 http://forum.msexcel.ru/profiles/kabrio-u74230.html
Ничего не меняя, встаньте мышой в строку формул и нажмите Контрл+Шифт+Ентер.
Из обычной формулы тогда получается [abbr=Вводится через Ctrl+Shift+Enter]формула массива[/abbr]. Она-то Вам и нужна.
Спасибо помогло, а как сделать чтоб Excel сразу считал такие формулы. Просто я буду копировать. и не хочется нажимать 32 раза Ctrl+Shift+Enter

_Boroda_>> Re: Вопрос по функции "ИЛИ"
2011-03-02 20:15 http://forum.msexcel.ru/profiles/boroda-u12234.html
1. После того, как в одной ячейке выполнили описанное мною выше, эту ячейку можно просто копировать и вставлять куда угодно;
2. другая формула (не массива)
=СУММПРОИЗВ(--(H3=AD$2:AD$10))

kimtan>> Re: Вопрос по функции "ИЛИ"
2011-03-02 20:19 http://forum.msexcel.ru/profiles/kimtan-u12219.html
Или:
=ИЛИ(ИНДЕКС(H3=AD$3:AD$11;))
Матричный ввод тоже не требуется

Kabrio>> Re: Вопрос по функции "ИЛИ"
2011-03-02 20:21 http://forum.msexcel.ru/profiles/kabrio-u74230.html
1. После того, как в одной ячейке выполнили описанное мною выше, эту ячейку можно просто копировать и вставлять куда угодно;
2. другая формула (не массива)
=СУММПРОИЗВ(--(H3=AD$2:AD$10))
Спасибо, эта формула то что надо, но проблема в том что пробелы и буквы й,ь,ы должны заментся не на 1 и 0 а на *, можно ли одной формулой записать это Согласная буква на 0, гласная на 1 , а пробелы и буквы й,ь,ы на *

kimtan>> Re: Вопрос по функции "ИЛИ"
2011-03-02 20:52 http://forum.msexcel.ru/profiles/kimtan-u12219.html
Вам это нужно?
В желтых ячейках

Kabrio>> Re: Вопрос по функции "ИЛИ"
2011-03-02 21:23 http://forum.msexcel.ru/profiles/kabrio-u74230.html
Вам это нужно?
В желтых ячейках
Спасибо большое, я думал это не возможно одной формулой. я буду изучать Excel лучше , хороший форум, мне нравится

Tyta>> Re: подведение итогов для таблицы с фильтрами
2011-03-02 21:38 http://forum.msexcel.ru/profiles/tyta-u74091.html
спасибо, но в новом варианте почему-то после того как щелкнуть по ячейке с этой формулой - в  экселе 2007 выдается ошибка. Хотя если не трогать ячейки с этими формулами, то считает все хорошо.

там видать [abbr=Вводится через Ctrl+Shift+Enter]формула массива[/abbr], вводиться через контрл+шифт+энтер

kimtan>> Re: подведение итогов для таблицы с фильтрами
2011-03-02 21:56 http://forum.msexcel.ru/profiles/kimtan-u12219.html
Если не щелкать ячейку и она правильно считает, осталось дело за малым - почитать хотя бы по этой ссылке:
http://leo-arek.narod.ru/75.htm

pk>> Сумма диапазона с определенным началом и плавающим концом
2011-03-02 21:58 http://forum.msexcel.ru/profiles/pk-u74248.html
Добрый вечер, уважаемые.
Прошу помочь решить задачу.

Нужно считать сумму диапазона в столбце H от заданной ячейки до тех пор, пока в столбце A не встретится непустая ячейка.
Топорным способом я это сделал (см. вложение), но если наименований в заказе будет не 2, а больше, то формула становится неработоспособной без вмешательства вручную.

Надеюсь на вашу помощь, спасибо.

Tyta>> Re: подведение итогов для таблицы с фильтрами
2011-03-02 22:57 http://forum.msexcel.ru/profiles/tyta-u74091.html
)))разобралась))
но первая формула тоже работает..

_Boroda_>> Re: Сумма диапазона с определенным началом и плавающим концом
2011-03-02 23:11 http://forum.msexcel.ru/profiles/boroda-u12234.html
Посмотрите такой вариант

Анжелика>> Re: Теория вероятности в EXCEL
2011-03-02 23:30 http://forum.msexcel.ru/profiles/anzhelika-u72796.html
исправляюсь Подмигивающий
я думала, что мне просто подскажут название функции, которая наиболее подходит в моем случае.
Время идет, а у меня по поводу моей задачки никаких мыслей.... Обеспокоенный


MCH>> Re: Вопрос по функции "ИЛИ"
2011-03-02 23:37 http://forum.msexcel.ru/profiles/mch-u48782.html
Еще пару вариантов (без ссылок на доп. ячейки)

marsel_xm>> Re: Выборка значений
2011-03-03 08:42 http://forum.msexcel.ru/profiles/marselxm-u72117.html
имхо, здесь лучше подойдут списки, чем комбобоксы. Вот, посмотрите.
поблема возникла(((
при запуске на других машинах выходит постоянно собщение Automation error
и жалуется на эту строчку
Код:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Range("B4"), Target) Is Nothing Then Calendar.Show
If Not Intersect(Range("B15"), Target) Is Nothing Then Calendar.Show
If Not Intersect(Range("B5"), Target) Is Nothing Then VR
If Not Intersect(Range("B5"), Target) Is Nothing Then DocTime
If Not Intersect(Range("B14"), Target) Is Nothing Then DelOld
End Sub
читал в инете что возникает она при create object... может своими функциями её заменить...
что делать, товарищи эксперты?

pk>> Re: Сумма диапазона с определенным началом и плавающим концом
2011-03-03 08:43 http://forum.msexcel.ru/profiles/pk-u74248.html
Класс!
Спасибо огромное.

viola_viola>> Смещаются картинки в XCEL
2011-03-03 10:25 http://forum.msexcel.ru/profiles/violaviola-u74426.html
Добрый день.У меня проблема-у меня смещаются картинки в эксель.У меня есть прайс-лист(просто табличка)-+я копирую картинку.У меня эксель 2003 года. Я её копирую вначале в Ворд,затем из ворда в эксель-иначе она не копируется. Сохраняю документ.Но при открытии она смещается вниз-все картинки.Так же при преобразовании в PDF они все смещаются вниз,даже при "предвариткльном просмотре" при печати они мне уже показываются что внизу. К тому же, если долго открыт эксель и им не пользоваться, то он перестаёт работать и выскакивает табличка "Недостаточно системных ресурсов для полного вывода на экран".Причём этот "глюк" не только у меня на компьютере.Даже не знаю в чём дело.Пожалуйста,напишите мне в чём может быть проблема.

Заране спасибо, Виола

iron priest>> Re: Смещаются картинки в XCEL
2011-03-03 11:15 http://forum.msexcel.ru/profiles/iron_priest-u20725.html
"Недостаточно системных ресурсов для полного вывода на экран".

вчера чуть ноут апстену не швыранул из-за этого сообщения... 2 диаграммы а ему ресурсов не хватает...

по поводу картинок, то в свойствах картинки выберете пункт "не перемещать и не изменять размеры"

nilem>> Re: Выборка значений
2011-03-03 11:33 http://forum.msexcel.ru/profiles/nilem-u30547.html
Это происходит скорее всего из-за того, что на др. машинах не установлен контрол Календарь.
Используйте пользовательские календари (в примере сделайте двойной клик по зеленому диапазону).
А не лучше вручную записывать дату (см. в архиве)?
 

Ambioz>> Re: выпадающий список с автоматическим заполнением ячеек выбранной строки
2011-03-03 12:55 http://forum.msexcel.ru/profiles/ambioz-u74463.html
По-моему во вложении один вариант - сводная таблица, только в разных форматах xls и xlsx. А что за "Тяжёлый" , но одной формулой ?

marsel_xm>> Re: Выборка значений
2011-03-03 13:27 http://forum.msexcel.ru/profiles/marselxm-u72117.html
Это происходит скорее всего из-за того, что на др. машинах не установлен контрол Календарь.
Используйте пользовательские календари (в примере сделайте двойной клик по зеленому диапазону).
А не лучше вручную записывать дату (см. в архиве)?
 
Была другая ошибка, поскольку не было библиотеки календарь11, установил библиотеку так как на своей машинке, и стало выдавать у них Automation error  при нажати на любую ячейку листа Ввод пациента.
Дату думаю лучше с календарём вводить...

в переносе данных
.Cells(2, 1) = "Фамилия" 'Непонимающий
это для того что в столбце А она не пустовала, поскольку
lRow = Application.CountA(.Range("A:A")) + 1

я так понял считает все не пустые строки, а если Cells(2, 1) пустая, то она перезапишет последнюю строку, не сообразил как сделать счетчик с А4....

Далее DelOld ()  удаляет записи старше 20-ти дней...
А в целом спасибо, буду разбираться...только не понятно в чем разница
If Target.Addre...

nilem>> Re: Выборка значений
2011-03-03 14:54 http://forum.msexcel.ru/profiles/nilem-u30547.html
If Target.Address(0, 0) = "B5" Then Call DocTime
и
If Not Intersect(Range("B5"), Target) Is Nothing Then DocTime
никакой разницы. Просто с Address вроде покороче.

Михаил С.>> Re: Вывод даты по найденному последнему значению.
2011-03-03 15:04 http://forum.msexcel.ru/profiles/mihail_s-u26973.html
А вот если дальше развивать эту тему, к примеру, чтобы в ячейке, где проставляется новая дата, она автоматически заливала цвет ячейки по цвету последнего числа, ну напр. если 1 - цвет новой даты бирюзовый, 4 - цвет красный и т.д.
чет я не очень понял пожелание.... А ячейки каким образом окрашиваются?

Serge 007>> Re: выпадающий список с автоматическим заполнением ячеек выбранной строки
2011-03-03 16:14 http://forum.msexcel.ru/profiles/serge_007-u25260.html
Я теперь обречён что-ли всегда при решении выделять ячейки с формулами жёлтым цветом и линиями? В файле (любом из двух) всего 18 заполненных ячеек (из них 12 - пример исходной таблицы). Это как надо смотреть что-бы их не найти?
Тупо потыкать во все - займёт меньше минуты, через F5-Выделить-формулы- вообще секунда...

ЗЫ Специально сохранил в двух форматах, что бы [url=http://msexcel.ru/content/view/34/2/]_сводные_[/url] работали у всех.


dronnet>> Re: Сортировка буквенно-числовых данных с расширением списка
2011-03-03 16:34 http://forum.msexcel.ru/profiles/dronnet-u74053.html
Фууу...еле разобрался, выскакивала надпись "He yдaeтcя выпoлнить мaкpoc "'1.xlsm'!UDSort". Boзмoжнo, этoт мaкpoc oтcyтcтвyeт в тeкyщeй книгe либo вce мaкpocы oтключeны."

В общем заработало.

Спасибо, сам бы никогда бы не разобрался.

Ambioz>> Re: выпадающий список с автоматическим заполнением ячеек выбранной строки
2011-03-03 16:58 http://forum.msexcel.ru/profiles/ambioz-u74463.html
Serge 007
Извини, не хотел своим вопросом огорчить тебя. Я не силен  в excel, даже F5-Выделить-формулы - для меня новшество, но постараюсь потыкать во все, попробую разобраться (завтра). Если что, извини, опять задам вопрос, думаю для того форум и создан. По поводу Специально сохранил в двух форматах, что бы _сводные_ работали у всех. - в excel 2003 файл .xsl ругается, говорит, что сводная таблица сделана в более поздней версии.

Serge 007>> Re: выпадающий список с автоматическим заполнением ячеек выбранной строки
2011-03-03 17:11 http://forum.msexcel.ru/profiles/serge_007-u25260.html
...ругается, говорит, что сводная таблица сделана в более поздней версии.
Ambioz, а вот за это спасибо, второпях я действительно не заметил, что я сводную в 2007 сделал.
Во вложении эксклюзивный файлик для Вас. Там всё понятно будет. И сводная в 2003 заработает :-)

Redoza>> Множественное ЕСЛИ?
2011-03-03 18:45 http://forum.msexcel.ru/profiles/redoza-u74502.html
Задача:
В ячейке а1 может быть цифра от 1 до 9. Нужно, чтобы в ячейке b1 подставлялись различные цифры в зависимости от значения в ячейке а1.
Например, если в а1 - 1, то в b1 должно быть 20, если в а1 - 2, то в b1 16 и т.д. Как это сделать?

iron priest>> Re: Множественное ЕСЛИ?
2011-03-03 19:43 http://forum.msexcel.ru/profiles/iron_priest-u20725.html
для B1 =ПРОСМОТР(A1;B2:F2;B3:F3)

где B2:F2 - массив данных которые вы будете вводить в А1
B3:F3 - массив данных, которые будут подставлены в В1 для А1

надеюсь понятно

vladturbo>> Компонент Microsoft Map более недоступен в Microsoft Excel 2003
2011-03-03 20:44 http://forum.msexcel.ru/profiles/vladturbo-u56826.html
Добрый вечер.
На одном компьютере создал макросы, (в Excel 2003)макросы управляются элементами управления (кнопками).
Перенес файл на другой компьютер, установлен то-же Excel 2003, при попытке активировать элемент управления выдаётся сообщение Компонент Microsoft Map более недоступен в Microsoft Excel 2003.

Что это и как с этим бороться?



skrudg_007>> Re: Максимальное,Минимальное,Среднее значение из таблицы
2011-03-03 21:37 http://forum.msexcel.ru/profiles/skrudg007-u24182.html
Большое спасибо за помощь. только вот на яблоках получилось, а на конкретном примере ни как выходит.пример прилагается

Prist>> Re: Компонент Microsoft Map более недоступен в Microsoft Excel 2003
2011-03-03 21:57 http://forum.msexcel.ru/profiles/prist-u4859.html
Ответил здесь, а тут продублирую:
А как этот компонент вообще попал в файл? Ведь он в 2003 вообще не поддерживается. Кажется последняя версия, в которой он был доступен - 2002. Следовательно файл создавался в нем либо более ранней версии, в которых был еще доступен.

Mr.Plyushkin>> Поиск данных по трем параметрам
2011-03-03 22:37 http://forum.msexcel.ru/profiles/mrplyushkin-u74517.html
Уважаемые форумчане, просьба помочь
Имеются 2 почти одинаковые по содержанию таблицы. В исходной есть 4 столбца: компания, лимит, дата договора и задолженность.
Вторая таблица содержит все данные из первой страницы кроме задолженности (но строки перемешаны).
Задача найти задолженность при совпадении имени компании, лимита и даты договора вывести задолженность из первой таблицы.

Спасибо за помощь!

Redoza>> Re: Множественное ЕСЛИ?
2011-03-03 22:39 http://forum.msexcel.ru/profiles/redoza-u74502.html
Все понятно, все работает, огромное спасибо!

ZORRO2005>> Re: Поиск данных по трем параметрам
2011-03-04 00:00 http://forum.msexcel.ru/profiles/zorro2005-u4225.html
Mr.Plyushkin,
см. вложение

ZORRO2005>> Re: Максимальное,Минимальное,Среднее значение из таблицы
2011-03-04 00:05 http://forum.msexcel.ru/profiles/zorro2005-u4225.html
skrudg_007,
потому что нет яблок.

_Boroda_>> Re: Максимальное,Минимальное,Среднее значение из таблицы
2011-03-04 00:52 http://forum.msexcel.ru/profiles/boroda-u12234.html
Там еще ИТОГО исключить нужно.

Mr.Plyushkin>> Re: Поиск данных по трем параметрам
2011-03-04 09:21 http://forum.msexcel.ru/profiles/mrplyushkin-u74517.html
Mr.Plyushkin,
см. вложение
Супер! спасибо большое!

olimpus>> Re: EXEL end server
2011-03-04 10:52 http://forum.msexcel.ru/profiles/olimpus-u4596.html
Спасибо Улыбка

marsel_xm>> Re: Выборка значений
2011-03-04 12:48 http://forum.msexcel.ru/profiles/marselxm-u72117.html
If Target.Address(0, 0) = "B5" Then Call DocTime
и
If Not Intersect(Range("B5"), Target) Is Nothing Then DocTime
никакой разницы. Просто с Address вроде покороче.
все не могу понять в чем разница между вводом календаря(который вы предложили, в свою книгу я ее добавил, правда время убрал) и ручным вводом, при сравнении не совпадают Грустный
то есть x(i, 2) = [b14] не выполняется, "=" свойства какие то проверяет?
вариант обхода я нашел только в вводе всех дат с календаря... но как запуск по двойному щелчку распространить на другие ячейки? (может как нибудь присвоить имя этим ячейкам общее)
If Intersect(Target, Range("B4")) Is Nothing Then Exit Sub

skrudg_007>> Re: Максимальное,Минимальное,Среднее значение из таблицы
2011-03-04 12:55 http://forum.msexcel.ru/profiles/skrudg007-u24182.html
Спасибо, в спешке до конца не изложил свою мысль, извеняюсь. В итоговой таблице в столбце "Новые клиенты" я попытался сложить значения для отдельного каждого ID, у меня получилось, только при условии заполнения пустых строк на термин к примеру "пробел", хотя при этом первоначальная форма придусматривает пустоту в этих строках.
Цель увидеть макс.мин.ср.значение по признаку "Новые клиенты" для отдельного каждого ID.


Sergey112233>> счет строк диапазона с форматом текстовый
2011-03-04 13:54 http://forum.msexcel.ru/profiles/sergey112233-u57126.html
Уважаемые форумчане.
Помогите, пожалуйста с таким вопросом.
В столбце помещены цифры. Но формат установлен текстовый, т.к. перед цифрами с 1 до 9 нужно проставить ноль. 01213, 02213 и т.д.

[code]Dim rng As Range
Dim Min As Variant, Max As Variant
Dim I As Integer, nColumn As Integer, nRow As Integer
 
  nRow = 1
  nColumn = 1
  With ActiveSheet.UsedRange
MyUsedRange = .Address
nUsedRows = .Rows.Count
nUsedCols = .Columns.Count
LastRow = .Rows(nUsedRows).Row
lastCol = .Columns(nUsedCols).Column
End With

  Set rng = Range(Cells(lastCol, lastCol), Cells(LastRow, lastCol))
      Max = rng.Cells(1)
      For I = 1 To rng.Count
          If rng.Cells(I) > Max Then
             Max = rng.Cells(I)
          End If
       Next I
    Max1 = Left(Max, Len(Max) - 3) 'Левая часть номера
    Max1 = Max1 + 1 'к номеру прибавить 1
    Max2 = Right(Max, 3) 'Код исполнителя - правая часть номера
    Max = Max1 & Max2 'новый номер СП
    Debug.Print Max
      Cells(LastRow + 1, nRow) = CStr(Max)[/code...

newands>> Re: Вывод даты по найденному последнему значению.
2011-03-04 14:35 http://forum.msexcel.ru/profiles/newands-u73145.html
К примеру (см.прикрепленный файл) ячейка E4(F4) окрашивалась в бирюзовый цвет (по цвету ячейки O4), ячейка E5(F5) окрашивалась в зеленый цвет (по цвету ячейки J5), ячейка E9(F9) окрашивалась в красный цвет (по цвету ячейки I5),

litera>> Re: Максимальное,Минимальное,Среднее значение из таблицы
2011-03-04 14:47 http://forum.msexcel.ru/profiles/litera-u38128.html
Вот так, примерно

Алексей Шмуйлович>> Re: Создать документы на основании объемного файла
2011-03-04 18:34 http://forum.msexcel.ru/profiles/alexshm-u64.html
Создайте файл-пример. Заполните условными фамилиями, условными суммами. Паспортные данные удалите. Абстрактно говорить нет смысла. Только можно подсказать почитать статьи по сводным таблицам и функции [url=http://msexcel.ru/content/view/20/2/]ВПР(_)[/url].

nilem>> Re: Выборка значений
2011-03-04 19:35 http://forum.msexcel.ru/profiles/nilem-u30547.html
Смотрим процедуры с пометкой ***new. Sub DelOld() запускается из В14 - это просто для примера.

iron priest>> Re: Создать документы на основании объемного файла
2011-03-04 20:18 http://forum.msexcel.ru/profiles/iron_priest-u20725.html
увы, данные персональные. за разглашение меня могут уволить.

кому они здесь нада

Strannik>> Принудительное выполнение Private Sub Workbook_Open() открытой книги
2011-03-04 21:24 http://forum.msexcel.ru/profiles/strannik-u8938.html
Уважаемые знатоки.
Подскажите, пожалуйста, как программно выполнить макрос Private Sub Workbook_Open() уже открытой книги.
Существует метод Workbook.RunAutoMacros, но я так и не понял, для чего он и как используется.  В замешательстве
Спасибо.

_Boroda_>> Re: Принудительное выполнение Private Sub Workbook_Open() открытой книги
2011-03-04 22:05 http://forum.msexcel.ru/profiles/boroda-u12234.html
Можно переписать макрос из Опена в обычный модуль, а в Опен поставить Ран.Имя_макроса

Strannik>> Re: Принудительное выполнение Private Sub Workbook_Open() открытой книги
2011-03-04 23:10 http://forum.msexcel.ru/profiles/strannik-u8938.html
Можно переписать макрос из Опена в обычный модуль, а в Опен поставить Ран.Имя_макроса
В том-то и дело, что нужно запустить именно Workbook_Open уже открытой книги. Этот вопрос продолжение ранее заданного мной в теме "Надстройка для автоматической обработки любого открытого файла". Когда теряется переменная WBVar (см. пример), перестают работать и остальные макросы, пока WBVar не будет снова определена.

sergo44441>> Создание пользовательской функции
2011-03-05 06:49 http://forum.msexcel.ru/profiles/sergo44441-u3995.html
Доброго дня,уважаемые знатоки. Помогите пожалуйста с такой рабочей задачей, нужно посчитать итоговое выполнение плана, сейчас считается отношение суммы планов по товарам к сумме фактов, планы стоят не по всем группам, получается не совсем правильно, группы стоят в неокрашенных ячейках, думаю, лучше бы считать по группам товаров, где проставлены планы

Prist>> Re: Принудительное выполнение Private Sub Workbook_Open() открытой книги
2011-03-05 10:58 http://forum.msexcel.ru/profiles/prist-u4859.html
Что за цель преследуется? Может вот это чем-то поможет.


marsel_xm>> Re: Выборка значений
2011-03-05 11:15 http://forum.msexcel.ru/profiles/marselxm-u72117.html
Смотрим процедуры с пометкой ***new. Sub DelOld() запускается из В14 - это просто для примера.
Спасибо большое))

skrudg_007>> Re: Максимальное,Минимальное,Среднее значение из таблицы
2011-03-05 14:26 http://forum.msexcel.ru/profiles/skrudg007-u24182.html
Дело в том что, когда  я начинаю увеличивать диапазон в формуле (достаточно просто установить курсор) то вместо результата получается #ЗНАЧ!. В чем дело понять не могу. Начинаю отдельно составлять фор-лу по образцу, так же не получается, в чем заключается хитрость?

Serge 007>> Re: Максимальное,Минимальное,Среднее значение из таблицы
2011-03-05 14:34 http://forum.msexcel.ru/profiles/serge_007-u25260.html
...в чем заключается хитрость?
По окончании составления формулы надо жать Ctrl+Shift+Enter вместо привычного Enter.

skrudg_007>> Re: Максимальное,Минимальное,Среднее значение из таблицы
2011-03-05 15:53 http://forum.msexcel.ru/profiles/skrudg007-u24182.html
Я признателен, все получилось. Результат достигнут.

_Boroda_>> Re: Создание пользовательской функции
2011-03-05 17:53 http://forum.msexcel.ru/profiles/boroda-u12234.html
А так:
=СУММЕСЛИ(B5:B7;">0";C5:C7)/СУММ(B5:B7)

GWolf>> Как повторно запустить элемент в ListBox
2011-03-05 18:38 http://forum.msexcel.ru/profiles/gwolf-u4652.html
Доброй ночи, коллеги!
Создал книгу, с листом-заголовком, на ярлычке написал: ("_"). Разместил на нем Элемент управления ListBox. В книге есть листы с шаблонами заявок. Набор шаблонов, по замыслу, может быть пополнен. При каждом запуске книги, макрос просматривает имена листов и если <> "_", то пишет их в ListBox: - имя листа (словоформа английскими буквами) и текст из .Cells(2,1).Text листа (название шаблона). При клике на строке в ListBox, осуществляется переход на лист выбранного шаблона. Возврат по стрелке на листе шаблона - "на Главную ...". Это нужно для навигации по книге, т.к. в рабочей версии  предполагается ярлычки листов скрыть.

Проблема в том, что неполучается повторный выбор и соответственно переход на лист шаблона: - только если был выбран и осуществлен переход на другой лист. Как исправить ситуацию?

Отдельное спасибо Ув. ШД за код.

VladK>> Как суммировать значения ячеек, в зависимости от данных в соседних ячейках
2011-03-05 19:19 http://forum.msexcel.ru/profiles/vladk-u9937.html
Здравствуйте!
В первом столбце значения, во втором, напротив значений, стоят различные буквы. Как выглядит формула, которая будет суммировать значения первого столбца, в зависимости от буквы напротив значений. Например нужна сумма всех значений из первого столбца, напротив которых стоит буква "Е" и т.п.


Спасибо за ответ!

Strannik>> Re: Принудительное выполнение Private Sub Workbook_Open() открытой книги
2011-03-05 19:56 http://forum.msexcel.ru/profiles/strannik-u8938.html
Что за цель преследуется? Может вот это чем-то поможет.


Спасибо. Именно так все сейчас и работает. Однако, есть две проблемы:
1. По непонятной причине в последнее время при загрузке Excel WorkBook_Open () надстройки не выполняется. Вот код.
Private WithEvents WBApp As Application
Private WithEvents Shee As Worksheet

Private Sub Workbook_Open()
    Set WBApp = Application
    Set Shee = WBApp.ActiveSheet
End Sub

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

2. Если по какой-то причине потребуется выполнить Set WBApp = Application. Вот я и хочу повесить в меню кнопку перегружающую WorkBook_Open.

Может я что не правильно понимаю и можно сделать как-то иначе, подскажите пожалуйста....

TimSha>> Re: Как суммировать значения ячеек, в зависимости от данных в соседних ячейках
2011-03-05 20:05 http://forum.msexcel.ru/profiles/timsha-u13313.html
=СУММЕСЛИ(C2:C15;"VladK";B2:B15)
ps Вы иногда F1 пробуете нажать или поиском воспользоваться?

Виктория Зуева>> Re: счет строк диапазона с форматом текстовый
2011-03-05 21:37 http://forum.msexcel.ru/profiles/buka3-u2668.html
Вместо Count() используйте COUNTA()
(по-русски - см. функции СЧЁТ и СЧЁТЗ)
Не понятна из вопроса цель преобразований чисел в текст.
Ведь число 12345 можно преобразовать в вид 012345
просто задав пользовательский (дополнительный) числовой формат:
000000
(значение в ячейке при этом остаётся числовое)



nilem>> Re: Как повторно запустить элемент в ListBox
2011-03-05 22:26 http://forum.msexcel.ru/profiles/nilem-u30547.html
А если попробовать по двойному щелчку?
Private Sub lbx_SpisokForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

aragazan10>> Изменение окончания
2011-03-06 20:56 http://forum.msexcel.ru/profiles/aragazan10-u75068.html
Для натурального числа k напечатать фразу «Мы нашли k грибов в лесу», согласовав окончание слова гриб с числом k.

С.М.>> Re: Изменение окончания
2011-03-06 23:36 http://forum.msexcel.ru/profiles/sm-u19758.html
aragazan10, прикрепил корзину с грибами :


Strannik>> Проверка диапазона на наличие одинаковых FormulaR1C1
2011-03-07 12:36 http://forum.msexcel.ru/profiles/strannik-u8938.html
Доброго времени суток.
Существует диапазон, созданный из таблици А путем ссылок на ячейки таблицы А. Т.к. диапазон большой, использование метода проверки FormulaR1C1 всех ячеек диапазона друг с другом занимает очень много времени.
Как можно быстро проверить диапазон на наличие одинаковых FormulaR1C1.
Спасибо.

derserg>> флажки в строках
2011-03-07 14:40 http://forum.msexcel.ru/profiles/derserg-u75143.html
Создаю таблицу. Каждая строка - новая запись. В каждой записи есть флажок (ну типа заказ готов). Я создаю первую строчку, со всеми форматами, формулами и флажками. Флажки ссылаются на ячейку в этой же строке (где проставляется истина-ложь). Далее - растягиваю эту строку вниз, что бы во всех строках были форматы формулы и флажки. Но вот в чем беда - флажки во всех ячейках ссылаются на одну и ту же ячейку. А не меняются автоматом на строка+1. Сам флажок - не знает к какой ячейке он приписан... Как победить сие?
Во вложении - сама табличка.

Serge 007>> Re: флажки в строках
2011-03-07 15:13 http://forum.msexcel.ru/profiles/serge_007-u25260.html
Как протягивать флажки я не знаю, но как обойтись без них - см. вложение.

Alexandr Zlobin>> обработка элементов на форме
2011-03-07 15:43 http://forum.msexcel.ru/profiles/zlobin-u1684.html
Здравствуйте!
Подскажите, можно ли в цикле например For ecah обрабатывать все элементы на форме : у меня есть 10 textbox, в зависимости от их значений нужно делать какие-то действия.


derserg>> Re: флажки в строках
2011-03-07 15:57 http://forum.msexcel.ru/profiles/derserg-u75143.html
так неудобно ((
мне нужно сделать такую таблицу на много позиций и отправить людям для заполнения. оно для них понятно должно быть, а в таком виде - не то ((

iron priest>> Re: флажки в строках
2011-03-07 16:03 http://forum.msexcel.ru/profiles/iron_priest-u20725.html
тупить файл будет неимоверно изза этих флажков

Sergey112233>> Re: счет строк диапазона с форматом текстовый
2011-03-07 16:13 http://forum.msexcel.ru/profiles/sergey112233-u57126.html
Согласен.
Но здесь особенность дальнейшей нумерации состоит в том, что формат тогда нужно задать на один порядок больше 000000
Тогда получится так 001234. А надо 01234.
Тема все еще актуальна, есть несколько вариантов решения. Пока разбираюсь Улыбка
Спасибо.

kimtan>> Re: флажки в строках
2011-03-07 16:23 http://forum.msexcel.ru/profiles/kimtan-u12219.html
Сергей, на самом деле флажки легко копируются вместе с ячейками, если они из панельки "Элементы управления форм"
derserg, а такой вариант не подойдет Вашим людям?

iron priest>> Re: счет строк диапазона с форматом текстовый
2011-03-07 16:25 http://forum.msexcel.ru/profiles/iron_priest-u20725.html
а вот такой формат не нравится Улыбка

0########################

_Boroda_>> Re: Проверка диапазона на наличие одинаковых FormulaR1C1
2011-03-07 16:48 http://forum.msexcel.ru/profiles/boroda-u12234.html
Для 2003 - Сервис-Параметры_Проверка ошибок - ставим галку "Несогласующаяся формула в области"
Для 2007/2010 - Файл (кнопка в левом верхнем углу) - Парамтры Excel - Формулы - Контроль ошибок - ставим галку "Включить фоновый поиск ошибок", Правила контроля ошибок - ставим галки "Несогласованная формула в вычисляемом столбце таблицы" и "Формлы, несогласованные с остальными формулами в области".

nilem>> Re: обработка элементов на форме
2011-03-07 16:56 http://forum.msexcel.ru/profiles/nilem-u30547.html
Вот для примера:
Код:
Dim ctrl As Control
For Each ctrl In Me.Controls
    If TypeOf ctrl Is MSForms.TextBox Then
        ctrl.Text = "abc"
        'что-то делаем
    End If
Next ctrl

Dim i As Integer
For i = 1 To 10
    If Me.Controls("Textbox" & i).Text = "abc" Then
        MsgBox i
        'что-то делаем
    End If
Next i


Alexandr Zlobin>> Re: обработка элементов на форме
2011-03-07 17:04 http://forum.msexcel.ru/profiles/zlobin-u1684.html
Большое спасибо!

derserg>> Re: флажки в строках
2011-03-07 17:16 http://forum.msexcel.ru/profiles/derserg-u75143.html
флажки то копируются. но ссылаются они все равно на одну и ту же ячейку.
спасибо за этот вариант, подумаю над его использованием )

igroker>> счет
2011-03-07 18:05 http://forum.msexcel.ru/profiles/igroker-u16650.html
Обращаюсь к спецам
есть колонка цифра  в которую каждый  день вносится новое число
подсчитать количество подряд  если числа  больше ноля пока не появится отрицательное число
 

прилагаю пример


С.М.>> Re: флажки в строках
2011-03-07 18:21 http://forum.msexcel.ru/profiles/sm-u19758.html
Вариант с "флажками", но не CheckBox'ами :


iron priest>> Re: счет
2011-03-07 18:21 http://forum.msexcel.ru/profiles/iron_priest-u20725.html
сколько должно быть для строк с 2 по 7?

igroker>> Re: счет
2011-03-07 18:39 http://forum.msexcel.ru/profiles/igroker-u16650.html
каждый день новая строка с новым числом
счетчик считает количество совпадений три дня подряд пошли положительные числа   допустим пошло  на следующий день  опять положительное счетчик уже считает что уже  счет  4  и считает пока   не появится отрицательные числа  пошли положительные опять
начинает отсчет с нуля опять
тоже за самое  желательно считать   для отрицательных чисел
 мне важно подряд  сколько идут положительных чисел а не общее количество  положительных чисел
 

_Boroda_>> Re: счет
2011-03-07 18:41 http://forum.msexcel.ru/profiles/boroda-u12234.html
Так?

igroker>> Re: счет
2011-03-07 19:08 http://forum.msexcel.ru/profiles/igroker-u16650.html
работает правда мне совсем понятна формула
ПОИСКПОЗ(0;D$1:D49;-1)-1     вроде считаем положительные числа 
а можно  написать  для подсчета  отрицательных чисел

ZORRO2005>> Re: счет
2011-03-07 21:58 http://forum.msexcel.ru/profiles/zorro2005-u4225.html
а можно  написать  для подсчета  отрицательных чисел
=ПОИСКПОЗ(1;ЗНАК(D2:D46);0)-1
[abbr=Вводится через Ctrl+Shift+Enter]формула массива[/abbr]

Strannik>> Re: Проверка диапазона на наличие одинаковых FormulaR1C1
2011-03-07 23:53 http://forum.msexcel.ru/profiles/strannik-u8938.html
Для 2003 - Сервис-Параметры_Проверка ошибок - ставим галку "Несогласующаяся формула в области"
Для 2007/2010 - Файл (кнопка в левом верхнем углу) - Парамтры Excel - Формулы - Контроль ошибок - ставим галку "Включить фоновый поиск ошибок", Правила контроля ошибок - ставим галки "Несогласованная формула в вычисляемом столбце таблицы" и "Формлы, несогласованные с остальными формулами в области".

Спасибо за совет, но этот вариант, к сожалению, не спасает. В приложении картинка существующего документа. Там пары ячеек А67-В68, В67-С68, С67-D68, D67-E58 ссылаются на одну и ту-же ячейку - что не допустимо. Такие ошибки мне и нужно отследить. Я надеялся, что есть метод, позволяющий сравнивать не значения ячеек а их формулы. Может, через [url=http://msexcel.ru/content/view/116/2/]условное_форматирование[/url] как-то можно...

sergo44441>> Re: Разъяснение функций выборки
2011-03-08 06:18 http://forum.msexcel.ru/profiles/sergo44441-u3995.html
в этом стиле ссылок непросто ориентироваться, вы выполните этот макрос и посмотрите, какая формула будет в ячейке а2, суть ее в том , что мы проверяем если ли значение одной ячейки в другой, и в зависимости от ответа, возвожны два вариатта значения

sergo44441>> Подскажите, пожалуйста, как задается цвет образца в формате ячейки
2011-03-08 06:23 http://forum.msexcel.ru/profiles/sergo44441-u3995.html
обрабатываю отчеты по продажам, порой только цвет или начртание шрифта позволяет отделить торговую точку от написания продукта. Пример во вложенном файле

Serge 007>> Re: Подскажите, пожалуйста, как задается цвет образца в формате ячейки
2011-03-08 09:12 http://forum.msexcel.ru/profiles/serge_007-u25260.html
А что надо сделать-то?

Antonynsk>> Можно ли сохранить таблицу размера А2,1,0 в формате pdf?
2011-03-08 10:05 http://forum.msexcel.ru/profiles/antonynsk-u50298.html
при сохренении в 2007-м эксэле она сохраняется постранично в пдфском файле.
а можно ли сохранить одним большим листом (как в Автокаде к примеру)?

Или можно как-то пересохранить (скопировать таблицу в другое приложение) в другой какой-то формат, а из него уже в пдф на один лист?

iron priest>> Re: Можно ли сохранить таблицу размера А2,1,0 в формате pdf?
2011-03-08 10:24 http://forum.msexcel.ru/profiles/iron_priest-u20725.html
при печати в пдф укажыте размер бумаги А2 и все

iron priest>> Re: Подскажите, пожалуйста, как задается цвет образца в формате ячейки
2011-03-08 10:58 http://forum.msexcel.ru/profiles/iron_priest-u20725.html
эт точно, я тоже не понял

In4es>> Re: Удаление пустых столбцов в таблице
2011-03-08 11:42 http://forum.msexcel.ru/profiles/in4es-u70134.html
Дело в том, что потом эти таблицы надо печатать. Наверное плохо, если они будут с кнопками "Скрыть пустые" и "Показать" печататься

Kim>> Как отключить автоформат и побороть UTF-8?
2011-03-08 11:56 http://forum.msexcel.ru/profiles/kim-u75230.html
Столкнулся с проблемой. Раньше не приходилось работать с форматом CSV.
Есть файл с табличными данными CSV формата.  Возможность его генерации есть как в UTF-8 так и в Windows 1251.
Собственно вопросы:
1. Какие разделители лучше использовать при генерации файла для разделителя полей(запятая, точка с запятой, двоеточие) и разделителя текста (кавычки, одинарные кавычки). В скобках указанны доступные на данное время варианты.
2. Возможно ли нормально открыть такой файл в UTF-8 кодировке, чтобы кириллица была не кракозяблами? При открытии в Windows 1251 кодировке кириллица нормально читается и отображается.
3. При открытии файла некоторые цифровые данные АВТОМАТОМ переводятся в различные форматы(например "дата"), при этом порой не реально понять какие данные были до конвертации. Как это отключить?

Заранее спс за помощь.

Serge 007>> Re: Удаление пустых столбцов в таблице
2011-03-08 12:03 http://forum.msexcel.ru/profiles/serge_007-u25260.html
Вот тут галку не ставьте.

mike38>> Re: Решить графически систему уравнений
2011-03-08 13:37 http://forum.msexcel.ru/profiles/mike38-u75236.html
Вышлите мне ответ этого задания

vutaly>> Список в ComboBox, не используя данных из таблицы.
2011-03-08 14:40 http://forum.msexcel.ru/profiles/vutaly-u74440.html
Добрый день. Ни как не получается создать список в Combo не используя при этом данных из документа.

sergo44441>> Re: Подскажите, пожалуйста, как задается цвет образца в формате ячейки
2011-03-08 15:13 http://forum.msexcel.ru/profiles/sergo44441-u3995.html
Например, такой отчет мне нужно привести к виду
менеджер торговая точка продукт количество
ячейки отличаются лишь цветом образца
как в данном случае прописать условия в макросе?

nilem>> Re: Подскажите, пожалуйста, как задается цвет образца в формате ячейки
2011-03-08 16:32 http://forum.msexcel.ru/profiles/nilem-u30547.html
Если отличие только в заливке, то вот вариант.
Нужно будет указать образец ячеек для менеджера, торг. точки и продукта.
Начинаем по зеленой стрелке.

nilem>> Re: Список в ComboBox, не используя данных из таблицы.
2011-03-08 16:39 http://forum.msexcel.ru/profiles/nilem-u30547.html
Типа такого, наверное:
Код:
Sub ExampleAdd()
    Dim i As Integer
    '   Проверка, что свойство RowSource пусто
    UserForm1.ComboBox1.RowSource = ""
    '   Добавление элементов списка
    For i = 1 To 12
        UserForm1.ComboBox1.AddItem "Элемент #" & i
    Next i
'    '  или так
'    With UserForm1.ComboBox1
'        .AddItem "Элемент 8"
'        .AddItem "Элемент 456"
'        .AddItem "Элемент 12"
'    End With
    UserForm1.Show
End Sub


vutaly>> Re: Список в ComboBox, не используя данных из таблицы.
2011-03-08 18:20 http://forum.msexcel.ru/profiles/vutaly-u74440.html
большое спасибо! попробуем.

С.М.>> Re: Решить графически систему уравнений
2011-03-08 20:02 http://forum.msexcel.ru/profiles/sm-u19758.html
Вышлите мне ответ этого задания
Высылаю: x = 0,6873


На форуме Вы можете получить совет по любым вопросам работы в Microsoft Excel.

Добро пожаловать на форум!


В избранное