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

ZORRO2005>> Re: [url=http://msexcel.ru/content/view/116/2/]условное_форматирование[/url] с повтояющимися данными


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

Выпуск 18
от 2012-10-26

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

Рассылка сайта "Профессиональные приемы работы в 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"



ZORRO2005>> Re: [url=http://msexcel.ru/content/view/116/2/]условное_форматирование[/url] с повтояющимися данными
2012-10-18 15:07 http://forum.msexcel.ru/profiles/zorro2005-u4225.html

Цитата: ZORRO2005[/quote
Не может быть. Где доказательства?


1k0naMys+>> Макрос Переноса данных
2012-10-18 16:10 http://forum.msexcel.ru/profiles/1k0namys-u154498.html
На одном листе таблица из этой таблицы нужно перенести данные для расчета в квитанции, другой лист. Например в ячейку на листе 2 фиО если на первой странице Новиков Илья Васильевич она должна отобразиться в ячейке A4 "='1'!C5" потом сумма переработки, она относится к "='1'!AS5", потом вычеты они относятся к "='1'!AW5" и так далее,. Все эти данные относятся к строке пять, следующий человек к строке 6 и все те же данные. Вот как макрос прописать я незнаю, пробывал у меня не получилось.

Алгоритм
На листе 2 нажимаю на ячейку A4, в этой ячейке ставлю формулу "='1'!AW5", далее под графой "Сумма переработки" на листе 2 ставлю "='1'!AS5", далее аналогично под графой "Вычеты"
ставлю "='1'!AW5", далее под графой "Командировочны" ставлю "='1'!AT5", далее на листе 2 под графой "доплата за а/м
ставлю "='1'!BC5", далее так же на листе 2 под графой Оклад ставлю "='1'!AQ5", далее на листе 2 под графой "Оклад" ставлю "='1'!AQ5", далее под графой авнс на 2 листе ставлю
"='1'!BF5", далее под графой до...

manticor>> Re: [url=http://msexcel.ru/content/view/116/2/]условное_форматирование[/url] с повтояющимися данными
2012-10-18 17:11 http://forum.msexcel.ru/profiles/manticor-u154410.html
Цитата: ZORRO2005[/quote
Не может быть. Где доказательства?
вот рабофий файл, первых людей помечает, но потом около середины спика и в конце не красит(( прихродится искать в списке в 5000 и более(

karlos67>> Сохранить промежуточное значение переменной во время выполнения цикла
2012-10-18 17:15 http://forum.msexcel.ru/profiles/karlos67-u147429.html
Доброго времени суток! Прошу помощи в решении задачи.
Есть таблица из двух колонок: код товара и количество. Необходимо просуммировать количествово товаров по разным группам кодов.
В примере 4 группы товаров: группа 1 (товары с кодами 1, 2, 4, 9), группа 2 (125, 554, 335) и т.д.
Внес каждую группу кодов товаров в отдельный массив (spisok1-4), а все списки кодов в общий массив списков кодов (spisok_list). Сделал 2 цикла. Внешний перебирает списки кодов, внутренний – коды внутри каждого списка. Строка MsgBox summ последовательно выводит на экран сумму товаров по каждому из 4-х списков кодов, но после каждого цикла значение summ обнуляется.

Вопрос: можно ли как-нибудь сохранить промежуточное значение summ во время работы цикла, например присвоить его какой-нибудь назначаемой в процессе работы цикла переменной? Нужно чтобы после окончания работы цикла все 4 значения суммы (по каждой группе кодов товара) были доступны и к ним можно было обращаться (например summ1, summ2, summ3, ...

Poltava>> Re: Сохранить промежуточное значение переменной во время выполнения цикла
2012-10-18 17:42 http://forum.msexcel.ru/profiles/poltava-u39021.html
Объявите массив с количеством элементов как в масисве spisok_list и присваивайте i-му элементу ему значение summ

karlos67>> Re: Сохранить промежуточное значение переменной во время выполнения цикла
2012-10-18 18:09 http://forum.msexcel.ru/profiles/karlos67-u147429.html
Что-то я не догоняю...

Фуу... вроде дошло...

Sub viborka()
spisok1 = Array(1, 2, 4, 9)
spisok2 = Array(125, 554, 335)
spisok3 = Array(88, 22, 77, 55)
spisok4 = Array(2, 4, 18, 22, 28, 46, 64, 74, 88, 554)
spisok_list = Array(spisok1, spisok2, spisok3, spisok4)
Dim summ_n(3)
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
summ = 0
j = -1
For Each spisok In spisok_list
j = j + 1
i = 2
summ = 0
 For Each kod In spisok
1:
  If kod = Worksheets("Лист1").Cells(i, 1).Value Then
     summ = summ + Worksheets("Лист1").Cells(i, 2).Value
     GoTo 2
  Else
     i = i + 1
      If i > LastRow Then
        GoTo 2
      End If
     GoTo 1
  End If
   GoTo 1
2:
   i = 2
 Next kod
summ_n(j) = summ
Next spisok
End Sub


Poltava>> Re: заполнение таблицы
2012-10-18 18:45 http://forum.msexcel.ru/profiles/poltava-u39021.html
пробуйте листы должны быть в одной книге и называться как в примере активным должен дыть лист перечень.

Moroz33>> Сравнить значения ячеек столбца
2012-10-18 18:56 http://forum.msexcel.ru/profiles/moroz33-u154358.html
Добрый день !
Есть столбец А1 , в нем известный диапазон А1 А100
Нужно сравнить значения А1 А50 А2 А51 и т.д
В случае А1>А50 покрасить ячейки красным цветом условие к другой паре ячеек такое же
Желательно проводить сравнение , когда юзер уже занес значения в ячейки, но это непринципиально.
Я к сожалению в вб совсем не разбираюсь ....
Помогите плиз хотя бы как по циклу прогнать значения и присвоить ячейке переменную .....


Hugo121>> Re: заполнение таблицы
2012-10-18 19:48 http://forum.msexcel.ru/profiles/hugo121-u30647.html
На другом форуме чуть полнее задача раскрыта:
http://www.excelworld.ru/forum/2-2591-1
Но решения пока нет, как и ответа на доп. вопросы.

Hugo121>> Re: Сравнить значения ячеек столбца
2012-10-18 20:52 http://forum.msexcel.ru/profiles/hugo121-u30647.html
Это можно делать условным форматированием - никакой макрос тут не нужен.
Но можно конечно и макрос написать. Но без Вашего файла ответ затянется...

ZORRO2005>> Re: [url=http://msexcel.ru/content/view/116/2/]условное_форматирование[/url] с повтояющимися данными
2012-10-18 21:05 http://forum.msexcel.ru/profiles/zorro2005-u4225.html
manticor,
Как вы думаете, что нужно изменить в формуле условного форматирования, чтобы красились ячейки до 5000 строки, а не до 100-ой?
Код:
=И(СУММ(Ч($D$1:$D$100&$R$1:$R$100=D1&R1))>1;D1<>"")


Moroz33>> Re: Сравнить значения ячеек столбца
2012-10-18 21:33 http://forum.msexcel.ru/profiles/moroz33-u154358.html
файлик
надо сравнение по ячейкам
D6>D40 D7>D41 и т.д.
желательно макрос , народ просто делает гору ошибок при забивании
или просто код перебора в процедуре , [url=http://msexcel.ru/content/view/116/2/]условное_форматирование[/url] работает , но красит тока 1 ячейку из 2

gorushek>> Re: Пронумеровать страницы в листах одной книги и сделать содержание на другом ли
2012-10-18 22:13 http://forum.msexcel.ru/profiles/gorushek-u153635.html
При команде макросу "заполнить содержание" в содержании автоматически меняются номера страниц(при изменении их количества в листах), это нормально, но в самих листах:
- постоянно стоит одна и та же "страница отчета"
-  внутри листа не меняется "лист отчета" при изменении страниц в листах, т.е не изменяется общий счет отчета на листах
я попробовал изменить стандартными инструментами колонтитулов ""страница" и "номер страниц" записи "номер страницы" и "всего страниц протокола" в листе "изол", но он считает будто в листе 5 страниц, хотя в нем 2 листа?
Распечатать отдельную страницу в листе бывает нужно, т.к листы могут доходить до 50 страниц.
Этот документ сохранять только с поддержкой макросов?
Будет ли документ работать в excel 2003? 2007?

Hugo121>> Re: Сравнить значения ячеек столбца
2012-10-18 22:31 http://forum.msexcel.ru/profiles/hugo121-u30647.html
Нормально УФ работает. Только я под 2007 намучился его заводить... Грустный
Завёл в 2 строки - парных.

Вадя>> Re: Сохранить стиль сводной таблицы при копировании
2012-10-18 22:36 http://forum.msexcel.ru/profiles/vadya-u153767.html
Где Вы писали?
Я прошу обьяснить на пальцах

Serge 007>> Re: Сохранить стиль сводной таблицы при копировании
2012-10-18 22:43 http://forum.msexcel.ru/profiles/serge_007-u25260.html
Где Вы писали?
Подробно выше изложил. Вы читали тему?
На каждый Ваш вопрос есть ответ

Я прошу обьяснить на пальцах
Именно так и объяснял



Moroz33>> Re: Сравнить значения ячеек столбца
2012-10-19 00:35 http://forum.msexcel.ru/profiles/moroz33-u154358.html
вот потому и хочется на vb кодик  Улыбка
но все равно большое спасибо

Poltava>> Re: Пронумеровать страницы в листах одной книги и сделать содержание на другом ли
2012-10-19 01:12 http://forum.msexcel.ru/profiles/poltava-u39021.html
Цитировать
- постоянно стоит одна и та же "страница отчета"
-  внутри листа не меняется "лист отчета" при изменении страниц в листах, т.е не изменяется общий счет отчета на листах
Это при печати или при просмотре!
Цитировать
я попробовал изменить стандартными инструментами колонтитулов ""страница" и "номер страниц" записи "номер страницы" и "всего страниц протокола" в листе "изол", но он считает будто в листе 5 страниц, хотя в нем 2 листа?
Вы вообще читали что я писал выше! стандартными инструментами колонтитулов это невозможно в принципе!!! Нужно печатать с помощью макросов! завтра на работе попробую но у меня вся нумерация была корректной!
Цитировать
Этот документ сохранять только с поддержкой макросов?
Он сохранен в 2003 формате это автоматически подразумевает его работу в 2003 офисе! ну, а уж если нужно то тогда сохраняем в xlsm поскольку xlsx макросы не поддерживает
Цитировать
Распечатать отдельную страницу в листе бывает нужно, т.к листы могут доходить до 50 страниц.[...


Poltava>> Re: заполнение таблицы
2012-10-19 01:20 http://forum.msexcel.ru/profiles/poltava-u39021.html
Мда лучше бы топик стартер на вопросы хоть на одном из форумов ответил оно и понятней и правильней было бы! мои оба решения на мой взгляд удовлетворяют поставленной задаче!

kriptograff>> Re: Преобразование данных
2012-10-19 04:59 http://forum.msexcel.ru/profiles/kriptograff-u154548.html
приношу свои извинения, у меня на часах 4.00 ночи и уже не совсем соображаю. Вопрос по преобразованих данных, может кто сталкивался:
Есть прайс-лист. в нём порядка 10000 позиций, где каждой присвоен артикул в цифровом формате. (Артикул идет колонкой сверху-вниз). Сменилась немного учетная политика на предприятии и теперь требуется к каждому артикулу вида "001234" добавить префикс "KCN-" что бы артикул имел вид "KCN-001234".  Будьте добры, может кто сталкивался? Как решить задачу?

sergo44441>> Re: Преобразование данных
2012-10-19 08:19 http://forum.msexcel.ru/profiles/sergo44441-u3995.html
сделайте с помощью формулы сцепить
=сцепить("KCN-";A2)
Только лучше создавать свою тему

sergo44441>> Выполнение аксесс-запроса с параметром
2012-10-19 08:25 http://forum.msexcel.ru/profiles/sergo44441-u3995.html
Добрый день. Подскажите, пожалуйста, с таким вопросом. У меня есть запрос, при выполнении которого пользователю предлагается ввести параметр = квадру в данном случае. Можно ли сделать, чтобы квадру можно было выбрать из выпадающего списка?

manticor>> Re: [url=http://msexcel.ru/content/view/116/2/]условное_форматирование[/url] с повтояющимися данными
2012-10-19 09:10 http://forum.msexcel.ru/profiles/manticor-u154410.html
manticor,
Как вы думаете, что нужно изменить в формуле условного форматирования, чтобы красились ячейки до 5000 строки, а не до 100-ой?
Код:
=И(СУММ(Ч($D$1:$D$100&$R$1:$R$100=D1&R1))>1;D1<>"")
приятно получать пинки от асов)).
ZORRO2005, а порекомендуйте какой-нить учебник после котороо также можно на Excel писать)

karlos67>> Re: Сохранить промежуточное значение переменной во время выполнения цикла
2012-10-19 14:23 http://forum.msexcel.ru/profiles/karlos67-u147429.html
Спасибо! Про Option Explicit как раз сегодня утром прочитал. Уже использую.

potishnyy>> Разветвление макроса в зависимости от критерия.
2012-10-19 15:31 http://forum.msexcel.ru/profiles/potishnyy-u154515.html
Здравствуйте! Нужна помощь. Во вложенном файле 3 листа. Собираюсь писать макрос, который будет определенным образом перемещать данные из базы и списывать товар с остатков. Возможно ли сделать так, чтобы в зависимости от присвоенного товару критерия (товар/услуга) макрос в определенном месте разветвлялся и выполнял разные коды для товара и услуг. Может с помощью оператора If? Как это можно реализовать?
Заранее спасибо!

Poltava>> Re: Разветвление макроса в зависимости от критерия.
2012-10-19 16:14 http://forum.msexcel.ru/profiles/poltava-u39021.html
Можно через if можно через Select Case можно разнести в разные процедуры и вызывать нужную, а вообще здесь много материалов по этому поводу

ViktorG>> Excel 2010 и DBF
2012-10-19 16:28 http://forum.msexcel.ru/profiles/viktorg-u22984.html
Кто-то как-то смог сохранить в dbf из этой версии excel. А то что-то такой ответ меня не сильно устраивает:

Читайте справку про saveas метод. FileFormat.

Тем более там написано, что нельзя. (dBase III и IV. Файлы этого формата можно открывать в Microsoft Excel, но сохранять файлы Microsoft Excel в формате dBase нельзя. )
Как быть и что делать пути решения кто-то подскажет. Плачущий

Serge 007>> Re: Excel 2010 и DBF
2012-10-19 16:42 http://forum.msexcel.ru/profiles/serge_007-u25260.html
Читайте здесь

ViktorG>> Re: Excel 2010 и DBF
2012-10-19 16:46 http://forum.msexcel.ru/profiles/viktorg-u22984.html
А с для кодировки 866, что-то есть подобное?

potishnyy>> Re: Разветвление макроса в зависимости от критерия.
2012-10-19 16:50 http://forum.msexcel.ru/profiles/potishnyy-u154515.html
Спасибо)

Serge 007>> Re: Excel 2010 и DBF
2012-10-19 17:03 http://forum.msexcel.ru/profiles/serge_007-u25260.html
Вы думаете что я бесплатный поисковик?
Может одного раза хватит, а дальше сами?

Олег*>> Условное форматирование по формуле
2012-10-19 17:18 http://forum.msexcel.ru/profiles/oleg-u24862.html
Имеется два списка: один просто список, а второй "черный". Требуется с помощью формул условного форматирования выделить те имена в первом списке, которые фигурируют в "черном". Подскажите, пожалуйста, как это сделать.

Я тут замучался. Для одной ячейки вроде бы получилось сделать, но как эту формулу распространить на другие ячейки, сообразить не могу.

Предварительная формула получилась вот такая:

Код:
=ЕСЛИ(НЕ(ЕСЛИОШИБКА(ПОИСКПОЗ(A2;ЧерныйСписок);"не найдено")="не найдено");ИСТИНА)

"Недоделанный" файл примера прилагаю.

P.S. Вроде бы нашел, как формулу "размножить" на другие ячейки:

http://forum.msexcel.ru/microsoft_excel/uclovnoe_formatirovanie_diapazon_dannyh-t363.0.html;msg1816#msg1816

Но уж больно эта формула неуклюжая получилась, да и не уверен я, что она работать будет как надо. Может быть подскажете более оптимальную формулу под эту задачу?

Serge 007>> Re: Условное форматирование по формуле
2012-10-19 17:39 http://forum.msexcel.ru/profiles/serge_007-u25260.html
Необходимо выделить диапазон А2:А10 начиная с А2 и ввести в УФ следующую формулу
Код:
=ЕЧИСЛО(ПОИСКПОЗ(A2;ЧерныйСписок;))


Prist>> Re: Условное форматирование по формуле
2012-10-19 17:56 http://forum.msexcel.ru/profiles/prist-u4859.html
Я думаю, что формула должна быть все же такой:
=НЕ(ЕНД((ПОИСКПОЗ(A2;ЧерныйСписок;0))))

Иначе смысл Черного списка теряется. Просто выделяете сначала нужный диапазон ячеек и задаете правила.

sladeitanium>> Сравнить две переменные и получить кол-чо
2012-10-19 18:01 http://forum.msexcel.ru/profiles/sladeitanium-u154583.html
Доброго времени суток!

Суть в следующем:

В столбце А профессии людей, в столбце В разряд этих людей, а в столбце С мне нужен ИТОГ: количество по условию что профессия совпадает с разрядом
(Профессии к примеру таковы: бетонщик 3 разряда, бетонщик 5 разряда, монтажник)

Жду советов

cheshiki1>> Re: Сравнить две переменные и получить кол-чо
2012-10-19 18:08 http://forum.msexcel.ru/profiles/cheshiki1-u14363.html
Цитировать
мне нужен ИТОГ: количество по условию что профессия совпадает с разрядом
ни чего не понял. Приложите пример (как есть и как хотите чтоб получилось - ручками) может тогда понятней станет.

TimSha>> Re: Excel 2010 и DBF
2012-10-19 18:15 http://forum.msexcel.ru/profiles/timsha-u13313.html
Нормальные герои всегда идут... через Access, как вариант когда он есть, разумеется. Связь с файлом (листом) XL, открыть, внешние данные, экспорт, дополнительно и там!..

sladeitanium>> Re: Сравнить две переменные и получить кол-чо
2012-10-19 18:37 http://forum.msexcel.ru/profiles/sladeitanium-u154583.html
Прикрепляю пример

iron priest>> Re: Сравнить две переменные и получить кол-чо
2012-10-19 18:41 http://forum.msexcel.ru/profiles/iron_priest-u20725.html
в С408

=СУММПРОИЗВ(($B$2:$B$406=A408)*($C$2:$C$406=3))

_Boroda_>> Re: Условное форматирование по формуле
2012-10-19 20:10 http://forum.msexcel.ru/profiles/boroda-u12234.html
Код:
=ЕЧИСЛО(ПОИСКПОЗ(A2;ЧерныйСписок;))
или
Код:
=НЕ(ЕНД((ПОИСКПОЗ(A2;ЧерныйСписок;0))))
А какая в данном случае разница?
 
Предложу еще формулу
Код:
=СУММ(-(A2=ЧерныйСписок))


Poltava>> Re: заполнение таблицы
2012-10-19 21:06 http://forum.msexcel.ru/profiles/poltava-u39021.html
Опробуем навыки телепатии Улыбка Добавил округление (как я понял), а также сделал так чтоб ексель не разрывал записи на разные листы, теперь на странице всегда четко 7 позицый

Олег*>> Re: Условное форматирование по формуле
2012-10-19 21:59 http://forum.msexcel.ru/profiles/oleg-u24862.html
Serge 007, Prist, _Boroda_

Большое спасибо! Все работает как надо!

На самом деле, как правильно подметил Serge007 , я изначально действовал неправильно, т.е. сначала хотел вставить формулу в одну ячейку, а потом "распространить" ее на весь диапазон.

Poltava>> Re: Список файлов в папке
2012-10-19 22:12 http://forum.msexcel.ru/profiles/poltava-u39021.html
Еще можете здесь покопать Надстройка для загрузки списка файлов на лист Excel

Serge 007>> Re: Условное форматирование по формуле
2012-10-19 23:01 http://forum.msexcel.ru/profiles/serge_007-u25260.html
...как правильно подметил Serge007 , я изначально действовал неправильно, т.е. сначала хотел вставить формулу в одну ячейку, а потом "распространить" ее на весь диапазон.
Олег, можно и так и так Улыбка

Я написал как я делаю, мне так удобно, но можно и так:
Выделяем ячейку А2 и в УФ пишем формулу, любую из предложенных выше (ещё один вариант: =СЧЁТЕСЛИ(ЧерныйСписок;A2))
Потом копируем ячейку А2, выделяем диапазон в котором надо иметь УФ (в данном случае это А2:А10) - [abbr=клик правой кнопкой мыши]ПКМ[/abbr] -  Спец. вставка - Форматы - ОК
Аналогично можно воспользоваться функцией Формат по образцу ("Метёлка" со вкладки Главная - группа Буфер обмена)

Poltava>> Re: Скрытие определенных строк при установке флажка
2012-10-19 23:05 http://forum.msexcel.ru/profiles/poltava-u39021.html
Возможно так подойдет

Вадя>> Re: Сохранить стиль сводной таблицы при копировании
2012-10-19 23:26 http://forum.msexcel.ru/profiles/vadya-u153767.html
Вы написали что есть обходные варианты, но их не раскрыли. Поделитесь пожалуйста Обеспокоенный

graff-spb>> Re: заполнение таблицы
2012-10-20 00:06 http://forum.msexcel.ru/profiles/graffspb-u154451.html
Уважаемый полтава, прощу прощения что не отвечал, по работе загрузили и бл в далеке от ноута, файл посмотрел, округление не совсем верное, т.е. если в графу заноситься к примеру 326158,54 то в конечном файле это должно выглядеть как 326

graff-spb>> Re: заполнение таблицы
2012-10-20 00:08 http://forum.msexcel.ru/profiles/graffspb-u154451.html
Уважаемые форумчане, спасибо Вам за помощь, кто-то из Вас уже помог мне написав на мыло нужный вариант!!! Спасибо Вам за вашу отзывчивость!!! :Улыбка

Serge 007>> Re: Сохранить стиль сводной таблицы при копировании
2012-10-20 00:16 http://forum.msexcel.ru/profiles/serge_007-u25260.html
Вы написали что есть обходные варианты...
Дайте ссылку на пост, в котором я это написал

Poltava>> Re: заполнение таблицы
2012-10-20 00:22 http://forum.msexcel.ru/profiles/poltava-u39021.html
Мой вариант


graff-spb>> Re: заполнение таблицы
2012-10-20 00:31 http://forum.msexcel.ru/profiles/graffspb-u154451.html
...кто-то из Вас уже помог мне написав на мыло нужный вариант!!!
Видимо это Hugo
Могли бы и уточнить кто Вам помог, некрасиво как-то писать "...кто-то из Вас..." после общения в личке...

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

Slava VVV>> Привязать кнопку к копированию ячеек на другой лист
2012-10-20 03:11 http://forum.msexcel.ru/profiles/slava_vvv-u154567.html
Прошу помощи, сам мыкался так и не выходит. Нужно кнопку привязать на копирование 2 ячеек из листа 1 с №1 в лист 2 в таблицу с номером №1 и если есть запись в строке с номером №1 вывести сообщение, что строка с таким номером уже заполнена. Буду очень признателен за помощь!

Эксель 2003

KuklP>> Re: Привязать кнопку к копированию ячеек на другой лист
2012-10-20 05:40 http://forum.msexcel.ru/profiles/kuklp-u39713.html
Код:
Private Sub CommandButton1_Click()
    If IsNull(Sheets("Лист2").Cells([d5].Value + 8, 4).Resize(, 2).Text) Then
        MsgBox "строка с таким номером уже заполнена"
    Else
        Sheets("Лист2").Cells([d5].Value + 8, 4).Resize(, 2).Value = [c8:d8].Value
    End If
End Sub


Slava VVV>> Re: Привязать кнопку к копированию ячеек на другой лист
2012-10-20 06:19 http://forum.msexcel.ru/profiles/slava_vvv-u154567.html
Спасибо огромное!!!!! То, что нужно.

Не нашел кнопочку, где можно по благодарить Улыбка

Slava VVV>> Re: Привязать кнопку к копированию ячеек на другой лист
2012-10-20 07:39 http://forum.msexcel.ru/profiles/slava_vvv-u154567.html
Код:
Private Sub CommandButton1_Click()
    If IsNull(Sheets("Лист2").Cells([d5].Value + 8, 4).Resize(, 2).Text) Then
        MsgBox "строка с таким номером уже заполнена"
    Else
        Sheets("Лист2").Cells([d5].Value + 8, 4).Resize(, 2).Value = [c8:d8].Value
    End If
End Sub


Здравствуйте, возник вопросик в процессе эксплуатации макроса, а можно в него добавить, чтоб при нажатии кнопки баттон 1 так же переходил на лист №2.

KuklP>> Re: Привязать кнопку к копированию ячеек на другой лист
2012-10-20 07:43 http://forum.msexcel.ru/profiles/kuklp-u39713.html
Какой батон куда должен переходить? Смеющийся

Slava VVV>> Re: Привязать кнопку к копированию ячеек на другой лист
2012-10-20 08:01 http://forum.msexcel.ru/profiles/slava_vvv-u154567.html
Private Sub CommandButton1_Click() эта кнопка копирует данные с листа №1 в лист №2 ну и на нее еще добавить чтоб открыла лист №2 после копирования.

KuklP>> Re: Привязать кнопку к копированию ячеек на другой лист
2012-10-20 08:05 http://forum.msexcel.ru/profiles/kuklp-u39713.html
Код:
...
  Sheets("Лист2").Cells([d5].Value + 8, 4).Resize(, 2).Value = [c8:d8].Value
  Sheets("Лист2").activate
End If
...


Slava VVV>> Re: Привязать кнопку к копированию ячеек на другой лист
2012-10-20 08:08 http://forum.msexcel.ru/profiles/slava_vvv-u154567.html
Спасибо Пивасик

sladeitanium>> Re: Сравнить две переменные и получить кол-чо
2012-10-20 08:24 http://forum.msexcel.ru/profiles/sladeitanium-u154583.html
в С408

=СУММПРОИЗВ(($B$2:$B$406=A408)*($C$2:$C$406=3))




СПАСИБО БОЛЬШОЕ! ТЫ СУПЕР!  Веселый

Hugo121>> Re: заполнение таблицы
2012-10-20 10:16 http://forum.msexcel.ru/profiles/hugo121-u30647.html
Нет, это не я матрёна Улыбка
Я жду на почту обещанную задачу целиком, со всеми доп.условиями Улыбка

Цитировать
Я прошу на самом деле самую малость того что на самом деле надо сделать, от остального я точно съеду....просто даже в этих таблицах я не все прошу сделать...там ещё должна быть функция зависимости суммы во втором столбще от вида, если вид такой, то сумма должна быть такая же как в первом столбце сумм, если нет такой вид тогда "0". Плюс должна быть еще сверка с третим файлом таблиц о наличии определенных данных и если да тогда вставка в "ПЕРЕЧЕНЬ" в последний столбец.


grits>> Re: Скрытие определенных строк при установке флажка
2012-10-22 12:06 http://forum.msexcel.ru/profiles/grits-u154411.html
Дабы не плодить сущности (темы) решил свой вопрос задать тут, т.к. по теории он близок.

Цель: Создать форму в которой будут контролироваться изменения на конкретном Листе в одной конкретной Ячейке, в нашем примере это окрашенные ячейки столбца "U" строки 1, 12, 18.

При совпадении контрольного значения (к примеру Лист "Анкета" в ячейке U1 "Поручитель есть") таблица 1, находящаяся под ней отображается, а при не совпадении контрольного значения ("Поручитель отсутствует") таблица 1 скрывается.

Ячейки U12 и U18 контролируются тем же образом, при наличии "да" в них, таблицы 2 и 3 отображаются, при несовпадении значения ("нет") скрываются.

Начал было с азов с использования "Worksheet_Change", но прорукоблудствовав 2 выходных - ничего не вышло... взываю о помощи... заранее спасибо...

это остатки рукоблудия, в которых я не сомневаюсь  Подмигивающий
[code]
Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address <> Range("U1").Address Then Exit Sub
    Application.ScreenUpdating = Fals...

Alex_ST>> Re: Скрытие определенных строк при установке флажка
2012-10-22 12:50 http://forum.msexcel.ru/profiles/alexst-u65623.html
Код:
Private Sub Worksheet_Change(ByVal Target As Range)
   Range("A2:A11").EntireRow.Hidden = Range("U1") <> "Поручитель есть"
   Range("A13:A17").EntireRow.Hidden = Range("U12") <> "да"
   Range("A19:A21").EntireRow.Hidden = Range("U18") <> "да"
End Sub


iron priest>> Re: Копирование формулы через строчки и ввод данных привязанных к дате
2012-10-22 12:57 http://forum.msexcel.ru/profiles/iron_priest-u20725.html
в В2 на сводной

Код:
= СЦЕПИТЬ(СМЕЩ('Линия 1'!$A$3;(СЧЁТЗ($B$1:B1)-1)*4;;;);СМЕЩ('Линия 1'!$B$3;(СЧЁТЗ($B$1:B1)-1)*4;;;);СМЕЩ('Линия 1'!$C$3;(СЧЁТЗ($B$1:B1)-1)*4;;;))


Надин-z>> Re: Копирование формулы через строчки и ввод данных привязанных к дате
2012-10-22 13:13 http://forum.msexcel.ru/profiles/nadinz-u132992.html
в В2 на сводной

Код:
= СЦЕПИТЬ(СМЕЩ('Линия 1'!$A$3;(СЧЁТЗ($B$1:B1)-1)*4;;;);СМЕЩ('Линия 1'!$B$3;(СЧЁТЗ($B$1:B1)-1)*4;;;);СМЕЩ('Линия 1'!$C$3;(СЧЁТЗ($B$1:B1)-1)*4;;;))

Огромное спасибо. Вставила... Заработало!!! Улыбка


iron priest>> Re: Копирование формулы через строчки и ввод данных привязанных к дате
2012-10-22 13:18 http://forum.msexcel.ru/profiles/iron_priest-u20725.html
хотя думается спецы могу сократить на порядок эту формулу Подмигивающий

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

grits>> Re: Скрытие определенных строк при установке флажка
2012-10-22 13:27 http://forum.msexcel.ru/profiles/grits-u154411.html
Код:
Private Sub Worksheet_Change(ByVal Target As Range)
   Range("A2:A11").EntireRow.Hidden = Range("U1") <> "Поручитель есть"
   Range("A13:A17").EntireRow.Hidden = Range("U12") <> "да"
   Range("A19:A21").EntireRow.Hidden = Range("U18") <> "да"
End Sub
ну, что тут скажешь....стыдно мне... спасибо Вам, Алексей...

ps *уполз читать VB Documentation*

Poltava>> Re: Копирование формулы через строчки и ввод данных привязанных к дате
2012-10-22 13:51 http://forum.msexcel.ru/profiles/poltava-u39021.html
можно и так
Код:
=ДВССЫЛ("'Линия 1'!A"&3+(4*A2))&ДВССЫЛ("'Линия 1'!B"&3+(4*A2))&ДВССЫЛ("'Линия 1'!C"&3+(4*A2))
по второму вопросу можно через СУММПРОИЗВ как в С2 но пока непонятно что с чем сравнивать и где вообще брать эти даты так что это общий пример!

Poltava>> Повторить шапку таблицы на каждом листе
2012-10-22 14:01 http://forum.msexcel.ru/profiles/poltava-u39021.html
Не могу закрепить шапку таблицы чтобы она автоматически повторялась на новых листах. В чем проблема не пойму?

Надин-z>> Re: Копирование формулы через строчки и ввод данных привязанных к дате
2012-10-22 14:16 http://forum.msexcel.ru/profiles/nadinz-u132992.html
хотя думается спецы могу сократить на порядок эту формулу Подмигивающий

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

В прикр. файле пример того, что хотелось бы получить.

Цветом обозначила для наглядности, временной период (неделя). Т.е. человек открывает эту книгу, вводит приход на листы Линия1 и т.д., а в сводной таблице, в столбце этого периода, напротив каждого платившего прописывается эта сумма (или сумма сумм, если платежей было несколько).
Книга должна, наверно, быть привязана к реальному времени и отслеживать изменения в ней.
Потом я на листе Сводная таблица сделаю сумму по каждому столбцу, это для лучшей отчетности при сдаче налички. Вот такие пожелания знакомого.


Poltava>> Re: Копирование формулы через строчки и ввод данных привязанных к дате
2012-10-22 14:23 http://forum.msexcel.ru/profiles/poltava-u39021.html
Временной период (неделя) Я все равно не могу сопоставить с 1.11.12 по 7.11.12 с  1,2,3,4 на листах Непонимающий как вы там понимаете когда был платеж?

Alex_ST>> Re: Повторить шапку таблицы на каждом листе
2012-10-22 14:28 http://forum.msexcel.ru/profiles/alexst-u65623.html
Ну, я прямо и не знаю, что Вы со своим документом сотворили...
Мне в нём тоже не удалось перенос заголовков организовать почему-то Злой
А новый документ - без проблем. Улыбка

Poltava>> Re: Повторить шапку таблицы на каждом листе
2012-10-22 14:40 http://forum.msexcel.ru/profiles/poltava-u39021.html
Мда, а я думал старею забывать стал как делать, а оказывается не тут то было.
Цитировать
А новый документ - без проблем.
Новый это хорошо но таблица листов на 50 и переносить ее в новый документ не хочется в нем ведь не только таблица. В общем сдается мне что это очередные грабли и не совсем нормальное поведение Worda так что будем надеяться что может кто то все же подскажет в чем заковырка.

Alex_ST>> Re: Повторить шапку таблицы на каждом листе
2012-10-22 14:58 http://forum.msexcel.ru/profiles/alexst-u65623.html
А может, попробовать копирнуть всю таблицу в Excel, а потом - обратно в Word (удалив предварительно старую)?
Я с Вашей таблицей попробовал так сделать - получилось!

iron priest>> Re: Копирование формулы через строчки и ввод данных привязанных к дате
2012-10-22 15:01 http://forum.msexcel.ru/profiles/iron_priest-u20725.html
т.е. это должно происходить в режиме реально времени в зависимости, от того когда менялись платежи?

grits>> Re: Скрытие определенных строк при установке флажка
2012-10-22 15:09 http://forum.msexcel.ru/profiles/grits-u154411.html
И все же...

Алексей, насколько я смог понять из документации, то при таком написании кОда, будут отслеживаться ЛЮБЫЕ изменения на листе...
Поэтому, когда вводишь любые-другие данные на листе, по нажатию Enter лист как бы передергивает на предмет поиска соответствий...

Не могли бы вы подсказать как при помощи If Target.Address <> Range("U1").Address Then Exit Sub отслеживать изменения ТОЛЬКО в конкретных ячейках на листе, чтобы не было этого неприятного передергивания...
Поправьте меня пожалуйста:

Код:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> Range("U1", "U12", "U18").Address Then Exit Sub
   Range("A2:A11").EntireRow.Hidden = Range("U1") <> "Поручитель есть"
   Range("A13:A17").EntireRow.Hidden = Range("U12") <> "да"
   Range("A19:A21").EntireRow.Hidden = Range("U18") <> "да"
End Sub


Alex_ST>> Re: Скрытие определенных строк при установке флажка
2012-10-22 15:20 http://forum.msexcel.ru/profiles/alexst-u65623.html
Не понимаю, чем Вам мешает регулярное обновление данных на листе...
Но если всё-таки мешает, то попробуйте сделать так:
Код:
Private Sub Worksheet_Change(ByVal Target As Range)
   If Intersect(Target, Range("U1"), Range("U12"), Range("U18")) Is Nothing Then Exit Sub
   Range("A2:A11").EntireRow.Hidden = Range("U1") <> "Поручитель есть"
   Range("A13:A17").EntireRow.Hidden = Range("U12") <> "да"
   Range("A19:A21").EntireRow.Hidden = Range("U18") <> "да"
End Sub
или так:
Код:
Private Sub Worksheet_Change(ByVal Target As Range)
   Select Case Target.Address(0, 0)
      Case "U1": Range("A2:A11").EntireRow.Hidden = Range("U1") <> "Поручитель есть"
      Case "U12": Range("A13:A17").EntireRow.Hidden = Range("U12") <> "да"
      Case "U18": Range("A19:A21").EntireRow.Hidden = Range("U18") <> "да"
   End Select
End Sub


Poltava>> Re: Скрытие определенных строк при установке флажка
2012-10-22 15:25 http://forum.msexcel.ru/profiles/poltava-u39021.html
Вот так тоже можно ссылаться на не смежные ячейки
Код:
......Range("U1, U12, U18").......


Alex_ST>> Re: Скрытие определенных строк при установке флажка
2012-10-22 15:28 http://forum.msexcel.ru/profiles/alexst-u65623.html
Вот так тоже можно ссылаться на не смежные ячейки
Код:
......Range("U1, U12, U18").......
Согласен. Первый вариант написал по инерции, не продумав...  Грустный
Тогда так:
Код:
Private Sub Worksheet_Change(ByVal Target As Range)
   If Intersect(Target, Range("U1", "U12", "U18")) Is Nothing Then Exit Sub
   Range("A2:A11").EntireRow.Hidden = Range("U1") <> "Поручитель есть"
   Range("A13:A17").EntireRow.Hidden = Range("U12") <> "да"
   Range("A19:A21").EntireRow.Hidden = Range("U18") <> "да"
End Sub


Poltava>> Re: Скрытие определенных строк при установке флажка
2012-10-22 15:47 http://forum.msexcel.ru/profiles/poltava-u39021.html
нет не так, та же ошибка с которой пришел grits
Код:
If Intersect(Target, Range("U1", "U12", "U18")) Is Nothing Then Exit Sub
а вот так
Код:
If Intersect(Target, Range("U1, U12, U18")) Is Nothing Then Exit Sub
вот где ошибка
Range("U1", "U12", "U18")
Range("U1, U12, U18")

Poltava>> Re: Повторить шапку таблицы на каждом листе
2012-10-22 15:52 http://forum.msexcel.ru/profiles/poltava-u39021.html
Летит форматирование, особенно если учесть что это оформленный расчет с использованием формул маттайта

Alex_ST>> Re: Скрытие определенных строк при установке флажка
2012-10-22 15:55 http://forum.msexcel.ru/profiles/alexst-u65623.html
вот где ошибка
Range("U1", "U12", "U18")
Range("U1, U12, U18")
Упс...  Обеспокоенный
Вот потому я и использую явное Intersect  с отдельными Range для каждой области, а не неявное Union внутри одного Range, что с синтаксисом можно заблудиться

grits>> Re: Скрытие определенных строк при установке флажка
2012-10-22 15:56 http://forum.msexcel.ru/profiles/grits-u154411.html
Вариант с "Case" вышел самым отличным, точнее самым рабочим, а остальные просто не работают... т.к. правильный синтаксис Range озвучил Poltava
Код:
......Range("U1, U12, U18").......

Тогда вариант Алексея
Код:
Private Sub Worksheet_Change(ByVal Target As Range)
   If Intersect(Target, Range("U1", "U12", "U18")) Is Nothing Then Exit Sub
   Range("A2:A11").EntireRow.Hidden = Range("U1") <> "Поручитель есть"
   Range("A13:A17").EntireRow.Hidden = Range("U12") <> "да"
   Range("A19:A21").EntireRow.Hidden = Range("U18") <> "да"
End Sub

примет вид
Код:
Private Sub Worksheet_Change(ByVal Target As Range)
   If Intersect(Target, Range("U1, U12, U18")) Is Nothing Then Exit Sub
   Range("A2:A11").EntireRow.Hidden = Range("U1") <> "Поручитель есть"
   Range("A13:A17").EntireRow.Hidden = Range("U12") <> "да"
   Range("A19:A21").EntireRow.Hidden = Range("U18") <> "да"
End Sub

и заработает!!...

Poltava>> Re: Копирование формулы через строчки и ввод данных привязанных к дате
2012-10-22 17:01 http://forum.msexcel.ru/profiles/poltava-u39021.html
Я так понимаю вам нужно чтобы запоминалась дата когда Были занесены данные в ячейку. А потом по тому когда занесены можно было отсортировать. Тогда да про формулы это точно фантазерка.
Но макросы еще ни кто не отменял, а с их помощью эту задачу решить возможно главное найти желающих ее решить! и определиться где можно хранить эти данные (можно после каждого столбца добавить еще один и в него писать тогда для анализа можно будет использовать стандартные функции екселя, можно в примечания записывать макросом и потом макросом анализировать примечания) В общем как сказал ZORRO2005 главное грамотно организовать данные

ZORRO2005>> Re: Копирование формулы через строчки и ввод данных привязанных к дате
2012-10-22 17:04 http://forum.msexcel.ru/profiles/zorro2005-u4225.html
Примерно так...
Если Excel 2010, можно добавить срезы.

Олег*>> Re: Как скопировать диапазон ячеек в массив памяти ОЗУ?
2012-10-22 17:15 http://forum.msexcel.ru/profiles/oleg-u24862.html
Код:
Dim MyArray
     MyArray = Array(Range("a1:z300").Value)

Спасибо, но пока не понятно, как потом обращаться к конкретному члену этого массива? Какой массив создается при таком способе: одномерный, двумерный, статический, динамический?

Сейчас специально погуглил в поисках материалов по функции Array. Информации очень мало...

Все бы было еще проще,
МойМассив() = Range("A1:Z300")
если бы не округление МойМассив(Y, X) = Round(Sheets("Лист1").Cells(Y, X), 2)

И при таком подходе та же самая непонятка - какой это будет массив:  одномерный, двумерный, статический, динамический? Как с ним дальше-то работать?

_Boroda_>> Re: Как скопировать диапазон ячеек в массив памяти ОЗУ?
2012-10-22 17:22 http://forum.msexcel.ru/profiles/boroda-u12234.html
Запустите по F8
Код:
Private Sub Workbook_Open()
  Dim X As Long
  Dim Y As Long
  Dim МойМассив()

  МойМассив() = Range("A1:Z300")
  MsgBox "Массив в памяти создан. Для проверки: значение в ячейке B5 = " & _
             МойМассив(5, 2) & " .Это значение считано из созданного массива в памяти ОЗУ"
End Sub
двумерный, статический
работать как и собирались со своим, только нужно учитывать, что в этом нет округления

DMaksimov>> Re: Скрытие определенных строк при установке флажка
2012-10-22 17:33 http://forum.msexcel.ru/profiles/dmaksimov-u154526.html
Спасибо всем за помощь по моему вопросу!

Надин-z>> Re: Копирование формулы через строчки и ввод данных привязанных к дате
2012-10-22 17:48 http://forum.msexcel.ru/profiles/nadinz-u132992.html
Я так понимаю вам нужно чтобы запоминалась дата когда Были занесены данные в ячейку. А потом по тому когда занесены можно было отсортировать. Тогда да про формулы это точно фантазерка.
Но макросы еще ни кто не отменял, а с их помощью эту задачу решить возможно главное найти желающих ее решить! и определиться где можно хранить эти данные (можно после каждого столбца добавить еще один и в него писать тогда для анализа можно будет использовать стандартные функции екселя, можно в примечания записывать макросом и потом макросом анализировать примечания) В общем как сказал ZORRO2005 главное грамотно организовать данные
Спасибо, что поняли, но я и половины не поняла из написанного))! Это стимул во всем разобраться самой. Люблю ковыряться в неизученном. Но в макросы боюсь даже соваться... Переборю страхи и в путь)))

Надин-z>> Re: Копирование формулы через строчки и ввод данных привязанных к дате
2012-10-22 17:54 http://forum.msexcel.ru/profiles/nadinz-u132992.html
Примерно так...
Если Excel 2010, можно добавить срезы.
да, 2010.
Открыла, посмотрела, впечатлило...
Беру тайм-аут, на попытку разобраться самой.
Разрешите задать Вам вопросы, если пойму логику этого файла и останутся нерешенные вопросы?

Олег*>> Re: Как скопировать диапазон ячеек в массив памяти ОЗУ?
2012-10-22 17:55 http://forum.msexcel.ru/profiles/oleg-u24862.html
Запустите по F8
Код:
Private Sub Workbook_Open()
  Dim X As Long
  Dim Y As Long
  Dim МойМассив()

  МойМассив() = Range("A1:Z300")
  MsgBox "Массив в памяти создан. Для проверки: значение в ячейке B5 = " & _
             МойМассив(5, 2) & " .Это значение считано из созданного массива в памяти ОЗУ"
End Sub
двумерный, статический
работать как и собирались со своим, только нужно учитывать, что в этом нет округления

Классно! Действительно работает!
А округление мне и не нужно совсем, это я просто для примера заполнил диапазон случайными числами, а потом округлил их исключительно для эстетики Улыбка

_Boroda_>> Re: Как скопировать диапазон ячеек в массив памяти ОЗУ?
2012-10-22 18:17 http://forum.msexcel.ru/profiles/boroda-u12234.html
Дык в этом же и вся загвоздка и была.


gorushek>> Re: Пронумеровать страницы в листах одной книги и сделать содержание на другом ли
2012-10-22 19:10 http://forum.msexcel.ru/profiles/gorushek-u153635.html
Вопросы такие:
1.В книге появились два новых листа(лист 1 и лист 2), их можно убрать, я их удалил?
2. Из листа "Титул" колонтитулы нужно вообще убрать
3. В листе "содерж" из колонтитулов оставить только "лист отчета"
4. В листах в колонтитулах я могу изменять только "форму протокола" и "номер протокола", остальное не редактируется?
5. Значит просматривать корректные колонтитулы я могу только после распечатки...
6. Я хочу поменять некоторые листы, т.е прежние листы удалить и вставить другие листы с тем же названием, можно это сделать?
7. Можно ли менять местами листы, удалять, добавлять,  будет ли это влиять и как на работы макроса и как это исправлять.
На некоторые вопросы я бы сам мог ответить методом тыка, но чтобы увидеть результат, придется распечатать весь документ, поэтому и задаю.
з.ы. И можно ли колонтитулы в табличку засунуть?


Poltava>> Re: &#1055;&#1088;&#1086;&#1085;&#1091;&#1084;&#1077;&#1088;&#1086;&#1074;&#1072;&#1090;&#1100; &#1089;&#1090;&#1088;&#1072;&#1085;&#1080;&#1094;&#1099; &#1074; &#1083;&#1080;&#1089;&#1090;&#1072;&#1093; &#1086;&#1076;&#1085;&#1086;&#1081; &#1082;&#1085;
2012-10-22 19:54 http://forum.msexcel.ru/profiles/poltava-u39021.html
Цитировать
1.В книге появились два новых листа(лист 1 и лист 2), их можно убрать, я их удалил?
Вы читали условия работы и ограничения! Зачем печатать и использовать метод тыка если можно просто ВНИМАТЕЛЬНО прочитать! то что ВАМ пишут! процитирую себя же
Цитировать
- Каждый пункт содержания обязательно должен иметь свой лист в книге и порядок листов в книге должен соответствовать порядку в содержании
А теперь пересчитайте листы и количество пунктов содержания! какие еще тут могут быть вопросы.
Если удалили листы но не удалили пункты содержания получите некорректное заполнение! Если вам просто в данный момент не нужен этот протокол то скрываете лист а пункт в содержании скроется автоматом! что тут непонятного!
Цитировать
2. Из листа "Титул" колонтитулы нужно вообще убрать
Цитировать
3. В листе "содерж" из колонтитулов оставить только "лист отчета"
А раньше об этом уп...

Wasilic>> Re: Скрытие определенных строк при установке флажка
2012-10-22 22:42 http://forum.msexcel.ru/profiles/wasilic-u24852.html
когда вводишь любые-другие данные на листе, по нажатию Enter лист как бы передергивает на предмет поиска соответствий...
Так попробуйте:
Код:
Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Application.Intersect(Range("U1, U12, U18"), Target) Is Nothing Then
     Application.ScreenUpdating = False
     Range("A2:A11").EntireRow.Hidden = Range("U1") <> "Поручитель есть"
     Range("A13:A17").EntireRow.Hidden = Range("U12") <> "да"
     Range("A19:A21").EntireRow.Hidden = Range("U18") <> "да"
     Application.ScreenUpdating = True
  End If
End Sub


mafiaofcodes>> из множества в 1, форматирование одинаковое, применение формулы
2012-10-23 01:17 http://forum.msexcel.ru/profiles/mafiaofcodes-u154799.html
доброго времени суток. если не сложно - помогайте. буду очень и очень благодарен. это все касается темы ценных бумаг на фондовом рынке.
задача такая (офис 2010): есть множество файлов .csv из которых нужно склеить 1 и применить формулу, но все по порядку.
1. файлы содержат 1 столбец (неотформатирован)
пример:
"Date,Open,High,Low,Close,Volume
19.10.2012,55.76,56.52,55.07,55.21,2405546
18.10.2012,55.46,56.18,55.27,56.05,1875411..."
но вместо того чтобы форматировать каждый файл отдельно (их будет разное количество в зависимости от времени, и также возможно разное количество строк по той же причине) я делаю объединение в 1 с помощью командной строки "copy *.csv all.csv"
2. далее:
делаю "данные-текст по столбцам-с разделителями-запятая-(общий-дата,отсальные-текстовый)-готово
дата понятно почему. Open,High,Low,Close - потому что нужно рассчитывать потом по формуле, если беру "дата" или "общий" тогда даже не могу использовать В2+В3 так как пишет "знач" и показывает вместо чисел месяцы (с...

Анна Б.>> Название диаграммы в зависимости от текста в ячейке
2012-10-23 07:47 http://forum.msexcel.ru/profiles/archi-u3007.html
Добрый день профессионалы!
Подскажите, пожалуйста, как сделать так, что бы название диаграммы ссылалось на определенную ячейку, и в случае если в ячейке менялось бы значение, то и название диаграммы тоже бы изменилось.
ps: На диаграмме в столбцах план и факт по филиалам, и графиком обозначен процент выполнения. В названии диаграммы итоговые данные по всем филиалам. хочу через "сцепить" создать в ячейке название диаграммы.

Спасибо заранее!!! Улыбка

KuklP>> Re: из множества в 1, форматирование одинаковое, применение формулы
2012-10-23 08:02 http://forum.msexcel.ru/profiles/kuklp-u39713.html
Чукча не читатель - чукча писатель...
Владимир, внимательно прочитайте правила форума. Что в Вашем посте не так?

Prist>> Re: Название диаграммы в зависимости от текста в ячейке
2012-10-23 08:09 http://forum.msexcel.ru/profiles/prist-u4859.html
Добрый день.
1. Выделяете объект Название диаграммы
2. Перемещаете курсор мыши в строку формул-вписываете туда ссылку на нужную ячейку(зписываете равно(=) и выделяете нужную ячейку)-Enter.

На всякий случай прикрепил скрин.

Анна Б.>> Re: Название диаграммы в зависимости от текста в ячейке
2012-10-23 08:13 http://forum.msexcel.ru/profiles/archi-u3007.html
 Шокирован, получилось!!! раньше так пробовала - не получалось.... В замешательстве
а сейчас получилось)))
Спасибо огромное!!!


s133p>> Re: расчёт количества лет между двумя датами
2012-10-23 10:59 http://forum.msexcel.ru/profiles/s133p-u91401.html
Подскажите пожалуйста:
Есть: Начало отпуска, конец отпуска и количество дней.

Начало               Конец                  кол. Дней   
13.05.2013           17.05.2013                    4
                      (включительно)

Формула =ДНЕЙ360(B5;C5) считает как 4 дня, но должно быть 5
Как это реализовать?

Serge 007>> Re: расчёт количества лет между двумя датами
2012-10-23 11:31 http://forum.msexcel.ru/profiles/serge_007-u25260.html
Код:
=C3-B3+1
Код:
=ДНЕЙ360(B3;C3)+1
Код:
=РАЗНДАТ(B3;C3;"d")+1


mafiaofcodes>> Re: из множества в 1, форматирование одинаковое, применение формулы
2012-10-23 22:02 http://forum.msexcel.ru/profiles/mafiaofcodes-u154799.html
Чукча не читатель - чукча писатель...
Владимир, внимательно прочитайте правила форума. Что в Вашем посте не так?
кажется исправился Улыбка

Moroz33>> Re: Сравнить значения ячеек столбца
2012-10-23 22:50 http://forum.msexcel.ru/profiles/moroz33-u154358.html
файлик
надо сравнение по ячейкам
D6>D40 D7>D41 и т.д.
желательно макрос , народ просто делает гору ошибок при забивании
или просто код перебора в процедуре , условное_форматирование работает , но красит тока 1 ячейку из 2

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

Wasilic>> Re: из множества в 1, форматирование одинаковое, применение формулы
2012-10-23 23:32 http://forum.msexcel.ru/profiles/wasilic-u24852.html
Установил кнопку.
Включил макрозапись,
Далее:
Цитировать
делаю "данные-текст по столбцам-с разделителями-запятая-(Date-дата, отсальные-текстовый)-готово
Для того что бы
Цитировать
из Open,High,Low,Close удалить все точки и поставить комы (",") для того чтобы вычисления производились так как с "."
выделяю столбцы B C D F, жму Ctrl+F  - Заменить "." на ","  ОК.

Жму [abbr=клик правой кнопкой мыши]ПКМ[/abbr] - формат ячеек - числовой - ОК
Цитировать
т.е. нужно сделать форматирование "блоками" а не вперемешку. (у меня не получилось.
У меня получилось.

Отключил запись макроса

На счет формул - ниччё не понял, Не мой профиль.  Улыбка


KuklP>> Re: Сравнить значения ячеек столбца
2012-10-23 23:48 http://forum.msexcel.ru/profiles/kuklp-u39713.html
Тут должны еще и пароли Ваши ломать?

Wasilic>> Re: Сравнить значения ячеек столбца
2012-10-23 23:48 http://forum.msexcel.ru/profiles/wasilic-u24852.html
Хороший файлик, а особенно пароль на макросы!

Код:
Sub Сверить()
    x = 40
    For i = 6 To 33
       If Cells(i, 4) = Cells(x, 4) Then
          Cells(i, 4).Interior.ColorIndex = 35
          Cells(x, 4).Interior.ColorIndex = 35
       End If
       x = x + 1
    Next
End Sub


Вадя>> Сводная
2012-10-24 08:53 http://forum.msexcel.ru/profiles/vadya-u153767.html
В теблице есть данные за год помесячно. Делаю сводную. Как сделать чтобы столбиком отдельно были данные за полугодие и они не задваивались в общий итог?

__Nadya__>> Re: Сводная
2012-10-24 09:44 http://forum.msexcel.ru/profiles/nadya-u139326.html
Можно добавить дополнительный столбец с номером квартала

__Nadya__>> Re: Сводная
2012-10-24 09:50 http://forum.msexcel.ru/profiles/nadya-u139326.html
Второй способ через вычисляемый объект

__Nadya__>> Re: Сводная
2012-10-24 09:51 http://forum.msexcel.ru/profiles/nadya-u139326.html
Немного перепутала - нужно было по полугодиям разбыть! Но смысл остается тем же.

Михаил С.>> Re: Сводная
2012-10-24 10:53 http://forum.msexcel.ru/profiles/mihail_s-u26973.html
В теблице есть данные за год помесячно. Делаю сводную. Как сделать чтобы столбиком отдельно были данные за полугодие и они не задваивались в общий итог?
Непонятно, как дает советы  __Nadya__ , не видя вашего файла.

Михаил С.>> Re: Сравнить значения ячеек столбца
2012-10-24 11:09 http://forum.msexcel.ru/profiles/mihail_s-u26973.html
Moroz33, поскольку в ваше файле никаких цифр нет, то фот вам пример УФ.
Жмите F9...

Михаил С.>> Re: Сравнить значения ячеек столбца
2012-10-24 11:12 http://forum.msexcel.ru/profiles/mihail_s-u26973.html
На всякий случай в .xls
здесь F9 жать не нужно - нет функции СЛУЧМЕЖДУ()

boa>> Re: Защита файла от копирования
2012-10-24 11:32 http://forum.msexcel.ru/profiles/boa-u4698.html
привязку к компьютеру можно сделать следующим образом:
Код:
If Not Environ("ComputerName") = "Имя компа" Then ThisWorkbook.Close SaveChanges:=False
но тогда листы книги должны быть скрыты и открываться макросом,
дополнительно можно добавить привязку и к имени пользователя: Environ("UserName")
ну и конечно
защитить книгу стойким паролем и не давать его кому не попадя.


__Nadya__>> Re: Сводная
2012-10-24 13:43 http://forum.msexcel.ru/profiles/nadya-u139326.html
И без файла вроде понятно - есть данные (не важно какие) в разрезе месяцев, эти данные нужно разделить по группам  (если 1-е полугодие, то значит январь + февраль + март + апрель + май + июнь). Эти группы всегда постоянны и известны всем (т.е. в первое полугодие всегда будут входить первые 6 месяцев, т.д.). А какие именно там будут данные и в каких количествах, не имеет значения, т.к. принцип их группировки от этого не мзмениться.

DMaksimov>> Re: Скрытие определенных строк при установке флажка
2012-10-24 17:38 http://forum.msexcel.ru/profiles/dmaksimov-u154526.html
А можно ли в данном макросе, кроме скрытия по условию строк текущего листа, указать для скрытия строки из другого листа книги?
Код:
Sub SRZ_bulk()
    Application.ScreenUpdating = False
    If Range("P3").Value = True Then
       Rows("32:42").Hidden = False
       Rows("69").Hidden = False
    Else
        If Range("P2").Value = True Then
            Rows("32:42").Hidden = False
            Rows("69").Hidden = False
        Else
            Rows("32:42").Hidden = True
            Rows("69").Hidden = True
        End If
    End If
    Application.ScreenUpdating = True
End Sub


Poltava>> Re: Скрытие определенных строк при установке флажка
2012-10-24 17:54 http://forum.msexcel.ru/profiles/poltava-u39021.html
Сейчас ваше обращение выглядит так    Rows("32:42")
Это сокращение от полного написания   Application.ActiveSheet.Rows("32:42")
при этом сокращении обращение идет к активному листу если вы хотите к другому листу то не сокращайте! пишите так
Sheet(i).Rows("32:42") где i это номер листа по порядку либо так
Sheet("Лист1").Rows("32:42") где Лист1 это имя конкретного листа


Михаил С.>> Re: Сводная
2012-10-24 18:19 http://forum.msexcel.ru/profiles/mihail_s-u26973.html
Цитировать
И без файла вроде понятно
В том-то и дело, что "вроде".
Большая часть ТС под "сводной" имеют ввиду совсем не PivotTable  Улыбка

Al_Sha>> Помогите просуммировать буквенно-цифровые выражения
2012-10-24 20:29 http://forum.msexcel.ru/profiles/alsha-u154947.html
Здравствуйте уважаемые!
Помогите решить вопрос.
Ячейка А1 содержит данные вида "0-200"
Ячейка А1 содержит данные вида "1267-5689"
Как просуммировать ячейки А1 и А2, чтобы в ячейке А3 было выражение "1267-5889"
Заранее благодарен
Al_Sha

sergey11>> Помогите пожалуйста написать функцию с большим количеством если.
2012-10-24 20:34 http://forum.msexcel.ru/profiles/sergey11-u154949.html
Есть 3 вида работ и три вида разрядов  этих работ , а также время выполнения работ.
Нужна формула которая просчитает  зарплату за выполнение работ.
Пример:  если гарантия и разряд 1 то 5% от 1500 и умножить на часы, а если гарантия и разряд  2 то 15% от 1500 и умножить на часы, а если внутренние и разряд 3, то ……………… итд .  приложен файл


На сегодня все. До встречи на следующей неделе.


В избранное