Документация

Если уже нет подарка модуля под Модулями, щелкните правой кнопкой по элементу VBAProject по окну проекта и выберите Insert> Module.

Новый модуль появляется под Модулями в Проекте VBA.

В странице свойств модуля измените Name свойство от Module1 к FourierMain. Вы, возможно, должны показать окно свойств путем нажатия F4.

Введите следующий код в FourierMain модуль и закрывает окно кода.

'
' FourierMain - Main module stores global state of controls
' and provides initialization code
'
Public theFourier As Fourier.Fourier 'Global instance of Fourier object
Public theFFTData As MWComplex   'Global instance of MWComplex to accept FFT
Public InputData As Range        'Input data range
Public Interval As Double        'Sampling interval
Public Frequency As Range        'Output frequency data range
Public PowerSpect As Range       'Output power spectral density range
Public bPlot As Boolean          'Holds the state of plot flag
Public theUtil As MWUtil         'Global instance of MWUtil object
Public bInitialized As Boolean   'Module-is-initialized flag

Private Sub LoadFourier()
'Initializes globals and Loads the Spectral Analysis form
    Dim MainForm As frmFourier
    On Error GoTo Handle_Error
    Call InitApp
    Set MainForm = New frmFourier
    Call MainForm.Show
    Exit Sub
Handle_Error:
    MsgBox (Err.Description)
End Sub

Private Sub InitApp()
'Initializes classes and libraries. Executes once
'for a given session of Excel
    If bInitialized Then Exit Sub
    On Error GoTo Handle_Error
    If theUtil Is Nothing Then
        Set theUtil = New MWUtil
        Call theUtil.MWInitApplication(Application)
    End If
    If theFourier Is Nothing Then
        Set theFourier = New Fourier.Fourier
    End If
    If theFFTData Is Nothing Then
        Set theFFTData = New MWComplex
    End If
    bInitialized = True
    Exit Sub
Handle_Error:
    MsgBox (Err.Description)
End Sub

Щелкните правой кнопкой по VBAProject по окну проекта VBA и выберите Insert и затем UserForm.

Новая форма появляется под Forms в окне проекта VBA.

В странице свойств формы, набор Name свойство к frmFourier и Caption свойство к Spectral Analysis.

Добавьте следующие средства управления в незаполненный бланк:

Ваша форма должна выглядеть похожей на следующее изображение. Текст в полях для вашей ссылки только.

Когда форма и средства управления будут завершены, щелкните правой кнопкой по форме и выберите View code.

Введите следующий код в окне формы кода. Если вы использовали различные имена для каких-либо из средств управления или какой-либо глобальной переменной, измените этот код, чтобы отразить те различия.

Щелкните правой кнопкой по элементу ThisWorkbook по окну проекта VBA и выберите код View.

Поместите следующий код в ThisWorkbook.

Private Sub Workbook_AddinInstall()
'Called when Addin is installed
    Call AddFourierMenuItem
End Sub

Private Sub Workbook_AddinUninstall()
'Called when Addin is uninstalled
    Call RemoveFourierMenuItem
End Sub

Private Sub AddFourierMenuItem()
    Dim ToolsMenu As CommandBarPopup
    Dim NewMenuItem As CommandBarButton
    
    'Remove if already exists
    Call RemoveFourierMenuItem
    'Find Tools menu
    Set ToolsMenu = Application.CommandBars(1).FindControl(ID:=30007)
    If ToolsMenu Is Nothing Then Exit Sub
    'Add Spectral Analysis menu item
    Set NewMenuItem = ToolsMenu.Controls.Add(Type:=msoControlButton)
    NewMenuItem.Caption = "Spectral Analysis..."
    NewMenuItem.OnAction = "LoadFourier"
End Sub

Private Sub RemoveFourierMenuItem() 
Dim CmdBar As CommandBar 
Dim Ctrl As CommandBarControl 
On Error Resume Next 
'Find tools menu and remove Spectral Analysis menu item 
Set CmdBar = Application.CommandBars(1) 
Set Ctrl = CmdBar.FindControl(ID:=30007) 
Call Ctrl.Controls("Spectral Analysis...").Delete 
End Sub

Код добавляет обработчики событий для событий AddinInstall рабочей книги и AddinUninstall та установка и пункты меню удаления. Пункт меню вызывает LoadFourier функция в FourierMain модуль.

Когда вы будете закончены, кликните по значку сохранения или нажмите CTRL + S, чтобы сохранить дополнение.

Запустите новый сеанс Excel с пустой рабочей книгой.

От вкладки Developer выберите Excel Add-Ins.

В диалоговом окне Add-Ins нажмите Browse.

Просмотрите к Fourier.xla и нажмите ОК.

Дополнение Спектрального анализа появляется в доступном списке Дополнений с установленным флажком.

Нажмите ОК, чтобы загрузить дополнение.

Введите 0 в ячейку A1 в текущем рабочем листе.

Нажмите F5 или CTRL +G, чтобы запустить диалоговое окно Go To. Добавьте ссылочный A2:A1001 и нажмите OK, чтобы выбрать ячейки.

Введите формулу = A1 + 0.01, затем нажмите CTRL +Enter, чтобы применить формулу к выбранным ячейкам.

Эта процедура заполняет область значений A1:A1001 интервалом 0–10 постепенно увеличенных 0,01.

Повторите процедуру Go To, чтобы ввести следующую формулу в каждую ячейку в области значений B1:B1001:

= SIN(2*PI()*15*A1) + SIN(2*PI()*40*A1) + RAND()

Чтобы отобразить Спектральный анализ пользовательский интерфейс, выберите Add-ins> Spectral Analysis.

Кликните по полю Input Data.

Выберите B1:B1001 лежите в диапазоне от рабочего листа или введите эту область значений в поле Input Data.

В поле Sampling Interval введите 0.01.

Выберите сигнал области времени Plot и спектральную плотность мощности.

Введите C1:C1001 для частотного вывода, и аналогично вводят D1:D1001, E1:E1001, и F1:F1001 для действительной части БПФ, мнимой части БПФ и спектральной плотности.

Нажмите ОК, чтобы запустить анализ.