Всем привет! Есть количество страниц в документе (B1), нужно в столбце C получить номера страниц для "ручной" печати буклета (2 стр. на лист, двухсторонняя печать) У мну 2 формулы: для excel 2007 937563 61 (немассивная, протягиваемая вниз, может не работать в 2003), рабочая для 2003 - 1139573 71
таблица справа в расчетах не используется, она просто для наглядности, для нее тоже есть формула для excel 2007 88 64 (немассивная, протягиваемая вправо и вниз, может не работать в 2003), рабочая для 2003 - 100 70
все без "="
[p.s.]У мну в 2003 все формулы работают
Всем привет! Есть количество страниц в документе (B1), нужно в столбце C получить номера страниц для "ручной" печати буклета (2 стр. на лист, двухсторонняя печать) У мну 2 формулы: для excel 2007 937563 61 (немассивная, протягиваемая вниз, может не работать в 2003), рабочая для 2003 - 1139573 71
таблица справа в расчетах не используется, она просто для наглядности, для нее тоже есть формула для excel 2007 88 64 (немассивная, протягиваемая вправо и вниз, может не работать в 2003), рабочая для 2003 - 100 70
еще вариант, чтобы кнопка отображалась, нужно включить отображение скрытого текста (Параметры Word>Экран>Всегда показывать...>галка Скрытый текст) [vba]
еще вариант, чтобы кнопка отображалась, нужно включить отображение скрытого текста (Параметры Word>Экран>Всегда показывать...>галка Скрытый текст) [vba]
Сделал третий вариант с помощью подключения и SQL запроса вводим данные в столбцы и на таблице жмем ПКМ>Обновить
[vba]
Код
SELECT IIF(F1 LIKE '-%', MID(F1,2,LEN(F1)), F1) AS Результат, SUM(IIF(F1 LIKE '-%', -1, 1)) AS `КОЛ-ВО ПОВТОРЕНИЙ` FROM (SELECT F1 FROM `Лист1$` UNION ALL SELECT F2 FROM `Лист1$` UNION ALL SELECT F3 FROM `Лист1$` UNION ALL SELECT F4 FROM `Лист1$` UNION ALL SELECT F5 FROM `Лист1$` UNION ALL SELECT F6 FROM `Лист1$` UNION ALL SELECT F7 FROM `Лист1$` UNION ALL SELECT F8 FROM `Лист1$`) t1 WHERE F1 IS NOT NULL GROUP BY IIF(F1 LIKE '-%', MID(F1,2,LEN(F1)), F1)
[/vba]
upd. упростил запрос, заменил файл
Сделал третий вариант с помощью подключения и SQL запроса вводим данные в столбцы и на таблице жмем ПКМ>Обновить
[vba]
Код
SELECT IIF(F1 LIKE '-%', MID(F1,2,LEN(F1)), F1) AS Результат, SUM(IIF(F1 LIKE '-%', -1, 1)) AS `КОЛ-ВО ПОВТОРЕНИЙ` FROM (SELECT F1 FROM `Лист1$` UNION ALL SELECT F2 FROM `Лист1$` UNION ALL SELECT F3 FROM `Лист1$` UNION ALL SELECT F4 FROM `Лист1$` UNION ALL SELECT F5 FROM `Лист1$` UNION ALL SELECT F6 FROM `Лист1$` UNION ALL SELECT F7 FROM `Лист1$` UNION ALL SELECT F8 FROM `Лист1$`) t1 WHERE F1 IS NOT NULL GROUP BY IIF(F1 LIKE '-%', MID(F1,2,LEN(F1)), F1)
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]
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
нагородил еще больше: два доп.столбца, две сводные, два подключения, макрофункция, формула, условное форматирование чего-то я разошелся ... первое подключение формирует значения сводной для построения заголовков столбцов на листе результат второе подключение выбирает уникальные номера договоров и выводит в таблицу на листе результат при увеличении количества редакций таблицу нужно будет протянуть вручную все обновляется так же, как и в предыдущем файле (Ctrl+Alt+F5)
нагородил еще больше: два доп.столбца, две сводные, два подключения, макрофункция, формула, условное форматирование чего-то я разошелся ... первое подключение формирует значения сводной для построения заголовков столбцов на листе результат второе подключение выбирает уникальные номера договоров и выводит в таблицу на листе результат при увеличении количества редакций таблицу нужно будет протянуть вручную все обновляется так же, как и в предыдущем файле (Ctrl+Alt+F5)krosav4ig
Мурад, если вам нужно, чтобы в файле Word обновлялись таблицы из excel диапазонов и диаграммы, то это легко делается полем LINK в файле test.docx нужно будет обновить поля Ctrl+A>F9
Мурад, если вам нужно, чтобы в файле Word обновлялись таблицы из excel диапазонов и диаграммы, то это легко делается полем LINK в файле test.docx нужно будет обновить поля Ctrl+A>F9krosav4ig
3 пункт из первой ссылки внимательно читали? а то чего-то вашего файла-примера не вижу, а свой не дам (жадный я )
[p.s.]на всякий случай... я бы не советовал использовать функцию ЯЧЕЙКА(), ибо она волатильная и пересчитывается при любом изменении не только в той книге, где она вставлена, но и при любом изменении в любой книге, открытой в этом же экземпляре excel
3 пункт из первой ссылки внимательно читали? а то чего-то вашего файла-примера не вижу, а свой не дам (жадный я )
[p.s.]на всякий случай... я бы не советовал использовать функцию ЯЧЕЙКА(), ибо она волатильная и пересчитывается при любом изменении не только в той книге, где она вставлена, но и при любом изменении в любой книге, открытой в этом же экземпляре excelkrosav4ig
исчо вариант, поналепил все подряд, два доп.столбца, сводная, подключение к внешним данным и формула
заполняем таблицу на листе база, жмем Ctrl+Alt+F5 (или вручную обновляем сводную и обновляем таблицу на листе результат) и смотрим, чего получилось на листе результат
исчо вариант, поналепил все подряд, два доп.столбца, сводная, подключение к внешним данным и формула
заполняем таблицу на листе база, жмем Ctrl+Alt+F5 (или вручную обновляем сводную и обновляем таблицу на листе результат) и смотрим, чего получилось на листе результатkrosav4ig
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
)
