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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 160 След.
Данные в ячейке в зависимости от другой ячейки
 
Vladimir Z., сюда зайдитеКЛАЦ
Изменено: Mershik - 8 Июл 2020 21:20:10
Вставить значения из одной таблицы в другую при соблюдения двух условий
 
Адлет Нажбиев,в F2 и протянуть влево/вниз
Код
=ПРОСМОТР(2;1/(($B2='форма 2'!$B$2:$B$1000)*($C2='форма 2'!$C$2:$C$11000));'форма 2'!D$2:D$1000)
Вставить значения из одной таблицы в другую при соблюдения двух условий
 
Адлет Нажбиев, из какой в какую? где в файле желаемый результат?
Изменено: Mershik - 8 Июл 2020 21:10:26
Добавить столбцы через один и заполнить нужными записями., Решить задачу с помощью макроса.
 
yuraok, и помимо
Цитата
Jack Famous написал:
P.S.: то, что указали в той теме ссылку на эту, это хорошо, но название я бы всё-таки предложил другое
я бы еще посоветовал наконец-то показать файл пример и сданными а не просто нумерованными столбцами
Добавить столбцы с записями через одну в автоматическом режиме.
 
yuraok,
Код
Sub dsd()
Dim i As Long, lcol As Long
lcol = Cells(1, Columns.Count).End(xlToLeft).Columns
For i = lcol To 1 Step -1
Columns(i).EntireColumn.Insert
Cells(2, i) = Cells(1, i + 1)
Next i
End Sub
Изменено: Mershik - 8 Июл 2020 14:10:25
Создание новой строки в файле отчета, ориентируясь по номеру аббонента
 
ottobalt, ну просто думаю стоит создать новую тему где отразить что есть и что должно быть и этот макрос -  и вопрос наверное типа (если правильно понимаю) "VBA суммирование показаний приборов учета по каждому абоненту исключая ошибочные данные и деление на 0"
Создание новой строки в файле отчета, ориентируясь по номеру аббонента
 
ottobalt, не понял ничего..зачем вставлять формулу макросом? куда вставлять?  и что эта формула делает (просто разбираться в ней это не очень хорошая идея), а еще тема ни как не связана  с формулой т.е. ответ на вопросы темы
Цитата
ottobalt написал:
Создание новой строки в файле отчета
выглядит так:
Код
Sub ddd()
Dim i As Long
lr = Cells(Rows.Count, 3).End(xlUp).Row
For i = lr To 5 Step -1
    If Not Cells(i, 3) = Cells(i - 1, 3) And Cells(i, 3) <> "" Then
    x = i + k
        Rows(x + 1).EntireRow.Insert
        Cells(x + 1, 1) = "итого по потребителю"
        Range("A" & x + 1 & ":L" & x + 1).Interior.Color = 5296274
        k = 0
    Else
        k = k + 1
    End If
Next i
End Sub

Изменено: Mershik - 8 Июл 2020 10:53:42
убрать пробелы
 
denka1982,  лучше привести данные в нормальный единый вид, а так как вариант массивная формула
Код
=ВПР(СЖПРОБЕЛЫ(A1);СЖПРОБЕЛЫ(дополнительный!$A$1:$B$6);2;0)
Макрос копирования строки в лист, макрос копирования
 
YOrek, не спасибо) воздержусь.
вы не можете нормально объяснить и даже не удосужились сказать что-то по предложенному варианту.
Макрос копирования строки в лист, макрос копирования
 
YOrek, как понял так сделал (выбираете любое значение  из нужной строки и нажимаете кнопку) или вешаете его на кнопку.
Код
Sub ddd()
Dim MyRow As Long
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Dim lr As Long, lr2 As Long
Set sh1 = Worksheets("ввод")
Set sh2 = Worksheets("результат")

