Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 След.
Сбиваются параметры страниц при открытии на другом компе (Excel 2013), Есть ли способ выставить разрывы страниц так, чтобы на любом ПК они бы отображались одинаково?
 
Потестируем, спасибо!
Сбиваются параметры страниц при открытии на другом компе (Excel 2013), Есть ли способ выставить разрывы страниц так, чтобы на любом ПК они бы отображались одинаково?
 
***РЕШЕНО***
Таким способом, чтобы у адресата при печати отправленного ему файла, сохранялось бы разделение по страницам так, как мы его установили, надо соблюсти основное требование - выставить высоту страницы не более 25,4 см.
Если последняя строка, содержащая любые данные (даже окрашивание ячейки) находится на странице ниже отметки 25,4 см на линейке, возможно смещение этой строки на следующий лист у адресата.
1.Перейти в режим просмотра: разметка страницы и выставить высоту каждой страницы по линейке не более 25,4 см.

2.Для этого поставьте курсор на последнюю заполненную строку в конце каждой страницы, вы увидите на линейке на какой высоте она заканчивается, пусть это будет 25-25,4 см на случай печати с другими параметрами принтера, пустые строки ниже удалить!
Сбиваются параметры страниц при открытии на другом компе (Excel 2013), Есть ли способ выставить разрывы страниц так, чтобы на любом ПК они бы отображались одинаково?
 
Здравствуйте,
Подскажите, если на листе несколько страниц и они разделены вручную как необходимо, есть ли способ отобразить это на всех ПК одинаково?
Поискал по форуму, например здесь http://www.planetaexcel.ru/forum/?PAGE_NAME=read&FID=8&TID=12499  решение не найдено.
Это происходит из-за разного разрешения экрана (ПК и Ноут обычно) или  разного драйвера при смене принтера. Пример файла прикрепил.
Вот один и тот же файл на разных ПК - смещаются границы страницы (пунктиром отмечен вынужденный разрыв страницы):
Изменено: Андрей Фетисов - 25 Май 2017 16:44:54
Аргумент "таблица" функции ВПР, со ссылкой на имя файла, прописать вместо имени файла, ссылку на это имя
 
Хорошая формула, работает только при открытых файлах источниках! Жаль при открытии, если файлы источники закрыты, то все вычисленные значения пропадают, даже если не обновлять формулы!
Аргумент "таблица" функции ВПР, со ссылкой на имя файла, прописать вместо имени файла, ссылку на это имя
 
В функции ВПР  обычно прописывается таблица, где будет идти поиск, если таблица находится в другом файле, то имя файла берется в квадратные скобки. Как прописать вместо имени файла, ссылку на это имя в функции ВПР?
Вот обычная ссылка на имя файла: =ВПР($A$1;[1.xlsx]Лист1!$A:$B;2;0)
Мне бы хотелось брать имя файла из ячейки, а не указывать вручную: =ВПР($A$1;[A3]Лист1!$A:$B;2;0)
Но так не работает, выдает введено недопустимое имя:
Поискпоз для столбца, найти и подставить номер меняющегося столбца
 
Почему то я не знал что индекс + поискпоз можно так использовать - для поиска столбца, спасибо Vik_tor, !

-----------РЕШЕНО------------
Поискпоз для столбца, найти и подставить номер меняющегося столбца
 
Привет всем читающим!
Как найти номер или адрес столбца для подстановки в аргумент функции ВПР или СУММЕСЛИ?
Я хотел написать ВПР с вычисляемым аргументом - номер столбца меняется в зависимости от номера недели, поэтому хочу в аргумент ВПР или СУММЕСЛИ подставить поиск столбца по условию, чтоб этот поиск возвращал номер столбца или адрес столбца, например А:А.
Подскажите пожалуйста как найти номер или адрес столбца?
Артикулweekчерез впрсерз суммесли
Артикул38.201639.2016
1000638.20162762762856508,573
2856539.2016281153,5380
2999740.201628120205,819213,597
2811541.201610006276,376251,251
2812942.2016281248,1496,111
2812043.2016281293,2514,875
2812444.201629997030,867
[VBA] вставка листов по критериям расширенного фильтра, Перебрать все критерии для фильтра и если есть значения, то скопировать на новые листы
 
Написал в личку о дополнительной доработке (как всегда все сразу не предвидишь)
Изменено: Андрей Фетисов - 19 Май 2016 09:25:36 (Сообщение Юрия М)
[VBA] вставка листов по критериям расширенного фильтра, Перебрать все критерии для фильтра и если есть значения, то скопировать на новые листы
 
