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

Страницы: 1 2 След.
Получить список имен умных таблиц на активном листе
 
#
21.03.2024 08:51:42
evgeniygeo, Спасибо огромное, особенно за последний пост, очень помог. По ссылке много было инфы, но тяжело было бы его перебратьв голове. Учусь пока, трудно понимать, а это просто спасение.
 
Перейти    
Получить список имен умных таблиц на активном листе
 
#
21.03.2024 07:18:25
evgeniygeo, Вроде как у меня задача хитрее, как получить имена таблиц только на первом листе.
Изменено: Faiber - 21.03.2024 07:18:48
 
Перейти    
Получить список имен умных таблиц на активном листе
 
#
21.03.2024 06:57:14
Хочу сделать универсальный макрос, на любом листе будет по две умных таблицы и надо получить список имен умных таблиц и присвоить им две переменные.
Я пока научился узнавать имя активного листа и присваивать это имя переменной.
Изменено: Faiber - 21.03.2024 06:58:20
 
Перейти    
Выделить столбцы в умной таблице
 
#
20.03.2024 16:22:21
МатросНаЗебре,
Фантастика какая-то, сам честно пытался и так и этак. Спасибо
 
Перейти    
Выделить столбцы в умной таблице
 
#
20.03.2024 16:05:18
Выделить столбцы в умной таблице. Сложность в том, что я хочу название таблицы столбцов оформить в виде переменных.
 
Перейти    
Как правильно сослаться на переменную
 
#
18.03.2024 19:55:25
sokol92, Всем спасибо, вам от души спасибо
 
Перейти    
Как правильно сослаться на переменную
 
#
18.03.2024 08:59:00
Здравствуйте.
Помогите с двумя моими трудностями:

1. В одном месте к примеру  задаем переменную таблицу:
Код
Set Tabl2 = ListD.ListObjects("Таблица2")
Но вот дальше я не понимаю как правильно сослаться уже на Tabl2, вот часть кода, которую я хотел бы заменить:
Код
Set Rg1 = Range("Таблица2[Moy_UID]")
Rg1.Select
и такой
Код
Range("Таблица2[[#Headers],[Moy_UID]]").Select

2. Как в таком примере правильно прописать переменную с названием столбца, т.е. я бы хотел в начале кода сделать строку, где я могу один раз указать нужный столбец, а не искать его по всему телу макроса в разных местах.:
Код
Range("Таблица2[[#Headers],[Moy_UID]]").Select
 
Перейти    
Определить номер столбца на листе, при этом
 
#
14.03.2024 20:44:02
БМВ, а если таблица названия Таблица1 ?
 
Перейти    
Определить номер столбца на листе, при этом
 
#
14.03.2024 20:32:12
Здравствуйте.
Хочу  задать переменную в виде пордякового номера столбца на листе, и при этом этот столбец является последним столбцом умной таблицы. Т.е. мне надо обратиться к умной таблице, узнать ее последний столбец и получить номер (цифру) столбца листа, на который приходится последний столбец умной таблицы.
 
Перейти    
Задать адрес ячейки в виде переменных номера столбца и номера ячейки
 
#
13.03.2024 16:14:54
Цитата
написал:
КодSet b = Cells(RowsRg1, ColumnsRg2)
Так?
Да!!!!! Спасибо.
Не поймешь когда писать этот Range, а когда не надо.
 
Перейти    
Задать адрес ячейки в виде переменных номера столбца и номера ячейки
 
#
13.03.2024 15:51:30
 Не получается задать адрес ячейки из двух переменных. Кто-то знает как это решить?
Код
Set Rg1 = Range("Таблица2[Moy_UID]") ' определяем диапазон
Rg1.Select ' выделяем диапазон
RowsRg1 = Selection.Rows.Count ' определяем количество строк в выделенном диапазоне

' Узнаем и присваеваем сколько заполненнных столбцов в таблице
Set Rg2 = Range("Таблица2[#Headers]")
Rg2.Select ' выделяем диапазон
ColumnsRg2 = Selection.Columns.Count ' определяем количество столбцов в выделенном диапазоне

' Определяем и задаем диапазон таблицы
Set a = Range("A2")
Set b = Range(RowsRg1, ColumnsRg2) ' ТУТ ОШИБКА!!!!!!!!!!!!
Set Tabl = Range(a, b) 'Таблица с данными
 
