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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 29 След.
Точное значение для точки на графике при наведении курсором, Поиск возможности реализации показа значения для любой точки графика во всплывающем окне подсказки
 
Цитата
написал:
проще сделать его аппроксимацию
Хм... вот аппроксимацию сделать тут не проще... Форма что то типа гиперболического тангенса в замещённых осях, но это не точно и натягивать сову на глобус лень.
Точное значение для точки на графике при наведении курсором, Поиск возможности реализации показа значения для любой точки графика во всплывающем окне подсказки
 
Спасибо, посмеялся.
1. Число интерполяционных кривых бесконечно.
2. "Точно" это как? Сколько вешать в граммах?  Сколько знаков после запятой?

А если по делу - получайте функцию интерполяции и будете иметь решение задачи. Года четыре назад я выкладывал как сие делать на данном форуме. Дерзайте.

ПыСы, а если хотите тыкать мышкой по картинке и получать значение в точке (куда попали), то посмотрите проги типа GetData.

ПыПыСы Ну и чтобы не быть голословным взял по вашим исходным данным пару интерполирующих функций - кусочнокубическую и сплайн (тоже кубический, если не путаю.). То , что строит эксель при "сглаженная линия" - отдельная тема.
Так вот, визуально как бы одна линия, но по факту отклонение местами более 3%. И это по посчитанным значениям, а не "ткнул мышкой".
Изменено: tutochkin - 07.02.2026 23:50:31 (Добавил картинку)
Книга "Сводные таблицы в Microsoft Excel 2019" Билла Джелена, Нет доступа к файлам с примерами, может у кого они есть?
 
Посмотрите тут . Издание более новое, но ИМХО особых отличий не будет
VBA-функция сглаживания временных рядов
 
Интересная тема...
Применение InputBox в макросе с применением формулы, Применение InputBox в макросе с применением формулы
 
Olegas, попробуйте так:
Код
Range("N10:N" & lLastRow).FormulaR1C1 = "=IF(RC[-1]>0,RC[-1]/" & "userInput &",RC[-8])"

и всё таки я бы не использовал автоопределение типа, а указал вещественное... Плюс проверочку.

Код
Dim userInput As Double
Изменено: tutochkin - 07.01.2026 00:35:07
Собираем книжную полку для активных пользователей Excel, Какие конкретные книги вы бы посоветовали для изучения визуализации данных в Excel?
 
Цитата
написал:
В книге много интересных и свежих идей построения диаграмм практичных и красивых
ну чтобы посмотреть идеи можно просто перейти на https://spivak.ru/md/ И там же инструкции по их созданию.
Собираем книжную полку для активных пользователей Excel, Какие конкретные книги вы бы посоветовали для изучения визуализации данных в Excel?
 
Полистайте эту ветку вниз - тут тема про книги поднималось раза три за последние пол года.
Цитата
интересуют темы визуализации данных: создание красивых и информативных диаграмм, графиков и прочих элементов представления информации.

а вот про это можно говорить бесконечно... Их много, и все они разные. Я бы посоветовал школу Excellent, но она закрывается, так что не повезло.
А ниже несколько примеров разносторонности отображения графиков в эксель, не охватывающих и десятую часть вариаций.









Изменено: tutochkin - 25.12.2025 18:06:53
Посоветуйте какую Книгу хорошую по таблицам в экселе. что-нибудь с озона, Книга
 
Преобразовать время в текст
 
Ну так добавь минус...
Код
=ЕСЛИ(B6-A6>0;ТЕКСТ(ОСТАТ(B6-A6;1);"м")&" мин "&ТЕКСТ(ОСТАТ(B6-A6;1);"с")&" сек";"-"&ТЕКСТ(ОСТАТ(A6-B6;1);"м")&" мин "&ТЕКСТ(ОСТАТ(A6-B6;1);"с")&" сек")
Определение промежуточных данных, Апроксимация, интерполяция и тому подобные шалости с табличными данными.
 

Попалась мне в руки вот такая книжечка.  Элементы численного анализа и математической обработки результатов опыта | Овчинский Борис Владимирович, Гутер Рафаил Самойлович
Очень советую тем, кто хочет понять как в шестидесятых годах, не имея пайтонов, экселей и вообще, могли обрабатывать данные экспериментов получая вполне неплохие аналитические зависимости.

Чисто для меня стало фишкой возможность представления кривых в виде прямых на плоскости (как бы это не звучало - на рисунке правый нижний график это параболы :) ).

