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

Страницы: 1 2 След.
Подсчёт количества дней по условию в почасовом диапазоне, Формула для счёта по условию
 
Сергей, благодарю Вас, это то, что нужно
Подсчёт количества дней по условию в почасовом диапазоне, Формула для счёта по условию
 
Цитата
Сергей написал:
файл пример
Цитата
Александр П. написал:
о файле примере
Добавил
Подсчёт количества дней по условию в почасовом диапазоне, Формула для счёта по условию
 
Здравствуйте!

Подскажите, пожалуйста, формулу для следующей задачи:

В почасовом диапазоне данных за период нужно посчитать количество дней, когда хотя бы один час был больше 0  
Изменено: MaxM - 15.12.2017 07:27:12 (Добавил файл примера)
Промежуточные итоги и анализ списка
 
Создайте обыкновенную сводную таблицу (Вставка - Сводная таблица) и настройте как Вам угодно.

Цитата
PUMA83 написал:
С помощью функции из категории «Работа с базой данных»
Похоже, речь идет о функции "БИЗВЛЕЧЬ"
Вопрос по поводу копированию в вставке и переносе данных
 
Ну можно, например, присвоить вашему диапазону имя (через диспетчер имен), и выбирать его из выпадающего списка.  
Макрос автоматически при выборе "Да" или "-"
 
Посмотрите например здесь:
http://www.planetaexcel.ru/forum/?PAGE_NAME=read&FID=8&TID=12151
или здесь:
http://www.planetaexcel.ru/forum/?PAGE_NAME=read&FID=8&TID=26861
а можно и здесь:
http://www.planetaexcel.ru/forum/?PAGE_NAME=read&FID=8&TID=26542

P.S. В вашем примере нет никакого макроса. (как минимум формат не тот)
Объединить 2 ячейки в одну.
 
Если правильно понял, то:
Код
=СУММ(C4:C440) /СЧЁТЕСЛИ(C4:C440;">0")
Помогите! Коэффициент, или как присвоить диапазону чисел "1","1.1"...., Создание формулы
 
Не совсем понятно, что Вам нужно.
баттон для поиска значении по книгам, Поисковик
 
Цитата
Kamyshev написал:
К сожалению книг более 100 и каждую проверять очень сложно
Какие Ваши предложения?
Переменная внутри пути к файлу, Замена фамилий сотрудников и групп
 
Цитата
penkinda написал:
Это можно как-то еще обойти?
Да, если связь с нужным файлом уже существует. (Правка -> Связи или Данные -> Изменить связи)
Переменная внутри пути к файлу, Замена фамилий сотрудников и групп
 
Воспользуйтесь функцией ДВССЫЛ:

Код
 =ВПР(C$5;ДВССЫЛ("'[УРВ_2016_" & Name & ".xlsx]2016'!$A$5:$D$404");3;ЛОЖЬ) 
Где Name может быть ссылкой на ячейку или именованным диапазоном.
Изменено: MaxM - 18.05.2016 13:47:24
баттон для поиска значении по книгам, Поисковик
 
Можно обыкновенным перебором.
Открываете по очереди файлы и ищите, пока не найдете.
Код
Workbooks.Open
Range().Find
Оптимизация кода VBA (перенос данных с одного листа на другой с заданным шагом (через определённое количество строк)
 
Если нужны только значения ячеек, то можно как-то так:
Код
Set ws1 = Worksheets("1")
Set ws2 = Worksheets("2")
ws2.Range("....").Value = ws1.Range("....").Value
.....
ws1.Rows("....").Delete Shift:=xlUp
Изменено: MaxM - 05.05.2016 09:40:42
Перенос из одной книги данные в другую
 
Если просто перенести результаты поиска, то сделал бы как-то так:
Код
i=1
For each R in wb1.Sheets("название").Range("D1:D" & lastRow)
If InStr("родс",R.Value)<>0 then 
arrR(i) = R.Value
i=i+1
end if
next R

Set wb2 = Workbooks.Open("C:\Users\Documents\Учет РОДС.xlsx")

wb2.Sheets("...").Range("C1:C" & i-1).Value = arrR
Изменено: MaxM - 05.05.2016 09:30:14
Извлечение изображений из ссылок
 
Посмотрите здесь:
http://www.excel-vba.ru/chto-umeet-excel/kak-soxranit-kartinki-iz-lista-excel-v-kartinki-jpg/
Проверить файл при открытии
 
Цитата
ber$erk написал: Может это и есть тот признак?
Пожалуй, так и сделаю!
Спасибо всем!
Проверить файл при открытии
 
QUOTE]Karataev написал: у меня в таком коде не появляется сообщение:
[/QUOTE]
Потому что Вы его отключили.
В этом случае оно возвращает "Ок", файл открывается. Но! Данные то в нем не корректные.
Проверить файл при открытии
 
Ошибка VBA возникает, если в предупреждении "Ошибки во время загрузки" нажать "Отмена". Тогда да, метод Open не сработал и On Error отрабатывает.

