Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 276 След.
Проверка диапозона на недостающие значения, Сравнить два диапозона и вставить недостающие значения
 
Yeti_magic,
Код
Sub d()
Dim arr, arr2, i As Long, j As Long, lr As Long
Dim col2 As New Collection
lr = Cells(Rows.Count, 2).End(xlUp).Row
lr2 = Cells(Rows.Count, 5).End(xlUp).Row
arr = Range(Cells(6, 2), Cells(lr, 3)): arr2 = Range(Cells(6, 5), Cells(lr2, 6))

For i = LBound(arr2) To UBound(arr2)
    On Error Resume Next
    col2.Add arr2(i, 1) & "///" & arr2(i, 2), CStr(arr2(i, 1) & "///" & arr2(i, 2))
Next i

For i = LBound(arr) To UBound(arr)
    On Error Resume Next
    col2.Add arr(i, 1) & "///" & arr(i, 2), CStr(arr(i, 1) & "///" & arr(i, 2))
Next i

arr2 = Range(Cells(6, 5), Cells(lr2, 6)).ClearContents
ReDim arr2(1 To col2.Count, 1 To 2)
For i = 1 To col2.Count
    arr2(i, 1) = Split(col2(i), "///")(0)
    arr2(i, 2) = Split(col2(i), "///")(1)
Next i

Range("E6").Resize(UBound(arr2), 2) = arr2
End Sub
Не бойтесь совершенства. Вам его не достичь.
VBA как компактнее написать перечисление условий
 
doober,  :D  
Не бойтесь совершенства. Вам его не достичь.
Агрегация данных из большой таблицы в более компактную
 
romashka123, обычную сводную используйте
Изменено: Mershik - 11.11.2022 12:57:45
Не бойтесь совершенства. Вам его не достичь.
Проставить цены
 
Kidus, =ИНДЕКС($D$2:$D$18;ПОИСКПОЗ($A2;$C$2:$C$18;0))
Не бойтесь совершенства. Вам его не достичь.
Поиск в столбце текста и вывод найденных, Поиск в столбце текста (на отдельной вкладке список) и вывод найденных через запятую без повторов в соседний столбец
 
Александра Синк,  на листе с названиями стран-  первая строка не верная, я ее менял просто для проверки исправите согласно ссылке
Изменено: Mershik - 10.11.2022 11:37:23
Не бойтесь совершенства. Вам его не достичь.
Отфильтровать данные в таблице по двум столбцам
 
realmen80,  можно просто сортировку по user_id и дата (о новых к старым) сделать и потом формулой доп столбец и по нему фильтровать
формулу такую =СЧЁТЕСЛИ($B$1:$B2;B2)=1
фильтровать по истина
Изменено: Mershik - 10.11.2022 11:26:22
Не бойтесь совершенства. Вам его не достичь.
Поиск в столбце текста и вывод найденных, Поиск в столбце текста (на отдельной вкладке список) и вывод найденных через запятую без повторов в соседний столбец
 
Александра Синк,
Вариант взять перечень названий стран мира (например тут) и потом макросом вывести,
а дальше дополняйте вариантами написания и будет все окей
Не бойтесь совершенства. Вам его не достичь.
Поиск в столбце текста и вывод найденных, Поиск в столбце текста (на отдельной вкладке список) и вывод найденных через запятую без повторов в соседний столбец
 
Цитата
написал:
400 строчек написания стран.
...тут точно что-то не так написано так как стран в мире на порядок меньше  
Не бойтесь совершенства. Вам его не достичь.
Табель учета рабочего времени без макросов
 
Serega Ivanov, еще со справочником
Не бойтесь совершенства. Вам его не достичь.
Как реализовать прогрессию только в видимых ячейках, на листе с примененным фильтром (то есть только в отфильтрованных ячейках)?, Как реализовать прогрессию только в видимых ячейках, на листе с примененным фильтром (то есть только в отфильтрованных ячейках)?
 
_Boroda_,  да думал что будет как-то так работать
Код
 =ПРОМЕЖУТОЧНЫЕ.ИТОГИ(104;$C$1:C1)+1
Не бойтесь совершенства. Вам его не достичь.
Как реализовать прогрессию только в видимых ячейках, на листе с примененным фильтром (то есть только в отфильтрованных ячейках)?, Как реализовать прогрессию только в видимых ячейках, на листе с примененным фильтром (то есть только в отфильтрованных ячейках)?
 