Ну и пара разобранных примеров из книги - https://rutube.ru/video/768b2e0793ad5cb899c4c87a2ebbdf9d/?r=wd
Безье или Лагранж как именно эксель сглаживает линии диаграм?Ряд Фурье тригонометрический.
 
Сплайном. По крайней мере визуально. К курилке есть моя тема, там вроде как разбирал.
Из формата 526 214 852 025 006,00 в GeneralNumber, Перевести число из одного формата, видимо, Standard, в обычный
 
Только недавно была похожая тема.
Вопрос к предложениям, а вы все символы пробелов так меня станете? Их же много... Не проще оставить только цифры и разделитель?
Типа так (сорри, я с телефона сейча
Код
Function DataPrep(str As String) As String
Dim ch As String, i As Long
For i = 1 To Len(str)
    ch = Mid(str, i, 1)
    If ch = "." Then DataPrep = DataPrep & ","
    If ch Like "[,0-9]" Then DataPrep = DataPrep & ch
Next i
End Function
Как построить график
 

Без макросов и доп.столбцов можно сделать так.
Определение промежуточных данных, Апроксимация, интерполяция и тому подобные шалости с табличными данными.
 
Довелось мне некоторое время проводить аппроксимацию номограммы в логарифмических осях.
Для тех кто не знает, это вот такие:

Оказывается штатными средствами аппроксимации экселя получить уравнение не получится.
Например для одной кривой и полиномиальном тренде имеем вот такое

При этом коэффициенты линии тренда совпадают с коэф-ми полученными через ЛИНЕЙН (см.табличку над графиком).

Для того чтобы получить уравнение следует:
1. Произвести преобразование исходных данных прологарифмировав их
2. Найти коэ-ты полинома (ai) на основании преобразованных данных
3. Считать по уравнению Y = 10 ^ (Σ ai·(log10(x))^i)

В результате имеем хорошее приближение


как то так...
Естественно всё это было автоматизировано с получением единого UDF для всей номограммы :) , но это совсем другая история.
Макрос вставляет данные из txt - в виде крякозябр и выделяет его
 
Цитата
написал:
Нужно чтобы просто текст вставился в ячейки - без каких-либо прочих действий.
так вставьте через PQ
Код
 Csv.Document(File.Contents("C:\Users\Администратор\Downloads\1.txt"),[Delimiter=":", Encoding=65001]) 

А про перекодировку файла было тут: на этом форуме

Изменено: tutochkin - 24.08.2025 15:05:19
Проверка ячейки на дату методом VBA
 
astepaa, так проверить принадлежность...
Код
Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A10000")) Is Nothing Then
    Dim Cell
    Cell = Target.Value
    If IsDate(Cell) Then
        If Replace(Cell, "/", ".") = Format(Cell, "dd/mm/yyyy") Then
            Exit Sub
        End If
    End If
    MsgBox "Неверная дата" & Cell
End If
End Sub
Код VBA неправильно считает данные
 
Цитата
написал:
чтобы группировки и разделы не пересекались датами
Извините, но у вас такого быть не может. Прям первые две строки - имеют одинаковые/пересекающиеся диапазоны дат, но разные группировки.
ДР (новая), С ДНËМ РОЖДЕНИЯ
 
Спасибо :) Приложу все усилия, чтоб это лучшее самое наступило.
Аппроксимация экспериментальных данных функциями с тремя параметрами (коэффициентами)
 
Это уже давным давно выкладывал тут https://www.planetaexcel.ru/forum/?PAGE_NAME=read&FID=5&TID=152989&TITLE_SEO...
Ан нет, не прав. С поиском свободного коэф-та не делал. Ну кроме полиномных и им подобных естественно...
Впрочем при необходимости я бы это реализовал через модуль "Поиск решения".
Изменено: tutochkin - 29.07.2025 21:41:39
Макросом менять точку на запятую
 
sokol92, маленькое дополнение.
Т.к. основную боль доставляют не просто пробелы пробелы, а неразрывные пробелы, сжатые пробелы и т.д. то вместо
Код
Selection.Replace " ", "", xlPart
я бы использовал UDF типа такой (не претендую на оптимальность).
Код
Function DataPrep(str As String) As String
Dim ch As String, i As Long
For i = 1 To Len(str)
    ch = Mid(str, i, 1)
    If ch = "." Then DataPrep = DataPrep & ","
    If ch Like "[,0-9]" Then DataPrep = DataPrep & ch
Next i
End Function
Яндекс-таблица, Суммирование ячеек по цвету
 
Яндекс таблицы это Р7 или OnlyOffice. Ищите решение в соответствующих форумах. Попробуйте в телеграм канале https://t.me/r7_js
Построение многоугольника по координатам, Есть точки (от 3 до 500 штук) с определенными координатами X и Y. Нужно по ним построить многоугольник.
 