Задание выполнено! Все ок!
[VBA] вставка листов по критериям расширенного фильтра, Перебрать все критерии для фильтра и если есть значения, то скопировать на новые листы
 
Здравствуйте уважаемые форумчане,
1000 р, за дописание условия, если при переборе критериев для расширенного фильтра, данные есть, то тогда создавать лист:
[VBA] вставка листов по критериям расширенного фильтра, Перебрать все критерии для фильтра и если есть значения, то скопировать на новые листы
 
Здравствуйте уважаемые форумчане,
Помогите, пожалуйста, дописать условие, если при переборе критериев для расширенного фильтра, данные есть, то тогда создавать лист:
Код
Sub Filter()

Worksheets.Add.Name = "раос_гп_291_4000" 'Создание нового листа

Worksheets("Ввод").Range("A5:O33").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Worksheets("Лист1").Range("S13:V14"), _
CopyToRange:=Worksheets("раос_гп_291_4000").Range("A1:O33"), Unique:=False

Worksheets.Add.Name = "раос_гп_291_8000" 'Создание нового листа

Worksheets("Ввод").Range("A5:O33").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Worksheets("Лист1").Range("S15:V16"), _
CopyToRange:=Worksheets("раос_гп_291_8000").Range("A1:O33"), Unique:=False

End Sub
Взял это макрос из темы http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=73297&TITLE_SEO=73297-kopirov... от уважаемого SuperCat и думал сделать как то так, но так нельзя (ошибку выдает), а как сделать не пойму:
Код
CriteriaRange:=Worksheets("Лист1").Range("S15:V16"), _
If Worksheets("Ввод").Range("A5:O33") <> "" then
Worksheets.Add.Name = "Раос_гп_291_8000" 'Создание нового листа
Worksheets("Ввод").Range("A5:O33"), CopyToRange:=Worksheets("Раос_гп_291_8000").Range("A1:O33"), Unique:=False
Пример приложил. Может кто то видел похожую задачу, я пока не нашел.
Изменено: Андрей Фетисов - 13 Май 2016 15:20:04
Отбор по нескольким критериям и всех значений, расширенный фильтр не умеет разбить наглядно отфильтрованные данные по нескольким критериям
 
Может кому-то поможет, я решил сделать проще - присвоил каждой комбинации фильтров уникальное имя и в фильтре просто прописал ВПР для каждой последовательности моего тройного условия для расширенного фильтра. Прикрепил что получилось.
Спасибо Jack_Famous, за участие, реализация от Юрия М - класс.
Еще бы на кнопку очистить фильтр повесить проверку - установлен ли он, а то получается ошибка если очищаешь когда он не установлен в строке ActiveSheet.ShowAllData
Sub ОчиститьФильтр()
'
' ОчиститьФильтр Макрос
'
   Range("I3").Select
   ActiveSheet.ShowAllData
End Sub

и придумать как в конце проверять все ли отфильтрованные данные перенесены в другую программу...  
Изменено: Андрей Фетисов - 29 Апр 2016 17:36:26
Отбор по нескольким критериям и всех значений, расширенный фильтр не умеет разбить наглядно отфильтрованные данные по нескольким критериям
 
Цитата
Jack_Famous написал: Посмотрите в приёмах   Тут  тоже гляньте
Здравствуйте Jack_Famous, спасибо за наводку, посмотрел и понял что мне не хватает в моем файле только одного, предустановленного фильтра из 3 ячеек, например:
Вид движенияОсновной счетМВЗ
291911233100
Чтоб эту комбинацию (для расширенного фильтра) можно было бы выбрать одним кликом, ну и остальные комбинации тоже. Тоесть синхронный выпадающий список для 3 ячеек сразу. Такое, интересно, есть в excel? Всего у меня 6 наборов таких "синхронных выпадающих списков":
Вид движенияОсновной счетМВЗ
1291911233100
2291911233140
3291913203100
4291913203140
5292911233100
6292911233140
7292913203100
8292913203140
Отбор по нескольким критериям и всех значений, расширенный фильтр не умеет разбить наглядно отфильтрованные данные по нескольким критериям
 
Здравствуйте уважаемые форумчане, подскажите как решить задачу, суть которой вроде проста, а именно: расширенным фильтром по нескольким условиям-1 отбираем данные-1 - затем по другим условиям-2 отбираем другие данные-2. Так вот как бы сделать, чтобы сразу одним действием представить эти данные-1 и данные-2 на одном листе друг под другом, или еще лучше на разных листах? Пример приложил.

