Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Alexey200
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Отображение разрядности чисел в массиве по условию.
 
#
29.10.2019 14:51:58
Привет.
Есть маленькая задумка: скорректировать в выделенном диапазоне разрядность чисел.
Если число в диапазоне от -1 до 1 то  Selection.NumberFormat = "0.0", либо Selection.NumberFormat = "0".
Не могу сообразить как в выделенном диапазоне каждую ячейку проверять, забыл уже все  :(

Вот так примерно дожно это работать:
Исходно   ->17,20
Результат->0,77-0,4
Вот что написал с ходу:
Код
Sub rrr()
  Set Data = Selection
 'If Cell(1).Value > "-1" And Cell(1).Value < "1" Then
  For Each Cell In Data
  If Cell(1).Value > "-1" And Cell(1).Value < "1" Then
    Selection.NumberFormat = "0.0"
          Else
     Selection.NumberFormat = "0"
     End If
     Next
   End Sub
Изменено: Alexey200 - 29.10.2019 16:12:45
 
Перейти    
Два столбца объединить в одну строку, Два массива с пустотами объединить в строку без пустот
 
#
10.09.2019 13:30:29
Всем привет!!
Подскажите как объединить два массива без пустых клеток (столбцы где черный текст) в одну строку  ( в файле серым показано как должно быть) при этом нужно протягивать формулу вправо.
Думаю есть способ и формулой массива сделать и без формулы массива, может СМЕЩ как-то пригодится.
Не хватает мне квалификации.
Изменено: Alexey200 - 10.09.2019 13:32:08
 
Перейти    
Как вызывать макрос с панели быстрого доступа из любого файла excel
 
#
10.07.2019 14:38:32
Привет!

Не пойму откуда как вызывается макрос кнопкой в панели быстрого доступа, при этом  сам макрос в данном файле не хранится и разрешение файла обычное xlsx  :(  
 
Перейти    
Суммирование цифр в ячейке
 
#
21.06.2019 12:31:02
Собственно формула уже есть:
Код
=СУММ(--ПСТР(F16;СТРОКА(ДВССЫЛ("1:"&ДЛСТР(F16)));1))

Вопрос в том почему должны стоять два минуса перед ПСТР, где можно прочитать про это или может есть краткое и понятное объяснение?

Пошаговое выполнение формулы не даёт ответа.[
 
Перейти    
фильтр данных сводной таблицы куба, поле в виде массива
 
#
22.09.2017 10:25:55
Привет!
Первый раз встретил такую тему:
С сводной таблице данные в поле даты схлопнуты (плюсиками открываются)
Запись макроса выбора поле даты выглядит вот так:
Код
Sub Макрос2()
'
' Макрос2 Макрос
 ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields( _
        "[Дата].[Год-Семестр-Квартал-Месяц].[Год]").VisibleItemsList = Array("")
    ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields( _
        "[Дата].[Год-Семестр-Квартал-Месяц].[Полугодие]").VisibleItemsList = Array("")
    ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields( _
        "[Дата].[Год-Семестр-Квартал-Месяц].[Квартал]").VisibleItemsList = Array("")
    ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields( _
        "[Дата].[Год-Семестр-Квартал-Месяц].[Месяц]").VisibleItemsList = Array("")
    ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields( _
        "[Дата].[Год-Семестр-Квартал-Месяц].[Производственная неделя]"). _
        VisibleItemsList = Array("")
   ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields( _
        "[Дата].[Год-Семестр-Квартал-Месяц].[Дата]").VisibleItemsList = Array( _
        "[Дата].[Год-Семестр-Квартал-Месяц].[Год].&[2017].&[2].&[4].&[10].&[39].&[20171001]" _
        , _
        "[Дата].[Год-Семестр-Квартал-Месяц].[Год].&[2017].&[2].&[4].&[10].&[39].&[20171002]" _
        , _
        "[Дата].[Год-Семестр-Квартал-Месяц].[Год].&[2017].&[2].&[4].&[10].&[39].&[20171003]" _
        , _
        "[Дата].[Год-Семестр-Квартал-Месяц].[Год].&[2017].&[2].&[4].&[10].&[39].&[20171004]" _
        )
  
End Sub

Вопрос: как сделать выбор даты типа Between и с указанием данных по ячейкам
типа вот этого:
Код
Selection.AutoFilter Field:=79, Criteria1:="<" & Sheets("forma").Cells(3, 1), Operator:=xlAnd
Selection.AutoFilter Field:=86, Criteria1:=">" & Sheets("forma").Cells(4, 1), Operator:=xlAnd
Правда в этих строках два разных поля, а в своднике куба одно.
Файл приложить не могу, так как сводник обновляется с сервера и просто ничегео не сработает при выборе фильтра.
 
Перейти    
Считывание кодов цветов с другого файла не выполняются в соответствии с условиями автофильтра
 
#
07.12.2016 11:37:51
Возможно ли использование данной строки ( пометил стрелкой) в таком макросе?
Нужно на листе "СГ" фильтр врубить.
Код
Option Explicit
Sub ЦветЯчейкиСГ()
Dim j As Long
Dim i As Long
Application.ScreenUpdating = False
    Range("A4:P1000").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
       With .Workbooks("СГ.xlsx").Sheets("№2 ЕДИНЫЙ")
      ---> .Range("$A$3:$Q$1602").AutoFilter Field:=4, Criteria1:="Легк. Авто", Criteria2:="Недвижимость"
              For j = 2 To 16
          For i = 4 To 1500
          Cells(i, 2).Value = .Cells(i, 1).Interior.ColorIndex
          Cells(i, j).Value = .Cells(i, j).Interior.ColorIndex
     Next
     Next
End With
Application.ScreenUpdating = True
End Sub
 
Перейти    
Макрос: Цвет текста из диапазона в другом файле, Определение цвета текста в другом файле и запись данных в таблицу.
 
#
05.12.2016 10:55:20
Привет!
Не могу сообразить как реализовать определение цвета текста в диапазоне на конкретном листе в другом файле
Вот что есть:
В начале должна идти очистка стобцов от старых данных, куда будут записаны коды цветов текста с дургого файла-листа-диапазона.
Код
Sub Цвет()
Application.ScreenUpdating = False
    Range("A4:P4").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.ClearContents
For i = 4 To 1000
       Cells(i, 1).Value = Windows("файл.xlsx").Select
    Sheets("лист").Select
    Range("A4").Select.Cells(i, 1).Font.ColorIndex
Next
Application.ScreenUpdating = True
End Sub
 
Перейти    
Коды цветов столбца прописать построчно в отдельный столбец, определение кода цвета в диапазоне
 
#
01.12.2016 15:04:06
Привет!
Есть макрос для определения кода цвета ячейки ( файл)
Не получается сделать под Range. то есть один столбец разноцветный, а другой с кодами.
 
Перейти    
Выстраивание данных из двух столбцов в одну строчку
 
#
16.05.2016 14:27:54
Добрый день!
Кто нибудь сообразите пожалуйста ))
Необходимо написать формулу в ячейке С5, чтобы при ее протягивании вправо строка 5 заполнялась всеми нижеприведенными значениями (из диапазона С7-D27) в порядке следования по строкам вниз, результат такой протянутой формулы представлен в строке 6
Изменено: Alexey200 - 16.05.2016 18:23:36
 
Перейти    
Разбить файл макросом по названию первого столбца, и назвать его как в первом столбце
 
#
25.12.2015 12:31:56
Привет!
Есть гигантский файл который необходимо разбить на множество файлов, уникальным значением для разбивки служит первый столбцец.
Например в первом столбце есть моного "Москва" и "Питер" и прочих (все что по Москве идет в отдельный файл москвы и так далее), как побить на отдельные файлы в соответствии и городами, в не зависимости от количества столбцов. Возможно уже есть готовые решения.   :)
П.С данные только на одном листе, то есть бьется только один лист.
Изменено: Alexey200 - 25.12.2015 12:33:20
 
