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

Страницы: 1 2 3 4 След.
Отображение разрядности чисел в массиве по условию.
 
#
29.10.2019 16:27:20
Дмитрий(The_Prist) Щербаков, Заценим))
 
Перейти    
Отображение разрядности чисел в массиве по условию.
 
#
29.10.2019 16:18:30
Елы-палы,  пропустил коммент Кузьмича -->NumberFormat применяйте к Cell, а не к Selection/
Всё работает!!! Спасибо!!!

Вот верный код:
Код
Sub rrr2()
  Set Data = Selection
   For Each Cell In Data
  If Cell(1).Value > -1 And Cell(1).Value < 1 Then
    Cell.NumberFormat = "0.0"
  Else
     Cell.NumberFormat = "0"
     End If
     Next
End Sub
Изменено: Alexey200 - 29.10.2019 16:20:32
 
Перейти    
Отображение разрядности чисел в массиве по условию.
 
#
29.10.2019 16:17:04
Вот книга 2003
 
Перейти    
Отображение разрядности чисел в массиве по условию.
 
#
29.10.2019 16:11:27
сменил формат на xlsm
 
Перейти    
Отображение разрядности чисел в массиве по условию.
 
#
29.10.2019 16:00:30
Пример в файле, код в модуле1, он там одинаковый
Изменено: Alexey200 - 29.10.2019 16:01:21
 
Перейти    
Отображение разрядности чисел в массиве по условию.
 
#
29.10.2019 15:48:47
sokol92, что-то не понял
 
Перейти    
Отображение разрядности чисел в массиве по условию.
 
#
29.10.2019 15:38:19
Цитата
Hugo написал:
1. In Data.cells2. там точно всюду текст?
Да, это то, что я выделяю мышью, 4 клетки к примеру, там везде цифры. Ошибка в синтаксисе, или вообще код кривой весь?
Код
Sub rrr2()
  Set Data = Selection
   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 15:39:51
 
Перейти    
Отображение разрядности чисел в массиве по условию.
 
#
29.10.2019 15:12:54
Kuzmich, вот так сделал, но второе условие не работает, если убрать ковычки у -1 и 1, то работает второе условие, елы-палы ))) помогите тупому ))
Код
Sub rrr()
  Set Data = Selection
  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 15:17:31
 
Перейти    
Отображение разрядности чисел в массиве по условию.
 
#
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:39:16
Спасибо!!!! Всё верное, это я  туплю
Изменено: Alexey200 - 10.09.2019 13:57:04
 
Перейти    
Два столбца объединить в одну строку, Два массива с пустотами объединить в строку без пустот
 
#
10.09.2019 13:30:29
Всем привет!!
Подскажите как объединить два массива без пустых клеток (столбцы где черный текст) в одну строку  ( в файле серым показано как должно быть) при этом нужно протягивать формулу вправо.
Думаю есть способ и формулой массива сделать и без формулы массива, может СМЕЩ как-то пригодится.
Не хватает мне квалификации.
Изменено: Alexey200 - 10.09.2019 13:32:08
 
Перейти    
Как вызывать макрос с панели быстрого доступа из любого файла excel
 
#
10.07.2019 15:42:57
Ігор Гончаренко, а личная книга макросов доступна, если файл xlsx?
 
Перейти    
Как вызывать макрос с панели быстрого доступа из любого файла excel
 
#
10.07.2019 15:39:52
Ну да, это и не важно, главное что это другой файл.
 
Перейти    
Как вызывать макрос с панели быстрого доступа из любого файла excel
 
#
10.07.2019 15:25:54
В общем разобрался, действительно нужно непосредственно в файле с макросом добавлять макрос на панель и потом ссылка будет доступна в любом файле, пипец, чё только не придумают.  :)  Всем спасибо!

Sanja я выбирал "Макросы" на панели быстрого доступа, только в файле без мароса и поэтому его там не было.
 
Перейти    
Как вызывать макрос с панели быстрого доступа из любого файла excel
 
#
10.07.2019 15:04:00
Макрос лежит в другом файле, на скрине ссылку видно.

Прикрепил файл с тем как это выглядит. Кто нибудь знает как это делается?
В итоге при нажатии на кнопку на панели быстрого доступа срабатывает макрос из другого файла который расположен по ссылке, что на скрине.
 
Перейти    
Как вызывать макрос с панели быстрого доступа из любого файла excel
 
#
10.07.2019 14:49:40
Там если навести на элемент в настройках панели быстрого доступа там это гиперссылка на файл с макросом, только как это сделать?
 
Перейти    
Как вызывать макрос с панели быстрого доступа из любого файла excel
 
#
10.07.2019 14:38:32
Привет!

