Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 476 След.
Подсчет кол-ва ячеек с необычным условием
 
'Тут' iClточкаComment
Согласие есть продукт при полном непротивлении сторон.
Подсчет кол-ва ячеек с необычным условием
 
Переменная iCl объявлена в 3й строке и ей присвоен тип Range
Согласие есть продукт при полном непротивлении сторон.
Подсчет кол-ва ячеек с необычным условием
 
Ну тогда по логике напрашивается продолжение
Код
Function CountIfComment(rCond As Range, iCond, rngCmnt As Range)
Application.Volatile True
Dim iCl As Range
For Each iCl In rCond
    If Not rngCmnt.Comment Is Nothing Then
        If iCl.Value = iCond And iCl.Comment.Text = rngCmnt.Comment.Text Then CountIfComment = CountIfComment + 1
    End If
Next
End Function
Согласие есть продукт при полном непротивлении сторон.
Подсчет кол-ва ячеек с необычным условием
 
Цитата
OlegO написал: вот и все
А можно на этот 'наворот' вживую взглянуть? В файле-примере. Интересует использование на листе
Изменено: Sanja - 26 Июн 2019 12:08:55
Согласие есть продукт при полном непротивлении сторон.
Подсчет кол-ва ячеек с необычным условием
 
Цитата
OlegO написал: UDF внутрь другой UDF вставил
Зачем?!  8-0  
Согласие есть продукт при полном непротивлении сторон.
Подсчет кол-ва ячеек с необычным условием
 
Для Вашего примера можно так
Код
Function СЧЁТЕСЛИКОММЕНТ(rCond As Range, iCond, iCmnt)
    Application.Volatile True
    Dim iCl As Range
    For Each iCl In rCond
        If Not iCl.Comment Is Nothing Then
            If iCl.Value = iCond And iCl.Comment.Text = iCmnt Then
                СЧЁТЕСЛИКОММЕНТ = СЧЁТЕСЛИКОММЕНТ + 1
            End If
        End If
    Next
End Function
Согласие есть продукт при полном непротивлении сторон.
Подсчет кол-ва ячеек с необычным условием
 
Цитата
OlegO написал: Решение нужно формулой
Цитата
OlegO написал: Для доступа к содержимому комментария используется функция пользователя
В чем подвох?
Вы уже используете макросы (UDF), почему бы и окончательный подсчет не сделать так же?
Согласие есть продукт при полном непротивлении сторон.
Выпадающий список с выпадением информации из 2 столбцов, Выпадающий список с выпадением информации из 2х столбцов
 
Как сядете с компьютера, заходите и прикладывайте
Цитата
Hryak написал: Даже если подскажите в каком направлении двигаться.
Двигайтесь в сторону использование ЛистБокс'ов. В них можно выводить несколько столбцов
Согласие есть продукт при полном непротивлении сторон.
Сборка не скольких книг в одну, Необходимо изменить при сборке файлов в одну книгу в назвнии листа указывать первые три (четыре) символа названия файла.
 
23-ю строку кода запишите так
Код
shTarget.Name = Left(shSrc.Name, 4) & "-" & i '4 символа
Согласие есть продукт при полном непротивлении сторон.
Поиск значения по критериям
 
Ctrl+H - Найти - Параметры - Искать: в книге - Найти '*ТР.436713*' - Найти все
Согласие есть продукт при полном непротивлении сторон.
Зависание USERFORM
 
Надо смотреть файл. Без самой формы и кода в ее модуле сказать нечего. Возможно где-то зацикливается обработчик какого то события
Согласие есть продукт при полном непротивлении сторон.
Подтянуть цены на товары из таблицы в трех различных валютах
 
Код
=ИНДЕКС($B$25:$D$31;ПОИСКПОЗ(D2;$A$25:$A$31;0);ПОИСКПОЗ(F2;$B$24:$D$24;0))
Согласие есть продукт при полном непротивлении сторон.
Подстановка данных из ячейки при совпадении
 
А откуда у Вас в 'Нужно так' берутся составы комплектов? Всякие ножки и доводчики, а так же их количество?
Нашел, извините
Изменено: Sanja - 25 Июн 2019 23:01:33
Согласие есть продукт при полном непротивлении сторон.
Рассылка сообщений по условию
 
Цитата
jakkop написал: нужно что бы работал на всех листах
На всех, так на всех
Скрытый текст
Согласие есть продукт при полном непротивлении сторон.
Ошибка при ссылке на умную таблицу
 
Формула массива на все строки соответствующего столбца

Использование структурированныхссылок в таблицах Excel

