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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 218 След.
Автоматическая удаление знака " = " в формуле
 
Цитата
Дмитрий написал:
Дмитрий , то я тупанул )
сам себя не похвалишь никто не похвалит ) :D (шутка)
Не бойтесь совершенства. Вам его не достичь.
Автоматическая удаление знака " = " в формуле
 
Дмитрий,
Цитата
Mershik написал:
Range("A:A").Select
та ладно? прям во всем?
Не бойтесь совершенства. Вам его не достичь.
Автоматическая удаление знака " = " в формуле
 
Цитата
Дмитрий написал:
Автоматическая удаление знака " = "
Цитата
Дмитрий написал:
Задача. Нужно перенести из столбца А данные в другой столбец (любой) только без знака " = "
интересно) для темы
Код
Sub Макрос1()
Range("A:A").Select
    Selection.Replace What:="=", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub
Не бойтесь совершенства. Вам его не достичь.
Автоматическая удаление знака " = " в формуле
 
Дмитрий, если столбцы постоянно оди и те же то макросом можно вс это делать по нажатию кнопки
Не бойтесь совершенства. Вам его не достичь.
Обьеденение двух таблиц в одну общую по адресу дома
 
Александр Пьянов,
Цитата
Александр Пьянов написал:
не на черновике.
так нужно читать правила  
Цитата
2.3. Приложите файл(ы) с примером (общим весом не более 300Кб) в реальной структуре и форматах данных того, что есть сейчас и того, что хотелось бы на выходе.
нет вообще совпадающих адресов?
Изменено: Mershik - 20 янв 2021 13:58:49
Не бойтесь совершенства. Вам его не достичь.
Разделить сводные данные на отдельные строки
 
Юрий Хилов,
Код
Sub mrshkei()
Dim i As Long, arr, arr2, lr As Long
lr = Cells(Rows.Count, 1).End(xlUp).Row
arr = Range("A3:D" & lr)
x = 0: j = 1
ReDim arr2(1 To Application.WorksheetFunction.Sum(Range("D1:D" & lr)), 1 To 2)
For i = LBound(arr) To UBound(arr)
    For n = 1 To arr(i, 4)
        arr2(j, 1) = arr(i, 1)
        arr2(j, 2) = arr(i, 2)
        j = j + 1
    Next n
Next i
Range("H3").Resize(UBound(arr2), 2) = arr2
End Sub
Не бойтесь совершенства. Вам его не достичь.
Разделить сводные данные на отдельные строки
 
Юрий Хилов,типа такого. Удачного Вам применения на Вашем примере
Код
Sub mrshkei()
Dim i As Long, arr, arr2, lr As Long
lr = Cells(Rows.Count, 1).End(xlUp).Row
arr = Range("A1:B" & lr)
x = 0: j = 1
ReDim arr2(1 To Application.WorksheetFunction.Sum(Range("B1:B" & lr)), 1 To 1)
For i = LBound(arr) To UBound(arr)
    For n = 1 To arr(i, 2)
        arr2(j, 1) = arr(i, 1)
        j = j + 1
    Next n
Next i
Range("C1").Resize(UBound(arr2), 1) = arr2
End Sub
Изменено: Mershik - 20 янв 2021 11:32:24
Не бойтесь совершенства. Вам его не достичь.
Как выписать цепочку данных по определенному артикулу, если они связаны друг с другом?
 
Никита Королев, а есть вид того что вы хотите получить на выходе ?покажите в файле (замените ранее прикрепленный)
пы.сы  нет таких артикулов
Цитата
артикул чайника
Изменено: Mershik - 20 янв 2021 11:15:38
Не бойтесь совершенства. Вам его не достичь.
Открыть определенный exel файл по названию в ячейки, При выборе названия файла из ячейки необходимо, чтобы открылся отдельно exel файл с этим именем находящимся в одной папке с этим файлом
 
Цитата
Антон З написал:
а не через гиперссылку нельзя?
макросом можно...(можно сразу указать расширение файла в выпадающем списке - если они разные)
Код
Sub Кнопка2_Щелчок()
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & [B3] & ".xlsx"
End Sub
Изменено: Mershik - 20 янв 2021 10:34:06
Не бойтесь совершенства. Вам его не достичь.
Как посчитать количество перезвонов по заявке
 
Цитата
aset224 написал:
Незнаю правильно ли или нет
а кто кроме Вас это может знать?странно
посчитайте в рабочем файле - на реальных данных формулой и отдельно на калькуляторе(или как удобно)
Не бойтесь совершенства. Вам его не достичь.
Как посчитать количество перезвонов по заявке
 
md18,
Код
=СЧЁТЕСЛИМН($E$5:$E$9;">="&$A14;$E$5:$E$9;"<="&$A14+3;$F$5:$F$9;$B14)
Не бойтесь совершенства. Вам его не достичь.
Обьеденение двух таблиц в одну общую по адресу дома
 