Не пойму откуда как вызывается макрос кнопкой в панели быстрого доступа, при этом  сам макрос в данном файле не хранится и разрешение файла обычное xlsx  :(  
 
Перейти    
Суммирование цифр в ячейке
 
#
21.06.2019 14:49:07
Мне была не формула нужна, а инфа о "--"
Вашу формулу находил в интернете)))
 
Перейти    
Суммирование цифр в ячейке
 
#
21.06.2019 14:27:20
АlехМ, спасибо, сохраню, просто не люблю суммпроизв
Изменено: Alexey200 - 21.06.2019 14:55:54
 
Перейти    
Суммирование цифр в ячейке
 
#
21.06.2019 12:42:54
Столько лет я не знал этого   8-0
Спасибо.  
 
Перейти    
Суммирование цифр в ячейке
 
#
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
Правда в этих строках два разных поля, а в своднике куба одно.
Файл приложить не могу, так как сводник обновляется с сервера и просто ничегео не сработает при выборе фильтра.
 
Перейти    
Скомпоновать код в один макрос и запустить на другую книгу
 
#
20.12.2016 10:52:55
как вариант удалённый рабочий стол не пробовали использовать?
 
Перейти    
Считывание кодов цветов с другого файла не выполняются в соответствии с условиями автофильтра
 
#
07.12.2016 17:04:28
Допёр, вот рабочий код.
Код
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$4:$Q$1000").AutoFilter Field:=4, Criteria1:="Легк. Авто", Operator:=xlOr, Criteria2:="Недвижимость"
                       
                        For j = 2 To 16
        For i = 4 To 1000
        If .Rows(i).Hidden = False Then
          Cells(i, 2).Value = .Cells(i, 1).Interior.ColorIndex
          Cells(i, j).Value = .Cells(i, j).Interior.ColorIndex
        End If
     Next
     Next
      
End With
Application.ScreenUpdating = True
End Sub
Изменено: Alexey200 - 07.12.2016 17:04:48
 
Перейти    
Считывание кодов цветов с другого файла не выполняются в соответствии с условиями автофильтра
 
#
07.12.2016 15:48:05
Примеры
 
Перейти    
Считывание кодов цветов с другого файла не выполняются в соответствии с условиями автофильтра
 
#
07.12.2016 14:35:31
Так я уже сказал, он должен подтянуть коды цветов шрифтов из другого листа находящийся в другом файле, на котором висит фильтр (Ctrl+Shift+L) , и в этом фильтре отмечены условия отображения.
 
Перейти    
Считывание кодов цветов с другого файла не выполняются в соответствии с условиями автофильтра
 
#
07.12.2016 14:19:08
Изначально этот код брал коды цветов шрифтов из ячеек в другом файле, проблема заключается в том, что в том файле повешен фильтр, а коды по прежнему берутся из всех ячеек.

Этот код мне написали на этом же форуме, не помню кто.
Просто тянется матрица кодов цветов шрифтов из другого файла.
Я так понимаю, что J это столбцы со 2 по 16-й по номеру столбца, ну и i - строки.
А написанное просто заполняет матрицу данными.
 
Перейти    
Считывание кодов цветов с другого файла не выполняются в соответствии с условиями автофильтра
 
#
07.12.2016 13:54:03
-->> Я сам - дурнее всякого примера! ... :D  ясно понятно, кстати незаменимых людей не бывает.

По теме если найду решение, выложу.
 
Перейти    
Считывание кодов цветов с другого файла не выполняются в соответствии с условиями автофильтра
 
#
07.12.2016 13:26:12
А в описании темы: Считывание кодов цветов с другого файла не выполняются в соответствии с условиями  автофильтра

вот так тоже не работает ( вообще не тянет коды), а исполняется минут 5.
Код
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$4:$Q$1602").AutoFilter Field:=4, Criteria1:="Легк. Авто", Operator:=xlOr, Criteria2:="Недвижимость"
               For j = 2 To 16
        For i = 4 To 1500
          Cells(i, 2).Value = .Cells(i, 1).SpecialCells(xlCellTypeVisible).Interior.ColorIndex
          Cells(i, j).Value = .Cells(i, j).SpecialCells(xlCellTypeVisible).Interior.ColorIndex
     Next
     Next
    
End With
Application.ScreenUpdating = True
End Sub
Изменено: Alexey200 - 07.12.2016 14:33:18
 
Перейти    
Считывание кодов цветов с другого файла не выполняются в соответствии с условиями автофильтра
 
#
07.12.2016 13:09:08
Может эти два цикла обернуть в For Each x In Range(i, j).SpecialCells(xlCellTypeVisible) ?

vikttur Я не знаю как назвать тему, я уже предложил выше. Может тогда так: Скрипт игнорирует автофильтр, обозначение видимых ячеек.

The_Prist,  а у меня нет желания читать флуд провокаторов, и их дружков.
 
Перейти    
Страницы: 1 2 3 4 След.
Наверх