Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » bortnik27
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Разбивка суммы по ячейкам случайным образом
 
#
12.07.2023 17:45:39
Здравствуйте. Мне необходимо разбить известную мне сумму на несколько ячеек, так чтобы сумма по ячейкам сходилась с итогом.
Я пользовался randbetween но тогда сумма не сходится и нужно подгонять в ручную.
 
Перейти    
Форматирование таблицы по дате через одного, Условное форматирование через день для визуального разделения дней
 
#
12.10.2022 22:23:20
Есть выгрузка данных по дням, хотелось бы визуально один день выделить одним цветом другой день вторым, т.е. что-то похожее на "форматировать таблицу как" но количество строк одного дня всегда разное, т.е надо чтобы один цвет был на весь день.
(A1-$E$1)/2-ОТБР((A1-$E$1)/2)=0 почему такое условие не срабатывает? Е1 это дата для референса, если эту формулу вставить в ячейку то там будет все верно ЛОЖЬ ИСТИНА чередоваться через день
Изменено: bortnik27 - 12.10.2022 22:24:43
 
Перейти    
Вытащить формулы из пользовательских функций
 
#
23.10.2019 17:13:10
Скажите как можно вытащить формулы из пользовательских функций.
Диаграмма Ганта закрашивается по условию, и его нужно поменять, но в условии стоит пользовательская функция, в VBA ее не вижу.  
 
Перейти    
Выделение поля в отдельный столбец в сводной таблице, Нужна помощь по сводным таблицам и анализе данных
 
#
21.05.2019 13:14:57
В файле с примером есть таблица из которой сделана сводная. Есть список производителей, товаров, и характеристик товаров. Нужен анализ по производителям, какие занимаются нужной нам продукцией с последующей отправкой им спецификации, (возможно будут советы) пока идея отобразить список товаров, а характеристики отобразить в отдельном столбце а не строкой ниже, и в третьем столбце количество.
Может проще сгруппировать товары в начальной таблице?  
 
Перейти    
Создание ссылки на другой файл Excel с фильтром
 
#
17.04.2019 15:17:46
Добрый день, господа.
Требуется помощь в реализации создания ссылки в ячейке исходного файла на другой файл excel и применения к последнему фильтра.
Существует два файла с разной информацией по заказам. При том, один из них регулярно обновляется сторонними сотрудниками компании.
Хотелось бы создать ссылку в моем пользовательском файле на, тот, который ежедневно обновляется и при переходе по этой ссылке автоматически выставлялся фильтр по интересующему меня заказу.  

Возможно ли такое вообще реализовать и какими способами?  
Изменено: bortnik27 - 17.04.2019 16:28:47
 
Перейти    
Как задать название листа, переменной, Помогите сделать ссылки на ячейки листов в зависимости от названия листа
 
#
22.08.2018 22:21:29
Здравствуйте.
Помогите сделать ссылки на ячейки в зависимости от названия листа. Т.е. нужен макрос который бы брал ячейку из книги с одним название и ячеку с одним названием но с листа, название которого будет задаваться переменной. А переменной будет присваиваться уже нужное значение.
Пример описал на одном листе схематически. Там более понятно.  
 
Перейти    
Перенос данных из одной книги в другую с сохранением формы таблиц в обоих файлах
 
#
10.08.2018 12:29:19
Здравствуйте. Интересует перенос данных из одной книги в другую.
Загвоздка в том что нужно сохранить форму таблиц в обоих файлах. При этом перенос происходит ежедневно и объем гораздо больше чем в файле "Пример 1".
Задача: из файла (в примере Лист "10.08") перенести в другой файл (в примере это другой лист "ПП") все данный таблицы, при том на следующий день то же проделать с листом под названием "11.08", пока технолог сделал макрос где просто записал перенос данных вручную и макрос выглядит как:
Код
ActiveCell.FormulaR1C1 = _
        "='[Сменный отчет мастеров август 18.xlsx]10.08'!R26C25"