Перейти    
Уменьшить выделенный диапазон на одну строку
 
#
06.03.2024 18:16:53
Евгений Смирнов, Спасибо. Я пока только изучаю, а можно пример с офсетом также привести.
 
Перейти    
Уменьшить выделенный диапазон на одну строку
 
#
06.03.2024 18:02:12
Есть умная таблица, выделяю один столбец и потом нужно строки выделенного диапазона удалить, но я хочу одну строку из выделенного диапазона не удалять. Думаю надо выделенный диапазон уменьшить на одну строку. Два часа потратил и не смог понять, как изменить выделенный диапазон (((
Код
Range("Таблица1[Данные]").Select
Изменено: Faiber - 06.03.2024 18:06:26
 
Перейти    
Отзывы о работодателях и исполнителях, Посмотрите, прежде чем взять/предложить работу
 
#
24.06.2023 13:44:26
Было несколько задач, которые New были выполнены. Если были какие-то огрехи в коде, без каких либо проблем вопрос решался.
Рекомендую. :)  
 
Перейти    
Выбрать только первое уникальное значение при совпадении
 
#
23.06.2023 04:14:32
Максим В.,

Спсасибо, тоже элегантное решение
 
Перейти    
Выбрать только первое уникальное значение при совпадении
 
#
22.06.2023 06:11:31
Натолкнули на мысль тут и в итоге вроде у меня получилось идеальное решение. Формула одна на весь столбец. На всякий случай прилагаю.
 
Перейти    
Выбрать только первое уникальное значение при совпадении
 
#
22.06.2023 03:57:48
Hugo,

Спасибо, работает!!!
НО блин как то странно с умной таблицей, если добавляем строку в умную таблицу, на новой строке уже не работает.
 
Перейти    
Выбрать только первое уникальное значение при совпадении
 
#
21.06.2023 21:53:09

Приветствую.

Пока даже мыслей, возможно ли такое формулой сделать

Есть столбец в котором список ID, бывают повторы. В следующем столбце назовём его «Признак» иногда стоит значение «1».

И вот в третьем столбце мне нужно, если в столбце «Признак» по строке где стоит знак «1» занести значение ID, но есть как раз самый сложный НЮАНС, что сюда надо перенести только ID, которые в этом столбце ранее не упоминались.

В файле примере вне таблице я в желтых ячейках пытаюсь показать, как в идеале должно быть.
 
Перейти    
Сравнить данные в 3 столбцах на разных строках
 
#
12.06.2023 12:46:50
БМВ,
Однако получилось.  
 
Перейти    
Сравнить данные в 3 столбцах на разных строках
 
#
12.06.2023 11:38:33
Alien Sphinx,

Гений Гениальный. Работает. Я даже сейчас не понимаю, как это в формуле работает)))

Один вопрос, что значат символы в формуле "--" ?

На всякий случай приведу на русском языке:
= ЕСЛИ(((СУММПРОИЗВ(--([ID]=[@ID]); --([Критерий 1]=1)) >= 1) + (СУММПРОИЗВ(--([ID]=[@ID]); --([Критерий 2]=1)) >= 1)) = 2; [@UID]; "")
Изменено: Faiber - 12.06.2023 11:45:15
 
Перейти    
Сравнить данные в 3 столбцах на разных строках
 
#
12.06.2023 09:53:29
Роман Петров,

Короче мне надо сравнить два списки "Критерий 1" и "Критерий 2" и узнать есть ли такие ID (на против которого стоит 1 в соотвествуюшем столбце) которые одновременно присутсвуют в "Критерий 1" и "Критерий 2" не обращая внимание на строки, просто тупо в каждом столбце есть, занчит для такого ID уже по строчнко копируем данные из столбца "UID".

Наверно это не возможно. Суть в том, что мне надо в столбец "ID+Критерий 1+ Критерий 2" скопировать данные из столбца "UID", но при условии если данные в столбце ID одновременно во все таблице встречаются по столбцам "Критерий 1" и  "Критерий 2" не зависимо от строки. Впринципе если ID на любых строках встречается и в столбце "Критерий 1"и  "Критерий 2", то тогда для такого ID уже построчно копируется свой UID.
Изменено: Faiber - 12.06.2023 09:59:02
 
Перейти    
Сравнить данные в 3 столбцах на разных строках
 