MyRow = ActiveCell.Row
If MyRow + 1 > 2 Then
sh2.Cells(MyRow + 1, 1) = sh1.Cells(MyRow, 1)
sh2.Cells(MyRow + 1, 2) = sh1.Cells(MyRow, 2)
sh2.Cells(MyRow + 1, 3) = Application.WorksheetFunction.Max(sh1.Range(sh1.Cells(MyRow, 3), sh1.Cells(MyRow, 6)))
sh2.Cells(MyRow + 1, 4) = Application.WorksheetFunction.Min(sh1.Range(sh1.Cells(MyRow, 3), sh1.Cells(MyRow, 6)))
sh2.Cells(MyRow + 1, 5) = Application.WorksheetFunction.Max(sh1.Range(sh1.Cells(MyRow, 3), sh1.Cells(MyRow, 6))) / 2
sh2.Cells(MyRow + 1, 6) = 320 + Application.WorksheetFunction.Max(sh2.Range(sh2.Cells(MyRow + 1, 3), sh2.Cells(MyRow + 1, 5)))
sh2.Cells(MyRow + 1, 7) = sh2.Cells(MyRow + 1, 6) / 3

End If
End Sub
Макрос копирования строки в лист, макрос копирования
 
YOrek, макрос запускать по нажатию кнопки ? нужны формулы или результат?  
Макрос копирования строки в лист, макрос копирования
 
YOrek, дд. если честно не очень понятно что должно происходить...можете подробнее? ну точнее что именно копируется и когда и куда и что должно быть ?
и в файле покажите желаемый результат и исходные данные
убрать пробелы
 
denka1982,
Код
=ВПР(СЖПРОБЕЛЫ(A1);дополнительный!A1:B6;2;0)
Поочередное перемещение всех данных в столбце в ячейку
 
Lampampa, поэтому создавая тему описывать проблему, а не то что вы думаете поможет вам ускорить)
Поочередное перемещение всех данных в столбце в ячейку
 
Lampampa, странное мероприятие)))
Интеграгия писем из оутлук в excell
 
Цитата
Чебрецов Олег написал:
Интеграгия
кто простите?)
Создание новой строки в файле отчета, ориентируясь по номеру аббонента
 
ottobalt, дд. а пример корвый
Код
Sub ddd()
Dim i As Long, rng As Range
Dim lr As Long
lr = Cells(Rows.Count, 3).End(xlUp).Row
For i = lr To 5 Step -1
    If Not Cells(i, 3) = Cells(i - 1, 3) And Cells(i, 3) <> "" Then
    x = i + k
        Rows(x + 1).EntireRow.Insert
        Cells(x + 1, 1) = "итого по потребителю"
        Range("A" & x + 1 & ":L" & x + 1).Interior.Color = 5296274
        Cells(x + 1, 6) = "=sum(" & Range(Cells(i, 6), Cells(x, 6)).Address & ")"
        Cells(x + 1, 7) = "=sum(" & Range(Cells(i, 7), Cells(x, 7)).Address & ")"
        Cells(x + 1, 9) = "=sum(" & Range(Cells(i, 9), Cells(x, 9)).Address & ")"
        Cells(x + 1, 8) = "=" & Cells(x + 1, 9).Address & "/" & Cells(x + 1, 6).Address
        Cells(x + 1, 10) = "=sum(" & Range(Cells(i, 10), Cells(x, 10)).Address & ")"
        Cells(x + 1, 12) = "=sum(" & Range(Cells(i, 12), Cells(x, 12)).Address & ")"
        Cells(x + 1, 11) = "=" & Cells(x + 1, 12).Address & "/" & Cells(x + 1, 10).Address
        k = 0
    Else
        k = k + 1
    End If
Next i
End Sub

Определение худшего по трем показателям, Необходимо вывести худшего работника в отдельную ячейку
 
Код
=ЕСЛИОШИБКА(ИНДЕКС($A$4:$A$6;ПОИСКПОЗ(1;ИНДЕКС((СЧЁТЕСЛИ(A$11:A11;$A$4:$A$6)=0)/($B$4:$B$6<$B$9);0);0));"")
Автоматический счетчик количества дней от определенной даты, Автоматический счетчик количества дней от определенной даты
 
Lesha,
Код
 =СЕГОДНЯ()-B2
Автоматический счетчик количества дней от определенной даты, Автоматический счетчик количества дней от определенной даты
 
