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

Страницы: 1
Автоматизированный сбор информации по одинаковым позициям (без макросов).
 
Добрый вечер. Извиняюсь сразу за некорректное название темы и возможно описание проблемы/задачи.
Из таблицы 2, сейчас я собираю данные вручную в таблицу 1. Таблица 1 создана чисто для профиля ( типа сметки). То есть ищу профиль, беру его длину, количество кусков и всё вручную считаю.
Можно как то автоматизировать (без макросов) сбор информации , что бы было всё автоматически.
Присылаю файл, так как словами тут трудно описать для человека не сильно разбирающимся в эксель)
Перенос не пустых ячеек на другой лист формулой
 
Добрый день.
Есть-ли способ перенести значение формулой, столбца с Лист1 В3 на лист2 в столбец В2, при условии что на Листе1 в ячеке С3 есть значение .
То есть значения с столбца В3 переносятся если в столбце С есть напротив значение  
Изменено: nagrani - 12.01.2023 16:30:41
Округление в большую сторону
 
Добрый день. Подскажите можно как то в этой формуле сделать округление чисел в большую сторону.
Формула:
= ЕСЛИ(C1=0;0;(МАКС(5;МИН(30;((ОКРУГЛТ(((C2*C3/24));5)))))))  (формула округляет до числа 5, то есть 5, 10, 15, 20, 25, 30)

К примеру если С2*С3/24 = 5,01 то окргуление идёт к 10.

Благодарю  
Ограничение числа выдаваемого значения
 
Добрый день. Возможно как то без макросов ограничить число выдаваемое в ячейке. К примеру 2+5=7, а нужно что бы ячейка показывала число не больше 6. Меньшее число не ограничивается (1+2=3) , а большее ограничивается (3+5 =6)
Поиск значения в диапазоне таблицы
 
Добрый день.
Помогите. Нужно найти срез значения. Пример высылаю.
Сейчас в ячейки F17 и G17 я ввожу значения вручную. Можно как то формулой сделать, что бы значения сами выбрались из таблицы выше по значению ячейки Е17 и F16  G16.
Спасибо  
Изменено: nagrani - 10.08.2022 13:39:46
Макрос. Равномерное распределение груза по складам
 
Добрый день.
Можете помочь.
Есть всего 3 склада, и к примеру неограниченное количество поставок (машин). В каждой машине есть груз определённого веса. Задача в том, что бы  +- равномерно распределить груз по весу по трём складам.
Изменено: nagrani - 08.09.2021 15:47:29
Макрос. Суммирование чисел в скобках работает некорректно.
 
