Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Не удается применить доступ к полям в типе Text при операции Table.TransformColumns, Ошибка Power Query
 
Здравствуйте!
При выполнении Table.TransformColumns с целью замены пробела (в качестве примера) на значение из другого столбца возникает такая ошибка. При этом условный столбец по тем же критериям создается без проблем. Подскажите, пожалуйста, как победить. Спасибо
Код
Код
let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица"]}[Content],
    тип = Table.TransformColumnTypes(Источник,{{"Сумма", type text}, {"Остаток", type text}}),
    Ус_столб = Table.AddColumn(тип, "Change", each if [Сумма] = " " then [Остаток] else [Сумма], type text),
    Замена = Table.TransformColumns(Ус_столб, {{"Сумма", each if Text.Length(_) < 2 then [Остаток] else _, type text}})
in
    Замена
Подсчет суммы в зависимости от текста и значений во втором столбце
 
Доброго здоровья.
Задачка такая.
В первом столбце есть значения A, B, C.
При подсчете им соответствуют числа 4, 3, 2. Но это при условии, если во втором столбце значения равны 0.
Если же значение отлично от 0, то каким бы ни было значение в 1-м столбце, считается 1.
Формулу я придумал, но она мне не очень нравится. Есть ли более короткая?
Суммирование по критерию в таблице при фильтрации
 
Ув. знатоки. Столкнулся с интересной задачей. Есть таблица, в которой 2 столбца - "Параметр" и "Критерий". Критерию А соответствует число 3, B - 2, С - 1. В 1-м столбце данные фильтруются и выбирается всегда 1 значение. Необходимо в строке итогов суммировать числа соответствующие буквам при фильтрации столбца А. Дополнительный столбец С решает данную задачу. Одна проблема - нужно выполнить подсчет без доп. столбца. В приведенном файле используется "суммпроизв", но она не учитывает скрытые строки.
Изменено: okshef - 15.10.2015 08:34:47 (новый файл)
Подсчет количества уникальных значений в сводной таблице
 
Дана таблица со столбцами "Поле", "Название", "Числа". Таблица, как вы понимаете, условная. Сводная подсчитывает количество чисел, соответствующих каждому полю и каждому названию. Задача, которую я никак не могу решить: необходимо в сводной таблице найти итог по количеству уникальных "Названий". Спасибо.
Отображение промежутка рабочих дней на основании текущей даты, функции даты
 
Здравствуйте!
Лень - двигатель прогресса, вот и решил облегчить себе жизнь с помощью формулы :).
Задача. Есть график, который выполняется в рабочие дни. Есть ячейка, в которой отображается промежуток рабочих дней для текущей недели. График корректируется для следующей недели, соответственно в ячейку нужно записать даты рабочих дней следующей недели.
Условие: если коррекция графика (файл открывается) проводится с понедельника по четверг включительно, то промежуток менять не нужно, если коррекция выполняется с пятницы по воскресенье, то и даты нужно поменять.
Пример:
1) если сегодня понедельник, 15 июля 2013 года, то в контрольной ячейке должно быть записано "15.07.13 - 19.07.13"
2) если сегодня суббота, 20.07.13, то промежуток времени в ячейке нужно изменить на "22.07.13 - 26.07.13"
Я понимаю, что что-то должно быть связано с "=сегодня()", но вот как найти ближайший понедельник и четверг - не знаю.
Поможете?
Преобразование текста "день недели" в число
 
Здравствуйте. Есть таблица со столбцом дней недели: "понедельник", "вторник" и т.д. (столбец D)

Для преобразования в число использовал такую многовложенную "ЕСЛИ":
Код
=ЕСЛИ(D2="понедельник";1;
   ЕСЛИ(D2="вторник";2;
      ЕСЛИ(D2="среда";3;
         ЕСЛИ(D2="четверг";4;
            ЕСЛИ(D2="пятница";5;
               ЕСЛИ(D2="суббота";6;7))))))

Хочется это преобразование как-то усовершенствовать. Есть идеи?
Спасибо.
Подсчет ячеек, в тексте которых содержится одно из трех текстовых значений
 
Вот такая задачка. Есть столбец, содержащий некие тексты, есть условия в виде "текст1", "текст2" и "текст3". В ячейке условные тексты не перекрещиваются, то есть может быть только один текст или никаких. Необходимо посчитать количество ячеек, содержащих один из трех текстов, ну и, соответственно, количество, не содержащих искомые тексты.
Примерный файл с решением "а-ля 5-й класс" приложил. Существует ли решение без доп. столбцов?
Буду благодарен ссылке на подобное решение.
Надстройка для изменения стиля ссылок xlA1 - xlR1C1
 
Искал информацию по изменению стиля ссылок. Нашел: Названия столбцов цифрами
Хотелка: добавить кнопку на ленту (например, вкладка "Главная"), по нажатии которой стиль бы менялся.
Но главное - чтобы код был в personal.xls, то есть чтобы кнопка добавлялась "динамически" - нет файла, нет кнопки.
Спасибо всем откликнувшимся.
Свойства объекта "Таблица"
 
