Excel - Лучший способ изобразить изменение в виде графика ячейки как функция изменения другой ячейки

Чтобы сделать это программно, необходимо сделать три вещи:

  1. Получают путь папки с закрытым ключом.

  2. Получают имя файла закрытого ключа в той папке.

  3. Добавляют разрешение к тому файлу.

Видят это сообщение для некоторого примера кода, который делает все три (конкретно смотрят на метод "AddAccessToCertificate").

8
задан johnw188 9 October 2009 в 12:50
поделиться

3 ответа

Вы захотите использовать один из инструментов анализа «что, если», в частности, таблицы данных или сценарии, в зависимости от количества входных переменных:

Анализ «что, если» в целом:

https://support.office.com/en-us/article/Introduction-to-what-if-analysis-22BFFA5F-E891-4ACC-BF7A-E4645C446FB4

Таблицы данных, вероятно, лучший выбор, если вы имеют 1 или 2 входные переменные:

https://support.office.com/en-us/article/calculate-multiple-results-by-using-a-data-table-e95e2487-6ca6-4413-ad12- 77542a5ea50b

8
ответ дан 5 December 2019 в 14:04
поделиться

This is not going to be what you want to hear but I had a similarly complicated function which I had developed over a period of time and I wanted to graph it. I never did figure out how to and eventually came to the realisation that I needed to upgrade my tools. I switched to Matlab and never looked back.

I'll be following this question with interest. I am curious to see if there is a way.

0
ответ дан 5 December 2019 в 14:04
поделиться

Если вы в порядке с использованием VBA, простое решение может быть (ALT + F11, чтобы войти в редактор, затем вставить модуль)

Sub GenerateData()
    Dim curDataPt As Long, curVal As Long
    Dim rngOut As Range, rngIn As Range, rngData As Range, rngVar As Range

    '*** SET VALUES HERE ***'
    Const maxVal As Long = 2000000
    Const minVal As Long = 0
    Const stepVal As Long = 1000

    Set rngIn = Sheet1.Range("A1")
    Set rngOut = Sheet1.Range("B1")
    Set rngVar = Sheet1.Range("D1")
    Set rngData = Sheet1.Range("E1")
    '************************'
    For curVal = minVal To maxVal Step stepVal
        curDataPt = curVal / stepVal
        rngIn = curVal
        rngVar.Offset(curDataPt) = curVal
        rngData.Offset(curDataPt) = rngOut
    Next curVal
    Sheet1.Names.Add "DataIn", rngVar.Resize(curDataPt + 1)
    Sheet1.Names.Add "DataOut", rngData.Resize(curDataPt + 1)
End Sub

Это предполагает, что размер вашего резервуара для хранения в A1 на листе 1, а общая экономия - в B1. Sheet1 в коде - это кодовое имя для объекта листа. Посмотрите на панель проводника проекта в окне редактора VB, чтобы убедиться, что это правильно.

Способ использовать это - запустить VBA (ALT + F8) для создания набора данных и использовать мастер диаграмм для создания диаграмма. Однако при выборе исходных данных на вкладке рядов введите = Sheet1! DataOut для значений и = Sheet1! DataIn для меток оси категорий (X).

Теперь вы можете играйте с различными значениями минимума / максимума / шага, и диаграмма автоматически обновит ряд данных.

4
ответ дан 5 December 2019 в 14:04
поделиться
Другие вопросы по тегам:

Похожие вопросы: