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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 96 След.
Создать список из актуальных данных
 
madkechup,
на 365 и 2021:
Код
=ФИЛЬТР($A$2:$A$12;ЕСЛИОШИБКА($A$2:$A$12;"")<>"")

для более старых версий формула массива (вводить через ctrl+shift+enter):
Код
=ЕСЛИОШИБКА(ИНДЕКС($A$2:$A$12;НАИМЕНЬШИЙ(ЕСЛИ(ЕСЛИОШИБКА(A2:A12;"")<>"";СТРОКА(A2:A12)-1;"");СТРОКА()-1));"")
Изменено: evgeniygeo - 24.04.2024 17:08:51
Быстрая очистка диапазона с данными (макрос), Оптимизация удаления (очистки) данных (макрос)
 
mitya528,
еще как вариант сократить диапазон для очистки:
Код
Range("A3:P" & Cells(Rows.Count, 1).End(xlUp).Row + 1).ClearContents


Также, можно сделать при изменении коэф пересчет значений макросом
Изменено: evgeniygeo - 24.04.2024 16:38:43
Быстрая очистка диапазона с данными (макрос), Оптимизация удаления (очистки) данных (макрос)
 
mitya528,
обновляются макросом или как?
Быстрая очистка диапазона с данными (макрос), Оптимизация удаления (очистки) данных (макрос)
 
mitya528,
а стоит ли вообще вставлять формулу?
может посчитать в VBA и вставлять только значение?
Быстрая очистка диапазона с данными (макрос), Оптимизация удаления (очистки) данных (макрос)
 
mitya528,
1) а обязательно целиком строки очищать?
2) от селектов точно бы избавиться
Код
Rows("3:250000").ClearContents

3) добавить в начало кода:
Код
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual

и в конце кода:
Код
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.EnableEvents = True
Изменено: evgeniygeo - 24.04.2024 15:56:50
Цветной шрифт в VBA форме, Текст в форме должен быть такогого же цвета что и в списке на листе
 
Списались в почте, предложил вариант с заменой ListBox на ListView. ТС думает.
Поиск точного числа в интервале
 