Что я попробовал:
многоразовый ВПР http://www.planetaexcel.ru/techniques/2/81/ но он не умеет отбирать данные по нескольким критериям.
ВПР по двум (и более) критериям http://www.excelworld.ru/publ/hacks/tricks/vlookup_by_two_criteria/17-2-0-1 помог мне - с его помощью я и сделал итоговую таблицу, но он не умеет отобразить все вхождения, а не только первое.

Получается мне нужно возможно и многоразовый и по нескольким критериям впр в одном флаконе, а может просто сводная, а может динамический расширенный фильтр http://www.planetaexcel.ru/forum/?PAGE_NAME=read&FID=8&TID=19268 но чтоб умел по нескольким критериям, выбранным последовательно - последовательно копировать отобранные данные на тот же лист ниже или на новый лист.  
Изменено: Андрей Фетисов - 29 Апр 2016 17:35:03 (Добавил в файл описание, убрал лишнее, добавил что должно получиться)
Показать значения опроса, если Вася выбрал Петю и Петя выбрал Васю, найти попарные совпадения, если и я выбрал вас и вы выбрали меня
 
RAN, тоесть дело в задвоенном голосе? Странно что такое прошло - у меня проверка стояла на повторы, какой то сбой наверное. Если дело в этом то просто удалю задвоение.

07/12/15 Да, дело в задвоенном голосе, удалил и все встало на место. Спасибо RAN, макрос быстро и качественно работает.
RESOLVED
Изменено: Андрей Фетисов - 7 Дек 2015 09:15:42 (Дело в задвоенных ответах.)
Показать значения опроса, если Вася выбрал Петю и Петя выбрал Васю, найти попарные совпадения, если и я выбрал вас и вы выбрали меня
 
