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

Страницы: 1
Список уникальных значений для старых версий
 
#
11.11.2023 17:31:44
Есть макрос приведённый ниже для создания списка уникальных значений но он выдает ошибку #перенос подскажите что нужно исправить.
Function UniqueList(rng As Range) As Variant
   Dim dict As Object
   Dim cell As Range
   Dim arr() As Variant
   Dim i As Long

   Set dict = CreateObject("Scripting.Dictionary")

   For Each cell In rng
       dict(cell.Value) = 1
   Next cell

   ReDim arr(1 To dict.Count, 1 To 1)

   i = 1
   For Each Key In dict.Keys
       arr(i, 1) = Key
       i = i + 1
   Next Key

   UniqueList = arr
End Function
 
Перейти    
Авто ширина столбцов в любой книге
 
#
06.08.2023 19:06:35
Добрый вечер есть макрос отвечающий за авто ширину столбцов при введений значений в ячейку
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.EntireColumn.AutoFit
End Sub
но хотелось что бы работал в виде надстройки  в любой книге ексель уже при созданий новой книги
или при открытий любых других книг. Спасибо за помощь.
Изменено: knight - 06.08.2023 21:36:23
 
Перейти    
Суммеслимн: суммировать по выбранному периоду
 
#
15.09.2016 19:58:30
Спасибо ответ дан
 
Перейти    
Суммеслимн: суммировать по выбранному периоду
 
#
14.09.2016 20:33:27
Добрый вечер у меня в файле на листе склад столбец выделен красным функция СУММЕСЛИМН не хочет считать и выдает ошибку #знач хотя если применить функцию СУММЕСЛИ к тем же значениям и посчитать по одному критерию все работает нормально (столбец выделен зеленым) объясните в чем проблема. Заранее Спасибо
 
Перейти    
Автоматическое удаление строк из таблицы, Формула для удаления строк
 
#
11.12.2015 21:53:10
Спасибо gling за ответ. Все проще чем я думал.
 
Перейти    
Автоматическое удаление строк из таблицы, Формула для удаления строк
 
#
11.12.2015 21:42:22
ЕСЛИ(СЧЁТЕСЛИ($A$3:$A$24;G3)>=СТРОКА(1:1);ИНДЕКС($B$1:$B$18;НАИМЕНЬШИЙ(ЕСЛИ($A$3:$A$24=G3;СТРОКА($C$3:$C$24));СТРОКА(1:1)));"") эта формула работает на подобии того что мне нужно только по определенной выборке, а мне нужно без выборки
 
Перейти    
Автоматическое удаление строк из таблицы, Формула для удаления строк
 
#
11.12.2015 21:23:03
Ну можно и макрос
 
Перейти    
Автоматическое удаление строк из таблицы, Формула для удаления строк
 
#
11.12.2015 21:17:47
Здравствуйте помогите с формулой.
Допустим есть две одинаковых таблицы на разных листах с одинаковыми данными. Нужно чтобы при удалении и добавлении новых строк в одной таблице в другая таблица автоматически расширялась или сужалась на данное количество строк.
 
Перейти    
Как сцепить ячейки формате дата правилно?
 
#
21.10.2015 21:24:51
Спасибо большое  
 
Перейти    
Как сцепить ячейки формате дата правилно?
 
#
21.10.2015 20:43:38
Добрый вечер всем.
Функция сцепить обединяет несколько ячеек в одну. Но при сцеплений ячеек с датами преобразует в числовой эквивалент.
Например дату 03.05.1984 преобразует в число 30805, как этого избежать и сохрать дату?
 
Перейти    
Открыть сторонний файл
 
#
19.10.2015 22:26:48
Можно сделать это проще с помощью гиперссылки
 
Перейти    
Изменяющая Гиперссылка
 
#
19.10.2015 22:23:30
Здрайствуйте
Можно ли создать автоматическую меняющуюся гиперссылку чтобы при протяжке гиперссылки она подставляла соответсвующие значения
Например есть таблица данных в столбце А указаны названий папкок в которой лежат файлы.
В столбце В названий самих файлой.
 
Перейти    
Склад: суммировать данные при увеличении расхода материалов
 
#
26.02.2015 23:19:27
Спасибо большое ответ дан.
 
Перейти    
Склад: суммировать данные при увеличении расхода материалов
 
#
26.02.2015 22:53:57
Здравствуйте. Помогите решить задачу. Есть файл складского учета на одном листе материалы на складе на другом движения этих материалов. Заполняется лист движения и при заполнений в столбце расход данные должны переносится в столбец расход таблицы склад  в нужную ячейку. То есть когда в таблице движения в столбце материалы я с помощью выпадающего списка выбирая материал и ставлю его расход он автоматически должен отражаться в таблице склад в нужной ячейке. В идеале нужно сделать так чтобы данные суммировались при преувеличений расхода материалов.
 
Перейти    
Счет и сумма диапазона ячеек
 
#
07.09.2014 21:25:52
Спасибо всем за помощь. Ответ дан
 
Перейти    
Счет и сумма диапазона ячеек
 
#
07.09.2014 21:00:31
Здравствуйте помогите решить такую задачу есть таблица из таблицы с помощью выпадающих списков задаются диапазон ячеек нужно чтобы при выборе диапазона автоматически подсчитывалась количество выбранных ячеек а также их сумма
 
