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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 749 След.
Макрос для скрытия пустых столбцов
 
Думаю что ВПР работает по категории, которую заполняет юзер.
Можно и по товару делать звёздочки и категории, но Вы реально предусмотрели все товары и все варианты из написания юзером?
Соотв. можно сделать выбор этих категорий из выпадающего списка, ну а далее и товар можно выбрать из списка, ну или вписать новый.
При выборе категории - сразу меняется состав видимых столбцов, и это просто. И дажде не нужно звёздочки делать, достаточно где-то иметь список соответствий.
Но свой пример делать я отказываюсь! :)
Вообще тут на форуме было много примеров файлов где по паре первых (или содержащихся) символов предлагался список наименований, вполне тоже можно прикрутить для ускорения безошибочного заполнения базы.
Как сделать макрос, который ищет, как впр, похожие данные
 
Код
Sub Макросик()
    Dim a, i&, t$

    With CreateObject("Scripting.Dictionary")
        a = Sheets("Таблица 2").ListObjects(1).DataBodyRange.Value
        For i = 1 To UBound(a)
            .Item(a(i, 1)) = a(i, 2)
        Next
        a = Sheets("Таблица 1").ListObjects(1).DataBodyRange.Value
        For i = 1 To UBound(a)
            t = Left(a(i, 1), 8)
            If .exists(t) Then a(i, 1) = .Item(t) Else a(i, 1) = Empty
        Next
        Sheets("Таблица 1").[c2].Resize(UBound(a), 1) = a
    End With
End Sub
Дата из Textbox переноситься как текст в диапазоне ячеек
 
Цитата
Voltz написал:
Получается, это не возможно?
- Вы читаете что Вам пишут? Где кто сказал что это невозможно? Даже больше - я написал как это возможно :)
Дата из Textbox переноситься как текст в диапазоне ячеек
 
Я исходя из описания посмотревших файл не смотрел, но обычно делают так - выбирают из текста год, месяц и день и формируют из этого дату.
Дата из Textbox переноситься как текст в диапазоне ячеек
 
А как Вы ухитрились в текстбокс поместить дату? Это же ТЕКСТбокс!
Вытащить значение по условию из одного листа в другой
 
Код
=ИНДЕКС(KiumCells!E2:E300; ПОИСКПОЗ(C6;KiumCells!A2:A300))

Но ВПР() ведь проще :)
Код
=ВПР(C6;KiumCells!A:E;5;0)

а чтоб очищалось - ну ЕСЛИ навесьте...
Изменено: Hugo - 6 авг 2020 22:06:34
Вытащить значение по условию из одного листа в другой
 
Есть задача - есть ВПР()
Удалить слова из ячеек по списку
 
New, там ещё application.trim() нужно навесить на результат.
Как получить список строк(записей) таблицы по критерию используя VBA?
 
Чуть производительнее собирать в коллекцию только номера строк исходного массива, он ведь ещё живой.
И затем перебирая for each эти номера можно брать данные сразу из исходного объекта.
Возможно ли наименованию столбца прописать префикс, если наименование похоже на 'ABC' (или содержит 'ABC'), Power Query M
 
Судя по примерам - если в названиях оставить только цифры и "кв" то этого должно быть достаточно. Как сделать в PQ - не знаю.
Изменено: Hugo - 5 авг 2020 16:46:49
Как убрать формулу round по всему документу Excel, Можно ли автоматически убрать формулу Round по всему документу.
 
По данному примеру можно макросом. А как там в рабочем файле - кто знает...
Цикл по ячейкам, читаем формулу - если в начале "=ОКРУГЛ(", то меняем ";2)" на ничего,  "=ОКРУГЛ(" на "="
Изменено: Hugo - 5 авг 2020 14:48:17
Счетчик печати документа, Изменять номер заказа после его печати
 
Так берите любой из показанных (они все у Вас есть в Вставка->Фигуры), пишите на нём что хотите.
Изменено: Hugo - 5 авг 2020 12:22:21
Счетчик печати документа, Изменять номер заказа после его печати
 
smalljohn,  можно я помогу? Выбирайте любую: http://prntscr.com/tuctjp
Суммирование чисел из ячеек с заливкой и со смешанными данными
 
Т.к. и так уже xlsm, то я бы не мудрил и взял любую UDF, извлекающую цифры, тем более что они только в начале.
Например вот, берите любую:
Код
Function GetNumeric(t As String)
    Dim j As Integer, l As String
    For j = 1 To Len(t)
        If IsNumeric(Mid(t, j, 1)) Then l = l & Mid(t, j, 1)
    Next j
    GetNumeric = Val(l)
End Function

Public Function ExtractNumber(s As String)
    Dim i As Integer, str As String, a$
    For i = 1 To Len(s)
        a = Mid(s, i, 1)
        If InStr(1, "1234567890,", a) Then str = str & a
    Next
    ExtractNumber = str
End Function
Изменено: Hugo - 5 авг 2020 11:00:18
сумма произведений по дате и условию
 
А почему 9, карл?
Не добавили такую мелочь как ФОРМУЛА МАССИВА!
Изменено: Hugo - 5 авг 2020 10:06:04
[ Закрыто] Связать два макроса, Задача связать два макроса со счётчиком
 
Код
Sub tt()

    With ActiveSheet.Shapes("Scroll Bar 7").OLEFormat.Object
'        .Value = 2
        .Min = 5 ' <====================
        .Max = 99
        .SmallChange = 5
        .LargeChange = 10
        .LinkedCell = "$C$2"
        .Display3DShading = True
    End With