Перейти    
Поиск уникального значения в двух столбцах при условии отсутствия противоречия, (возможно название темы сформулировано не совсем верно)
 
#
20.10.2015 14:05:03
Привет!
Еще она бредовая идея, которую хотелось бы решить.
Есть два столбца данных.
Для простоты сделал имена и характеристики людей.
Необходимо посчитать количество ячеек во втором столбце, или просто строк, при условии что человек не может быть одновременно умным и тупым,
Нужны значения только Умных, если этот же человек = Тупой=Умный, то оба значения на против его имени не суммируются  :D .
П.С противоречивые данные не обязательно стоят рядом.
Изменено: Alexey200 - 20.10.2015 14:08:33
 
Перейти    
Определение выходных дней (СБ,Вс) в диапазоне дат имея только начальный день и количество дней.
 
#
16.10.2015 16:38:21
Привет!
Очередная сумасшедшая задачка  :D
Есть столбец с датами и столобец с числами( количество дней)
Необходимо представить что это диапазон дат и понять количество ВС и СБ в этом диапазоне.
Диапазон дат типа дата +4 дня, при этом начальную считать как +1, то есть дата +4 дня = всего 4 дня, а не 5, кароче первую дату не считаем.
Представить в виде дней это черед ТЕКСТ (ДДДД), а как сооруить диапазон? и правильно высчитать дни, если дней может быть и 17.
Изменено: Alexey200 - 16.10.2015 16:39:44
 
