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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 127 След.
Вставка картинки в ячейку, Макрос ля вставки картинки над ячейкой, в саму ячейку.
 
Простой пример. Сразу говорю, как рассчитать размер ячейки и вписать рисунок в него посередине не знаю. Привязка к левому верхнему углу. Смещение подобрал под размер ячеек и под разрешение и размер своего экрана.

Скрытый текст
Автоматическое применение макроса ко всем CSV документам
 
Код
Option Explicit

Sub CollectAllClients()
Dim BazaWb As Workbook 'текущая книга (общий файл)
Dim iTempFileName As String 'имя по-очерёдно открываемого файла
Dim iPath As String 'путь к папке, где лежат все файлы
Dim iNumFiles As Long 'количество открываемых файлов

    With Application 'операции с приложением/отключаем для повышения скорости работы макроса
        .ScreenUpdating = False 'обновление экрана
        .DisplayAlerts = False 'выод системных сообщений
        .Calculation = xlManual 'автопересчет формул
        
        'присваиваем значения нашим переменным
        Set BazaWb = ThisWorkbook
        Set BazaSht = BazaWb.Sheets("Общий")
        iPath = BazaWb.Path & "\"
        iTempFileName = Dir(iPath & "*.csv")
        Do While iTempFileName <> "" 'запускае цикл перебора файдов в папке
            If iTempFileName <> BazaWb.Name Then 'если имя файла не равно общему открываем
                With .Workbooks.Open _
                     (Filename:=iPath & iTempFileName, UpdateLinks:=False, ReadOnly:=True)
                     iNumFiles = iNumFiles + 1

                    'Здесь обработка файла
                    'здесь сохранение файла .Close saveChanges:=False
               End With
            End If
            iTempFileName = Dir 'следующий файл
        Loop
        
        'включаем что отключили
        .Calculation = xlAutomatic
        .DisplayAlerts = True
        .ScreenUpdating = True
    End With
    MsgBox "Информация собрана из " & iNumFiles & " файлов!", vbInformation, "Конец"
End Sub
Изменено: Igor67 - 12.05.2025 21:34:12
Копирование со многих столбцов и вставка в один столбец за один раз, Копирование со многих столбцов и вставка в один столбец за один раз
 
Вариант макросом
результат отбора по шести критериям в отдельный список (таблицу)
 
Доброй ночи! Смотрите вариант. Используется дополнительный столбец и формулой данные выбираются на другой лист.
Да, СУММПРОИЗВ не нужно вводить как массивную.
Добавить строку в таблицу., Добавить строку в таблицу. Не отображается добавленная строка в других вкладках работающих по ссылке на ячейки таблицы
 
Вариант. Вставляете в А8 и копируете на всю таблицу.
Код
=ЕСЛИ(ИНДЕКС(Спецификация!$A$7:$H$458;СТРОКА()-7;СТОЛБЕЦ())="";"";ИНДЕКС(Спецификация!$A$7:$H$458;СТРОКА()-7;СТОЛБЕЦ()))
Кнопка выкл и вкл линии строку и столбцу VBA
 
Добрый вечер! Вставьте проверку и изменение значения ячейки
Код
Sub Кнопка2_Щелчок()
    If Range("A1").Value = "ON" Then
        Range("A1").Value = "OFF"
        Range("A2").Value = "OFF"
    Else:
        Range("A1").Value = "ON"
        Range("A2").Value = "ON"
    End If
End Sub

"Глюк" в работе функции ПРОСМОТР
 
Если нужен поиск сверху и не равно текущему значению можно так...
Код
=ЕСЛИ(ПОИСКПОЗ(B19;$B$1:$B$32;0)=СТРОКА();"#Н/Д";ИНДЕКС($A$2:$A$32;ПОИСКПОЗ(B19;$B$2:$B$32;0)))
Подогнал под данные в файле.
Изменено: Igor67 - 15.06.2024 16:51:07
Нужно чтобы в ячейку итоговую подтягивалось значения в зависимости от даты, смещение результатов в зависимости от даты
 