Raneli,
может так:
Код
=ИНДЕКС(Таблица1[[#Все];[Абсолютная глубина]]; ПОИСКПОЗ(N4;Таблица1[[#Все];[MD]];1))
Изменено: evgeniygeo - 24.04.2024 11:04:33
Цветной шрифт в VBA форме, Текст в форме должен быть такогого же цвета что и в списке на листе
 
пишу в лс свои предложения
Изменено: evgeniygeo - 24.04.2024 07:21:54
Удаление строк с отрицательным значением
 
nomad_a,
Код
Sub aaaaaaaabbb()
    Dim arr()
    Dim i As Long
    Dim q As Variant
    Dim matchFound As Boolean
    Dim numColumns As Long

    lLastRowA = Sheets("A").Cells(Rows.Count, 1).End(xlUp).Row
    lLastRowB = Sheets("B").Cells(Rows.Count, 1).End(xlUp).Row
    Set rngA = Sheets("A").Range("A2:C" & lLastRowA)
    Set rngB = Sheets("B").Range("A2:C" & lLastRowB)
    numColumns = rngA.Columns.Count
    
    ReDim arr(1 To lLastRowA, 1 To numColumns)
    
    For rA = 1 To rngA.Rows.Count
        matchFound = False
        For rB = 1 To rngB.Rows.Count
            If rngA(rA, 1) = q Then
                Exit For
            End If
            If rngA(rA, 1) = rngB(rB, 1) Then
                If rngA(rA, 3) - rngB(rB, 2) > 0 Then
                q = rngA(rA, 1)
                    Exit For
                End If
                matchFound = True
                Exit For
            End If
        Next rB
        
        If Not matchFound Then
            i = i + 1
            For j = 1 To numColumns
                arr(i, j) = rngA(rA, j)
            Next j
        End If
    Next rA
    
        Sheets("A").Range("A2:C" & lLastRowA).ClearContents
        Sheets("A").Range("A2").Resize(i, 3).Value = arr
End Sub
Сравнение трех и более таблиц на разных листах excel, Сравнение трех и более таблиц на разных листах excel
 
Цитата
delph3r написал:
каждую строку колонки B
нет, каждую строку колонок A, B, C
Цитата
delph3r написал:
листа "Последняя таблица" со всеми предыдущими листами?
активного листа, со всеми другими
Цитата
delph3r написал:
А сильно сложнее будет, если Результат будет выдаваться только тогда, когда все строки колонки B из листа "Последняя таблица" совпадают со всеми строками колонки
думаю, что нет, попробуйте поправить код
Изменено: evgeniygeo - 19.04.2024 10:45:33
VBA преобразовать строки в числа и выполнить в 1с, Хочу преобразовать по нужным Мне колонкам строки в дату
 
Цитата
МатросНаЗебре написал:
Задача решена, расходимся.
:D
Сравнение трех и более таблиц на разных листах excel, Сравнение трех и более таблиц на разных листах excel
 
delph3r,
чтобы сравнить каждый лист с каждым и вывести совпадения:
Код

для последнего листа с подсветкой:
Код
Изменено: evgeniygeo - 19.04.2024 08:46:40
MsgBox в Офис Р-7
 
все настолько плохо в Р-7??? 8-0
Изменено: evgeniygeo - 19.04.2024 06:18:39
Предложение по послаблению правил при создании первых 3 тем
 
Цитата
Sanja написал:
Видимо в мой огород
на всякий случай, я без претензий к кому-либо из модераторов и участников
Цитата
Sanja написал:
Мне кажется, постоянно забывается основной принцип данного ресурса - ПОМОЩЬ,
абсолютно с Вами согласен, и я предлагаю в первых трех темах помочь новому участнику научиться соблюдать правила форума, предложив за него название темы, возможно, предложив решение, но указав, что оно пальцем в небо, т.к. нет примера что нужно и т.д. :)

Наверное, в целом, я хочу чтобы мир был добрее  :D
Изменено: evgeniygeo - 18.04.2024 14:12:01
Предложение по послаблению правил при создании первых 3 тем
 
Цитата
testuser написал:
Получается как  бы тупая уровниловка, тех кто вообще не хочет шевелить мозгами со всеми остальными..
для меня, скорее некая рука помощи, на что и направлен форум в целом (лично мое мнение)
Предложение по послаблению правил при создании первых 3 тем
 
Цитата
Jack Famous написал:
покажите, пожалуйста, канал в телеге
я бы не сказал, что более популярный но все же, например, Excel Chat.
Цитата
Jack Famous написал:
И скажите, как вы определили, что он более популярный?
В основном по количеству сообщения, как бы тупо не звучало
Цитата
Jack Famous написал:
Лично для меня, ЛЮБОЙ канал будет проигрывать сайту — чисто из-за формата. Одно дело, новости читать и совсем другое — копаться в темах, кодах и примерах файлов.
абсолютно согласен, хотя есть примеры совсем чуть-чуть похожие на форум, например NSP Chat - ChatGPT. Смысл канала совсем в другом, но тоже создаются топики и в них что-то решается, их можно закрыть, изменить статус

P.S. Я считаю данный форум лучшим по Excel и всего, что с ним связано и именно поэтому создал данную тему  :)
Изменено: evgeniygeo - 18.04.2024 13:19:23
Предложение по послаблению правил при создании первых 3 тем
 
Цитата
Jack Famous написал:
1. С популярностью у площадки всё в порядке
думаю, что телеге проиграет  :)
Цитата
Jack Famous написал:
2. Если "ранимость" от указания на несоблюдение правил
скорее дело в их не понимании на первых парах
Цитата
БМВ написал:
Нагрузка растет без заметного эффекта от усилий.
тут конечно да, понимая, что это все на чистом энтузиазме...
Предложение по послаблению правил при создании первых 3 тем
 