Перейти    
Выделить уникальные значения из выделенного диапазона ячеек, ошибка в макросе
 
#
15.07.2014 18:05:19
Спасибо Hugo все работает. Ответ дан.
 
Перейти    
Выделить уникальные значения из выделенного диапазона ячеек, ошибка в макросе
 
#
15.07.2014 16:52:57
этот код должен создать функцию а не процедуру. А меня именно интересует почему это функция не хочет работать
 
Перейти    
Выделить уникальные значения из выделенного диапазона ячеек, ошибка в макросе
 
#
15.07.2014 14:54:16
При работе данной функций выдает ошибку #ЗНАЧ
То есть нужно выделить уникальные значения из выделенного диапазона ячеек с помощью макроса
Код
Function Extract_Unique(Selection As Range) As Variant()
    Dim vItem, avArr, li As Long
    ReDim avArr(1 To Rows.Count, 1 To 1)
    With New Collection
     On Error Resume Next
     For Each vItem In Selection.Value
      .Add vItem, CStr(vItem)
      If Err = 0 Then
          li = li + 1: avArr(li) = vItem
      Else: Err.Clear
      End If
     Next
    End With
    If li Then Extract_Unique = avArr
End Function
Помогите найти ошибку в данном макросе
Изменено: knight - 15.07.2014 15:00:19
 
Перейти    
Преобразование Sub в Function
 
#
15.07.2014 13:07:30
Помогите преобразовать Sub в Function

Код
Sub Extract_Unique()
    Dim vItem, avArr, li As Long
    ReDim avArr(1 To Rows.Count, 1 To 1)
    With New Collection
        On Error Resume Next
        For Each vItem In Range("A2", Cells(Rows.Count, 1).End(xlUp)).Value
            'Cells(Rows.Count, 1).End(xlUp) – определяет последнюю заполненную ячейку в столбце А             .Add vItem, CStr(vItem)
            If Err = 0 Then
                li = li + 1: avArr(li, 1) = vItem
            Else: Err.Clear
            End If
        Next
    End With
    If li Then [E2].Resize(li).Value = avArr
End Sub
 
Перейти    
Уникальные значения из списка
 
#
15.07.2014 12:27:02
По данной ссылке приводится макрос функций на у меня он не работает
Сам макрос

Код
Function Выборка(ДиапазонЕстьДубликаты As Range) As Variant()
Dim Результат() As Variant
Dim Ячейка As Range
Dim КоллекцияБезДубликатов As New Collection
Dim i As Integer, item As Variant
On Error Resume Next
For Each Ячейка In ДиапазонЕстьДубликаты
    'неуникальный ключ даёт ошибку
    If Not IsEmpty(Ячейка) Then КоллекцияБезДубликатов.Add Ячейка.Value, CStr(Ячейка.Value)
Next
On Error GoTo 0
ReDim Результат(1 To КоллекцияБезДубликатов.Count, 1 To 1)
i = 1
For Each item In КоллекцияБезДубликатов
    Результат(i, 1) = item
    i = i + 1
Next
Выборка = Результат
End Function
подскажите как переделать что бы он работал
 
Перейти    
Уникальные значения из списка
 
#
15.07.2014 12:03:18
Добрый день у кого есть макрос на функцию для определения уникального списка.
Заранее спасибо
 
Перейти    
Макрос на уникальные значения
 
#
14.07.2014 00:01:22
Отредактировал данную тему в нужный формат
Изменено: knight - 14.07.2014 00:32:02
 
Перейти    
Макрос на уникальные значения
 
#
13.07.2014 23:38:30
Есть макрос уникальных значений

Код
Sub Extract_Unique()
    Dim vItem, avArr, li As Long
    ReDim avArr(1 To Rows.Count, 1 To 1)
    With New Collection
        On Error Resume Next
        For Each vItem In Range("A2", Cells(Rows.Count, 1).End(xlUp)).Value
            'Cells(Rows.Count, 1).End(xlUp) – определяет последнюю заполненную ячейку в столбце А             .Add vItem, CStr(vItem)
            If Err = 0 Then
                li = li + 1: avArr(li, 1) = vItem
            Else: Err.Clear
            End If
        Next
    End With
    If li Then [E2].Resize(li).Value = avArr
End Sub


нужно чтобы он выполнялся автоматически в Е2 при добавлении уникальных значений в столбец А.
Как правильно в данном макросе прописать  Private Sub Worksheet_Change(ByVal Target As Range)  для выполнения данной операций
Изменено: knight - 14.07.2014 00:26:56
 
Перейти    
Суммирование диапазона ячеек заданой функцией смещения
 
#
13.07.2014 21:06:58
Можно указать формулу
 
Перейти    
Суммирование диапазона ячеек заданой функцией смещения
 
#
13.07.2014 20:55:05
Задача такова нужно про суммировать все значения ячеек в диапазоне заданной функцией смещение
Пример
Есть таблица А1 :D 5 функцией смещения с помощью формул определяет начальная ячейка например В2 происходит смещение которое также задается формулой в ячейку например D4 нужно просуммировать все значения ячеек от В2 до С4 в таблице А1 :D 5.

Можно ли вообще такое провернуть в excel c помощью формул или макросов. Использую excel 2010.
Заранее благодарен за ответы
 
Перейти    
Страницы: 1
Наверх