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

Страницы: 1 2 3 След.
Как используя функцию atan2 найти значение Y-axis ?
 
Ігор Гончаренко, понял суть. Здоровья  и процветания Вам!
Как используя функцию atan2 найти значение Y-axis ?
 
Как найти значение на  28.04.21 17:43 Y-axis, имея следующие данные:
X Y inclane
28.04.21 17:41 31
28.04.21 17:42 21 -89,9960
28.04.21 17:43 ? -89,9960

Формула
Код
=ГРАДУСЫ(ATAN2(A5-$A$4;B5-$B$4))
Как вставить переменную в формулу ?
 
Казанский, поискал нашёл применил получилось))
Код
Range("c2:c3").Value = Evaluate(a & "*" & b)
Изменено: sleeper141 - 30.05.2018 11:25:37
Как вставить переменную в формулу ?
 
Добрый день. Вопрос в теме.
После применения макроса надо что бы формулы не сохранялись , как в "пример 1"

пример 1:
Код
Range("c2:c3").Value = [a2:a3*b2:b3] 
работает как надо без сохранения формулы
пример 2:
Код
a = "a2:a3"
b = "b2:b3"
Range("c2:c3").Value = ["&a&"*"&b&"]
не работает

Как реализовать ?
Изменено: sleeper141 - 30.05.2018 10:58:53
Как правильно передать ссылку на диапазон формуле массива ?
 
vikttur, спасибо  "*", забыл про спецсимвол. БМВ, спасибо за способ передачи, тема закрыта.
Изменено: sleeper141 - 26.02.2018 12:38:24
Как правильно передать ссылку на диапазон формуле массива ?
 
vikttur, идею передачи понял
Как правильно передать ссылку на диапазон формуле массива ?
 
БМВ, при открытие темы формула была сделана по другому примеру. В данном случае в примерочном файле уже указаны соответсвующие диапозоны.
Как правильно передать ссылку на диапазон формуле массива ?
 
vikttur, не видел других способов передачи переменного диапАзона
Как правильно передать ссылку на диапазон формуле массива ?
 
={SUM((INDIRECT(ADDRESS(ROW();2;4)&":"&ADDRESS(ROW();COLUMN();4)))*(RIGHT(INDIRECT(ADDRESS(2;2;4)&":"&ADDRESS(2;COLUMN();4);5)="Total")))} не работает
={SUM((B13:DQ13)*(RIGHT(B11:DQ13;5)="Total"))}[/CODE]работает
как правильно передать ссылку на диапазон формуле массива ? или другие варианты ?
Изменено: sleeper141 - 26.02.2018 12:30:32
Ошибка записи на лист одномерного массива
 
sleeper141, только теперь filter перестал работать, всё таки нужна копия массива)
Ошибка записи на лист одномерного массива
 
Karataev, спасибо. Правда я сразу объявил mass как двухмерный массив. Обошёлся без перезаписи.
Изменено: sleeper141 - 04.11.2017 18:19:16
Ошибка записи на лист одномерного массива
 
Karataev, я не понял что вы подразумевали объявление ещё одного массива. Каким он должен быть статическим или динамическим ?
Изменено: sleeper141 - 04.11.2017 18:09:36
Ошибка записи на лист одномерного массива
 
Karataev, код скопировал первую запись 160 000 раз))
Ошибка записи на лист одномерного массива
 
Karataev, перебором записывать на лист. Очень долго.
Ошибка записи на лист одномерного массива
 
Добрый день. Выскакивает ошибка type mismatch error 13 на
Код
ActiveSheet.[l1].Resize(UBound(mass), 1) = Application.Transpose(mass)

Строк в массиве 160 000 в тексте. excel 2007. Думаю проблема в количестве записи на лист больше 64000.
ReDim mass$(1 To 160000)
Вернуть номер строки 1 пустой ячейки формулы ПОИСКПОЗ
 
V, спасибо)
Вернуть номер строки 1 пустой ячейки формулы ПОИСКПОЗ
 
Bema, спасибо) Теперь понял как работает формула массива)
Вернуть номер строки 1 пустой ячейки формулы ПОИСКПОЗ
 