_Boroda_,  а сижу думаю че у меня промежуточные итоги не работают( спасбо
Не бойтесь совершенства. Вам его не достичь.
Как реализовать прогрессию только в видимых ячейках, на листе с примененным фильтром (то есть только в отфильтрованных ячейках)?, Как реализовать прогрессию только в видимых ячейках, на листе с примененным фильтром (то есть только в отфильтрованных ячейках)?
 
Barmaldon,
Код
Sub asd()
Dim i As Long, cell As Range, lr As Long
lr = Cells(Rows.Count, 1).End(xlUp).Row
Set Rng = Range(Cells(2, 1), Cells(lr, 1)).SpecialCells(xlCellTypeVisible)
Rng.Offset(0, 2).ClearContents
For Each cell In Rng
    cell.Offset(0, 2) = _
    Application.WorksheetFunction.Max( _
    Range(Cells(2, 3), Cells(lr, 3)).SpecialCells(xlCellTypeVisible)) + 1
Next cell
End Sub

Не бойтесь совершенства. Вам его не достичь.
Нумерация текстовых данных
 
Владимир Немыкин,  не видел последнее сообщение, но о том что у Вас там пути какието не такие наверное стоило описывать конкретную задачу а не просто и нужно иногда решения могут быть разные...
Код
Sub ddd()
Dim rng As Range, cell As Range, i As Long
Set rng = Application.InputBox("Выдели ячейки из которых нужно получить текст, результат будет выведен справа от каждой ячеке", Type:=8)
For Each cell In rng
txt = ""
    If IsNumeric(cell) Then
        For i = 1 To cell
            If txt = "" Then
                txt = "image_" & i & ".jpg"
            Else
                txt = txt & ",image_" & i & ".jpg"
            End If
        Next i
    End If
    cell.Offset(0, 1) = txt
Next cell
End Sub

Изменено: Mershik - 09.11.2022 14:35:00
Не бойтесь совершенства. Вам его не достичь.
Нумерация текстовых данных
 
Владимир Немыкин, макрос подойдет?
Не бойтесь совершенства. Вам его не достичь.
Макрос в котором меняется формат если значение ячейки больше 0, Как поменять формат только у ячеек, которые подтягивают не 0
 
АЛина Алина,  просто бы вставляли значения, для чего использовать макрос и вставлять формулы ...
Код
Sub Макрос4()
Dim sh As Worksheet, sh2 As Worksheet, i As Long, j As Long, lr As Long, lr2 As Long
Set sh = ActiveSheet
Set sh2 = Worksheets("База")
lr = sh.Cells(Rows.Count, 1).End(xlUp).Row
lr2 = sh2.Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lr
    t1 = sh.Cells(i, 1): t2 = sh.Cells(i, 2)
    For j = 2 To lr2
        t3 = sh2.Cells(j, 1): t4 = sh2.Cells(j, 2)
        If t1 = t3 And t2 = t4 Then
        sh2.Cells(j, 3).Resize(1, 10).Copy
        sh.Cells(i, 3).PasteSpecial Paste:=xlPasteValues
        Exit For
        End If
    Next j
Next i
End Sub
Не бойтесь совершенства. Вам его не достичь.
Макрос в котором меняется формат если значение ячейки больше 0, Как поменять формат только у ячеек, которые подтягивают не 0
 
АЛина Алина,  что решить? все работает как и должно работать...
Не бойтесь совершенства. Вам его не достичь.
Преобразовать из строки в таблицу
 
Михаил Князев,  сам себя не похвалишь никто не похвалит  :D  
Не бойтесь совершенства. Вам его не достичь.
Преобразовать из строки в таблицу
 
Михаил Князев,  
Не бойтесь совершенства. Вам его не достичь.
Преобразовать из строки в таблицу
 
Михаил Князев, тогда вопрос а таблица просто для одного прибора?  
Не бойтесь совершенства. Вам его не достичь.
Преобразовать из строки в таблицу
 
Михаил Князев,  что из всего в файле исходыне данные, а что желаемый результат ? Вам нужно таблицу формировать или же она будет и туда просто формулой значения подтягивались?
Изменено: Mershik - 08.11.2022 09:26:48
Не бойтесь совершенства. Вам его не достичь.
СОРТИРОВКА ДАННЫХ ПО ФИЛЬТРУ ПО МНОЖЕСТВУ НОМЕНКЛАТУР
 
Цитата
написал:
Функция ВПР не подойдет.
картинка вместо примера в файле ексель тоже так себе подходит)
Цитата

То есть можно ли как-то загрузить в фильтр свой список?
можно макросом фильтровать) но меня смущает что у Вас одинаковые значение в фильтре отображаются каждый отдельно видимо они разные все таки...
как-то так ( по умолчанию данные идет со второй строки).
Код
Sub false_filter()
    Cells.EntireRow.Hidden = False