т.е. заносит значение ячейки из другого файла. Я же хотел бы чтобы название листа, в данном случае "10.08", было переменной, и если вести в эту переменную значение следующей даты то все тоже проделывалось бы с другим листом. Подскажите как это сделать.
Пример во вложении также прилагаю текст макроса. он также наверно нуждается в доработке чтобы можно было выбрать куда заносить данные а не заносить их в уже указанные ячейки.
 
Перейти    
Поиск, сранивающий списки по тексту от первого символа до конца.
 
#
05.07.2018 14:35:01
Здравствуйте!
Во вложении пример двух списков.  Проблема FuzzyLookUp в том что он ищет по полному тексту ячейки и подбирает более подходящий из соображений общей суммы символов. Можно ли организовать функцию или макрос который бы подыскивал текст перебирая символы от начала до конца и подбирал бы более подходящий по первым символам, т.е. сначала идет наименование, он ищет наименование, потом класс давления он подбирает такой же потом размер и так далее пока следующие знаки не перестанут совпадать?
Заранее спасибо.
Изменено: bortnik27 - 05.07.2018 15:36:30
 
Перейти    
Необходимо раскидать закупленное количество по условным заказам и посчитать остаток или недостаток товара, Задача со звездочкой.
 
#
26.04.2018 10:48:02
Здравствуйте, есть следующая задача: есть список товаров от заказчика, в нем есть повторяющиеся позиции, а закупается общее количество на одинаковую позицию.
Т.е. нужно понять из закупленных (к примеру) 50 штук одной номенклатурной позиции сколько позиций заказа закрыто полностью и сколько осталось закрыть или перепоставлено?

Пример во вложении. Есть вкладка заказ, там где список от заказчика с повторяющимися позициями, вкладка закуплено, там где список только уникальных (не повторяющихся) позиций и вкладка с примером желаемого результата.

Нужно чтобы в списке заказчика эксель пробегал по списку поставленного и расставлял количество исходя из закупленного, т.е. если закупили 15 штук заглушек и таких у заказчика 4 позиции то на против этих позиций нужно расставить кол-во сколько можем поставить, например сначала 4 + 1 + 5 + 5, а если закупили 14 штук то он должен проставить по максимуму по порядку, т.е. 4 + 1+ 5+ 4, а условное форматирование это уже отобразит. а в случае если закупили больше желательно это тоже как то отобразить например в списке закупленного.
Навыки есть и в макросах и в формулах, пока не могу сообразить как это реализовать идейно. Буду благодарен за любые умные мысли. Спасибо.
Изменено: bortnik27 - 26.04.2018 10:48:19
 
Перейти    
Как вытащить из текста слово содержащее число, Если можно то сразу несколько через разделитель
 