End Sub
Перенести данные из нескольких файлов в один файл
 
Цитата
realmen80 написал:
Также не могу понять почему вместо русских букв - знаки вопросов стали...
- нужно копировать код при русской раскладке.
Выделение одинаковых значений в ячейках на разных листах при условии повторения больше трех раз, Проверка диапазонов значений
 
Можно и без допстолбца вероятно сделать, но зачем так усложнять себе жизнь? Не хотите его видеть - спрячьте, или сделайте шрифт цветом фона.
Изменено: Hugo - 4 авг 2020 14:04:55
Выделение одинаковых значений в ячейках на разных листах при условии повторения больше трех раз, Проверка диапазонов значений
 
Думаю проще сделать так:
1. в справочнике в соседнем столбце считаете количество повтора конкретного номера по всем листам. Суммируете 13 раз счётесли()
2. в УФ каждой ячейки с этими номерами в формуле ссылаетесь на этот столбец.
Это если я правильно понял задачу, в чём сомневаюсь...
У Вас кстати 31 и Б-Н уже 2 раза есть в справочнике, т.е. на все листы вакантно одно упоминание, не больше.
И пока ничего красить не нужно, не превышен нигде лимит "при условии их повторения во всех листах более трех раз".
P.S. Вот поставил пока ограничение >2, поменяйте например на Лист 1 эти залитые на другие номера, а 30 на 31.
В справочнике УФ не ставил, на Лист2 тоже.
Кстати в xls моё УФ не сохраняется, поэтому заменил на xlsx.
Изменено: Hugo - 4 авг 2020 11:31:06
Не работает макрос для создания выпадающего списка, Макрос не работает при копировании на другие листы в файле
 
Ну пишет же код - нет текстбокса и листбокса. Можно просто скопировать их из оригинала.
См.скрин http://prntscr.com/ttfe0a
Изменено: Hugo - 3 авг 2020 23:11:53
Выделить строки при условиях в двух столбцах, Выделить строки, при условии, что названия в одном столбце начинаются одинаково и сума в другом столбце равна 0
 
У меня из надстройки работает. Проблема может быть в данных.
Выделить строки при условиях в двух столбцах, Выделить строки, при условии, что названия в одном столбце начинаются одинаково и сума в другом столбце равна 0
 
Покажите на каких данных вылетает.
Пример работает?
Изменено: Hugo - 3 авг 2020 19:11:49
Выделить строки при условиях в двух столбцах, Выделить строки, при условии, что названия в одном столбце начинаются одинаково и сума в другом столбце равна 0
 
Видео лень снимать-выкладывать, смотрите файл :)
Сортировка значений в строку после проверки на повторение ключа в столбце
 
Ещё в копилке есть моя UDF
P.S. Посмотрел в файл - UDF результат в одну ячейку складывает, это чуть другое: http://prntscr.com/tt9dw2
Но в практической задаче можно затем полученный результат разбить по столбцам по разделителю.
Изменено: Hugo - 3 авг 2020 17:45:58
Выделить строки при условиях в двух столбцах, Выделить строки, при условии, что названия в одном столбце начинаются одинаково и сума в другом столбце равна 0
 
Не ну реально код готов, только покраску поленился сделать, в дебуг вывожу. И вижу вот это. Далее решает заказчик.
P.S. вообще я конечно могу как только встретится пустая ячейка вместо названия - сбрасывать всю статистику и начинать с 0... Так надо?
А 100 000 красить долго...
Изменено: Hugo - 3 авг 2020 16:34:00
Выделить строки при условиях в двух столбцах, Выделить строки, при условии, что названия в одном столбце начинаются одинаково и сума в другом столбце равна 0
 
Написал код по указанным условиям - результат чуть другой будет (это номера окрашиваемых строк):
4
5
=====
9
10
=====
12
13
=====
15
16
=====
18
19
=====
21
22
=====
24
25
=====
23
29
30
=====
Чего делать будем?
Выделить строки при условиях в двух столбцах, Выделить строки, при условии, что названия в одном столбце начинаются одинаково и сума в другом столбце равна 0
 
Строго говоря первые 3 слова в
Олд Спайс гель-шампунь чоловічий 2в1 Льодовий 250мл
не
Олд Спайс гель
Да и последние 2 не 250 мл :(
Хотя можно конечно макросом это дело пофиксить, хорошо что такой пример показали...
Изменено: Hugo - 3 авг 2020 15:37:50
Как в таблице показать первую скрытую строку
 
Привет.
Почему пример не соответствует описанной задаче?
Изменено: Hugo - 2 авг 2020 23:30:44
Автоматизация переноса данных из одного файла в другой, Прошу помочь
 
Так я детали уже и не помню :)
Если хотите путь к источнику менять как описали в п.3 - то это тогда всю работу (или формирование формул в ячейках) нужно делать макросм.
Т.к. как аргумент путь использовать нельзя, ДВССЫЛ которая это позволяет не работает с закрытыми книгами (почему кстати? недоработка...), а если книга открыта то вроде как уже и нет смысла во всём этом...
Т.е. п.4 не реализуем формулами.
Разбить столбцы на отдельные строки
 
Поищите по форуму/сайту Редизайнер таблиц, может он сможет. Я т.к. протестировать не могу, анализ не проводил.
Вот, нашёл: https://www.planetaexcel.ru/techniques/3/55/
Изменено: Hugo - 2 авг 2020 14:11:33
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 749 След.
Наверх