Добрый день, есть диапазон в столбце заполненный без прерывно значениями.
Задача, определить номер строки первой пустой ячейки.
=MATCH(FALSE;(AJ2:AJ27)<>"";0)
Формула возвращает правильный номер строки, но как только закрываю окно, в значении #N/a
Вопрос, как преобразовать результат формулы, что бы не было ошибки; именно 26.
Изменено: sleeper141 - 06.09.2017 14:27:04
Перебор элементов поля сводной таблицы, подключённой через olap
 
Вопрос в заголовке; примеры на сайте переборы поля есть, но не через olap.


Код
Dim a%, agr As PivotTable ', cbf As CubeFieldsD

Set agr = ActiveSheet.PivotTables("PivotTable1")

For a = 1 To agr.CubeFields.Count: agr.CubeFields(a).Orientation = xlHidden: agr.CubeFields(a).ClearManualFilter: Next: a = 0

With agr.CubeFields("[GSK_01_ColdFlu_breaks].[Competitor - main]"): .Orientation = xlPageField: .Position = 1: End With

agr.CubeFields("[GSK_01_ColdFlu_breaks].[Competitor - main]").EnableMultiplePageItems = True

agr.PivotFields("[GSK_01_ColdFlu_breaks].[Competitor - main].[Competitor - main]").VisibleItemsList = Array("[GSK_01_ColdFlu_breaks].[Competitor - main].&[Main]")

With agr.CubeFields("[GSK_01_ColdFlu_breaks].[Day]"): .Orientation = xlPageField: .Position = 2: End With

agr.CubeFields("[GSK_01_ColdFlu_breaks].[Day]").EnableMultiplePageItems = True

With agr.PivotFields("[GSK_01_ColdFlu_breaks].[Competitor - main].[Competitor - main]")

For Each b In .VisibleItemsList
[e1] = b
Next

End With




Вопрос, как вернуть элементы поля Competitor - main ?
Изменено: sleeper141 - 01.09.2017 13:11:18
Иерархия в сводной таблице файлы
 
Ссылка
тема закрыта
Иерархия в сводной таблице файлы
 
vikttur, прикрепил gpeg
Иерархия в сводной таблице файлы
 
vikttur, могу сказать раньше этого значка не было.
Иерархия в сводной таблице файлы
 
vikttur, согласен, но Я не знаю как это называется, и не могу показать так как файл со скрином большой.
Иерархия в сводной таблице файлы
 
Убрать знак который выше полей (в контекстном меню этого знака ссылка на сервер)
Изменено: sleeper141 - 28.08.2017 18:27:59
Получить в ячейке элемент со страницы
 
kavaka08, спасибо думал об этом, ссылкой конечно на элемент было бы удобней
Получить в ячейке элемент со страницы
 
Добрый день.
Стандартный способ получения данных со страницы работает только с таблицами.
Пример главная страница Яндекса погода; хочу в ячейке "Погода + 20 С" (не суть)
Код элемента на странице, что нужно сделать дальше? как сохранить ссылку с кодом а потом обновлять?
ссылка на лист с ячейкой из текста
 
Hugo, Спасибо) тема закрыта
ссылка на лист с ячейкой из текста
 
лист: Nat 1
ячейка: d$5

п.1 функция address возвращает мне текст : 'Nat 1'!D$5
Вопрос как обработать  п.1 что бы функция indirect поняла п.1 ?
Изменено: sleeper141 - 14.06.2017 12:01:45
Цикл for each пропускает строку
 
yozhik, Спасибо, неожиданно)
Цикл for each пропускает строку
 
Вопрос в теме
Данная запись обрабатывает ячейки через одну
Код
For Each a In Range("b2:b53"): If a Like "*.*" Then a.Clear Else a = Trim(Mid(a, 1, InStr(1, a, "?") - 1))
Next


А эта запись работает правильно
Код
For a = 2 To 53: If Cells(a, 2) Like "*.*" Then Cells(a, 2).Clear Else Cells(a, 2) = Trim(Mid(Cells(a, 2), 1, InStr(1, Cells(a, 2), "?") - 1))
Next


Прост удобнее for each; скажите пожайлуста почему так, и как это исправить?
Изменено: sleeper141 - 03.03.2017 18:33:42
Страницы: 1 2 3 След.
Наверх