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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 32 След.
Определение температуры мокрого термометра
 
До кучи - ЮДФ.
[сегодня юбилей публикации 1-го сообщения темы: ровно 1 месяц и 2 дня]
Изменяемый максимум и минимум шкалы диаграммы
 
Ой, лишнее (скопипастил).
В процедуре События_рабочего_листа ссылка на Этот_лист не нужна
Set wsPivot = ThisWorkbook.Worksheets("сводная")
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim objAxis As Axis
    '
    Set objAxis = Charts("Диаграмма1").Axes(xlCategory)
    If Not Intersect(Target, Range("B14")) Is Nothing Then
        objAxis.MinimumScale = Range("B14").Value
    End If
    If Not Intersect(Target, Range("B16")) Is Nothing Then
        objAxis.MaximumScale = Range("B16").Value
    End If
End Sub
Изменяемый максимум и минимум шкалы диаграммы
 
Цитата
temp_nov написал:
Благодаря информации форума и ChatGPT
Вперёд в прошлое:
Построение касательной к графику, сплайновая интерполяция, производная функции, аппроксимация, касательная
 
Воть:
Преобразовать горизонтальную таблицу в построчную, Преобразовать горизонтальную таблицу в построчную
 
Ой, а у меня строка:
ReDim Xs(RCnt), Ys(RCnt)
лишняя - можно удалить.
Преобразовать горизонтальную таблицу в построчную, Преобразовать горизонтальную таблицу в построчную
 
Мой вариант макроса:
Код
Option Explicit
Option Base 1

Sub Test1()
    Dim Rng As Range
    Dim T1(), T2(), X, Y, H
    Dim XColl As New Collection, YColl As New Collection
    Dim RCnt As Long, N As Long, M As Long, J As Long, K As Long, L As Long
    '
    Set Rng = [B5]
    '
    H = Rng.Value
    Set Rng = Rng.CurrentRegion
    RCnt = Rng.Rows.Count - 1
    T1 = Rng.Offset(1).Resize(RCnt, 3).Value
    ReDim Xs(RCnt), Ys(RCnt)
    On Error Resume Next
    For K = 1 To RCnt
        XColl.Add T1(K, 1), CStr(T1(K, 1))
        YColl.Add T1(K, 2), CStr(T1(K, 2))
    Next
    On Error GoTo 0
    N = XColl.Count
    M = YColl.Count
    ReDim T2(N + 1, M + 1)
    T2(1, 1) = H
    For Each X In XColl
        L = L + 1: T2(L + 1, 1) = X
        J = 0
        For Each Y In YColl
            J = J + 1: T2(1, J + 1) = Y
            For K = 1 To RCnt
                If T1(K, 1) = X And T1(K, 2) = Y Then
                    T2(L + 1, J + 1) = T1(K, 3): Exit For
                End If
            Next
        Next
    Next
    '
    Set Rng = [W12]
    '
    With Rng.CurrentRegion
        .ClearContents
        .Resize(N + 1, M + 1).Value = T2
    End With
End Sub
ias, зачем Вам промежуточная ? забудьте о ней.
Преобразовать горизонтальную таблицу в построчную, Преобразовать горизонтальную таблицу в построчную
 
Цитата
ias написал:
Думаю, может вообще через SQL
ias, а макрос не подойдёт ?
Получить индекс элемента коллекции по ключу этого элемента
 
Цитата
Евгений Смирнов #1 написал:
поясню цель. Необходимо заменить элемент коллекции без изменения структуры коллекции (порядка в коллекции)
На чистом VBA, по принципу: шило_на_мыло, мыло_на_шило:
Код
Sub ReplaceItem(Key As String, NewItem, Coll As Collection)
    Const TempKey As String = "TempKey.KeyTemp.TempKey"
    With Coll
        .Add NewItem, TempKey, Key
        .Remove Key
        .Add NewItem, Key, TempKey
        .Remove TempKey
    End With
End Sub

Sub Test123()
    Dim Coll As New Collection
    With Coll
        .Add "Item1", "Key1"
        .Add "Item2", "Key2"
        .Add "Item3", "Key3"
        '
        Debug.Print "-----------"
        Debug.Print .Item("Key1")
        Debug.Print .Item("Key2")
        Debug.Print .Item("Key3")
        '
        ReplaceItem "Key2", "Item100", Coll
        '
        Debug.Print "-----------"
        Debug.Print .Item("Key1")
        Debug.Print .Item("Key2")
        Debug.Print .Item("Key3")
    End With
End Sub
Превращение Excel в блокнот, заполнение бланка по букве
 
Воть:
Превращение Excel в блокнот, заполнение бланка по букве
 
Дык, в файле 'бланкирадиограмм.123.xlsb' и не было никаких окон.
Хотелка:
Цитата
Валерий Н #35 написал:
Печатные листы я имел ввиду чтобы просто добавлялись строки, а не листы эксель
Превращение Excel в блокнот, заполнение бланка по букве
 
Цитата
Валерий Н #35 написал:
Был в бане
Ой, с лёгким паром !
Цитата
Валерий Н #37 написал:
Как вернуть
Валерий Н, а сейчас Вы о чём ?
Превращение Excel в блокнот, заполнение бланка по букве
 
Наверное так:
Превращение Excel в блокнот, заполнение бланка по букве
 
Как-то так.
Цитата
WaleryN #28 написал:
а можно создавать новые листы письма без заголовка?
Можно - просто копированием (сняв защиту листа (она без пароля)) и подчистив.