Код
=Таблица2[[#Данные];[Затраты]]
Изменено: Sanja - 25 Июн 2019 18:21:01
Согласие есть продукт при полном непротивлении сторон.
Макрос защиты диапазона ячеек, доработка кода
 
?
Код
 Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.ListObjects(1).HeaderRowRange) Is Nothing Then
    With Application
    .EnableEvents = 0: .Undo: .EnableEvents = 1
    End With
End If
End Sub
Согласие есть продукт при полном непротивлении сторон.
Макрос защиты диапазона ячеек, доработка кода
 
Цитата
Александр* написал: Когда в две и более ячейки копируешь - не срабатывает
И так срабатывает
Согласие есть продукт при полном непротивлении сторон.
Макрос защиты диапазона ячеек, доработка кода
 
Цитата
Александр* написал: Макрос не срабатывает когда копируешь значение в этот диапазон (ctrl+C - Ctrl+V)
Срабатывает
Согласие есть продукт при полном непротивлении сторон.
Макрос защиты диапазона ячеек, доработка кода
 
Удалите макрос из модуля ЭтаКнига и вставьте в модуль нужного листа
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A4:BM4")) Is Nothing Then Exit Sub
With Application
.EnableEvents = 0: .Undo: .EnableEvents = 1
End With
End Sub
Согласие есть продукт при полном непротивлении сторон.
Составить ТОП сотрудников
 
Вы ответьте на мой вопрос
Цитата
Sanja написал: а вот 2 у Вас аж 10 штук. Какие из них попадут в ТОП?
Согласие есть продукт при полном непротивлении сторон.
Составить ТОП сотрудников
 
В Вашем примере, в ТОП-10 попадают (по кол-ву) 7-1 раз, 6 - 1 раз, 5 - 1 раз, 4 - 2 раза, 5 - 2 раза, а вот 2 у Вас аж 10 штук. Какие из них попадут в ТОП?
Нарисуйте в примере Как надо, вручную, без формул
Согласие есть продукт при полном непротивлении сторон.
Составить ТОП сотрудников
 
=НАИБОЛЬШИЙ() для Кол-во, а затем по ним ИНДЕКС()+ПОИСКПОЗ() для ФИО
Изменено: Sanja - 25 Июн 2019 11:30:49
Согласие есть продукт при полном непротивлении сторон.
Взять даты из разных файлов и свести в одну таблицу.
 
ИМХО. Ваша задача выходит за рамки помощи. У Вас ТЗ на разработку макроса(ов)
Конечно, вполне возможно, кому то будет интересно ее сделать за Вас полностью, но Вы бы начали ее сами решать (писать нужные Вам макросы), а по ходу дела задавайте конкретные вопросы, которые у Вас не получаются
Ссылку для начала я Вам дал выше
Согласие есть продукт при полном непротивлении сторон.
Взять даты из разных файлов и свести в одну таблицу.
 
Цитата
Mike Belov написал: помогите хоть с концепцией
Концепция
ПРОСМОТРЕТЬ ВСЕ ФАЙЛЫ В ПАПКЕ
Согласие есть продукт при полном непротивлении сторон.
Поиск стоимости товара по пяти значениям и условиям поиска, Полный перечень стоимости, как отобразить в ячейке новой книги запрашиваемую сумму товара?
 
Файл пример приложите. Как есть - Как надо
Согласие есть продукт при полном непротивлении сторон.
Копирование ячейки много раз
 
Цитата
CEHATOP написал: Sanja ,вы файл смотрели?
Смотрел. Мой макрос делает ровно то, что просили
Какая постановка задачи - такое и решение
Попытайтесь сформулировать ЧТО же Вам нужно. Просто, по-русски.
Согласие есть продукт при полном непротивлении сторон.
Копирование ячейки много раз
 
Вообще не понял
Ваше последнее 'не это' противоречит изначальной 'хотелки'
В принципе все возможности по изменению кода 'на это' в Ваших руках - дерзайте, задача вообще простейшая  
Согласие есть продукт при полном непротивлении сторон.
Копирование ячейки много раз
 
Мой макрос вставляет значение с 18й строки 19го столбца до первой пустой ячейки 19го столбца включительно
Вам же это надо
Цитата
CEHATOP написал: мне нужно например с 18 строки 19 столбца
Изменено: Sanja - 24 Июн 2019 19:05:51
Согласие есть продукт при полном непротивлении сторон.
Копирование ячейки много раз
 
Код
Sub макрос2()
Dim LastRow As Long
With Sheets("Лист1")
    LastRow = .Cells(.Rows.Count, 19).End(xlUp).Row + 1
    Range("A1").Copy .Range(.Cells(18, 19), .Cells(LastRow, 19))
End With
End Sub
Изменено: Sanja - 24 Июн 2019 18:47:50
Согласие есть продукт при полном непротивлении сторон.
скрытие ячеек при выполнении функции сцепить диапазон (VBA)
 
Код
Public Function СЦЕПИТЬДИАПАЗОН(ДИАПАЗОН As Range, Optional РАЗДЕЛИТЕЛЬ$ = " ") As String
Dim arr(), I&, J&
arr = ДИАПАЗОН.Value
For I = LBound(arr) To UBound(arr)
    For J = LBound(arr, 2) To UBound(arr, 2)
    If arr(I, J) <> "" Then
        СЦЕПИТЬДИАПАЗОН = IIf(СЦЕПИТЬДИАПАЗОН = "", arr(I, J), СЦЕПИТЬДИАПАЗОН & РАЗДЕЛИТЕЛЬ & arr(I, J))
    End If
    Next
Next
End Function
Согласие есть продукт при полном непротивлении сторон.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 476 След.
Наверх