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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 68 След.
[ Закрыто] зацикливание ячеек в макросе
 
Цитата
artfow написал:
или гуглил не правильно
Или правила не читали вообще при регистрации. Описание -, пример -
Макрос для фильтрования таблицы и установки значения в отфильтрованный список
 
Такие темы чаще всего прохожу мимо (манера сообщения + "халява приди")

Код
Sub qqq()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    lRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    fVal = Range("A1").Value
    rVal = Range("C1").Value
    
    For i = 10 To lRow
        If Cells(i, 2).Value Like "*" & fVal & "*" Then
            Cells(i, 3).Value = rVal
        End If
    Next i
    
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    
    MsgBox "done!"
End Sub
Извлечь из текста последнее число
 
текст по столбцам с разделителем запятая
Или
=ПСТР(A258;ПРОСМОТР(2;1/(ПСТР(ЛЕВБ(A258;ДЛСТР(A258)-5);СТРОКА($1:$999);1)=",");СТРОКА($1:$999))+1;ДЛСТР(A258)-ПРОСМОТР(2;1/(ПСТР(ЛЕВБ(A258;ДЛСТР(A258)-5);СТРОКА($1:$999);1)=",");СТРОКА($1:$999))-5)
Путевой лист, Путевой лист с минимальными затратами времени
 
Добрый день.
Какие сроки и бюджет? Мои контакты есть в профиле.
Изменено: Ivan.kh - 28 Сен 2019 21:41:20
Макрос для переноса данных из одного файла в другой такой же, Одинаковый по структуре
 
добрый день. Бюджет, сроки и пример файлов (можно на прчте, есть в профиле)?
Изменено: Ivan.kh - 19 Сен 2019 11:09:27
[ Закрыто] Сумма чисел с условием >8
 
=суммесли()
[ Закрыто] Создать электронные таблицы,построить в разных системах координат при x [-1.7; 1.5] графики функций, построить поверхность при x,y [-1; 1], Создать электронные таблицы,построить в разных системах координат при x [-1.7; 1.5] графики функций, построить поверхность при x,y [-1; 1]
 
А в чем именно помочь нужно?
Как сами пытались решить?
Не редактируются ячейки
 
колонка С
Поиск с конца массива
 
=ИНДЕКС(B:B;МАКС((A:A=F1)*СТРОКА(A:A)))

массивная
Календарь, сдвинуты названия дней нед.
 
Добрый день. собственно суть в названии формы.
На функционал не влияет, но "не красиво"...
Сортировка ListBox. VBA
 
Код
Private Sub UserForm_Initialize()
    Dim i As Long, j As Long
    Set dicTemp = CreateObject("Scripting.Dictionary")
 
    For i = 7 To Cells(Rows.Count, 1).End(xlUp).Row
        If Cells(i, 1).Font.Color = RGB(255, 0, 0) Then
           If Not dicTemp.Exists(Cells(i, 1).Value & "|" & i) Then dicTemp.Add i, Cells(i, 1).Value & "|" & i
           j = j + 1
        End If
    Next
    arr = dicTemp.Items
    SortArray arr
    
    j = 0
    For Each it In arr
        m = Split(it, "|")
        ListBox1.AddItem m(UBound(m))
        ListBox1.List(j, 1) = Cells(m(UBound(m)), 1)
        j = j + 1
    Next
End Sub
Сортировка ListBox. VBA
 
Hashtag, одну колонку в нем сделайте ...
Копирование значений с одного листа на другой МАКРОС
 
Sheets("Журнал проведения настройки").Range("2:2").Value = Sheets("Журнал проведения настройки").Range("2:2").Value
Sheets("Журнал проведения настройки").Range(lr & ":" & lr).Value = Sheets("Журнал проведения настройки").Range(lr & ":" & lr).Value

через PasteSpecial лень писать
Копирование значений с одного листа на другой МАКРОС
 
Strizh, конечно могу в запароленном проекте...
Не хочу Вас огорчать, то такая защита снимается в 2 секунды....
Исключение строк с пустыми ячейками при подсчете в сводной таблице
 
вычисляемое поле с формулой Если(ЕПУСТО(НужноеПоле);0;1)
Ну а потом сумма по ним
Сортировка ListBox. VBA
 