Цитата
RAN написал:
Application.Trim(arr(i,1))
Здравствуйте RAN, Pelena, после 1831 строки макрос съехал и стал подсвечивать не верные взаимосвязи. Возможно вам будет интересно понять причину, я же не нашел почему, лишь смог проверить работу макроса формулой уважаемой Pelena, нашел расхождения, прикрепил.
Возможно дело в пробелах - попробовал изменить макрос как советовал RAN (Application.Trim(arr(i, 5)),  но видимо не так сделал:
Код
Sub МЯУ()
    Dim oDic As Object, i&
    Dim arr, oDicItems
    Set oDic = CreateObject("Scripting.Dictionary")
    arr = [A1].CurrentRegion.Value
    For i = 2 To UBound(arr)
        oDic.Item (Application.Trim(arr(i, 5)) & "|" & Application.Trim(arr(i, 6)) = Application.Trim(arr(i, 6)) & "|" & Application.Trim(arr(i, 5)))
        'oDic.Item(arr(i, 5) & "|" & arr(i, 6)) = arr(i, 6) & "|" & arr(i, 5)
    Next
    oDicItems = oDic.Items
    For i = 0 To UBound(oDicItems)
        If oDic.Exists(oDicItems(i)) Then
            Cells(i + 2, 5).Resize(, 2).Interior.Color = vbRed
        End If
    Next
End Sub
Интересно, в чем ошибка  - в макросе или в данных файла? Пока пользуюсь формулой {=--ИЛИ($F$2:$F$5019&$E$2:$E$5019=E2&F2)}
Изменено: Андрей Фетисов - 4 Дек 2015 16:49:40 (Добавил файл)
Показать значения опроса, если Вася выбрал Петю и Петя выбрал Васю, найти попарные совпадения, если и я выбрал вас и вы выбрали меня
 
Цитата
RAN написал: Пробелы макросу до лампочки.
Да Вы правы. Хочу поблагодарить еще раз RAN, за макрос подсветки "взаимностей" и Pelena, за чудесную формулу {=--ИЛИ($B$2:$B$7&$A$2:$A$7=A2&B2)}
Оба варианта прелестны и полностью решают мой вопрос!
RESOLVED
Показать значения опроса, если Вася выбрал Петю и Петя выбрал Васю, найти попарные совпадения, если и я выбрал вас и вы выбрали меня
 
RAN, - да, вариант с макросом - красиво. Пытаюсь адаптировать чтоб понимал имена с пробелами типа: Васислий Васильевич Пупкин  
Показать значения опроса, если Вася выбрал Петю и Петя выбрал Васю, найти попарные совпадения, если и я выбрал вас и вы выбрали меня
 
Pelena, Ух ты, здорово!
А что это за доп. поле - никак не вникну. Но все работает вроде... Вот спасибо. Буду разбираться.

Пытливый, RAN, спасибо, отпишусь завтра про эти варианты.  
Изменено: Андрей Фетисов - 11 Ноя 2015 18:15:06
Показать значения опроса, если Вася выбрал Петю и Петя выбрал Васю, найти попарные совпадения, если и я выбрал вас и вы выбрали меня
 
Здравствуйте,
Не сталкивались ли вы с такой простой задачей как опрос в excel? Например Петя проголосовал за Васю и Вася проголосовал за Петю, как найти среди их прочих ответов именно такое соответствие тоесть показать только тех за кого проголосовал Петя, если и они в свою очередь проголосовали за Петю.

Такой вот список:
васяпетя
васястепа
васядаша
петявася
петяСтепа
Из этого списка должны остаться только вася - петя
Пробовал Многоразовый ВПР, тоесть находим все вхождения за которые проголосовал вася, потом перебираем каждое найденное значение тем же множественным ВПР и потом сравниваем есть ли совпадения - но как то сложновато получается...
Еще не плохой вариант Парная подсветка дубликатов, но мне надо чтоб подсвечивал не все одинаковые, а именно те в которых вася выбрал петю и петя выбрал васю.
Убрать сгруппированные строки по условию, Убрать диапазоны в которых нет дат с... по...
 
Здравствуйте,
Подскажите можно ли по условию удалять сгруппированные диапазоны? Условие такое: если ни в одной из строк сгруппированного диапазона нет определенного диапазона дат - удалять весь диапазон.

Например есть 3 диапазона (те что минусиком сворачиваем) строк:

И мы хотим убрать весь диапазон если в нем нету от 20130801 до 20130806 - должно остаться только 2 диапазона.

  1. Для решения надо пронумеровать все диапазоны, так чтобы по признаку пустой строки в столбце А начинался бы следующий диапазон.
  2. Сделать поиск во всех диапазонах. Удалить номера диапазонов в которых нет искомых значений (в данном случае дат)

Вот тут перебор значений диапазона
Код
Sub test() 
Dim cell As Range: Set cell = Range("qwer").Find(5, , xlValues) 
If Not cell Is Nothing Then MsgBox "Число 5 найдено в ячейке " & cell.Address 
End Sub
В моем случае это сгруппированные диапазоны, как после найденной пустой ячейки, скопировать адрес начала сгруппированного диапазона, а затем адрес конца сгруппированного диапазона?

Далее планирую использовать этот вот макрос удаления строк по условию:
Код
Sub УдалениеСтрокПоНесколькимУсловиям()
    Dim ra As Range, delra As Range
    Application.ScreenUpdating = False    ' отключаем обновление экрана

    ' ищем и удаляем строки, содержащие заданный текст
   ' (можно указать сколько угодно значений, и использовать подстановочные знаки)
   УдалятьСтрокиСТекстом = Array("Наименование *", "Количество", _
                                  "текст?", "цен*сти", "*78*")

    ' перебираем все строки в используемом диапазоне листа
   For Each ra In ActiveSheet.UsedRange.Rows
        ' перебираем все фразы в массиве
       For Each word In УдалятьСтрокиСТекстом
            ' если в очередной строке листа найден искомый текст
           If Not ra.Find(word, , xlValues, xlPart) Is Nothing Then
                ' добавляем строку в диапазон для удаления
               If delra Is Nothing Then Set delra = ra Else Set delra = Union(delra, ra)
            End If
        Next word
    Next

    ' если подходящие строки найдены, то: (оставьте одну из 2 следующих строк)
   If Not delra Is Nothing Then delra.EntireRow.Hidden = True    ' скрываем их
   If Not delra Is Nothing Then delra.EntireRow.Delete    ' удаляем их
End Sub
Изменено: Андрей Фетисов - 19 Авг 2013 17:21:23 (Дополнительные данные для решения задачи.)
Счётеслимн. В аргументе функции "<A8" - дата?
 
Волшебно! ">="&A8 Работает! Спасибо Вам!
Счётеслимн. В аргументе функции "<A8" - дата?
 
График устранения неисправностей.  
1) Надо выбрать уникальные значения, или просто взять периоды по 3 мес.  
2) Посчитать сколько раз даты встречаются в этот период  
 
1) Вопрос    
Как в формуле =СЧЁТЕСЛИМН($A$2:$A$5;">=31.12.2011";$A$2:$A$5;"<=01.04.2012"),    
вместо написания даты, поставить ссылку на дату? Так не работает:  
=СЧЁТЕСЛИМН($A$2:$A$5;">=31.12.2011";$A$2:$A$5;"<=A8")  
2) Вопрос  
Может есть решение красивей?    
В "реале", даты находятся на нескольких листах. Сделать надо единый список со всеми датами и их (дат) количеством. Тоесть во вложении упрощенный вариант.  
 
найдено        устранено  
01.01.2012 05.01.2012  
02.01.2012  
02.04.2012 05.04.2012  
 
