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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 749 След.
Как сделать макрос, который ищет как впр похожие данные, VBA
 
Код
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
Почему сумма положительных и отрицательных значений не равна нулю?
 
IEEE 754 - стандарт двоичной арифметики с плавающей точкой
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 749 След.
Наверх