#
23.03.2018 13:16:32
Есть такие типы данных:
Тройник   равнопроходной DN150 (6") T=7,11 мм. ANSI B16.9 Материал - ASTM A 420   Gr. WPL6 класс 150
Из них нужно выбрать:
DN150, 6", T=7,11, B16.9, A420(если нет пробела), WPL6
Можно в любых вариациях, хотя бы первое число, или хотя бы числа без текста или даже просто число из слова содержащего это число.
Вообще было бы круто если бы стандартная функция "текст по столбцам" могла бы так разбивать текст исходя из слов с числами.  
Изменено: bortnik27 - 23.03.2018 13:17:10
 
Перейти    
Переделывание макроса в пользовательскую функцию
 
#
01.03.2018 12:24:44
Есть макрос:
Код
Sub Get_killos()
    Dim sShName As String, sAddress As String, vData() As Variant, d$, Sch$, i&, j&
    Application.ScreenUpdating = False
    Workbooks.Open "C:\Users\bel\Documents\1.xlsx"
    sAddress = "A1:Q58"
    vData = Sheets("12").Range(sAddress).Value
    ActiveWorkbook.Close False
    d = InputBox("укажите диаметр")
    Sch = InputBox("введите размер без 'Sch'")
     
    For i = 3 To UBound(vData, 1)
        If vData(i, 1) = d Then
            Exit For
        End If
        If i = UBound(vData, 1) Then Exit Sub
    Next i
    ActiveCell.Value = vData(i - 1, 2)
    For i = 3 To UBound(vData, 1)
        If vData(i, 1) = d Then
            Exit For
        End If
        If i = UBound(vData, 1) Then Exit Sub
    Next i
    For j = 3 To UBound(vData, 2)
        If vData(1, j) = Sch Then
            Exit For
        End If
        If j = UBound(vData, 2) Then Exit Sub
    Next j
     
    ActiveCell.Offset(, 1).Value = vData(i - 1, j)
    ActiveCell.Offset(1, 0).Range("A1").Select
End Sub
Хочу переделать в функцию, чтобы можно было протянуть на весь диапазон, но получаю ошибку ЗНАЧ. возможно нужно правильно указать тип переменных но не понимаю где что не так:
Код
Function get_kilo(d As String, Sch As String) As Double
    Dim sShName As String, sAddress As String, vData() As Variant, i&, j&
    Application.ScreenUpdating = False
    Workbooks.Open "C:\Users\bel\Documents\1.xlsx"
    sAddress = "A1:Q58"
    vData = Sheets("12").Range(sAddress).Value
    ActiveWorkbook.Close False
         
    For i = 3 To UBound(vData, 1)
        If vData(i, 1) = d Then
            Exit For
        End If
        If i = UBound(vData, 1) Then Exit Function
    Next i
    For i = 3 To UBound(vData, 1)
        If vData(i, 1) = d Then
            Exit For
        End If
        If i = UBound(vData, 1) Then Exit Function
    Next i
    For j = 3 To UBound(vData, 2)
        If vData(1, j) = Sch Then
            Exit For
        End If
        If j = UBound(vData, 2) Then Exit Function
    Next j
     
   ActiveCell.Value = vData(i, j)
    
End Function
Помогите пожалуйста найти ошибку
Изменено: bortnik27 - 01.03.2018 12:25:40
 
Перейти    
Макрос: операция с двумя диапазонами и выведение результата в третий
 
#
28.02.2018 15:14:02
Здравствуйте, есть макрос, который вычисляет вес изделия, исходя из введенных данных, от пользователя, его размера и толщины стенки.
Данные он берет из закрытого файла.
Код
Sub Get_mm_From_inches()
    Dim sShName As String, sAddress As String, vData() As Variant, d$, Sch$, i&, j&
    Application.ScreenUpdating = False
    Workbooks.Open "C:\Users\bel\Documents\1.xlsx"
    sAddress = "A1:Q58"
    vData = Sheets("12").Range(sAddress).Value
    ActiveWorkbook.Close False
    d = InputBox("Размер в дюймах, дробная часть через запятую")
    Sch = InputBox("Стандарт без 'Sch'")
     
    For i = 3 To UBound(vData, 1)
        If vData(i, 1) = d Then
            Exit For
        End If
        If i = UBound(vData, 1) Then Exit Sub
    Next i
    ActiveCell.Value = vData(i - 1, 2)
    For i = 3 To UBound(vData, 1)
        If vData(i, 1) = d Then
            Exit For
        End If
        If i = UBound(vData, 1) Then Exit Sub
    Next i
    For j = 3 To UBound(vData, 2)
        If vData(1, j) = Sch Then
            Exit For
        End If
        If j = UBound(vData, 2) Then Exit Sub
    Next j
     
    ActiveCell.Offset(, 1).Value = vData(i - 1, j)
    ActiveCell.Offset(1, 0).Range("A1").Select
End Sub
Задача имея список таких позиций просчитать их разом, желательно выбирая диапазон сначала размеров, потом толщин, и указывая диапазон макрос должен туда проставлять результаты.
Пока не могу понять как заставить перебирать  значения двух диапазонов.
И еще в идиале узнать как таблицу 32*13 уместить в самом макросе.
Спасибо.
 
Перейти    
Работа с текстом: взять текст до N-ого символа
 
#
26.02.2018 23:55:12
Здравствуйте, помогите разобраться как из строки текста взять все символы до Н-ого пробела. в плексе есть удобная функция удаления текста до Н-ного символа, я ее переделал в функцию "вытаскивающую" текст до н-ного символа: (кусок из плекса, замена в 7ой строчке)
Код
If optUntilText Then
        stop_txt = frmText.txtUntilText.Text
        For Each cell In DataRng
            If (Not IsEmpty(cell)) And (Not IsError(cell)) Then
                stop_txt_position = InStr(1, cell.Value, stop_txt)
                If stop_txt_position > 1 Then
                    OutStr = Left(cell.Value, stop_txt_position - 1)
                Else
                    OutStr = cell.Value
                End If
                cell.Value = OutStr
            End If
        Next cell
    End If
А вот как взять текст до н-ного пробела, при том иногда надо до 4 иногда до 5го? Нужно что-то с Н-ным вхождением символа, но что то на ночь нет мыслей, а нужно завтра с утра сделать файл на 2500 строк текста.
Если кто подскажет буду благодарен, есть переменная cell в надстройке и вба на нее ругается если пытаться из кода сделать макрос, я так понимаю эта переменная где то описывается но не в интро не в аутро нет, что с ней не так?
 
Перейти    
Счет суммы ячеек с заливкой: переделать функцию пользователя в отдельную процедуру
 
#
09.02.2018 10:13:07
Есть функция, взята с Планеты:
Код
Public Function SumByColor(DataRange As Range, ColorSample As Range) As Double
     Dim Sum As Double
     Application.Volatile True
 
     For Each cell In DataRange 
         If cell.Interior.Color = ColorSample.Interior.Color Then
             Sum = Sum + cell.Value 
         End If
     Next cell 
     SumByColor = Sum 
 End Function
работает, все отлично. Ее надо перенести в макрос.
Код
Sub SumByColor()
     Dim rData As Range
     Dim cellRefColor As Range
     Dim Sum, SumByColor As Double
     Dim indRefColor As Long
     Dim cellCurrent As Range
     rData = InputBox("Âûáåðèòå ñòîëáåö ñóììèðîâàíèÿ.")
     cellRefColor = InputBox("Âûáåðèòå ÿ÷åéêó ñ öâåòîì, ïî êîòîðîìó áóäåò ñóììèðîâàíèå")
     indRefColor = cellRefColor.Cells(1, 1).Interior.Color
 
     Application.Volatile True
     For Each ñellCurrent In rData
         If indRefColor = ñellCurrent.Interior.Color Then
             Sum = WorksheetFunction.Sum(cellCurrent, Sum)
         End If
     Next cellCurrent
     ActiveCell.Value = Sum
 
End Sub
Ругается на цикл, хотя я его не трогал, говорит invalid next control variable reference, помогите пожалуйста
Изменено: bortnik27 - 09.02.2018 14:40:17
 
Перейти    
Добавление функции с вызовом по знаку =
 
#
07.02.2018 11:26:48
есть не сложная функция, взятая с Планеты
Код
Public Function SumByColor(DataRange As Range, ColorSample As Range) As Double
     Dim Sum As Double
     Application.Volatile True
 
     For Each cell In DataRange 
         If cell.Interior.Color = ColorSample.Interior.Color Then
             Sum = Sum + cell.Value 
         End If
     Next cell 
     SumByColor = Sum 
 End Function

Она работает и все хорошо, но она не запускается через знак равно если сохранять в личную книгу макросов, а если сохранить в текущую книгу, то она запускается как обычная формула (=SumByColor(х:х;х)), но не будет работать в других файлах.

Вот и вопрос, как сохранить пользовательскую формулу чтобы она вызывалась через знак равно, но в любой книге (как макросы)?

Изменено: bortnik27 - 07.02.2018 23:54:05
 
Перейти    
Как задать цены чтобы уложиться в сумму
 
#
11.09.2017 17:10:12
Друзья, есть ли формула или как правильно написать массив, чтобы эксель домножил список цен на определенный коэффициент  или увеличил на какую-то сумму чтобы стоимость всех товаров была выше закупочной цены. Пример в приложении.
p.s. т.е. отталкиваться надо от закупочных цен и по сравнению с текущими ценами продаж некоторые позиции станут дешевле, но каждая позиция должна быть дороже закупочной. но сумма уложиться в определенное число
Изменено: bortnik27 - 11.09.2017 17:12:19
 
Перейти    
Не работает округление в макросе, функция Application.Round работает до числа 88.9
 
#
06.09.2017 15:07:21
Сделал макрос, он берет размер в мм и находит размер в дюймах, из первого и второго столбца. т.к. входные данные могут быть округлены математически в таблице приведены данные уже округленные, т.е. для D 21,3 исходные данные будут 21,34 а для 21,7 могут быть 21,68 . поэтому макрос должен воспринимать и 21,7 и 21,70 и 21,65, округляя до 21,7 (как в последнем примере). пока это работает только до 14-й строке с числом 73,0, а 88,9 уже не срабатывает в чем может быть проблема?
Код
Sub Get_inches_From_mm()
    Dim sShName As String, sAddress As String, vData() As Variant, D$, i&, j&, Dr$,
    Application.ScreenUpdating = False
    Workbooks.Open "C:\Users\bel\Documents\1.xlsx"
    sAddress = "A1:Q58"
    vData = Sheets("00").Range(sAddress).Value
    ActiveWorkbook.Close False
    D = InputBox("Размер в дюймах, дробная часть через запятую")
    Dr = Application.Round(D, 1)
    
    For i = 3 To UBound(vData, 2)
        If vData(i, 2) = Dr Then
            Exit For
        End If
        If i = UBound(vData, 2) Then Exit Sub
    Next i
    ActiveCell.Value = vData(i, 1)
    ActiveCell.Offset(1, 0).Range("A1").Select
End Sub

Подскажите в чем ошибка, я так понимаю не правильно заданы типы данных или он округляет как то по другому нежели функция ОКРУГЛ
данные берутся из файла в приложении. Спасибо
 
Перейти    
Преобразовние текста в числа, все способы из статьи на планете не работают
 
#
04.09.2017 10:40:39
Есть статья на планете с 6-ю способами, включая спец.вставку, умножение и даже макрос, все перепробовал - не работает, странно что при выгрузке из CSV какие то 4 числа стали числами остальные нет, как победить такое? уже не первый раз сталкиваюсь все равно не работает, может проблема в моем пк?
пример2.xlsx (11.35 КБ)  
 
Перейти    
Как "разобрать" сгруппированные строки по столбцам, чем то похоже с задачей которую решал Николай в макросе "Редизайнер"
 
#
29.08.2017 09:45:42
Проще посмотреть файл - станет понятнее, в нем название групп цифры а элементы групп буквы, как преобразовать такую таблицу в два столбца чтобы название группы было в отдельном столбце в одной строке с каждым элементом группы как в таблице выделенной синим, есть ли какой то инструмент? Это выдернуто из 1С нужно как то преобразовать в вид годный для эксель, при этом количество и содержимое строк разное, единственное за что можно ухватиться это название групп на русском а элементы на английском, но название может начинаться с цифры.
И еще в идеале такое сделать на три столбца есть шанс что группировка будет по трем группам. Спасибо.
Изменено: bortnik27 - 29.08.2017 09:46:00
 
Перейти    
Смещение ячейки по условию в макросе
 
#
23.08.2017 15:50:24
Код
Sub Get_Value_From_Closed_Book()
    Dim sShName As String, sAddress As String, vData() As Variant, D$, Sch$, i&, j&
    Application.ScreenUpdating = False
    Workbooks.Open "C:\Users\bel\Documents\1.xlsx"
    sAddress = "A1:P58"
    vData = Sheets("12").Range(sAddress).Value
    ActiveWorkbook.Close False
    D = InputBox("Размер в дюймах, дробная часть через запятую")
    Sch = InputBox("Стандарт без 'Sch'")
     
    For i = 3 To UBound(vData, 1)
        If vData(i, 1) = D Then
            Exit For
        End If
        If i = UBound(vData, 1) Then Exit Sub
    Next i
    ActiveCell.Value = vData(i - 1, 2)
    For j = 3 To UBound(vData, 2)
        If vData(1, j) = Sch Then
            Exit For
        End If
        If j = UBound(vData, 2) Then Exit Sub
    Next j
     
    ActiveCell.Offset(, 1).Value = vData(i - 1, j)
    ActiveCell.Offset(1, 0).Range("A1").Select
End Sub
Подскажите как сделать оффсет как в конце макроса только чтобы он выполнялся в случае если Sch имеет пустое значение?
Изменено: bortnik27 - 23.08.2017 16:22:50
 
Перейти    
Поиск слова в ячейки из заданного списка.
 
#
23.08.2017 09:50:22
Здравствуйте, есть список стандартов, и есть список закупок, который состоит из описания товара, в нем есть слово содержащее стандарт, как из этого описания вытащить стандарт? есть похожая тема но там по "стандарту" подтягивают ячейку, но это совсем не то. Есть еще нюанс стандарт в описании может быть через пробел, а в списке есть и каждое слово отдельно и стоящие слитно и через пробел, и нужно чтобы он вытаскивал оба слова, хотя можно поработать над списком стандартов чтобы привести его в нужное для данной цели вида. Спасибо.пример.xlsx (18.51 КБ)  
 
Перейти    
[ Закрыто] нужна функция ВПР подтягивающая целую строку из таблицы, и маленький вопрос по макросу.
 
#
18.08.2017 13:07:23
Здравствуйте, по мимо того что нужно подтянуть строку по ВПР'у но нужно чтобы он искал не по совпадению ячеек, а по фрагменту. т.е. есть полное описание трубы и несколько столбцов характеристик, а есть короткое описание которое полностью содержится в полном описании, и нужно в лист с короткими описаниями подтянуть всю строку с характеристиками. Пример во вложении.
P.S. Желательно подтягивать даже не всю строку, а несколько столбцов, хотя конечно проще их потом удалить, но это как говорится в  идеале.

И еще маленький вопрос по макросу.
есть макрос замены пустой ячейки на ноль,
Код
Sub Макрос1()
    If ActiveCell.Text = "" Then
        ActiveCell.Value = 0
    End If
    ActiveCell.Offset(1, 0).Range("A1").Select
End Sub
я пытался сделать чтобы он в выделеном диапазоне искал но не получается, что не так в моем коде или как добавить правильный цикл в рабочий макрос?
Код
Sub Макрос1()
    Dim smallrng As Range
    For Each smallrng In Selection.Areas
        If smallrng.Text = "" Then
        smallrng.Value = 0
    End If
    Next smallrng
End Sub
пример.xlsx (21.63 КБ)  
 
Перейти    
Макрос с получением данных из закрытой книги, Нужна помощь в написании макроса
 
#
16.08.2017 17:18:42
Есть код получения данных из книги но почему то данные выводятся только из первой ячейки.
Скрытый текст
Как получить из файла массив данных.
вообще есть таблица соответствия размеров дюймов в мм при том почему то нелинейное преобразование. т.е. 1 дюйм 33 мм а 2" 60,3 и т.д. поэтому просто формулой не получится достигнуть нужного результата. но есть таблица перевода этих странных размеров в электронном виде, сделал два макроса которые определяют толщину и диаметр, они работают если эта таблица есть в файле, а как сделать чтобы эти функции выполнялись с данными взятыми из не открытого файла? Спасибо.

Скрытый текст

Таблица размеров.xlsx (16.16 КБ)
P.S. только что обнаружил ошибку во втором макросе width ошибку, переменная Sch  имеет тип string  но помимо буквенных значений есть цифровые и если на 10s она срабатывает то при вводе 10 или другого числового значения макрос выдает н\д
Изменено: bortnik27 - 16.08.2017 17:25:02
 
Перейти    
Поиск слов из списка в тексте, Сложная задача по работе с текстом
 
#
15.08.2017 10:06:59
Здравствуйте, интересная задачка, есть таблицапример.xlsx (9.2 КБ) в ней список фрукты, город поставки, кол-во штук, цена и некая характеристика, в отдельном файле( в примере ячейка сбоку выделенная красным) есть ячейки которые содержать информацию аналогичную одной строке из таблицы, но в одной ячейке, как разбить такую ячейку (как красные строки в таблице с примером) на отдельные ячейки в таблице, так чтобы поиск в ячейке был по уже занесенным в таблицу словам.
Например для первого столбца он должен искать в "красной" ячейке те цифры что содержаться в первом столбце, во втором столбце он должен искать слова тех фруктов которые указаны в таблице и т.д. Спасибо.
 
Перейти    
Удаление дубликатов с суммированием количества
 
#
09.08.2017 17:15:32
Здравствуйте, есть таблица, пример.xlsx (9.44 КБ) , в ней список заказов он имеет уникальный код товара, но заказов несколько, как оставить только уникальные значения? т.е. на выходе нужны строки только с уникальными кодами, НО, всегда есть но, нужно учитывать кол-во в заказе, т.е. при удалении дубликатов столбец Q-ty должен суммировать значения удаленных полей.
И факультативная задачка) в идеале перед удалением нужно проверить совпадает ли ячейка Size 1 в удаляемых строках. Буду крайне признателен.
Я бы выделил бы уникальные значения столбца кодов и по условию просуммировал получив нужное значение в ячейке Q-ty но как потом подтянуть остальные значения? можно через ВПР но я удалил уже больше половины лишних столбцов т.е. через ВПР нужно делать функций 20, что конечно выход но как говорится: " выход в окно, не выход")
 