Александр Пьянов, вариант макросом - можно попробовать ускорит исключив find наверное...но лень)
сделал 3 таблицы на 1 листе.
J:N место для данных из файлов ФИО,
Q:U место для данных из файла счетчики
A:G место для результат
Код
Sub mrshkei()
Dim arr1, arr2, arr3, arr4, i As Long, j As Long, cell As Range, x As Long, CEL As Range
arr1 = Range("J2:N12")
arr2 = Range("Q2:W12")
ReDim arr3(1 To UBound(arr2), 1 To 1)
ReDim arr4(1 To UBound(arr2), 1 To 1)
For i = LBound(arr2) To UBound(arr2)
    arr3(i, 1) = arr2(i, 1) & ":" & arr2(i, 2) & ":" & arr2(i, 3)
    arr4(i, 1) = arr1(i, 1) & ":" & arr1(i, 2) & ":" & arr1(i, 3)
Next i
Range("O2").Resize(UBound(arr3), 1) = arr3
Range("v2").Resize(UBound(arr3), 1) = arr4
i = 1

For j = LBound(arr2) To UBound(arr2)
    Set cell = Range("O1").Resize(UBound(arr4) + 1, 1).Find(arr4(j, 1))
    If Not cell Is Nothing Then
        x = Application.WorksheetFunction.CountIf(Range("v1:v" & j + 1), cell) - 1
        arr2(i, 6) = arr1(cell.Row - 1 + x, 4)
        arr2(i, 7) = arr1(cell.Row + -1 + x, 5)
        i = i + 1
    End If
Next j
Range("A2").Resize(UBound(arr2), 7) = arr2
Range("O2").Resize(UBound(arr3), 1).Clear
Range("v2").Resize(UBound(arr3), 1).Clear
End Sub


Не бойтесь совершенства. Вам его не достичь.
Сопоставление массивов информации (сопоставление списков), Необходимо сопоставить списки информации между собой. Важно подтвердить что в одном из списков встречается контрагент из другого списка
 
fayvusovich_pavel, мне понравилось)  можете попробовать)
https://www.planetaexcel.ru/techniques/7/11627/
https://www.planetaexcel.ru/techniques/7/5636/
Не бойтесь совершенства. Вам его не достичь.
Сопоставление массивов информации (сопоставление списков), Необходимо сопоставить списки информации между собой. Важно подтвердить что в одном из списков встречается контрагент из другого списка
 
Цитата
fayvusovich_pavel написал:
Сопоставление массивов информации (сопоставление списков),
я сопоставил.
Не бойтесь совершенства. Вам его не достичь.
Разместить значения расположенные в столбце в одну ячейку
 
Judgin,https://www.planetaexcel.ru/techniques/7/205/
Не бойтесь совершенства. Вам его не достичь.
Обьеденение двух таблиц в одну общую по адресу дома
 
Цитата
Александр Пьянов написал:
из очень объемных таблиц данные
конкретики никакой нет? просто для кого-то 10000 строк 500 столбцов много, а для кого-то 100 на 10, а еще у кого-то 1 млн строк и 1000 столбцов...из-за этого предлагаемые решения буду оптимальные и быстрые типа PQ, макрос и так далее.. а еще покажите в файле в отдельно листе желаемый результат
Изменено: Mershik - 19 янв 2021 12:39:04
Не бойтесь совершенства. Вам его не достичь.
Из нескольких периодов отсутствия выцепить начальную и конечную даты
 
stevie44, дд. для конкретно приведенного примера (см. вложение)
Не бойтесь совершенства. Вам его не достичь.
Объединение строк по вертикали и фильтрация
 
Алексе Егоров, писать макрос
Не бойтесь совершенства. Вам его не достичь.
Сводная таблица с агрегинованными значениями в графах (столбцах)
 
Solomatnikov, если сине-белая таблица желаемый результат то макросом можно
Не бойтесь совершенства. Вам его не достичь.
Поиск минимальной даты в ячейках текстового формата через VBA
 
Цитата
New написал:
циклом по массиву
ТС хочет без циклов (хотя встроенные функции скорее всего работают на них же)
Не бойтесь совершенства. Вам его не достичь.
[ Закрыто] обрезание лишнего vba
 
msi2102, так еще и не понятно что лишние - могут ведь не то обрезать)
Изменено: Mershik - 18 янв 2021 09:39:58
Не бойтесь совершенства. Вам его не достичь.
[ Закрыто] обрезание лишнего vba
 
Dobepman, название темы прям классное (нет) - модераторы сейчас удалят Вашу темы, совет Вам предложите новое название прям в сообщении с названием отражающим суть вопроса (удаление строк содержащих +, скопировать выделенный диапазон в первую пустую ячейку- это для примера)
и еще пример скудноватый добавте 5-10 строк с возможными вариантами текста и что должно получится..
Изменено: Mershik - 18 янв 2021 09:38:28
Не бойтесь совершенства. Вам его не достичь.
Реализовать таблицу по подсчету и контролю продовольствия
 
