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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 135 След.
Объединение одинаковых ячеек и конкатенация данных их соседних ячеек
 
Можно примерно так - в файле фигура с побуждающим текстом.
Если интересно, то вот он код:
Скрытый текст
Кому решение нужно - тот пример и рисует.
Объединение одинаковых ячеек и конкатенация данных их соседних ячеек
 
Добрый день. В Excel это сделать возможно и я даже скажу - минимум 2 способами. А то и тремя. Но на картинке их  не показать.
Кому решение нужно - тот пример и рисует.
Реформирование данных, перенос в другую таблицу по наличию значения в строке.
 
Добрый день.
Можно попробовать таким макросом:
Код
Sub MoveDataToReport()
    Dim whIn As Worksheet, whOut As Worksheet, arrIn, arrOut, lngI As Long, lngJ As Long
    Set whIn = Worksheets("upload"): Set whOut = Worksheets("req")
    With whIn
        arrIn = .Range("A1").CurrentRegion.Value2
        ReDim arrOut(1 To UBound(arrIn, 1), 1 To 4)
    End With
    For lngI = 2 To UBound(arrIn, 1)
        If arrIn(lngI, 10) = "SM10" Then
            lngJ = lngJ + 1
            arrOut(lngJ, 1) = arrIn(lngI, 1) & " " & arrIn(lngI, 9) & " " & arrIn(lngI, 11)
            arrOut(lngJ, 2) = DateSerial(Left(arrIn(lngI, 2), 4), Mid(arrIn(lngI, 2), 5, 2), Right(arrIn(lngI, 2), 2))
            arrOut(lngJ, 3) = "частное лицо": arrOut(lngJ, 4) = arrIn(lngI, 8)
        End If
    Next lngI
    With whOut
        .Range("A2").Resize(.UsedRange.Rows.Count, .UsedRange.Columns.Count).Clear
        .Range("A2").Resize(lngJ, 4) = arrOut
        .Range("B2:B" & lngJ).NumberFormat = "dd.mm.yyyy"
    End With
End Sub


З.Ы. Предлагаю название: Реформирование данных, перенос в другую таблицу по наличию значения в строке.
Изменено: Пытливый - 15 Ноя 2019 15:25:49
Кому решение нужно - тот пример и рисует.
Как разорвать связи из командной строки?
 
Можно заменить в ячейке формулы на их значения (Ctrl+C, ПКМ - специальная вставка - значения). Потом сохранить и разослать пользователям.
Кому решение нужно - тот пример и рисует.
Преобразовать дату в виде текста в нормальную дату
 
Приветствую.
Если у вас часть дат - числа, отображаемые как даты, а часть - текст, то можно быстро исправить ситуацию так:
1. Где-нибудь в свободную ячейку ввести 1.
2. Скопировать эту ячейку
3. Выделить диапазон с датами и "недатами"
4. ПКМ - специальная вставка - умножить.


З.Ы. предлагаю название: "преобразование даты из текста в число"
Изменено: Пытливый - 13 Ноя 2019 12:26:56
Кому решение нужно - тот пример и рисует.
Заполнить значениями видимые ячейки отфильтрованного диапазона.
 
Позитивного показателя часового пояса! :)
Можно как-то так:
Код
Private Sub CommandButton1_Click()
    Dim objR As Range, objC As Range
    Set objR = Range("A2", Cells(Rows.Count, 1).End(xlUp))
    For Each objC In objR.SpecialCells(xlCellTypeVisible)
        objC = "a": objC.Font.Name = "Marlett"
    Next objC

End Sub


З.Ы. предлагаю название темы: "Простановка значений в видимых ячейках отфильтрованного диапазона"
Изменено: Пытливый - 12 Ноя 2019 18:09:59
Кому решение нужно - тот пример и рисует.
Вставить и сгруппировать пустые строки
 
Ну... если хочется сгруппировать ВСТАВЛЕННУЮ строку, то, скорее всего, это надо делать ПОСЛЕ того, как ее вставишь. :)
Ну и еще - так цикл вставки строк будет работать плохо практически во всех случаях, кроме как если в таблице только одна ячейка в 97 столбце с значением 1. Если их будет 2 - то цикл так не сработает, его надо запускать задом наперед от 743 до 17 с шагом -1.
Кому решение нужно - тот пример и рисует.
Вставить и сгруппировать пустые строки
 
