Excel (Office 365) автоматически перезагружается при выполнении UDF - PullRequest
Новая
       64

Excel (Office 365) автоматически перезагружается при выполнении UDF

0 голосов
/ 08 октября 2018

Заранее благодарен за вашу помощь.

Я не уверен, где проблема в моем UDF, но Excel перезапускается автоматически после выполнения программы, а также дважды показывает MsxBox со справочным значением. 

    Public queryString As String
    Public Function SetIt(RefCell) As String
    On Error GoTo CatchBlock
        MsgBox RefCell.Value
        queryString = RefCell.Value
        RefCell.Parent.Evaluate "SetValue(" & RefCell.Address(False, False) & ")"
        GoTo Finally
    CatchBlock:
            MsgBox "Error " & Err.Number & ": " & Err.Description, vbCritical, "Error in Function"
    Finally:
        SetIt = ""
    End Function

// For now I am trying to set the cell reference value in some other cell.

    Sub SetValue(RefCell As Range)
       RefCell.Offset(1, 1).Value = queryString
    End Sub

Я все еще новичок и мне нужно выполнить еще одну большую задачу, основанную на выполнении этого программного кода.

Пожалуйста, помогите !!

64-разрядная версия Excel & Office 365 - это моя среда

...