Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Записи участника (krosav4ig) - Мир MS Excel

Старая форма входа
Мир MS Excel » Записи участника » krosav4ig [2343]
Результаты поиска
krosav4ig Дата: Понедельник, 24.08.2015, 05:34 | Сообщение № 861 | Тема: Печать из VBA конкретной страницы файла PDF
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
_Boroda_, предлагаю попробовать sumatrapdfreader
[vba]
Код
Sub printPDF(strDir$, files As Variant, Optional pages$, Optional count% = 1, Optional printer$)
     If IsArray(files) Then files = Join(files, """ """ & strDir & "\")
     printer = IIf(printer > "", " """ & printer & """", "-default")
     CreateObject("wscript.shell").Run "SumatraPDF -print-to" & printer & " -print-settings """ _
         & pages & "," & count & "x"" " & """" & strDir & "\" & files & """"
     End Sub
Sub test()
     printPDF "%userprofile%\Рабочий стол", Array("5292345.pdf", "0970907.pdf"), 2, 3, "Canon MF4010 Series UFRII LT"
End Sub
[/vba]аргументы командной строки
[p.s.]у мну портабельный SumatraPDF.exe в system32

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Понедельник, 24.08.2015, 16:04
 
Ответить
Сообщение_Boroda_, предлагаю попробовать sumatrapdfreader
[vba]
Код
Sub printPDF(strDir$, files As Variant, Optional pages$, Optional count% = 1, Optional printer$)
     If IsArray(files) Then files = Join(files, """ """ & strDir & "\")
     printer = IIf(printer > "", " """ & printer & """", "-default")
     CreateObject("wscript.shell").Run "SumatraPDF -print-to" & printer & " -print-settings """ _
         & pages & "," & count & "x"" " & """" & strDir & "\" & files & """"
     End Sub
Sub test()
     printPDF "%userprofile%\Рабочий стол", Array("5292345.pdf", "0970907.pdf"), 2, 3, "Canon MF4010 Series UFRII LT"
End Sub
[/vba]аргументы командной строки
[p.s.]у мну портабельный SumatraPDF.exe в system32
Автор - krosav4ig
Дата добавления - 24.08.2015 в 05:34
krosav4ig Дата: Понедельник, 24.08.2015, 15:40 | Сообщение № 862 | Тема: Печать из VBA конкретной страницы файла PDF
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
исправил свой пост

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Понедельник, 24.08.2015, 16:04
 
Ответить
Сообщениеисправил свой пост
Автор - krosav4ig
Дата добавления - 24.08.2015 в 15:40
krosav4ig Дата: Пятница, 28.08.2015, 17:35 | Сообщение № 863 | Тема: Сложение лет/месяцев/дней
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
мне все-таки интересно, почему
Цитата Nastassiya, 28.08.2015 в 10:10, в сообщении № 1
9 лет 8 месяцев 82 дня
а не 9 лет 10 месяцев 22 дня?
есть массивная формула, возвращает горизонтальный массив из 3-х значений ({лет;месяцев;дней}, расчет 30x12)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Пятница, 28.08.2015, 17:36
 
Ответить
Сообщениемне все-таки интересно, почему
Цитата Nastassiya, 28.08.2015 в 10:10, в сообщении № 1
9 лет 8 месяцев 82 дня
а не 9 лет 10 месяцев 22 дня?
есть массивная формула, возвращает горизонтальный массив из 3-х значений ({лет;месяцев;дней}, расчет 30x12)
Автор - krosav4ig
Дата добавления - 28.08.2015 в 17:35
krosav4ig Дата: Вторник, 15.09.2015, 16:25 | Сообщение № 864 | Тема: Формула условия (много критериев)
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
для разнообразия
Код
=МИН(650;ОКРВВЕРХ(I6-150;50)+100)*10

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Вторник, 15.09.2015, 16:27
 
Ответить
Сообщениедля разнообразия
Код
=МИН(650;ОКРВВЕРХ(I6-150;50)+100)*10
Автор - krosav4ig
Дата добавления - 15.09.2015 в 16:25
krosav4ig Дата: Четверг, 17.09.2015, 18:32 | Сообщение № 865 | Тема: Выделение цветом ячейки 1 при выборе ячейки 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
УФ + макрос для перерисовки
Код
=ИЛИ(СТОЛБЕЦ()=ЯЧЕЙКА("столбец");СТРОКА()=ЯЧЕЙКА("строка"))

[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal target As Range)
      ActiveCell.Calculate
End Sub
[/vba]
К сообщению приложен файл: -2-.xlsm (16.9 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Четверг, 17.09.2015, 18:35
 
Ответить
СообщениеУФ + макрос для перерисовки
Код
=ИЛИ(СТОЛБЕЦ()=ЯЧЕЙКА("столбец");СТРОКА()=ЯЧЕЙКА("строка"))

[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal target As Range)
      ActiveCell.Calculate
End Sub
[/vba]
Автор - krosav4ig
Дата добавления - 17.09.2015 в 18:32
krosav4ig Дата: Суббота, 31.10.2015, 15:13 | Сообщение № 866 | Тема: Числа, кратные пяти
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Здравствуйте. Вам поможет проверка данных по формуле с проверкой кратности.
На диапазон A1:A50 установил проверку данных по формуле (Данные>Проверка данных>Параметры>Тип данных:Другой)
Код
=НЕ(ОСТАТ(A1;5))
К сообщению приложен файл: 2488392.xlsx (11.9 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Суббота, 31.10.2015, 15:23
 
Ответить
СообщениеЗдравствуйте. Вам поможет проверка данных по формуле с проверкой кратности.
На диапазон A1:A50 установил проверку данных по формуле (Данные>Проверка данных>Параметры>Тип данных:Другой)
Код
=НЕ(ОСТАТ(A1;5))
Автор - krosav4ig
Дата добавления - 31.10.2015 в 15:13
krosav4ig Дата: Воскресенье, 29.11.2015, 21:07 | Сообщение № 867 | Тема: Сравнение (поиск совпадений) ячеек с числами
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
исчо вариант, похож на вариант Александра (Boroda), но более ленивый :)
УФ по формуле
Код
=СУММ(СЧЁТЕСЛИ($A3:$S3;"*/"&ПСТР(A3;ПОИСК("|";ПОДСТАВИТЬ(A3;"/";"|";СТРОКА($1:$10)))+1;3)&"*"))>(ДЛСТР(A3)-ДЛСТР(ПОДСТАВИТЬ(A3;"/";)))
К сообщению приложен файл: 4425819-2.xlsx (13.6 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеисчо вариант, похож на вариант Александра (Boroda), но более ленивый :)
УФ по формуле
Код
=СУММ(СЧЁТЕСЛИ($A3:$S3;"*/"&ПСТР(A3;ПОИСК("|";ПОДСТАВИТЬ(A3;"/";"|";СТРОКА($1:$10)))+1;3)&"*"))>(ДЛСТР(A3)-ДЛСТР(ПОДСТАВИТЬ(A3;"/";)))
Автор - krosav4ig
Дата добавления - 29.11.2015 в 21:07
krosav4ig Дата: Среда, 09.12.2015, 23:46 | Сообщение № 868 | Тема: История изменеий
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
исчо вариант, поналепил все подряд, два доп.столбца, сводная, подключение к внешним данным и формула

заполняем таблицу на листе база, жмем Ctrl+Alt+F5 (или вручную обновляем сводную и обновляем таблицу на листе результат) и смотрим, чего получилось на листе результат
К сообщению приложен файл: 7237309.xlsm (26.8 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Среда, 09.12.2015, 23:53
 
Ответить
Сообщениеисчо вариант, поналепил все подряд, два доп.столбца, сводная, подключение к внешним данным и формула

заполняем таблицу на листе база, жмем Ctrl+Alt+F5 (или вручную обновляем сводную и обновляем таблицу на листе результат) и смотрим, чего получилось на листе результат
Автор - krosav4ig
Дата добавления - 09.12.2015 в 23:46
krosav4ig Дата: Четверг, 10.12.2015, 00:53 | Сообщение № 869 | Тема: Перенос данных из word в Excel
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
titt0, если у вас есть 2gis api-ключ, то почитайте вот тут или тут, вдруг натолкнет на умную мыслю

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеtitt0, если у вас есть 2gis api-ключ, то почитайте вот тут или тут, вдруг натолкнет на умную мыслю
Автор - krosav4ig
Дата добавления - 10.12.2015 в 00:53
krosav4ig Дата: Четверг, 10.12.2015, 02:07 | Сообщение № 870 | Тема: Автоматическая вставка слова из названия файла в ячейку
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
почитайте тут, потом тут и тут

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Четверг, 10.12.2015, 02:08
 
Ответить
Сообщениепочитайте тут, потом тут и тут
Автор - krosav4ig
Дата добавления - 10.12.2015 в 02:07
krosav4ig Дата: Четверг, 10.12.2015, 05:22 | Сообщение № 871 | Тема: Автоматическая вставка слова из названия файла в ячейку
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
3 пункт из первой ссылки внимательно читали?
а то чего-то вашего файла-примера не вижу, а свой не дам (жадный я )

[p.s.]на всякий случай...
я бы не советовал использовать функцию ЯЧЕЙКА(), ибо она волатильная и пересчитывается при любом изменении не только в той книге, где она вставлена, но и при любом изменении в любой книге, открытой в этом же экземпляре excel

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Четверг, 10.12.2015, 05:22
 
Ответить
Сообщение3 пункт из первой ссылки внимательно читали?
а то чего-то вашего файла-примера не вижу, а свой не дам (жадный я )

[p.s.]на всякий случай...
я бы не советовал использовать функцию ЯЧЕЙКА(), ибо она волатильная и пересчитывается при любом изменении не только в той книге, где она вставлена, но и при любом изменении в любой книге, открытой в этом же экземпляре excel
Автор - krosav4ig
Дата добавления - 10.12.2015 в 05:22
krosav4ig Дата: Пятница, 11.12.2015, 14:13 | Сообщение № 872 | Тема: Связь табличных данных Word и Excel
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Мурад, если вам нужно, чтобы в файле Word обновлялись таблицы из excel диапазонов и диаграммы, то это легко делается полем LINK
в файле test.docx нужно будет обновить поля Ctrl+A>F9
К сообщению приложен файл: test.docx (47.2 Kb) · test.xlsx (21.5 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеМурад, если вам нужно, чтобы в файле Word обновлялись таблицы из excel диапазонов и диаграммы, то это легко делается полем LINK
в файле test.docx нужно будет обновить поля Ctrl+A>F9
Автор - krosav4ig
Дата добавления - 11.12.2015 в 14:13
krosav4ig Дата: Пятница, 11.12.2015, 21:00 | Сообщение № 873 | Тема: увеличение даты на 3 года
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
еще вариант со сводной
заполняем столбцы B:D в таблице на листе Лист2 и обновляем сводную на листе Лист1
К сообщению приложен файл: 8558969.xlsx (17.6 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Пятница, 11.12.2015, 21:01
 
Ответить
Сообщениееще вариант со сводной
заполняем столбцы B:D в таблице на листе Лист2 и обновляем сводную на листе Лист1
Автор - krosav4ig
Дата добавления - 11.12.2015 в 21:00
krosav4ig Дата: Воскресенье, 13.12.2015, 16:21 | Сообщение № 874 | Тема: Присвоение значения ячейки после сравнения
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Код
=ЕСЛИОШИБКА(ПРОСМОТР(1;ПОИСК(Люди!$A$2:$A$14;База!A2)^0;Люди!$B$2:$B$14);"")
К сообщению приложен файл: 13.12.2015.xls (28.5 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение
Код
=ЕСЛИОШИБКА(ПРОСМОТР(1;ПОИСК(Люди!$A$2:$A$14;База!A2)^0;Люди!$B$2:$B$14);"")
Автор - krosav4ig
Дата добавления - 13.12.2015 в 16:21
krosav4ig Дата: Понедельник, 14.12.2015, 03:38 | Сообщение № 875 | Тема: выбор значения в зависимости от нескольких параметров
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
из вашей таблицы сделал плоскую, по ней построил сводную, далее формула
Код
="Коэф. "&ПОЛУЧИТЬ.ДАННЫЕ.СВОДНОЙ.ТАБЛИЦЫ("Коэф";$K$2;"Признак 1";B3;"Признак 2";B4;"Признак 3";B5)
К сообщению приложен файл: 8340864.xlsx (23.1 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениеиз вашей таблицы сделал плоскую, по ней построил сводную, далее формула
Код
="Коэф. "&ПОЛУЧИТЬ.ДАННЫЕ.СВОДНОЙ.ТАБЛИЦЫ("Коэф";$K$2;"Признак 1";B3;"Признак 2";B4;"Признак 3";B5)
Автор - krosav4ig
Дата добавления - 14.12.2015 в 03:38
krosav4ig Дата: Понедельник, 14.12.2015, 04:08 | Сообщение № 876 | Тема: Как копировать данные ячеек с одного листа на другой?
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
[offtop]Мое скромное ИМХО: задача намного удобнее решается при помощи слияния

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщение[offtop]Мое скромное ИМХО: задача намного удобнее решается при помощи слияния
Автор - krosav4ig
Дата добавления - 14.12.2015 в 04:08
krosav4ig Дата: Понедельник, 14.12.2015, 15:33 | Сообщение № 877 | Тема: История изменеий
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
нагородил еще больше: два доп.столбца, две сводные, два подключения, макрофункция, формула, условное форматирование
чего-то я разошелся ...
первое подключение формирует значения сводной для построения заголовков столбцов на листе результат
второе подключение выбирает уникальные номера договоров и выводит в таблицу на листе результат
при увеличении количества редакций таблицу нужно будет протянуть вручную
все обновляется так же, как и в предыдущем файле (Ctrl+Alt+F5)
К сообщению приложен файл: -2.xlsm (34.8 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениенагородил еще больше: два доп.столбца, две сводные, два подключения, макрофункция, формула, условное форматирование
чего-то я разошелся ...
первое подключение формирует значения сводной для построения заголовков столбцов на листе результат
второе подключение выбирает уникальные номера договоров и выводит в таблицу на листе результат
при увеличении количества редакций таблицу нужно будет протянуть вручную
все обновляется так же, как и в предыдущем файле (Ctrl+Alt+F5)
Автор - krosav4ig
Дата добавления - 14.12.2015 в 15:33
krosav4ig Дата: Вторник, 15.12.2015, 14:44 | Сообщение № 878 | Тема: История изменеий
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
чего-то слетело подключение с одной из сводных
исправил
К сообщению приложен файл: 1481103.xlsm (35.4 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Вторник, 15.12.2015, 14:48
 
Ответить
Сообщениечего-то слетело подключение с одной из сводных
исправил
Автор - krosav4ig
Дата добавления - 15.12.2015 в 14:44
krosav4ig Дата: Вторник, 15.12.2015, 23:07 | Сообщение № 879 | Тема: Фильтр в сводной таблице, учитывая условие
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Gamid, для вопросов по VBA есть отдельная ветка
по теме - пробуйте так
[vba]
Код
Sub pt()
    Dim s As Variant
retry:
    s = InputBox("vvedi chislo")
    If Not IsDate(s) Then
        If MsgBox("Введены данные в неверном фогрмате." & vbLf & "Повторить?", _
                  vbExclamation Or vbYesNo, "Ошибка") = vbYes Then
            GoTo retry
        Else: Exit Sub
        End If
    End If
    s = CDate(Format(s, "MM DD YYYY"))
    With ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Дата")
        .ClearAllFilters
        .PivotFilters.Add xlSpecificDate, , s
    End With
End Sub
[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Вторник, 15.12.2015, 23:56
 
Ответить
СообщениеGamid, для вопросов по VBA есть отдельная ветка
по теме - пробуйте так
[vba]
Код
Sub pt()
    Dim s As Variant
retry:
    s = InputBox("vvedi chislo")
    If Not IsDate(s) Then
        If MsgBox("Введены данные в неверном фогрмате." & vbLf & "Повторить?", _
                  vbExclamation Or vbYesNo, "Ошибка") = vbYes Then
            GoTo retry
        Else: Exit Sub
        End If
    End If
    s = CDate(Format(s, "MM DD YYYY"))
    With ActiveSheet.PivotTables("СводнаяТаблица1").PivotFields("Дата")
        .ClearAllFilters
        .PivotFilters.Add xlSpecificDate, , s
    End With
End Sub
[/vba]
Автор - krosav4ig
Дата добавления - 15.12.2015 в 23:07
krosav4ig Дата: Среда, 16.12.2015, 18:05 | Сообщение № 880 | Тема: количество уникальных значений с условием с 2 листов
Группа: Друзья
Ранг: Старожил
Сообщений: 2348
Репутация: 997 ±
Замечаний: 0% ±

Excel 2007,2010,2013
чего-то не очень понятно что нужно
может так? (формула массива, вводится нажатием Ctrl+Shift+Enter)
Код
=СУММ(Ч(СЧЁТЕСЛИ('Все звонки'!C3:C202;Неуспешные!C3:C21)=1))

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениечего-то не очень понятно что нужно
может так? (формула массива, вводится нажатием Ctrl+Shift+Enter)
Код
=СУММ(Ч(СЧЁТЕСЛИ('Все звонки'!C3:C202;Неуспешные!C3:C21)=1))
Автор - krosav4ig
Дата добавления - 16.12.2015 в 18:05
Мир MS Excel » Записи участника » krosav4ig [2343]
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!