Здарова. По идее, нужно вставленным строкам установить соответствующий OutlineLevel (уровень группировки)
Например, так.
Код
Rows(I+1).EntireRow.OutlineLevel = 2

Наверное :)
Кому решение нужно - тот пример и рисует.
Аналог СЧЁТЕСЛИ в VBA по частичному критерию, Требуется запустить расчет через VBA, т.к. массив данных очень велик, велики так же и критерии выборки.
 
Добрый день. Может, сначала попробовать отключить автопересчет в файле и проводить пересчет только вручную, через F9? Это чтобы пересчет по каждому чиху не происходил, а происходил только в нужный момент.

Ну, или можно, используя ту же формулу, кодом получать в ячейке ее результат:
Код
    ActiveCell = Application.WorksheetFunction.CountIf(Range("B7:B13"), Range("B3") & "*")
Изменено: Пытливый - 12 Ноя 2019 13:12:19
Кому решение нужно - тот пример и рисует.
ДД Как прибавить число во втором актете
 
А "ДД" - это, наверняка, DD = "damage dealer" важный член партии в ММОРПГ. И не спрашивайте, откуда я это знаю... :)
Кому решение нужно - тот пример и рисует.
ДД Как прибавить число во втором актете
 
Или еще можно так:
Код
=ЛЕВСИМВ(A1;ПОИСК(".";A1))&ЗНАЧЕН(ПСТР(A1;ПОИСК(".";A1)+1;ПОИСК("/";ПОДСТАВИТЬ(A1;".";"/";2))-(ПОИСК(".";A1)+1)))+100&ПРАВСИМВ(A1;ДЛСТР(A1)-(ПОИСК("/";ПОДСТАВИТЬ(A1;".";"/";2))-1))

Где в А1 - исходное значение

З.Ы. я не ДД, я за варка шпилю! :)
Изменено: Пытливый - 12 Ноя 2019 09:06:51
Кому решение нужно - тот пример и рисует.
Перенос данных по имени столбца
 
Можно со второго столбца брать названия полей (заголовки) в массив, потом в источнике искать по каждому значению массива и переносить данные. В примере указаны 3 названия столбцов, при которых данные расположены горизонтально. Это всегда так? Или их может быть больше/меньше?

З.Ы. заодно - первая группа (там где данные горизонтально) от второй группы - всегда отделена пустыми строками/столбцами, или могут соприкасаться? всегда ли первая группа "выше" на листе, чем вторая?
Изменено: Пытливый - 8 Ноя 2019 15:49:21
Кому решение нужно - тот пример и рисует.
Условное форматирование если сумма ячеек больше числа в конкретной ячейке
 
Можно выделить весь диапазон ячеек, где хотите применить форматирование (А3:А121, например). И для диапазона написать формулу проверки условия - не используя абсолютные ссылки, т.е. как-то так:
Код
=A3<СУММ(B3:E3)
Тут для срабатывания формулы важно, чтобы в ней использовались значения строк, как в первой строке диапазона.
Изменено: Пытливый - 8 Ноя 2019 12:48:40
Кому решение нужно - тот пример и рисует.
Почему в формуле не работает сравнение с числом?
 
Вы в условии пишете равенство ячейки строковому значению "4" (все, что в кавычках, программа воспринимает как строку, т.е. НЕ ЧИСЛО). Потом вы в А1 вставляете число 4. Число строке не равно, хоть и выглядят одинаково. Уберите кавычки вокруг 4 в формуле.
Кому решение нужно - тот пример и рисует.
Таблица со смещением и заданным диапазоном.
 
Можно для первого столбца вычислять данные для построения графика такой формулой массива:
Код
=СРЗНАЧ(ДВССЫЛ(АДРЕС(3+(5*(СТРОКА(A1)-1));3;1;1)&":"&АДРЕС(32+(5*(СТРОКА(A1)-1));3;1;1)))

Вставить ее в примере, допустим, в М3 и тянуть вниз. Потом по этим точкам построить график.

Для остальных столбцов - аналогичные формулы массива.
Кому решение нужно - тот пример и рисует.
Найти самую нижнюю папку в указанном пути
 