nipolka, см. #2
Изменено: Mershik - 17 янв 2021 21:36:24
Не бойтесь совершенства. Вам его не достичь.
Реализовать таблицу по подсчету и контролю продовольствия
 
nipolka, создавайте тему по конкретному вопросу и все  
Не бойтесь совершенства. Вам его не достичь.
Реализовать таблицу по подсчету и контролю продовольствия
 
nipolka,для раздумий - на плюс минус двойным кликом, а еще у вас общая тема такию тут в разделе работа решают, а в этой ветке конкретный вопрос
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
Dim Product As Range, dataa As Range 'объявление переменных
If Not Intersect(Target, Range("i19,k19,m19,o19,q19,s19,u19,w19")) Is Nothing Then ' отслеживание двоеного нажатия на указанные ячейки
    Target.Offset(0, -1) = Target.Offset(0, -1) + 1 'если одна из указанных выше ячеек тогда прибавляем 1 к значению
    Set Product = Columns(27).Find(Target.Offset(-1, -1)) 'ищем продукт которому добавляли 
    Set dataa = Rows(15).Find(Date) 'ищем сегодняшнюю дату
    Cells(Product.Row, dataa.Column + 1) = Cells(Product.Row, dataa.Column + 1) + 1 'добавляем единичку под сегодняшней датой в столбец приход
    Cancel = True
End If
If Not Intersect(Target, Range("i20,k20,m20,o20,q20,s20,u20,w20")) Is Nothing Then ' отслеживание двоеного нажатия на указанные ячейки
    Target.Offset(-1, -1) = Target.Offset(-1, -1) - 1'если одна из указанных выше ячеек тогда прибавляем 1 к значению
    Set Product = Columns(27).Find(Target.Offset(-2, -1)) 'ищем продукт у которого отнимали
    Set dataa = Rows(15).Find(Date) 'ищем сегодняшнюю дату
    Cells(Product.Row, dataa.Column) = Cells(Product.Row, dataa.Column) - 1 'отнимаем единичку под сегодняшней датой в столбец расход
    Cancel = True
End If
End Sub
Изменено: Mershik - 17 янв 2021 21:35:20
Не бойтесь совершенства. Вам его не достичь.
Запрет ввода данных в ячейку по заданным условиям, Запрет ввода данных в ячейку по заданным условиям
 
Sashat1705,пишите макрос клоьлоый будет проверять ячейку B2 и в случае если там не проценты ставил защиту на лист.
Не бойтесь совершенства. Вам его не достичь.
Из столбиков в один столбик, Доброго дня, помогите решить такую задачу мне нужно из множество столбиков свести в один.
 
vikttur,преобразование кросс-таблицы в плоскую)
Не бойтесь совершенства. Вам его не достичь.
Из столбиков в один столбик, Доброго дня, помогите решить такую задачу мне нужно из множество столбиков свести в один.
 
Сергей Иванов, еще варик
Код
Sub mrshkei()
Dim i As Long, j As Long, arrIN, arrOUT, k As Long, x As Long
k = 1
arrIN = Range("A1:G4")
x = (UBound(arrIN) - 1) * (UBound(arrIN, 2) - LBound(arrIN, 2))
ReDim arrOUT(1 To x, 1 To 3)
For j = LBound(arrIN) + 1 To UBound(arrIN)
    For i = LBound(arrIN) + 1 To UBound(arrIN, 2) - LBound(arrIN, 2) + 1
        arrOUT(k, 1) = arrIN(j, 1)
        arrOUT(k, 2) = arrIN(1, i)
        arrOUT(k, 3) = arrIN(j, i)
    k = k + 1
    Next i
Next j
Range("A7").Resize(UBound(arrOUT), 3) = arrOUT
End Sub
Не бойтесь совершенства. Вам его не достичь.
Макрос который заменяет сводную таблицу на простую таблицу с сохранением формата ячеек
 
avbook, просто скажу так - в большинстве случаев сводные таблицы называют совсем не то
что имеется ввиду ? так как они могут отличаться только оформлением... вы же это считаете сводной ? -  https://support.microsoft.com/ru-ru/office/%D1%81%D0%BE%D0%B7%D0%B4%D0%B0%D0%BD%D0%B8%D0%B5-%D1%81%D...
Цитата
какая именно будет сводная
Изменено: Mershik - 15 янв 2021 17:34:36
Не бойтесь совершенства. Вам его не достичь.
Макрос который заменяет сводную таблицу на простую таблицу с сохранением формата ячеек
 
avbook,а где хоть одна сводная таблица? и вы не обновляйте ее и все
Не бойтесь совершенства. Вам его не достичь.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 218 След.
Наверх