Но если нажать "ОК" или запустить без alert'ов, тогда файл откроется и ошибки, как таковой, нет.
Вот как отловить это окно предупреждения?
Изменено: MaxM - 07.04.2016 13:50:21
Проверить файл при открытии
 
В папку программой скачиваются файлы.
Иногда скачиваются не корректно и при открытии всплывает предупреждение: "Ошибки во время загрузки"
Данные из всех файлов программно собираются в общюю книгу.
Код
File_tg = Dir(address & "*xls")
Do While File_tg <> ""
    Workbooks.Open address & File_tg
    ...
    Workbooks(File_tg).Close False
    File_tg = Dir
Loop  

Как в VBA отследить открытие подобных "битых" файлов?

P.S. Для ускорения работы, все события и alert'ы отключены
P.S.S  On Error не срабатывает
Диапазон ячеек по сумме, Выбрать диапазон по условию суммы его ячеек
 
vikttur, Спасибо!
Цитата
Ячейка с 61 пролетает...
Поэтому заменил "<" на "<="
Диапазон ячеек по сумме, Выбрать диапазон по условию суммы его ячеек
 
Доброго времени суток!
Имеется какой-то столбец значений:
3
31
5
61
25
1
Необходимо выбрать диапазон, сумма значений которого не больше 100 (сверху накоплением)
Для данного примера это будет:
3
31
5
61
Как можно реализовать подобное?
Изменено: MaxM - 14.03.2016 09:04:16
Изменить параметры всех диаграм листа, Max и Min значения
 
Казанский, The_Prist, Спасибо! Работает.

Вот только меняются и значения оси Y, а нужно только по X
Сделал так:
Код
For Each H In ws.ChartObjects
H.Chart.Axes(xlCategory).MaximumScale = vmax: On Error Resume Next
H.Chart.Axes(xlCategory).MinimumScale = vmin: On Error Resume Next
Next H
Изменено: MaxM - 29.02.2016 12:37:33
Изменить параметры всех диаграм листа, Max и Min значения
 
Доброго времени суток!

Таки, как поменять интервалы осей во всех диаграммах листа?
Пробую так, не выходит:
Код
 For Each H In ActiveSheet.ChartObjects
   H.Axes(xlCategory).MaximumScale = 42460
   H.Axes(xlCategory).MinimumScale = 42430
   Next H 
Изменено: MaxM - 29.02.2016 11:56:59
Правильно задать искомую строку в функции InStr
 
Здорово, спасибо!
Правильно задать искомую строку в функции InStr
 
Добровго времени суток!
Есть множество ячеек с названиями, например:

ТЭЦ ООО "ТГ-1" (ТЭЦ ВИЗа)
ТЭЦ ООО "ТГ-2" (ТЭЦ ВИЗа)
ТЭЦ "Уралметпром" (ТЭЦ ВИЗа)

Как в функции InStr искомую строку задать так, чтобы InStr  возвращал 1? (по аналогии с обычным поиском в Excel: ТЭЦ*(ТЭЦ ВИЗа))
Изменено: MaxM - 02.02.2016 11:56:00
Работа с подключениями VBA Excel 2003, Как удалить подключения в Excel 2003?
 
Ну, с удалением разобрался. Если выполнять макрос из текущего файла.
Код
With ws.QueryTables.Add(Connection:= _
        "TEXT;\\...\" & file_date & ".csv" _
        , Destination:=ws.Range("J2"))
        .Name = file_date
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 866
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(4, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=True
    End With

ws.QueryTables(file_date).Delete
А если импорт осуществляется в другую книгу, то возникает ошибка 1004 ("Ex. не может найти текстовый файл для обновления .... и т.д.")

.Refresh BackgroundQuery:=True (False)
Работа с подключениями VBA Excel 2003, Как удалить подключения в Excel 2003?
 
В 2010-м Excel все просто, Данные - Подключения - Удалить. Или VBA:
Код
For i = 1 To ActiveWorkbook.Connections.Count
ActiveWorkbook.Connections.Item(1).Delete
Next 
А вот как подобное провернуть в 2003-м?
Метод .Connections не поддерживается. (Ошибка 438)

П.С. Внешние данные - файлы .csv
Изменено: MaxM - 25.01.2016 07:20:38
Пересчет формул закончен., Как узнать в VBA, закончен ли пересчет формул?
 
JayBhagavan, спасибо! То, что нужно!
Пересчет формул закончен., Как узнать в VBA, закончен ли пересчет формул?
 
Это нужно для проверки результатов расчета через VBA с данными другой книги. Программа после проверки продолжается.
Если при открытии этой самой книги Excel не успевает пересчитать формулы, то результаты могут не сойтись.

Примерное время пересчета 5-7 сек, поэтому, пока, использую таймер на 10 сек.
Но это на моей машине, у других может быть и больше.
Пересчет формул закончен., Как узнать в VBA, закончен ли пересчет формул?
 
Обычно использую в программе выдержку по времени, чтобы Excel успел пересчитать.
А можно ли как-то точно узнать, что пересчет закончен?
Изменено: MaxM - 16.12.2015 10:19:03
Страницы: 1 2 След.
Наверх