Заменить Ctrl + Alt + Enter на Enter - PullRequest
Новая
       12

Заменить Ctrl + Alt + Enter на Enter

0 голосов
/ 07 сентября 2018

Я новичок в VBA, и мне хотелось бы, когда я нажимаю "Enter", чтобы поместить формулу в формулу массива.

Итак, я поместил этот код в модуль: 

    Sub matrix()
    Dim mySheet As Worksheet
    Dim myWorkBook As Workbook
    Set myWorkBook = Excel.ActiveWorkbook
    Set mySheet = myWorkBook.ActiveSheet
    Selection.FormulaArray = 
    Selection.Formula

    End Sub

А потом в ThisWoorkbook код: 

Private Sub enter()
Application.OnKey "~", "matrix"
End Sub

Но когда я нажимаю "ввод" в формуле, она не помещается в формулу массива.

Ты знаешь почему?

Спасибо за вашу помощь,

Cabouse

...