#
12.06.2023 07:16:14
Не как не могу понять как сравнить каждую ячеку из первого столбца с двумя другими и при наличии данных в обоих столбцах не зависимо от строк.
В файле примере я руками заполнил столбец с заливкой. А вот автоматизировать не могу. Догадыаюсь, что это надо делать формулой массива, но как не знаю ))
Изменено: Faiber - 12.06.2023 07:16:34
 
Перейти    
Выделить диапазон
 
#
06.06.2023 19:57:52
Ігор Гончаренко,

Могли бы Вы помочь написать более правильно? Как я понимаю, у меня медленный код, но другого я не знаю.
Код
    Range("Таб_реестр[SUMMA]").Select
        ' начало Блока исправления экспортированного как текст цифр в нормальные числа
            Selection.Copy
            Selection.PasteSpecial Paste:=xlPasteValues
                    '  Dim rArea As Range
            On Error Resume Next
                        If Err Then Exit Sub
                        For Each rArea In Selection.Areas
                        rArea.FormulaLocal = rArea.FormulaLocal
                    Next rArea
        ' конец Блока исправления экспортированного как текст цифр в нормальные числа
            Selection.Replace What:="-", Replacement:="."
            Selection.Replace What:="'", Replacement:=""
            Selection.Replace What:=" ", Replacement:=""
        ' Начало - если разделитель точка, преобразует в число
            Selection.NumberFormat = "General"
            Selection.Value = Selection.Value
        ' Конец - если разделитель точка, преобразует в число
                Selection.NumberFormat = "#,##0.00"
Изменено: Faiber - 06.06.2023 19:58:38
 
Перейти    
Выделить диапазон
 
#
05.06.2023 23:22:25
Подгоняю под другие задачи чужой макрос, написанный для меня на инопланетном языке. )))
В общем надо выделить данные в столбце и обработать их. Но выделение не происходит (((

 
Код
DataSt46ZaemchikCol = loTablel.ListColumns(sDataSt46ZaemchikCol).Index

Код
            loTablel.DataBodyRange(DataSt46ZaemchikCol).Select
            Set range1 = Intersect(ActiveWindow.RangeSelection, ActiveSheet.UsedRange)
             For Each cell In range1
                If IsDate(cell.Value) Then cell.Value = CDate(cell.Value)
            Next cell

Как мне выделить столбец с названием DataSt46ZaemchikCol?

 
 
Перейти    
Как правильно написать в VBA сравнение
 
#
05.06.2023 18:32:44
Мне нужно проверить сравнение в макросе

Как правильно написать?

if FIO <> "ФИО продавца" Then

Сдается мне, что это не правильно. ((((
 
Перейти    
Как в сводной таблице посчитать процент от другого столбца
 
#
05.06.2023 18:29:15
Alex,

Фантастика. Спасибо, но как вы этого сделали я не могу понять и следовательно повторить )). Есть где-нибудь пошаговое или руководство?
 
Перейти    
Как в сводной таблице посчитать процент от другого столбца
 
#
04.06.2023 13:55:57
Как в сводной таблице посчитать процент от другого столбца?
 
Перейти    
Plex что бы хотелось ещё, Тема просто как фиксатор идей для такого замечатального инмтрумента как Plex , ничему не обязывая Николая,
 
#
04.06.2023 08:47:42
В последней версии перстало работат удаление пустых строк. столбцы не проверял
Изменено: Faiber - 04.06.2023 08:47:57
 
Перейти    
Умная таблица - быстро удалить столбцы, не содержащие данных
 
#
20.05.2023 11:49:15
Столбцы целиком
 
Перейти    
Выделить нужный диапазон и удалить столбцы на листе
 
#
20.05.2023 11:08:35
Получилось после долгих поисков
Код
ThisWorkbook.Worksheets("База").Activate
ThisWorkbook.Worksheets("База").Range("База[[#Headers],[Возраст]]").Select
NameColumnFist = Split(Cells(1, ActiveCell.Column).Address, "$")(1)
MsgBox (NameColumnFist)
ThisWorkbook.Worksheets("База").Range("База[[#Headers],[Конец]]").Select
NameColumnLast = Split(Cells(1, ActiveCell.Column).Address, "$")(1)
MsgBox (NameColumnLast)
Columns(NameColumnFist & ":" & NameColumnLast).Select
Selection.Delete Shift:=xlToLeft
 
Перейти    
Страницы: 1 2 След.
Наверх