Ну какой например, такой и ответ.
Цитата
Darya543,  написал:
ИНДЕКС не работает если значения находятся на другом листе(
Мы наверное обсуждаем разное. Смотрите вариант по вашему второму напримеру...
автозапуск сценарий, как автоматически обновить сценарий после любое изменение в таблице ?
 
bahruzbahruz, добрый день!
Вы сделали очень примерный пример. В нем ни на одном листе не совпадают указанные диапазоны.
Так все же на каком листе находятся изменяемые данные, как они вносятся и что нужно с ними сделать. Скопировать с листа Лист1 в лист Структура сценария? Или может наоборот. А вообще подобных макросов по внешним данным с контролем по времени, изменения данных и пр... на сайте совсем не один.
Тут или ТУТ
Нужно чтобы в ячейку итоговую подтягивалось значения в зависимости от даты, смещение результатов в зависимости от даты
 
Так? формула для В2
Код
=ИНДЕКС(B$8:B$200;ПОИСКПОЗ(9E+306;A$8:A$200;1))
перемещение строки по дате
 
Вариант решения как понял.
Код
Option Explicit

Sub copyRow()
    Dim sSh As String, arSh, lCol As Long, sSt As String, arSt
    Dim i&, lrNach&, lrEnd&, shN As Worksheet, shD As Worksheet
    Dim lR&, flag As Boolean
    sSh = "лист1\лист2\лист3\лист4\лист5"
    sSt = "H\J\L\N\O"
    arSh = Split(sSh, "\")
    arSt = Split(sSt, "\")
    For i = 0 To 3
        Set shN = Sheets(arSh(i))
        Set shD = Sheets(arSh(i + 1))
        With shN
            lrNach = .Cells(Rows.Count, 1).End(xlUp).Row
            For lR = 5 To lrNach
                If i < 3 Then
                    Select Case i
                    Case 0
                        If .Range(arSt(i) & lR) < Date Then flag = True
                    Case 1, 2
                        If .Range(arSt(i) & lR) >= Date Then flag = True
                    End Select
                    If flag = True Then
                        lrEnd = shD.Cells(Rows.Count, 1).End(xlUp).Row + 1
                        .Rows(lR).Copy shD.Cells(lrEnd, 1)
                        flag = False
                    End If
                Else
                    If .Range(arSt(i) & lR) = 1 Then
                        lrEnd = shD.Cells(Rows.Count, 1).End(xlUp).Row + 1
                        .Rows(lR).Copy shD.Cells(lrEnd, 1)
                    End If
                    If .Range(arSt(i + 1) & lR) = 1 Then
                        lrEnd = shD.Cells(Rows.Count, 1).End(xlUp).Row + 1
                        .Rows(lR).Copy shD.Cells(lrEnd, 1)
                        lrEnd = Sheets(arSh(0)).Cells(Rows.Count, 1).End(xlUp).Row + 1
                        .Rows(lR).Copy Sheets(arSh(0)).Cells(lrEnd, 1)
                        Sheets(arSh(0)).Range("H" & lrEnd & ":Q" & lrEnd).ClearContents
                    End If
                End If
            Next lR

        End With

    Next i
End Sub
заменить в формуле название ячейки на ссылку на ячейку в таблице переменной длины
 
Смотрите вариант определения диапазона.
По столбцу А ищутся мин и макс номера строк диапазона и подставляются через индекс в столбце Н задавая таким образом диапазон.
Можно эту формулу поместить в именованный диапазон и использовать уже в ваших формулах назначенное имя.
Код
ИНДЕКС($H$1:$H$1000;ПОИСКПОЗ(1;$A$1:$A$1000;0)):ИНДЕКС($H$1:$H$1000;ПОИСКПОЗ(МАКС($A$1:$A$1000);$A$1:$A$1000;0))
Поиск ячейки по условию, присвоение значения, и далее через каждые 36 ячеек присваивать такое же значение
 
Так? Вставляете в В4 и распространяете на весь диапазон.
Код
=ЕСЛИ(СТОЛБЕЦ()=(ПОИСКПОЗ($B$6;$B$2:$FY$2;0)+$B$8*ЦЕЛОЕ(СТОЛБЕЦ(A$1)/$B$8)+1);"новый";"")
Проблема с округлением
 
Tigr310, кстати вы сравниваете значения без и после округления. Как только вы будете  брать значения для округления (ваши 30%) , значения с учетом 30% с округлением все совпадет. Все зависит от решаемой вами задачи.
Макрос на удаление текста нижнего колонтитула только для последней страницы Excel
 
lain_koyo,  согласен, проблемы есть и они описаны по ссылке. Просто так в  колонтитулы сведения не вставишь. Они различаются у четных  и нечетных страниц. До 3-х страниц ц вы еще имеете варианты, но потом...
кстати Sanja,  не зря сказал приложить файл примера. Можно через ВБА вносить данные на лист. При этом "это будет выглядеть как утка, крякать как утка и все скажут что это утка"
Макрос на удаление текста нижнего колонтитула только для последней страницы Excel
 
Честно стянул код по установке колонтитулов
Скрытый текст
VBA макрос. Автоматическое создание наклеек. Нужна помощь в корректировке.
 
1. У вас условие "Соответствует"  в бланке " Соответ."
2. в 3 строке № отсутствует, ошибка не обрабатывается.
3. почему не используете формулу для отображения даты? Например =ТЕКСТ(B1;"[$-FC19] ДД ММММ ГГГГ"). Можно ввести ее в числовом формате и птом не надо изгаляться с ее переводом. И да, строка с датой не ищется.
Связь таблиц в Exel, формирование таблицы из определенных данных основной таблицы с условием
 
Вариант на основе приемов с сайта по извлечению уникальных с дополнительным столбцом. Для стареньких Ехс-лей.
Транспонирование со смещением
 
bigorq, так по форуму вариаций от редизайн таблиц, до... А по сути надо транспортировать данные таблицы из строк в столбцы
Транспонирование со смещением
 
Можно просто =ИНДЕКС($B$1:$D$5;СТОЛБЕЦ(A$1);СТРОКА($A1))
Вычисление нескольких наименьших значений в таблице
 
Добрый день. Пожалуйста, прочтите правила. Поменяйте Ник и прилагайте файл Ехс, а не картинку.
Так, как вы их не читали, то смотрите мой пример. Он кажется рабочий.
Макрос с использованием СЖПРОБЕЛЫ
 
Держите вариант
Скрытый текст
Некорректно работает условное форматирование
 
Если вы хотите в пределах одного года сравнивать по месяцам, формула в УФ
 =И(МЕСЯЦ(H$4)>=МЕСЯЦ($E6);МЕСЯЦ(H$4)<=МЕСЯЦ($F6))
Потому что в шапке (H$4...) у вас везде перовое число месяца
Изменено: Igor67 - 15.04.2024 17:40:13
Название объекта
 
Посмотрите по ссылке Тут тема Универсальный обработчик событий контролов юзерформы
Передать в функцию если результат выполнения функции впр
 
Добрый день! Проверяйте на ошибку =ЕСЛИ(ЕОШИБКА(ВПР());ЛОЖЬ;ИСТИНА) и это будет ваша истина.
Изменено: Igor67 - 13.04.2024 13:00:43
Как активировать функцию группировать/разгруппировать после защиты листа
 
ALT+F11 откроется редактор VBA
Скрытый текст
Поиск значения в одном столбце по данным с другого столбца с копированием адреса ячейки
 
Еще вариант
Подсчитать количество документов и действий с ними, Посчитать сумму
 
Павел \Ʌ/, судя по
Цитата
Masha2323 написал:
должно быть 7дней
Надо или удалить повторы (ID&NAME), или считать уникальные по потокам =СУММПРОИЗВ(1/СЧЁТЕСЛИ(C2:C8;C2:C8);F2:F8), а кол-во листов вообще не меняется при передаче документа.
Но, подозреваю, что надо еще и ID учитывать.
Изменено: Igor67 - 11.04.2024 20:45:48
Макрос на заполнения ячеек после определенного символа в предыдущей ячейке.
 
Вариант
Выбор по одному значению из нескольких
 
Смотрите вариант.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 127 След.
Loading...