aslanbek75, если вам нужно в масштабах, то это к Автокаду и им подобным программам.
Построение многоугольника по координатам, Есть точки (от 3 до 500 штук) с определенными координатами X и Y. Нужно по ним построить многоугольник.
 
А в чём вопрос то? Решается обычнвм точечным графиком...  
Нужно разработать алгоритм ротации товаров между торговыми точками для оптимизации закупок и оборачиваемости товаров
 
дел...
Изменено: tutochkin - 28.06.2025 15:36:06
Диаграмма "Таблица" в excel, Помогите найти замену отсутствующей в excel диаграмме "таблица"
 
Цитата
Нужно каким-то образом в дэшборде разместить таблицу с данными.
Чтобы разместить таблицу внутри графика нужно вставить её как привязанный рисунок.
Цитата
она не устраивает из-за большого объёма данных
А вот это уже Ваши проблемы с выбором что нужно вставить, а что не нужно. Стотыщьмиллионов ячеек в маленький график не влезут
Цитата
В скирншоте лучше исправления делать через фотошоп. Тут форум по Excel
Поддерживаю.
Удаление текста до и после символа одновременно, Нужно оставить часть текста до и после определённого символа
 
кмк, если "данных много" и они в csv, то смотреть надо в сторону PQ... так и так загружать.
Определение промежуточных данных, Апроксимация, интерполяция и тому подобные шалости с табличными данными.
 
Интересный, с моей точки зрения, вид номограмм. Номограммы с переломом. Т.е. есть некая функциональная зависимость места резкого изменения характеристики. В качестве примера - простой вариант

если искать решение как для обычных номограмм, а именно взять значения до и после и решить через пропорцию, то результат будет ошибочным.
Например требуется построить (узнать значение) для Х2 = 3. (изначально заданы кривые при Х2 = 2, 4, 6, 8).
Найдём точку при Х1=10 Х2=3. Искомое между Х2=2 и Х2=4. Здесь и далее для упрощения кусочно линейно интерполирую.
Х1=10 Х2=2 => Y = 9
Х1=10 Х2=4 => Y = 6.33 (общий наклонный участок)
Через пропорцию  Х1=10 Х2=3 => Y = 7.66
Просчитывая другие точки получаем линию Х2 = 3 (красный пунктир)

Очевидно что решение не верное-кривая Х2 = 3 должна отходить от общей линии начиная с Х1 = 10.5. Верные значения начинаются для значений с Х1=12, т е. с момента начала отхода кривой Х2=4 от общей линии.
Для устранения этого казуса можно разбить номограмму на две: общий участок и отходящие

затем для каждой из частей ищем решение (строим две кривые для искомого Х2)

И результат будет максимум (в данном случае вогнутого вида номограммы) из двух решений


В качестве примера привёл простой вариант. Существуют более сложные зависимости, которые так же нельзя решать простым способом. В частности эта особенность номограмм характеристик эжекторов и не только.
Автоматизацию создания макросов для Г-образных номограмм показывал тут https://rutube.ru/video/280dd5afa3efab15d7f6d0ca4f9fef46/?r=wd
Построить диаграмму по одному столбцу, а подписать значениями из другого столбца.
 
Kotyn, https://www.planetaexcel.ru/techniques/4/40197/ 3-й вариант построения - выглядит так же как встроенная воронка, а функционал выше.
Построить диаграмму по одному столбцу, а подписать значениями из другого столбца.
 
Kotyn, Для такого тапа номограмм (тип воронка) скорее всего не выйдет. Применяйте тип линейчатой номограммы - там можно брать значения из сторонних ячеек
Вычислить формулу из цифр и букв, Преобразовать цифры и буквы в формулу и вычислить результат
 
Ну я бы писал что то вроде такой UDF -ки...
Код
Public Function pos4itat(txt As String) As Variant
Dim rez As String:  rez = ""
Dim i As Long
On Error GoTo ErrHandl
For i = 1 To Len(txt)
    simv = Mid(txt, i, 1)
    If simv Like "[0-9,x,х,.,*,chr(44)]" Then
        If simv = "х" Or simv = "x" Then simv = "*"
        If simv = "," Then simv = "."
        rez = rez & simv
    End If
Next i
pos4itat = Evaluate(rez): Exit Function
ErrHandl: pos4itat = "Ошибка исходных данных."
End Function
Изменено: tutochkin - 10.05.2025 13:55:14 (х и x это две разные х... :))
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 29 След.
Наверх