Я создал «Мастер сопоставления индексов», используя элементы управления UserForm. Код работает эффективно, однако я не могу использовать ctrl + pgup / pgdn во время работы пользовательской формы. Другие ярлыки недоступны. Требование использовать мышь для перехода на другую вкладку в значительной степени исключает назначение макроса.
Мой код выглядит следующим образом:
Sub UserForm_Initialize()
ListBox1.AddItem "Exact"
ListBox1.AddItem "Approx."
End Sub
Sub CommandButton1_Click()
MatchRangeOne = RefEdit1.Value
MatchRangeTwo = RefEdit2.Value
IndexRange = RefEdit3.Value
If ListBox1.Value = "Approx." Then
ActiveCell.Formula = "=INDEX(" & RefEdit3.Value & ",MATCH(" & RefEdit1.Value & "," & RefEdit2.Value & ",1))"
Else
ActiveCell.Formula = "=INDEX(" & RefEdit3.Value & ",MATCH(" & RefEdit1.Value & "," & RefEdit2.Value & ",0))"
End If
Unload IndexMatchWizardForm
End Sub