Добрый день.
Данный макрос суммирует числа в скобках из одной ячейки ("О), в другую ("AN"). Но иногда бывает глюк, и он вставляет сумму скобок из первой ячейки во все остальные. Эта ошибка происходит рандомно. Прикладываю файл и скрин с ошибкой.

Код
Sub кабель()
    Set diap = Intersect(Sheets("0,4кВ").Range("O12:O1000"), Sheets("0,4кВ").UsedRange)
    mas = diap.Formula
    ReDim masrez(1 To UBound(mas), 1 To 1)
        For i = 1 To UBound(mas)
            nach = InStr(mas(i, 1), "(")
            kon = InStr(mas(i, 1), ")")
            If nach > 0 And kon > 0 And Not mas(i, 1) Like "=SUBTOTAL*" Then
                tekst = Mid(mas(i, 1), nach + 1, kon - nach - 1)
                masrez(i, 1) = "=" & tekst
                tekst = ""
            End If
        Next
    diap.Offset(, 25).Formula = masrez
    MsgBox "Промежуточные итоги!", vbInformation, "Не ошибка"
End Sub
Изменено: nagrani - 07.05.2021 16:30:43
Макрос. Автоматическое определение диапазона
 
Добрый день.
Есть макрос который из одной ячейки выносит сумму значений в скобках, в другую ячейку. Но проблема в том, что нужно постоянно выбирать диапазон (О12:О124). Начало всегда начинается с ячейки О12.
Можно как то автоматизировать макрос, что б не выбирать в ручную диапазон  а допустим по условию что в столбце L12: L есть какое-то значение .
Код
Sub кабель()
    Set diap = Intersect(Sheets("0,4кВ").Range("O12:O124"), Sheets("0,4кВ").UsedRange)
    mas = diap.Formula
    ReDim masrez(1 To UBound(mas), 1 To 1)
        For i = 1 To UBound(mas)
            nach = InStr(mas(i, 1), "(")
            kon = InStr(mas(i, 1), ")")
            If nach > 0 And kon > 0 And Not mas(i, 1) Like "=SUBTOTAL*" Then
                tekst = Mid(mas(i, 1), nach + 1, kon - nach - 1)
                masrez(i, 1) = "=" & tekst
                tekst = ""
            End If
        Next
    diap.Offset(, 25).Formula = masrez
    MsgBox "Проверь сечение!", vbInformation, "Не ошибка"
End Sub


VBA. Округление при копировании
 
Добрый день.
Подскажите, как в макрос добавить округление вставляемого значения до второго знака после запятой.

Код
Sub Кабельный_журнал()
    Dim lr As Long, llastr As Long, lcnt As Long, ac As Long
     
    ac = Application.Calculation
    Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = False
    lcnt = 7
    With Worksheets("0,4кВ")
        llastr = .Cells(.Rows.Count, 1).End(xlUp).Row
        For lr = 12 To llastr
            If .Cells(lr, 1).Value <> "" Then
                Worksheets("кабельний журнал").Range("A" & lcnt).Value = .Range("E" & lr).Value
                Worksheets("кабельний журнал").Range("B" & lcnt).Value = .Range("C" & lr).Value
                Worksheets("кабельний журнал").Range("C" & lcnt).Value = .Range("F" & lr).Value
                Worksheets("кабельний журнал").Range("D" & lcnt).Value = .Range("AO" & lr).Value
                Worksheets("кабельний журнал").Range("E" & lcnt).Value = .Range("AN" & lr).Value
                Worksheets("кабельний журнал").Range("H" & lcnt).Value = .Range("O" & lr).Value
                Worksheets("кабельний журнал").Range("N" & lcnt).Value = .Range("I" & lr).Value
                lcnt = lcnt + 1
            End If
        Next
    End With
    Application.Calculation = ac
    Application.ScreenUpdating = True
End Sub
Копирование с автоопределением диапазона
 
Добрый день.
Подскажите, как можно сделать, что б диапазон копирование выбирался сам, по условию что в ячейках А12:А есть текст.
Код
Sub Кабельный_журнал()

Worksheets("0,4кВ").Range("E12:E105").Copy
Worksheets("кабельний журнал").Range("A7").PasteSpecial Paste:=xlPasteValues

Worksheets("0,4кВ").Range("C12:C105").Copy
Worksheets("кабельний журнал").Range("B7").PasteSpecial Paste:=xlPasteValues

Worksheets("0,4кВ").Range("F12:F105").Copy
Worksheets("кабельний журнал").Range("C7").PasteSpecial Paste:=xlPasteValues

Worksheets("0,4кВ").Range("AO12:AO105").Copy
Worksheets("кабельний журнал").Range("D7").PasteSpecial Paste:=xlPasteValues

Worksheets("0,4кВ").Range("AN12:AN105").Copy
Worksheets("кабельний журнал").Range("E7").PasteSpecial Paste:=xlPasteValues

Worksheets("0,4кВ").Range("O12:O105").Copy
Worksheets("кабельний журнал").Range("H7").PasteSpecial Paste:=xlPasteValues

Worksheets("0,4кВ").Range("I12:I105").Copy
Worksheets("кабельний журнал").Range("N7").PasteSpecial Paste:=xlPasteValues

End Sub
Макрос. Копирование и вставка транспонированием по условию.
 
Приветствую!
Есть ли возможность сделать макрос. который будет копировать содержимое столбцов А6:J6. И вставлять-транспонированием в другое место  по условию первого столбца.
Отправляю файл для понимания.
Сумма уникальных значений.
 
Приветствую!
Не могу разобраться. При выполнении макроса, абсолютно нечего не происходит (в ячеках I тип кабеля, в ячейках О длина)
Код
Sub Длина_кабеля()
Dim col As New Collection, i As Long, lr As Long
lr = Cells(Rows.Count, 1).End(xlUp).Row
For i = 12 To lr
    If Cells(i, 9) <> "" Then
        On Error Resume Next
        col.Add Cells(i, 9), CStr(Cells(i, 9))
    End If
Next i
 
For i = 1 To col.Count
    Cells(i + 11, 20) = col(i)
    Cells(i + 11, 20) = Application.WorksheetFunction.SumIfs(Range("O1:O" & lr), Range("I1:I" & lr), col(i))
Next i
End Sub
Автоматическое распределение данных ( распределение веса на три ящика)
 
ДОПУСТИМ
Есть мир, в котором есть всего по три ящика каждого цвета ( три белых, три красных, три черных)
Есть вес какого-то товара ( который нельзя делить, резать, пилить) , допустим 10 товаров.

Нужно автоматически распределить равномерно вес , на три ящика, при условии что ящик черный  :)
Отправляю файл
Изменено: Дмитрий - 02.02.2021 15:54:54
Добавление буквы перед значением , по условию что в другой ячейке определённый текст
 
Приветствую.
Сразу извиняюсь за возможно не правильное название темы.
Как можно в ячейку D добавить условие, что если в ячейке В содержаться текст HXH, то в ячейке D будет перед цифрой буква "м". В любом другом случае всё остается неизменно.
Отправляю пример для большего понимания.
Макрос. Суммирование уникальных (одинаковых) ячеек.
 
Добрый день.
Нужно посчитать общую длину для каждого типа кабеля. В столбце G (тип кабеля) , в столбце M (длина)
Нужно вывести данные на этот же лист (ниже исходной таблицы) .
В файле есть пример как должно +- выглядеть в конце)  
Изменено: Дмитрий - 25.01.2021 16:18:16
Макрос. Сцепление текста ячеек через разделитель "-"
 
Извиняюсь за кучу вопросов.
Нужен макрос, который сцепляет в ячейку F5:F41, ячейки  M5:M41, N5:N41, J5:J41, Q5:Q41, P5:P41, Q5:Q41, L5:L41. С разделителем "-".

Заранее спасибо.
Разбиение текста ячейки на две части
 
Кто может помочь. Нужен макрос, который разделит содержимое столбца N7:N42 , на две части в столбцы F7:F42, G7:42  

p.s.
Формулы и встроенную функцию "Текст по столбцам" не предлагайте. Нужен конкретно макрос
Спасибо.
Изменено: Дмитрий - 22.01.2021 15:39:24
CУММА ячейки которая содержит текст типа 2+2+2
 
К примеру, в ячейке А1 есть текст 2+2+2, (Таких ячеек много), как записать в ячейку В1 сумму ячейки А1.
Автоматическая удаление знака " = " в формуле
 
К примеру, есть формула =2+2+8. Нужно такая формула или макрос, что б автоматически убирало знак " = " и оставляло только 2+2+8. Встроенная функция в ексель Найти и заменить не подходит, так как большой объем данных  
Страницы: 1
Наверх