Цитата
БМВ написал:
не знаю, меня никто не драконит :-)
еще бы  :D
Цитата
БМВ написал:
Кто счет будет вести отведенных трех поедупреждений?
я бы предложил использовать не предупреждения, а количество созданных тем (думаю, что это не сложно отслеживать), но может быть можно использовать эту функцию (я первый раз ее сегодня заметил)?

Цитата
БМВ написал:
А помогающих, которые лезут тоже не трогать?
с них как и раньше: помог - предлагай тему  :)
Цитата
БМВ написал:
Пока правило есть - оно должно соблюдаться если не описано законное послабление
ну я бы в идеале и хотел, чтобы это стало законным
Цитата
БМВ написал:
Надеюсь что никто не считает, что закрывая очередную тему-вопль помогите, нам в радость?
Вы действуете в рамках правил, это логично, поэтому я не в коем случае не хотел никого обидеть.
Счет с двумя условиями
 
imaxkappa,
в будущем, лучше прикладывайте сразу файл пример в excel с желаемым результатом, так будет гораздо больше желающих помочь  ;)

а пока без файла вот:
Код
=СЧЁТЕСЛИМН($A$1:$A$4;"*монитор*";$B$1:$B$4;100)
Предложение по послаблению правил при создании первых 3 тем
 
Всем привет!
Наверняка что-то подобное уже поднималось, но все же. Мое предложение - не драконить новых участников форума за плохое название темы или описание, отсутствие файла примера и т.д. хотя бы для первых 3 тем.
В большей части, это касается модераторов, но и других участников тоже. Мне кажется, это поможет слегка популяризировать форум, т.к. после закрытия первых двух тем, не очень хочется даже пытаться создавать новую.
Изменено: evgeniygeo - 18.04.2024 08:01:12
Выставление дат занятий в зависимости от количества часов
 
кросс
Планета Excel превращается в помойку
 
Цитата
tutochkin написал:
Я бы дорого отдал за такую "помойку" по продукту Р7.
создавайте ;)
Планета Excel превращается в помойку
 
Цитата
Jack Famous написал:
но какое вообще может быть развитие у форума — не представляю…
чисто теоретически, могу себе представить некое развитие, но зачем это владельцу, если это не основное занятие хз
Отнять месяц, год от даты
 
Цитата
Konstantin1999 написал:
=A4-7*(4)=A4-7*(52)
этот вариант лучше
Отнять месяц, год от даты
 
Konstantin1999,
Код
=ЕСЛИ(ДЕНЬНЕД(ДАТАМЕС(A4;-1);2)=1;ДАТАМЕС(A4;-1);ДАТАМЕС(A4;-1)-ДЕНЬНЕД(ДАТАМЕС(A4;-1);2)+8)

и
Код
=ЕСЛИ(ДЕНЬНЕД(ДАТАМЕС(A4;-12);2)=1;ДАТАМЕС(A4;-12);ДАТАМЕС(A4;-12)-ДЕНЬНЕД(ДАТАМЕС(A4;-12);2)+8)
Изменено: evgeniygeo - 16.04.2024 09:39:39
Планета Excel превращается в помойку
 
Evgenyy,
"Если желаешь, чтобы мир изменился, — сам стань этим изменением."  ;)
Но в целом, я думаю, что БМВ прав, в текущей ситуации все от Microsoft под большим вопросом. По крайней мере в РФ.
Изменено: evgeniygeo - 16.04.2024 09:15:43
копирование листа с выпадающим списком
 
бухарик,
у меня нет такого (365 офис)
копирование листа с выпадающим списком
 
Цитата
бухарик написал:
использовано "Поле со списком (элемент ActiveX)"
а данные для него откуда берутся?
Как задать фон ячейки в виде изображения, Обсуждение возмжности создать фон ячейки/ячеек в виде изображений.
Накиньте идею новичку.
 
Ди_Петро,
создайте новую тему с небольшим примеров в Excel и думаю, что помогающие найдутся  ;)
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 96 След.
Наверх