Excel VBA: вызов процедуры Sub после выполнения функции

Question

В myFunction я хочу создать журнал на листе с аргументами функции и временем последнего выполнения.

Мой код выглядит так:

Function myFunction(arg1, arg2 As String) 

    //code here 

    Sheets("Sheet1").Range("A1") = arg1 
    Sheets("Sheet1").Range("B1") = arg2 
    Sheets("Sheet1").Range("C1") = datetime.Now 

End Function 

Эта функция не работает с последними 3-х строк (это не иначе).

Я также попытался создать отдельный модуль для выполнения этой задачи:

Function myFunction(arg1, arg2 As String) 

     //code here 

    Call myLog(arg1,arg2) 

    End Function 

Но он не работает ни

Public Sub myLog(arg1,arg2) 
    Sheets("Sheet1").Range("A1") = arg1 
    Sheets("Sheet1").Range("B1") = arg2 
    Sheets("Sheet1").Range("C1") = datetime.Now 
End Sub 

Заранее спасибо за помощь!

Answer 1

«Он просто возвращает ошибку #VALUE !, когда Я ввожу функцию в ячейку».

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

Вот некоторые ссылки, которые могут быть полезны:

Making Excel functions affect 'other' cells

VBA - Update Other Cells via User-Defined Function

http://www.vbforums.com/showthread.php?508759-Counting-Particular-Letter-Occurrences-in-a-String