Шапка и "валенки" (где 'подпись') заполняются в ячейках на листе,
а центр бланка - в тексбоксе, нажав на одну из кнопок (2 шт.) или хоткеем Ctrl + Enter,
закрывается текстбокс крестиком или Enter.
Плюс - текстбокс заполняется шустро.
Минус - нельзя сделать встаку/удаление в середине тексбоксовой строки
(как в VB-массивах - можно только наращивать или укорачивать хвост (причём только последний)).

Пока сделано только для "входящих" бланков.
А, защита листа - чтобы Tab'ами переходить на нужные ячейки-поля.
Изменено: С.М. - 02.12.2023 18:36:37
Превращение Excel в блокнот, заполнение бланка по букве
 
WaleryN, тогда уж уточните:
что такое "листы письма без заголовка" ? без заполненых полей (полужирный шрифт) ?
(а лучше, ещё раз скинте файл с экземпляром/ми этого пустого бланка/ков)
Входящие и Исходящие в одной книге или в разных ?
В книге будут листы только с такими бланками ?
Превращение Excel в блокнот, заполнение бланка по букве
 
Проискианглосакцев  :)  
Превращение Excel в блокнот, заполнение бланка по букве
 
Цитата
WaleryN написал:
ругается
Уууу, хулиган !
Превращение Excel в блокнот, заполнение бланка по букве
 
"... и какие-то чемоданы" ©
Цитата
WaleryN написал:
нужно продолжение на странице два, три и т.д.
Воть:
Превращение Excel в блокнот, заполнение бланка по букве
 
Цитата
testuser #11 написал:
отслеживать нажатия лучше в текстбоксе
Жмём на листе кнопку 'Кнопка':
Динамический массив. Как вывести только 1 колонку?
 
Цитата
AlienSx написал:
но вот вытащить все строки из нескольких столбцов, не указывая номера строк
А если так
=ВЫБОР({1;2};ИНДЕКС(Массив;0;2);ИНДЕКС(Массив;0;4))
?
Выбор формулы расчета в зависимости от двух критериях, При нахождении определенных критериев в соседних столбцах подставлять определенную формулу из списка
 
p_vah, если Ваши формулы для типов работ верны, то после алгебраических пробразований,
увидим что они зависят от затрат этапа, и НЕ зависят от продолжительности
(точнее - продолжительность выносится за скобки).
Обозначим Затраты1 - C1, Затраты2 - C2  (и т.д.), а продолжительность буквой P:
T1 = C1*P + C3/C2 - C4*P;    T3-->    T1 = (C1* + C4/C2 - C4)*P
T2 = C1*P + C5/C2 - C4*P;    T5-->    T2 = (C1* + C1/C2 - C4)*P
T3 = C4*P;                                           T3 = C4*P
T4 = C4*P - C5;                      T5-->     T4 = (C4 - C1)*P
T5 = C1*P;                                            T5 = C1*P
Следовательно, таблицу T/P можно локализовать, например на листе 'Ish',
а потом значения T/P умножить на P на листе 'Rab'.
Какой формулой можно удалить повторы в динамическом выпадающем списке, если в исх табл их трогать нельзя
 
Ещё (если нет 365-го Офиса) динамический выпадающий_список - уникальных из столбца умной_таблицы,
можно сделать с помощью сводной_таблицы (см. столбец A на листе 'for list').
Минус этого способа - лишнее телодвижение: после добавления строк в основную таблицу,
нужно нажать кнопку 'Обновить'.
Какой формулой можно удалить повторы в динамическом выпадающем списке, если в исх табл их трогать нельзя
 
Максим В., в Вашем файле "умная таблица"  на Лист1 "преобразовалась" в диапазон, потому и "выпадающий список не обновляется (с)"
Поиск решений с "пробегом" по выпадающему списку
 
Цитата
Полина Полина написал:
все гораздо проще было
В смысле
Цитата
Полина Полина написал:
тут массивы наверное нужны
?
Изменено: С.М. - 10.03.2023 13:43:26
Поиск решений с "пробегом" по выпадающему списку
 
С международным днём [трудящихся [в Excel]] женщин !
Изменено: С.М. - 10.03.2023 13:41:08
Решение системы уровнений, В каком направлении капать, чтобы система решалась посредством экселя
 
Цитата
написал:
Спасибо за файлики
Ещё:
Автоматическое нахождение точки пересечения графиков
 
А, забыл,
всех с праздником Народного Единства !
Автоматическое нахождение точки пересечения графиков
 
Цитата
БМВ написал:
что дает не понятно
Не нравится - не берите ©
Автоматическое нахождение точки пересечения графиков
 
Цитата
tutochkin написал:
что даёт?
tutochkin, а Вы в Locals Windows, пошагово, посмотрите что происходит.
Автоматическое нахождение точки пересечения графиков
 
Без аппроксимации полиномом, только интерполяция, линейная (-кусочно).
Но без макросов (ЮДФ) - у меня не получается:
Замедление работы при реализации именованной формулы функцией ДВССЫЛ
 
Цитата
БМВ написал:
В данном случае я согласен с ТС
Не, "мне [просто] за державу [MS*] обидно" ©  :)
-------------------------------
* В диалоге Создание_имени Диспетчера имён, в списке Область
от далёких предков Эксель остался атавизм: приоритет Область - Книга,
что (имхо) нерационально (юзер не заморачиватся прокруткой списка).
Изменено: С.М. - 22.10.2021 13:50:11
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 32 След.
Наверх