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

Страницы: 1
Подсчет времени
 
#
10.04.2019 15:37:50
Всем спасибо.
Проблема была в формате " : " во времени.
 
Перейти    
Подсчет времени
 
#
10.04.2019 15:16:15
Спасибо, но такой подсчет не совсем подходит, т.к. на основании этих данных (время) нужно ещё и сводную сделать и чтобы всё отражалось в формате время.
 
Перейти    
Подсчет времени
 
#
10.04.2019 15:06:07
Добрый день, помогите, пожалуйста, решить проблему с подсчетом времени (хотя формат Время).Почему-то считает как 0:00:00 (пример во вложении)
 
Перейти    
суммирование данных по условиям в строках и столбцах одновременно, суммирование данных по условиям в строках и столбцах одновременно
 
#
25.02.2019 12:51:47
да, отлично!
Спасибо!  
 
Перейти    
суммирование данных по условиям в строках и столбцах одновременно, суммирование данных по условиям в строках и столбцах одновременно
 
#
25.02.2019 12:38:58
Добрый день.
Помогите,пожалуйста,с расчётом, необходимо рассчитать сводный файл ( пример во вложении) по 2 критериям, но 1 критерий в столбце (месяц), 2 критерий в строке (направление). В поле период раскрывающийся список, соответственно, в зависимости от месяца, формула будет перерассчитывать сумму. Можно прописать через суммеслимн с условием на каждый месяц..но это загромоздит и без того огромный файл, может быть есть способы покороче? :(  
 
Перейти    
как в макросе прописать для каких ячеек действует формула, как в макросе прописать для каких ячеек действует формула
 
#
01.02.2017 15:26:17
не уточнила,что ячейки расположены в разных строках, не подряд
 
Перейти    
как в макросе прописать для каких ячеек действует формула, как в макросе прописать для каких ячеек действует формула
 
#
01.02.2017 15:09:45
Добрый день!
Подскажите,пожалуйста,может есть способ решения ситуации (расчеты идут через макрос) : есть 20 ячеек в которых должна быть одна и та же формула, можно ли как то в макросе прописать для каких ячеек действует данная формула или так и придётся копировать её 20 раз..для каждой ячейки?
 
Перейти    
Как в VBA прописать много условий?, много If-Else-End If
 
#
24.10.2016 08:34:13
спасибо,но мне такая организация данных не подходит, нужна конструкция If-Else-End If
 
Перейти    
Перенос данных из унифицированной формы в обычную таблицу Excel
 
#
07.10.2016 13:31:30
Юрий М,спасибо)) но почему то внутри не могу найти текст макроса((
 
Перейти    
Перенос данных из унифицированной формы в обычную таблицу Excel
 
#
07.10.2016 11:27:30
Спасибо!То,что нужно,осталось в формуле разобраться)
 
Перейти    
Перенос данных из унифицированной формы в обычную таблицу Excel
 
#
07.10.2016 10:49:10
Добрый день! Для быстроты расчетов, нужно из унифицированной формы табеля (во вложении) сделать обычную таблицу, в которой будут только столбцы: ФИО, Табельный номер, Отработано часов ,  например:

ФИО,   должностьТабельный номерОтработано,часов
Иванов И.И.,   ведущий инженер2825176
Изменено: katealex - 07.10.2016 11:24:08
 
Перейти    
Неправильно определяется последняя заполненная строка
 
#
26.09.2016 08:34:36
Код
With ActiveSheet
lrow = Workbooks("21").Worksheets("Лист1").Cells(.Rows.Count, 43).End(xlUp).Row

   Range("AA3").FormulaR1C1 = _
        "=SUMIFS('[21.xlsm]'!R2C43:R" & lrow & "C43,'[21.xlsm]'!R2C30:R" & lrow & "C30,RC[-25],'[21.xlsm]'!R2C18:R" & lrow & "C18,""<>программа"")"
Необходима помощь, не могу понять,почему не считаются все строки ?( Вместо диапазона, последняя строка задана через lrow,не понятно почему не считаются все заполненные строки (всего строк 2889, а считается 2465)
 
Перейти    
Диапазон заполненной таблицы в формуле (VBA), Диапазон таблицы постоянно меняется( по количеству строк), как прописать в формуле не определенный диапазон,а всех имеющихся строк
 
#
20.09.2016 08:38:36
Sanja,Огромное спасибо!
 
Перейти    
Диапазон заполненной таблицы в формуле (VBA), Диапазон таблицы постоянно меняется( по количеству строк), как прописать в формуле не определенный диапазон,а всех имеющихся строк
 
#
20.09.2016 08:08:27
Помогите,пожалуйста,прописать в формуле не определенный диапазон,а всех имеющихся строк, пример ниже (записан макрорекордером), формула вставляется в Книгу 1, а данные берутся из книги "расчет_тарифов", лист "Город".
Код
Range("AA3").FormulaR1C1 = _
        "=SUMIFS('[расчет_тарифов.xlsm]Город'!R2C45:R2889C45,'[расчет_тарифов.xlsm]Город'!R2C6:R2889C6,""Москва"")"
 
Перейти    
Как в VBA прописать много условий?, много If-Else-End If
 
#
15.09.2016 15:50:00
вложила пример с формулой, которую никак не получается прописать в VBA, в формуле ссылаюсь на ячейку с прописанным тарифом (можно просто прописать ,например D3 = "420(1 зона),470(2 зона),570(3 зона), 700(4 зона)". Смысл в том, что тарифах прописано либо число, либо данная фраза ( тариф по зонам выезда бригады), либо в зону 1-ю, 2-ю и т.д. (их всего 4 - можно определить только по надбавке (столбец С)), надбавки тоже четыре вида (нет, 10, 50,100 ) и согласно тарифам (например 02.03.08), если бригада выезжала в 1 зону (поле надбавка - пусто), то сумма тарифа составит 420, если во 2-ю (надбавка   10), то 470, если в 3-ю ( надбавка 50), то 570, если в 4-ю( надбавка 100), то 700, аналогично по другим тарифам.
Изменено: katealex - 15.09.2016 15:51:40
 
Перейти    
перенос данных - копированием (VBA), не копирует последние 4 строки, может некорректно задаю диапазон?
 
#
15.09.2016 10:39:54
не равно, был применен автофильтр и затем нужно было отфильтрованные данные перенести, значит неверно присвоила переменной значение через CurrentRegion, теперь понятно,почему не работало, спасибо!
 
Перейти    
перенос данных - копированием (VBA), не копирует последние 4 строки, может некорректно задаю диапазон?
 
#
15.09.2016 10:31:22
при проверке,кстати, выделяется нужный диапазон
Код
Range("B6").CurrentRegion.Select
 
Перейти    
перенос данных - копированием (VBA), не копирует последние 4 строки, может некорректно задаю диапазон?
 
#
15.09.2016 10:20:07
спасибо большое!!! все получилось через d = Worksheets("Новая схема проводок").Cells(Rows.Count, 2).End(xlUp).Row
 
Перейти    
перенос данных - копированием (VBA), не копирует последние 4 строки, может некорректно задаю диапазон?
 
#
15.09.2016 10:00:28
Код
Sub перенос()
Dim d As String
d = Sheets("Новая схема проводок").Range("B6").CurrentRegion.Rows.Count
Sheets("Новая схема проводок").Range("B6:AO" & d).Select
Range("B6:AO" & d).Copy Sheets("Лист2").Range("A1")
Не пойму почему копирует и переносит не все строки( последние 4 не захватывает), помогите,пожалуйста,разобраться, таблица в диапазоне B:AO, конкретный диапазон не задаю,т.к. размеры таблицы меняются (по количеству строк)
Изменено: katealex - 15.09.2016 10:00:52
 
Перейти    
Как в VBA прописать много условий?, много If-Else-End If
 
#
15.09.2016 07:33:49
Это часть большого макроса для расчета, задать формулой получилось( очень большой), при записи макрорекордером формулы, excel виснет,поэтому решила применить конструкцию If..then..else, и вообще теперь не получается.
Рассчитать тариф(согласно зонам), т.е. если тариф равен : 420(1 зона),470(2зона),570(3 зона),700(4 зона), то если в графе надбавка пусто,  тариф расчетный = 420, если 10, то 470, если 50,то 570, если 100, то 700, если нет, проверяется следующий тариф 500(1зона),500(2зона),700(3зона),700(4зона), если да,то если в графе надбавка пусто, тариф 500, если 10, то 500, если 50, то 700, если 100, то 700, нет - след.тариф 620(1 зона),670(2 зона),720(3 зона), 780(4 зона) и аналогично, если в графе надбавка пусто, то 620, если 10,то 670, если 50, то 720, если 100, то 780. Если тариф равен просто числу, то,соответственно, тариф расчетный = тарифу.
 
Перейти    
Как в VBA прописать много условий?, много If-Else-End If
 
#
14.09.2016 15:46:54
Постаралась вкратце изложить,что мне нужно получить
 
Перейти    
Как в VBA прописать много условий?, много If-Else-End If
 
#
14.09.2016 15:14:39
я в макросах "начинающий", поэтому если подскажите как это реализовать с Case, буду благодарна
 
Перейти    
Как в VBA прописать много условий?, много If-Else-End If
 
#
14.09.2016 14:40:37
Код
Sub Если()



If Range("AU2") = "420 (1 зона)" & Chr(10) & " 470 (2 зона)" & Chr(10) & " 570 (3 зона) " & Chr(10) & "700 (4 зона)" Then
If Range("AT2") = " " Then
Range("AX2") = 420
Else
If Range("AT2") = 10 Then
Range("AX2") = 470
Else
If Range("AT2") = 50 Then
Range("AX2") = 570
Else
If Range("AT2") = 100 Then
Range("AX2") = 700
Else
Range("AX2") = Range("AU2")

End If
End If
End If
End If
End If
End Sub
Помогите,пожалуйста,почему то не работает макрос и как прописать чтобы он работал до конца таблицы ?
 
Перейти    
Страницы: 1
Наверх