Lesha, дд.
Код
=сегодня()-"ваша_дата"
VBA. Автозаполнение формулами по отфильтрованному списку сразу нескольких столбцов.
 
kgaydm, я выше уже показал вам...но могу еще
VBA. Автозаполнение формулами по отфильтрованному списку сразу нескольких столбцов.
 
kgaydm, мой вам совет сделать файл-пример как требует того правила не более 300 Кб и исходные данные и рядом желаемый результат (достаточно 10 - 20 строк) с этими нюансами что по дороге может уже быть что-то заполнено  и что с этим делать показать..
модераторы придут и закроют тему (если нормальный пример не приложите) ИМХО.
а так навскидку при копировании  вроде вставляется по умолчанию в видимые, я сделал (на картинке видно) в первой строке формулы (они же я как я понял одинаковые для всех строк)  а уже потом вставляем
Код
Sub Макрос1()
Dim rng As Range
Dim lr As Long
Set rng = Application.InputBox("Выберите диапазон с формулами (должны идти без разрывов) ", Type:=8)
    rng.Copy
    lr = Cells(Rows.Count, 2).End(xlUp).Row
    Range("D7:F" & lr).Select
    ActiveSheet.Paste
End Sub

Изменено: Mershik - 6 Июл 2020 17:27:33
СУММПРОИЗВ для диапазонов "разных" размерностей
 
s_kak dollar, вы думаете я отвинта вам написал формулу?) покажите мою формулу в файле. (буква H - 8 по порядку)
Изменено: Mershik - 6 Июл 2020 16:30:28
VBA. Автозаполнение формулами по отфильтрованному списку сразу нескольких столбцов.
 
kgaydm, обязательно макрос  ? можно же просто выделить диапазон и двойным нажатием кнопки по правому нижнему углу и все.
Изменено: Mershik - 6 Июл 2020 16:19:55
СУММПРОИЗВ для диапазонов "разных" размерностей
 
s_kak dollar, дд.
Код
=СУММПРОИЗВ(H5:H58;K5:K58)
Заполнение листа БД из массива, Заполнение одного листа из массива на другом листе с помощью скрипта
 
Ігор Гончаренко, а хорошо подмечено)
Заполнение листа БД из массива, Заполнение одного листа из массива на другом листе с помощью скрипта
 
FX_SmpL Меркулов,
Код
Sub the_change()
Dim i As Long
Dim lr As Long
Dim lr2 As Long
Dim cell As Range, rng As Range
Dim Blank As Worksheet
Application.ScreenUpdating = False
Set Blank = Worksheets("blank")
lr = Worksheets("blank").Cells(Rows.Count, 2).End(xlUp).Row + 2
Set rng = Blank.Range("D5:D" & lr & ",F5:F" & lr)
For Each cell In rng
    If Not IsEmpty(cell) Then
    With Worksheets("BD")
        lr2 = .Cells(Rows.Count, 1).End(xlUp).Row + 1
        .Cells(lr2, 1) = Blank.Cells(1, 2)
        .Cells(lr2, 2) = Blank.Cells(2, cell.Column - 1)
        .Cells(lr2, 3) = Blank.Cells(cell.Row, cell.Column - 1)
        .Cells(lr2, 4) = Blank.Cells(cell.Row, cell.Column)
    End With
    End If
Next cell
Application.ScreenUpdating = True
End Sub
Заполнение листа БД из массива, Заполнение одного листа из массива на другом листе с помощью скрипта
 
Цитата
FX_SmpL Меркулов написал:
все непустые ячейки с листа Blank должны переместиться
уверены что все? или все таки определенные? например те которые  в таблице и имеют количество??? или все таки все? (и А1 и В1?)
Изменено: Mershik - 6 Июл 2020 15:28:55
Суммирование ячеек по проставлении галочки, Суммирование ячеек по проставлении галочки
 
Dudkovda, дд.
Заполнить таблицу на основании данных другой таблицы
 
Zasypich, а заполните ручками желаемый результат...
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 160 След.
Наверх