Здрасьте. :)
Можно так:
Код
Sub T()
    Dim a As String, S As String
        S = "C:\ProgramData\Microsoft\Windows\Templates"
        a = Right(S, Len(S) - InStrRev(S, "\"))

End Sub
Кому решение нужно - тот пример и рисует.
Ошибка: Недостаточно ресурсов. Выберите меньше данных или закройте другие приложения
 
Форматирование до конца строк не вставляли? А то как-то у человека была проблема - он выделил все ячейки, задал им границы и потом недоумевал почему строку вставить нельзя. :)
Кому решение нужно - тот пример и рисует.
Выбор наименьших (наибольших) результатов, Связка ИНДЕКС+ПОИСКПОЗ выдает только первый из одинаковых наименьший результат
 
Если я правильно понял - можно в (например) М3 вставить такую формулу массива:
Код
=ЕСЛИОШИБКА(ИНДЕКС($A$3:$A$12;НАИМЕНЬШИЙ((СТРОКА($A$3:$A$12)-2)*($B$3:$B$12=$J$3);СУММ(--НЕ($B$3:$B$12=$J$3))+СТРОКА(A1));1);"")

и растянуть вниз. Получим последовательно людей из списка, получивших 54 по математике. Остальное можно по аналогии.

З.ы. формула массива вводится одновременным Ctrl+Shift+Enter
Кому решение нужно - тот пример и рисует.
Вывод записи из ListBox в ячейку Excel
 
Добрый день.
Насколько я понял 1 вопрос - он в том, что не записывается номер заказа? Если это так, то это происходит потому, что
Код
        With Sheets("Baza").Range("Baza")
        
        iLastRow = .Cells(.Rows.Count, 4).End(xlUp).Row + 1
        
        .Cells(iLastRow, 2) = Date & " , " & Time
        .Cells(iLastRow, 4) = "Активный"
        .Cells(iLastRow, 5) = Me.cbTable.Value
        .Cells(iLastRow, 6) = Me.tbPeople.Value
        .Cells(iLastRow, 7) = tZakaz

    End With

В инструкциях обработки нажатия кнопки "сформировать заказ" нет инструкции заполнения 1 столбца таблицы. Заполнение идет со второго столбца.
2. При определении количества строк вы используете диапазон умной таблицы с именем "Baza". Диапазон выглядит так: $A$2:$G$2. Потом вы в этом диапазоне при помощи метода End ищете номер строки. Метод в диапазоне из одной строки возвращает 1 (и всегда будет возвращать). Вы к этому значению прибавляете 1 (получаем 2) и в этой строке пишете данные с формы. Но эти строки данных НЕ ПОПАДАЮТ в диапазон таблицы. Поэтому, когда вы формируете следующий заказ - у вас опять определяется 1 строка в умной таблице и получается 1+1=2 строка в которую будете записывать.
Вам надо не методом End пользоваться в данном случае, а использовать методы и свойства, применяемые к умным таблицам (ListObject). Например, DataBodyRange (вернет диапазон с данными (не заголовками) в умной таблице).
Кому решение нужно - тот пример и рисует.
Как собрать статистику в какое время суток больше обращений, Не знаю как упростить себе жизнь
 
Добрый день. По картинкам очень неудобно помогать. Покажите файл-пример (в правилах об этом есть подробнее). Возможно (ВОЗМОЖНО!) вам нужна функция СЧЁТЕСЛИ(). Как с ней правильно обращаться - есть примеры в справке по F1.
Кому решение нужно - тот пример и рисует.
Как оставлять значение из закрытой книги
 
Вводите как формулу массива ? Формула в моем сообщении изменена - смотрите сообщение #5.

З.ы. ввод формулы массива заканчивается одновременным Ctrl+Shift+Enter
Кому решение нужно - тот пример и рисует.
Как оставлять значение из закрытой книги
 
Попробуйте такую формулу массива:
Код
=СУММ(((СТРОКА('[Планирование (октябр 2019).xlsm.xlsx]САУКЭ'!$C$2:$C$745)>168)*('[Планирование (октябр 2019).xlsm.xlsx]САУКЭ'!$C$2:$C$745)>60)*('[Планирование (октябр 2019).xlsm.xlsx]САУКЭ'!$C$2:$C$745))/СУММ(--(СТРОКА('[Планирование (октябр 2019).xlsm.xlsx]САУКЭ'!$C$2:$C$745)>168))
Результат выдает 29,72892374
З.ы. Формулу поменял, а то я в первоначальной излишне навернул, по-моему. :)
Изменено: Пытливый - 6 Ноя 2019 10:39:48
Кому решение нужно - тот пример и рисует.
Как оставлять значение из закрытой книги
 