Добрый день.
Решил немножко поработать с таблицами. До чего смог дойти самостоятельно:
обращение к таблице:
Код
Me.ListObjects(N)

или
Код
Me.ListObjects("TableName")

Некоторые свойства:
количество строк и столбцов
Код
Me.ListObjects(N).ListRows.Count
Me.ListObjects(N).ListColumns.Count

причем нужно учитывать, что значение покажет количество строк без учета строки заголовка
Возникли некоторые вопросы. Например, как считать значение в ячейке таблицы, находящейся в 5-й строке 3-м столбце
или как быстро перейти в левую нижнюю ячейку таблицы. Откуда такие глупые вопросы? Например, использую код
Код
Set T1=Me.ListObjects(1)
T1.Range(T1.ListRows.Count, 2).Select

и выбирается ячейка в предпоследней строке втором столбце(???)
Прошу, по-возможности, направить на мануалы по этому поводу.
Поиск номеров непустых ячеек
 
Интересную попросили решить задачку: столбец В:В нужно заполнить формулами так, чтобы в них выводились номера непустых ячеек столбца А:А
Удаление собственных сообщений
 
Бывают случаи, как, например, здесь: Неизвестные примечания к ячейкам - опоздал с советом. Хотел удалить сообщение, а кнопочки не нашел. Или такая возможность не предусмотрена?

По опыту Oszone.net, порой форумчане то ли от злости, то ли от глупости удаляют свои посты - темы выглядят нелепо (нарушается логика), но это редкость.
Изменено: okshef - 26.12.2012 11:08:37
Запись содержимого окна Immediate или команды Debug.Print в лог
 
Доброго здоровья!  
Задался вопросом. Есть макросы ,в которых используется конструкция  
....  
On Error GoTo sub1  
....  
....  
sub1:  
Debug.Print Err, Err.Number, Err.Description: Resume Next  
....  
Результат выводится в окно Immediate  
Если код закрыт, естественно, отследить сбои невозможно. Вопрос: как собрать всё записанное в лог и сохранить в текстовый файл в папке с файлом Excel? Второй вопрос на грани невозможного: как в тот же лог записать в каком модуле и где именно произошла ошибка?  
Спасибо.
Отключение появления диалогового окна для изменения параметров подключения
 
Здравствуйте!  
Суть проблемы. Есть книга с подключением (Connections(1)). При выполнении функции Me.Connections(1).Refresh  
происходит следующее:  
1) если файл (Access) находится на месте, обновление происходит нормально  
2) если файл в прописанном в подключении месте отсутствует, но при этом такой же файл находится в одной папке с файлом Excel, появляется вот такое окно: http://okshef.narod.ru/Tech_Img/Excel/connection/file_in_folder.png  
3) если выбрать "Да", производится подключение, обновление, но при этом меняется значение Me.Connections(1).OLEDBConnection.Connection (параметр Data Source)  
4) если выбрать "Нет", то появляется такое окно http://okshef.narod.ru/Tech_Img/Excel/connection/file_in_folder_no.png где можно задать новое расположение и имя файла базы данных, что категорически делать нельзя  
Вопрос: как отключить возможность появления этих диалоговых окон, чтобы запретить пользователю менять параметры подключения. В принципе, при изменении параметров файл и так не сохраняет внесенные изменения (ActiveWorkbook.Close SaveChanges:=False), поэтому нужно только, чтобы не появлялись диалоговые окна. Вполне возможно, что есть какой-то запрет, но вот какой...
Формирование списка уникальных значений из диапазона по возрастанию или убыванию
 
Здравствуйте. Есть список неких значений, некоторые повторяются, некоторые нет. Задача: сформировать список только из уникальных значений по возрастанию или убыванию.  
Нашел решение с помощью сводной - самому нравится :)  
Знаю, что можно с помощью VBA, но пока не нужно.  
Хотелось бы только с помощью формул. Мучения с "НАИБОЛЬШИЙ" и "НАИМЕНЬШИЙ" ни к чему не привели - диапазон сортируется и выводятся повторяющиеся, а нужны только уникальные.
Найти номер строки последней заполненной ячейки в массиве, если заполнена только одна
 
Прошу не серчать за неиспользование поиска, но суть такова:  
если в массиве заполнено хотя бы 2 строки, функция  
lrow = Range("A:A").End(xlDown).Row  
работает.  
Если же в массиве только одна заполненная ячейка A1, то переменная, в зависимости от версии Office, получает максимально доступное количество строк.  
Вопрос: как обойти этот подвох без дополнительных проверок, типа  
If lrow > 100000 then lrow = 2
Подсчет количества строк, содержащих определенные значения
 
Добрый день!  
Давно бьюсь над простой задачкой. Есть оценочная ведомость. Нужно ответить на несколько простых вопросов:  
1. Сколько получено пятерок (двоек)  
2. Сколько учеников получили 5 (2)  
3. Каков средний балл по русскому языку, среди учеников, имеющих пятерки (по любому предмету)  
 
С помощью доп. столбцов задача решается элементарно. Как вывести по одной формуле для ответа на каждый вопрос? Одну нашел :)  
 
Sorry, Excel 2010
Оптимизация формулы: выбор и суммирование частей текстовой строки
 
