Поиск  Пользователи  Правила  Войти
Форумы "Планета 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
 
Перейти    
Суммеслимн: суммировать по выбранному периоду
 
#
14.09.2016 20:33:27
Добрый вечер у меня в файле на листе склад столбец выделен красным функция СУММЕСЛИМН не хочет считать и выдает ошибку #знач хотя если применить функцию СУММЕСЛИ к тем же значениям и посчитать по одному критерию все работает нормально (столбец выделен зеленым) объясните в чем проблема. Заранее Спасибо
 
Перейти    
Автоматическое удаление строк из таблицы, Формула для удаления строк
 
#
11.12.2015 21:17:47
Здравствуйте помогите с формулой.
Допустим есть две одинаковых таблицы на разных листах с одинаковыми данными. Нужно чтобы при удалении и добавлении новых строк в одной таблице в другая таблица автоматически расширялась или сужалась на данное количество строк.
 
Перейти    
Как сцепить ячейки формате дата правилно?
 
#
21.10.2015 20:43:38
Добрый вечер всем.
Функция сцепить обединяет несколько ячеек в одну. Но при сцеплений ячеек с датами преобразует в числовой эквивалент.
Например дату 03.05.1984 преобразует в число 30805, как этого избежать и сохрать дату?
 
Перейти    
Изменяющая Гиперссылка
 
#
19.10.2015 22:23:30
Здрайствуйте
Можно ли создать автоматическую меняющуюся гиперссылку чтобы при протяжке гиперссылки она подставляла соответсвующие значения
Например есть таблица данных в столбце А указаны названий папкок в которой лежат файлы.
В столбце В названий самих файлой.
 
Перейти    
Склад: суммировать данные при увеличении расхода материалов
 
#
26.02.2015 22:53:57
Здравствуйте. Помогите решить задачу. Есть файл складского учета на одном листе материалы на складе на другом движения этих материалов. Заполняется лист движения и при заполнений в столбце расход данные должны переносится в столбец расход таблицы склад  в нужную ячейку. То есть когда в таблице движения в столбце материалы я с помощью выпадающего списка выбирая материал и ставлю его расход он автоматически должен отражаться в таблице склад в нужной ячейке. В идеале нужно сделать так чтобы данные суммировались при преувеличений расхода материалов.
 
Перейти    
Счет и сумма диапазона ячеек
 
#
07.09.2014 21:00:31
Здравствуйте помогите решить такую задачу есть таблица из таблицы с помощью выпадающих списков задаются диапазон ячеек нужно чтобы при выборе диапазона автоматически подсчитывалась количество выбранных ячеек а также их сумма
 
Перейти    
Выделить уникальные значения из выделенного диапазона ячеек, ошибка в макросе
 
#
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:03:18
Добрый день у кого есть макрос на функцию для определения уникального списка.
Заранее спасибо
 
Перейти    
Макрос на уникальные значения
 
#
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 20:55:05
Задача такова нужно про суммировать все значения ячеек в диапазоне заданной функцией смещение
Пример
Есть таблица А1 :D 5 функцией смещения с помощью формул определяет начальная ячейка например В2 происходит смещение которое также задается формулой в ячейку например D4 нужно просуммировать все значения ячеек от В2 до С4 в таблице А1 :D 5.

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