Можете пояснить, какой результат должна формула доставать из приложенного файла? Надо понять, возможно ли заменить СМЕЩ () - ошибку она выдает.
Кому решение нужно - тот пример и рисует.
Как оставлять значение из закрытой книги
 
Добрый день. Допустим вы используете формулу, которая не умеет работать с закрытыми книгами (отсюда, при закрытии, и возникает ошибка). Оставить данные расчетов можно в виде значений (формулы пропадут, останутся значения) - либо руками копировать - вставить как значение, либо макросом - тоже самое. Если бы показали пример данных и формул, можно было бы подумать, как реализовать формулы через функции, которые не боятся закрытых книг.
Кому решение нужно - тот пример и рисует.
Редактирование файла csv
 
Попробуйте открыть его как файл txt - открыть - все виды файлов. Notpad такие файлы открывает.
Изменено: Пытливый - 4 Ноя 2019 19:22:56
Кому решение нужно - тот пример и рисует.
Поиск дубликатов в многостолбчатой таблице., Как вывести все дубликаты во всех стоблцах?
 
Давайте еще уточним - в итоговом списке значение, которое повторяется 6 раз в исходных данных - СКОЛЬКО РАЗ должно быть показано? В итоговом списке?
Кому решение нужно - тот пример и рисует.
Поиск дубликатов в многостолбчатой таблице., Как вывести все дубликаты во всех стоблцах?
 
Добрый день.
Выделить диапазон с адресами - Главная - условное форматирование, правила выделения ячеек - повторяющиеся значения.
Это не решит Ваш вопрос?

з.ы. Видимо, не решит. :) Тогда еще вопрос: надо выводить список повторяющихся значений - надо все повторяющиеся значения в этот список выводить, или по одному из каждого повторения? Иными словами -значение повторяется 5 раз, его в итоге 5 раз выводить, или один?
А также - подойдет ли решение макросом? Например на брать с исходного листа диапазон и выводить итоговый список на добавляемый лист с результатом?
Изменено: Пытливый - 1 Ноя 2019 12:31:20
Кому решение нужно - тот пример и рисует.
Выбор значений из списка с поиском по первым буквам
 
Добрый. Посмотрите тут, вдруг это то, что нужно?
Кому решение нужно - тот пример и рисует.
VBA. Динамический диапазон для суммирования.
 
Здравствуйте. Попробуйте таким:
Код
Sub SumLastColumn()
    Dim strI As String, strK As String, lngJ As Long
    'определяем столбец с заголовком Сумма
    strK = Mid(Range("1:1").Find("Сумма").Address, 2, InStr(2, Range("1:1").Find("Сумма").Address, "$") - 2)
    'определяем последний столбец, который должен быть просуммирован
    strI = Mid(Range("1:1").Find("Сумма").Offset(0, -1).Address, 2, InStr(2, Range("1:1").Find("Сумма").Offset(0, -1).Address, "$") - 2)
    'определяем количество строк для заполнения
    'запускаем цикл вставки формулы по строкам данных
    For lngJ = 2 To Range("A1").CurrentRegion.Rows.Count
        Range(strK & lngJ).FormulaLocal = "=СУММ(B" & lngJ & ":" & strI & lngJ & ")"
    Next lngJ
End Sub
Кому решение нужно - тот пример и рисует.
Вывести в колонку все, что >60, игнорируя текст, оптимизировать формулу
 
Если надо объединять два условия (чтобы отслеживать выполнение двух условий одновременной, то с этим хорошо справляется функция И().
Например:
Код
=ЕСЛИ(И(А1>7;ЕЧИСЛО(А7));"Условия выполняются";"Где-то косяк")
Кому решение нужно - тот пример и рисует.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 135 След.
Наверх