Прошу прощения за "не поисковое" название темы.  
Есть файл, в котором по поставленным задачам в поле месяцев, считаются числители и знаменатели. Формула, в принципе, написана, но есть ощущение, что она может быть оптимизирована, или, иными словами, унифицирована. Если не затруднит - подтолкните к решению, пожалуйста. Без UDF.
Показ результатов теста после всех ответов
 
Доброго здоровья уважаемому сообществу!  
На основе этого теста http://www.better-english.com/grammar/mustnt.htm  
сделал аналог в Excel. Одна проблема: как отображать результаты теста, в том числе и общее количество, только после ответов на все вопросы?  
Хотелось бы без макросов :)  
Спасибо.
Вывод сообщения при включенном фильтре на листе
 
Подскажите, пожалуйста, решение такой задачи.  
Очень внимательные сотрудники в упор не замечают наличие фильтра по определенным столбцам, совершают ошибки. Как можно заставить их обращать внимание на наличие фильтра?  
Допустим, если есть фильтр по полю "Дата", нужно, чтобы при активации листа выходило сообщение "Установлен фильтр по полю "Дата"". Если включен фильтр по второму полю - аналогичное сообщение, если оба - сначала одно, затем другое.  
Спасибо.  
Файл - на всякий случай.
Макрос для копирования уникальных строк по 4 критериям
 
Здравствуйте, немного повторю описание задачи, изложенной на 1-м листе прилагаемого файла  
Есть таблица на листе 1, в которую постоянно вносятся новые данные.  
Периодически эти данные сохраняются на листах 2 и 3  
Хотелось бы копировать только уникальные, вновь добавленные строки (в файле для наглядности выделены цветом). Критерий уникальности находится в четырех первых столбцах.
Сумма элементов строки (столбца) матрицы с помощью формул и пользовательской функции
 
Уважаемые Гуру!  
Есть матрица, есть ячейка с указанием строки или столбца, в котором(ых) нужно найти сумму элементов.  
Прошу помочь найти стандартные формулы и написать пользовательскую функцию для выполнения этой операции.  
Файл прилагаю.
Условное форматирование столбца по значениям и вычислениям в других
 
Здравствуйте. Никак не дожму формулу условного форматирования для всего столбца. Если пользоваться встроенными - пустые ячейки без данных тоже "условно форматируются", вписываю формулу - не работает. Условное форматирование нужно для столбца С, условие в виде формулы - в столбце Е.  
Прошу надоумить, уважаемые.
Настройка пользовательской ленты только в одном файле Excel 2010
 
Здравствуйте!  
Проблема заключается не собственно в настройке, а в том, чтобы настроенная пользовательская лента появлялась только в одном документе, а не во всех.  
Спасибо.
макрос для удаления всех кнопок, имен и подключений из книги
 
Подскажите, пожалуйста, код для удаления названных элементов книги при сохранении ее из формата *.xlsm в *.xlsx. То есть макросы - не нужны, кнопки, их запускающие, - тоже, именованные диапазоны, подключения...  
Нашел, на мой взгляд, не самый оптимальный способ удаления имен:  
Sub Names_Delete()  
Set AWB=ActiveWorkBook  
for i=15 to 1 step -1  
On Error Resume Next  
AWB.Names.Item(i).Delete  
Next  
End Sub  
 
или  
 
Sub Names_Delete()  
Set AWB = ActiveWorkbook  
i = 1  
Do While AWB.Names.Item(i) = AWB.Names.Item(1)  
AWB.Names.Item(1).Delete  
Loop  
End Sub  
Недостаток первого в "запасе" в 15 имен (реально - меньше, но неизвестно сколько точно)  
Второго - в ошибке после удаления последнего имени.  
 
С подключениями и кнопками вообще не знаю как действовать.  
 
Также удаляются и некоторые листы. Как удалить их "по-тихому", то есть, чтобы после выполнения  
WorkSheets("Название").Delete  
не выдавался запрос на удаление?    
Прошу помощи у гуру VBA. Простите за нагромождение вопросов
Создание списка из значений по маске
 
Название темы малоинформативно, к сожалению.  
Есть задача: в таблице 1 в первом столбце представлены некие Аргументы. Во втором столбце варианты состояний от 0 до 4, в третьем - значения. Необходимо для каждого аргумента выбрать значения из столбца 3 по состоянию 1 (из столбца 2) и создать из них список . Лучше всего - в сводной таблице. Пример требуемого конечного результата приведен в таблице 3.  
Значения в столбце 3 - текстовые, преобразование в число - допустимо.  
Пытался создать сводную таблицу 2, но получилось не совсем то.  
Спасибо за помощь.
Формирование таблицы по нескольким условиям из нескольких столбцов
 
Прошу помощи лучших умов лучшего форума по Excel  
На листе 1 есть таблица, которая постоянно изменяется. Задача: заполнить таблицу на листе 2 согласно образцу. Несколько условий:  
добавляются только новые записи, появившиеся на листе 1,  
если в таблице 2 несколько кодов 002, то записывается наименьшее  
Спасибо!
Страницы: 1
Наверх