В отладке пройдитесь, сразу станет понятно чего оно...
Код
Private Sub UserForm_Initialize()
Dim i As Long, j As Long
 Set dicTemp = CreateObject("Scripting.Dictionary")

    For i = 7 To Cells(Rows.Count, 1).End(xlUp).Row
        If Cells(i, 1).Font.Color = RGB(255, 0, 0) Then
           If Not dicTemp.Exists(Cells(i, 1).Value) Then dicTemp.Add Cells(i, 1).Value, Cells(i, 1).Value
           
'           ListBox1.AddItem Cells(i, 1).Value
'           ListBox1.List(j, 1) = Cells(i, 1)
           j = j + 1
        End If
    Next
    arr = dicTemp.Items
    SortArray arr
    ListBox1.List = arr
End Sub
Копирование значений с одного листа на другой МАКРОС
 
или после копирования:
Sheets("Журнал проведения настройки").Range("a2").Value = Sheets("Журнал проведения настройки").Range("a2").Value
...
Sheets("Журнал проведения настройки").Range("a" & lr).Value = Sheets("Журнал проведения настройки").Range("a" & lr).Value

Или почитать о PasteSpecial
Альтернативное назначение клавиш в Excel для переключения между листами
 
Цитата
124300 написал:
так как работают ТОЛЬКО при выключенной цифровой клавиатуре (NumLock)
проверил, такого ограничения на полноразмерной клавиатуре нет, это наверное на ноутбуке?

А по вопросу, можно создать надстройку с нужными командами, если их нет, и добавить их оттуда на панель
Вставить данные с одной ячейки в другую с помощью функции., Копирование с помощью функции.
 
Код
cells(1,1).value = cells(1,2).value 


cells(строка,колонка).value
Извлечение номеров телефонов из xls файла
 
=ЕСЛИОШИБКА(ПСТР(A15;НАЙТИ("(";A15);99);P14) в P15 и протянуть вниз, если не нужно дублирование номера, то P14 заменить на ""
Изменено: Ivan.kh - 22 Июл 2019 18:03:29
Сравнение суммы по номеру док
 
значение в ячейке а2 = "412/1"
Значение в Н2 = "412/1      "

Как Вы думаете, они равны?
Подсчёт количества значений по заданному условию
 
Код
Function Кратность(Поставка As Double, Продажи As Range) As Variant
    arr = Продажи.Value
    q = 0
    For i = 1 To IIf(UBound(arr, 1) = 1, UBound(arr, 2), UBound(arr, 1))
        If UBound(arr, 1) = 1 Then
            q = q + arr(1, i)
        Else
            q = q + arr(i, 1)
        End If
        If q >= Поставка Then
            Кратность = i
            Exit Function
        End If
    Next i
    
    Кратность = "не найдено"
End Function
Макрос суммирования ячеек по критерию - цвет
 
.
Макрос суммирования ячеек по критерию - цвет
Подсчёт количества значений по заданному условию
 
Почему 4? Если выборка сместиться на 2 мес?
Кавычки при копировании ячейки.
 
нет таких настроек
Перевести закодированный текст в читаемый в соответствии с таблицей кодировки символов
 
=СЦЕП(ПРОСМОТР(ПСТР(A2;(СТРОКА(ДВССЫЛ("1:"&ДЛСТР(A2)/4))-1)*4+1;4);I:I;J:J))
массивная вводиться через ctrl+shift+enter  -- вот можно почитать https://www.planetaexcel.ru/techniques/2/91/
на 2016 и моложе должно работать, но проверить не на чем
Изменено: Ivan.kh - 11 Июл 2019 12:13:48
Перевести закодированный текст в читаемый в соответствии с таблицей кодировки символов
 
Какая версия офиса?
Выборочно копировать в другую таблицу названия и коды
 
Цитата
Ivan.kh написал:
массивная
вводиться через ctrl+shift+enter
https://www.planetaexcel.ru/techniques/2/91/
При появлении данных в ячейке - она должна мигать
 
https://www.planetaexcel.ru/techniques/3/6638/
Вот пример с мигалкой, прикрутить на событие изменения ячейки и уменьшить интервал
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 68 След.
Наверх