Перейти    
Линейный список из простой таблички, Как сделать линейный список не из сводника, а из простой таблички?
 
#
15.10.2015 14:59:14
Собственно есть простая табличка гигантских размеров (не сводник), и ее нужно перелопатить в линейный список.
Есть быстрый способ? Справка экселя для сводника, и в темах в основном  =извеч данные из сводника.
:( пример приложил, там верхняя табличка как есть, а нижняя как должно быть.
Названия столбцов во второй табличке ненужны.
Изменено: Alexey200 - 15.10.2015 15:10:36
 
Перейти    
Замена СЧЕТЕСЛИМН другой функцией
 
#
02.09.2015 15:23:03
Привет!
Возможно ли заменить СЧЕТЕСЛИМН другой формулой, так как много аргументов, только без макроса. :)  
Раньше тут натыкался на формуму типа =--(Сумма;диапазоны какието и так далее)
Изменено: Alexey200 - 02.09.2015 15:26:31
 
Перейти    
Есть ли возможность зацепиться формулой за заглавную букву?
 
#
17.06.2015 08:36:05
Привет!
Возможно ли разбить вот такое фио - ИвановИванИваныч ?
Незнаю за что тут цепляться.
Знаю только формулы которые просто меняют заглавные на  строчные и наоборот.
 
Перейти    
переброс текста, разделенного пробелами из одной ячейки в несколько
 
#
30.03.2015 11:03:32
Добрый день!
Не получается построить формулу ВПР, чтобы тянула из ячейки текст разделенный пробелами.
Текстом является ФИО, которое состоит в одной ячейке. При этом каждое слово разделено рандомным количеством пробелов.
Как разнести Ф, И, О, на три ячейки?

Думал использовать формулу ПСТР, или НАЙТИ с ПРАВСИМВ и ЛЕВСИМВ.
В НАЙТИ нужно указывать относительную ячейку, незнаю как.
От пробелов слова можно не очищать, например можно чтобы в ячейках остались пробелы перед или после слов.
Изменено: Alexey200 - 31.03.2015 22:37:14
 
Перейти    
Экспорт текста из ячейки, подтягиваемой "=", то есть приравниванием к другой ячейке с формулой.
 
#
03.02.2015 15:27:24
Необходимо просто вытянуть текст (можно скопировать) из ячейки, де факто в которой прописано "=B12" например.
Реально этот текст нужно просто скопировать и вставить в тело письма LotusNotes, но эксель вставляет туда рисунок в рамке.
Каково простейшее решение ?
"сохранить как значения" в соседнюю ячейку не катит.
Просмотрел кучу примерный решений и VBA в том числе, но кругом проблемы еще более извращенные.
Изменено: Alexey200 - 03.02.2015 15:29:21
 
Перейти    
Вытянуть из ячейки только цифры, как пишутся такие формулы.
 
#
11.12.2014 11:26:40
Привет! Нашел формулу в интернете, которая тянет из ячейки только цифры. Что-то не могу полностью понять как она работает, разбирал ее на части, но всеравно слишком она сложная.
Вот =СУММ(ПСТР(0&L6;НАИБОЛЬШИЙ(ЕЧИСЛО(-ПСТР(L6;СТРОКА(ДВССЫЛ("L1:L"&ДЛСТР(L6)));1))*СТРОКА(ДВССЫЛ("L1:L"&ДЛСТР(L6)));СТРОКА(ДВССЫЛ("L1:L"&ДЛСТР(L6))))+1;1)*10^(СТРОКА(ДВССЫЛ("L1:L"&ДЛСТР(L6)))-1))
 
Перейти    
Страницы: 1
Наверх