End Sub
Код
Sub filter_for_list()
Dim list As Range, i As Long, cell As Range, rng_filter As Range, k As Long, col_name As Long
col_name = Application.InputBox("Укажи номер столбца по которому фильтровать", Type:=1)
Set list = Application.InputBox("Выбери данные по которым хочешь сделать фильтр", Type:=8)
Application.ScreenUpdating = False
For i = 2 To Cells(Rows.Count, col_name).End(xlUp).Row
    For Each cell In list
        If cell = Cells(i, col_name) Then
            k = k + 1
            Exit For
        End If
    Next cell
        If k = 0 Then
            If rng_filter Is Nothing Then
                Set rng_filter = Cells(i, col_name)
            Else
                Set rng_filter = Union(rng_filter, Cells(i, col_name))
            End If
        End If
k = 0
Next i
If Not rng_filter Is Nothing Then rng_filter.EntireRow.Hidden = True
Application.ScreenUpdating = True
End Sub
Изменено: Mershik - 07.11.2022 12:23:33
Не бойтесь совершенства. Вам его не достичь.
Макрос открытия файла в сети, с последующими действиями., Открыть только для чтения, скопировать, закрыть, вставить значениями в файле из которого производился запуск макроса.
 
Олег Ирхин,  Вам бы стоило приложить пару файлов откуда вы вставляете...макрос достаточно быстро должен отрабатывать - чем Вам он не нравится?
или в чем вопрос?

ПЫ,СЫ У меня на работе есть файл в который я собираю данные из 35 файлов хранящихся в одной папке, при этом название их мне не важно...достаточно выбрать только папку или по умолчанию указать (если она не меняется) - это занимает всего секунд 10 максимум
Изменено: Mershik - 02.11.2022 16:44:14
Не бойтесь совершенства. Вам его не достичь.
Нелинейное преобразование одной шкалы в другую
 
Цитата
написал:
0-7 "сырых" - это 0 баллов, 8-14 - 1 балл и так дале
так далее весьма сомнительно, так как если порядок шага в 6 - не выйдем на 54 бала, а вот на 56 выйдем, поэтому лучше конкретно указать какой бал соответствует диапазону (или наоборот), при этом в файле у Вас иные соответствия баллов
Изменено: Mershik - 02.11.2022 16:07:18
Не бойтесь совершенства. Вам его не достичь.
Поиск в диапазоне дат, Поиск значения по дате в диапазоне дат
 
Нина Алексеева,  лупа есть?
Не бойтесь совершенства. Вам его не достичь.
Объединить ячейки с одной датой и указать среднее на дату, Объединить ячейки с одной датой и указать среднее на дату
 
Дмитрий,
Цитата
написал:
Можно,
все можно, если видеть данные и желаемый результат как его видит автор темы
Не бойтесь совершенства. Вам его не достичь.
Очистка неиспользуемых строк на листе, Вручную удалить выделенный диапазон не хватает памяти и книга виснет
 
Тимофеев, начните по чуть-чуть удалять, по 10 тысяч строк удалять и сохранятся каждый раз, потом сможете больше удалить было у меня такое
Изменено: Mershik - 01.11.2022 14:48:25
Не бойтесь совершенства. Вам его не достичь.
VBA 1004, У меня задание по программированию - задать массив. Ввёл тот же код, что нам предоставил преподаватель. В итоге выдаёт ошибку 1004 . Помогите разобраться
 
Олег Лихунов,  у Вас i - целое число и оно используется как переменная выбора номера столбца, только загвоздка в том, что не существует столбца под номер ноль...
возможно нужно часть
Код
A(i) = Val(Cells(4, i ).Value)
заменить на
Код
A(i) = Val(Cells(4, i + 1).Value)
Изменено: Mershik - 01.11.2022 12:42:45
Не бойтесь совершенства. Вам его не достичь.
VBA Формат даты и числа
 
Анжелика, https://www.excel-pratique.com/en/vba_tricks/date_format
Не бойтесь совершенства. Вам его не достичь.
Объединить ячейки с одной датой и указать среднее на дату, Объединить ячейки с одной датой и указать среднее на дату
 
Дмитрий,  ну тут нужно реальный пример показывать("секретную" информацию заменить на что то иное) что бы потом не думать как переделывать
Не бойтесь совершенства. Вам его не достичь.
Отображение подстрочных символов в выпадющем списке
 
Цитата
написал:
Есть список  чисел
неа, нету - там ошибка
Цитата
написал:
отображаються одного  регистра .
неа, нема - там ошибка

UPD. Наверное только у меня)
Изменено: Mershik - 31.10.2022 16:50:41
Не бойтесь совершенства. Вам его не достичь.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 276 След.
Наверх