Перейти    
Форматирование столбца по уже отформатированным столбцам, форматирование столбца разными типами форматирования
 
#
16.05.2017 14:42:45
Сложно объяснить проще пример, в файле столбцы они отформатированы по УФ у каждого свой цвет, как отформатировать столбец "Регионы" в цвета соответствующие "Кластерам"?
 
Перейти    
Приведение таблицы к виду для создания сводной, Помогите привести таблицу к виду из столбцов для сводной
 
#
12.05.2017 14:08:42
Здравствуйте, есть таблица прикрепил ее в приложение, нужно ее преобразовать в сводную. для этого нужно получить три столбца, дата (она будет повторяться), Модель машины (их только 4) и сумма. таких файлов много и они разные по содержанию, написал бы макрос но он должен меняться, разве нет какого-то переноса столбца или склеивания одинаковых данных?
 
Перейти    
Протягивание формулы в макросе до последней строки
 
#
02.05.2017 14:09:21
Есть такой макрос:
Код
 Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=COUNTIF(C[-11],RC[-2])"
    Range("L2").Select
    Selection.AutoFill Destination:=Range("L2:L35")
    Range("L2:L35").Select

Заполнение ("L2:L35") но если таблица будет больше чем на 36 строк то формула остановиться на 35-ой стрке, как задать интервал не определенным кол-вом а как при протягивании по двойному клику на нижний правый угол ячейки с формулами(когда курсор превращается в черный тонкий крестик)
 
Перейти    
Страницы: 1
Наверх