Добрый день! Не срабатывает редизайнер, взятый из Готовых решений . Цель проста - получить простую вертикальную таблицу: КПС-Месяц-КЭК-Значение. Выбираю весь диапазон, указываю кол-во строк - 2, кол-во столбцов слева - 2, кол-во итоговых столбцов - 1. Выходит сообщение об уменьшении шапки, нажимаю Ок. На этом все завершается.
Добрый день! Не срабатывает редизайнер, взятый из Готовых решений . Цель проста - получить простую вертикальную таблицу: КПС-Месяц-КЭК-Значение. Выбираю весь диапазон, указываю кол-во строк - 2, кол-во столбцов слева - 2, кол-во итоговых столбцов - 1. Выходит сообщение об уменьшении шапки, нажимаю Ок. На этом все завершается.Мурад
SLAVICK, на примере тоже не работает.. Все операции выполняю, экран моргнул слегка и только. Раньше работало все. Прикладываю оригинальную таблицу без сумм и код, которым пользовался.
SLAVICK, на примере тоже не работает.. Все операции выполняю, экран моргнул слегка и только. Раньше работало все. Прикладываю оригинальную таблицу без сумм и код, которым пользовался.Мурад
Простите, но не доходит - с какого боку здесь редизайнер?! Есть диапазон вертикали и диапазон в горизонте - что, куда, по какой логике собрались "редизайнерить"?! Вообще - какая генеральная идея сей задумки?..
Простите, но не доходит - с какого боку здесь редизайнер?! Есть диапазон вертикали и диапазон в горизонте - что, куда, по какой логике собрались "редизайнерить"?! Вообще - какая генеральная идея сей задумки?.. TimSha
Нашел причину : апрель 2015 при проверке на дату - дата а вот *1 не получилось :D У меня сработало сначала, потому что функция проверки у меня немного другая. Вот нужно заменить строку: [vba]
Код
Проверка_слова = str * 1: Exit Function
[/vba] на [vba]
Код
If IsNumeric(str) Then Проверка_слова = str * 1 Else Проверка_слова = str
А Вы ссылку Мурада видели - почитайте там все написано . Попробуйте с такой таблицы сводную сделать - очень удобно с ней работать?
Нашел причину : апрель 2015 при проверке на дату - дата а вот *1 не получилось :D У меня сработало сначала, потому что функция проверки у меня немного другая. Вот нужно заменить строку: [vba]
Код
Проверка_слова = str * 1: Exit Function
[/vba] на [vba]
Код
If IsNumeric(str) Then Проверка_слова = str * 1 Else Проверка_слова = str
SLAVICK, в принципе я знаком со всеми вариантами Редизайнеров и примерами к ним из Мира и с Планеты. Но в этом конкретном случАе с примерами Мурада не могу врубиться - видно день не мой... Это так - к сведению.
SLAVICK, в принципе я знаком со всеми вариантами Редизайнеров и примерами к ним из Мира и с Планеты. Но в этом конкретном случАе с примерами Мурада не могу врубиться - видно день не мой... Это так - к сведению.TimSha