должно получится:  
найдено к: ко-во устранено к: к-во  
01.04.2012 2 01.04.2012 2  
01.06.2012 1 01.06.2012 1
Размещение рисунка под ячейками (без подложки)
 
Без подложки хотите? Потому, что подложка в Excel не выводится на печать, а выводится только в Word?!  
 
Тогда так "Вставка"-"Колонтитул"-"элементы колонтитулы"-"рисунок" - выбираете рисунок размером А4  
 
Прикрепил файл со словом ОБРАЗЕЦ - посмотрите.
как указать ширину и высоту ячейки в миллиметрах?
 
{quote}{login=vikttur}{date=04.02.2010 01:32}{thema=}{post}  
Единицы измерения и линейки в Excel:  
В отличие от Microsoft Word в Excel нет горизонтальных и вертикальных линеек, это приложение не позволяет быстро измерить ширину или высоту листа в сантиметрах.    
1 мм = 2.85 пунктов = 3.8 пикселей  
{/post}{/quote}  
Друзья, нашел кажется, на вкладке "вид" выберите "разметка страницы" появится линейка!  
Мне надо было сделать ширину ячейки 10 см и Excel говорит что это 378 пикселей  
 
 
Кстати в файле касса слияний (для первоклашек карточки слогов), задание роителям
создание надстройки
 
спасибо други!  
Заработала кнопка с макросом из надстройки.  
Причина  - по привычке писал sub без private. Также в custom ui.xml был пробел после названия макроса после ковычки " и перед слэшем - внимательнее редактировать xml.  
 
Единственное НО - я думал достаточно положить xlam application data\microsoft\excell\addins чтоб автоматом надстройка всегда запускалась у пользователя, а надо еще и прописывать ее в екселе в надстройках. Да и вкладка тоже не нужна для пары макросов (для пакета приложений - идеально) - удобнее все ж пользоваться панелью быстрого запуска, записать пользователю xlsb файл в excell\xlstart и добавитькнопку с макросом на панель быстрого запуска.  
 
Вот если б можно было исталлировать кнопку быстрого запуска с макросом пользователю через xlsb ...
создание надстройки
 
{quote}{login=egonomist}{date=30.08.2011 09:26}{thema=Как я сделал}{post}На будущее может кому пригодиться. Добавление кнопок на панель инструментов без макросов...  
4) в редакторе visual basic переместил в надстройку свои макросы. при этом макросы должны быть объявлены как    
Sub macros (control As IRibbonControl)  
подробнее (http://www.planetaexcel.ru/forum.php?thread_id=6765)  
имена макросов должны быть такими же как указаны в customUI.xml  
{/post}{/quote}  
Надстройка появляется - макрос назначенный на кнопку из настройки не работает!  
Можно поподробнее, в какой Module написать макрос, чтоб он работал?
Макрос суммирование по месяцам
 
1. А зачем ActiveSheet.UsedRange.RemoveSubtotal ?  
2. Я так понимаю вводить поиск переменной столбца количество, на случай если он тоже не рядом с датой, нет смысла, т.к. это условие чтобы работали промежуточные итоги?
Макрос суммирование по месяцам
 
Здравствуйте друзья.  
Есть таблица с заголовком материал - дата - количество  
Формат дат 01.01.2012  
Надо сгруппировать макросом все количества по месяцам. Вариант решения со сводной  - в ней есть сортировка по месяцам, не подойдет, т.к. макросом ее создать не смог.  
 
Решение без сводной, записал авто макрос  
 
Sub SumMonth()  
'  
' Суммирование по месяцам  
'  
 
' Меняем формат дат на "mm.yy"  
   Columns("B:B").Select  
   Selection.NumberFormat = "[$-419]mmmm yyyy;@"
' Применяем из закладки "данные" - "промежуточные итоги"  
   Columns("B:C").Select  
   Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(2), _  
       Replace:=True, PageBreaks:=False, SummaryBelowData:=True  
End Sub  
 
Но возможно в таблице столбец "дата" или "количество" могут быть в любом  месте, а не в столбце B - C как в примере.  
 
Как сказать макросу чтоб искал столбец дата по маске "ДД.МММ.ГГ" ?
Найти все значения Х, отсортировать их и под каждым вставить строку со значением Y
 
{quote}{login=Маугли}{date=12.11.2011 08:19}{thema=}{post}По топику  11.11.2011, 09:26 попробуйте такой вариант..{/post}{/quote}  
С.М.  
Маугли  
 
Спасибо, изучил и почерпнул из ваших примеров...  
Проблема решена!
Страницы: 1 2 3 След.
Наверх