How do I trigger a VBA macro from within the TR function in Eikon Excel

LarryT

How do I trigger a VBA macro from within the TR function in Eikon Excel

David.Cammish

Following on from Neil's reply, RData(), RHistory() and TR() functions have a MACRO
argument where macros can be run when the function has updated its data. The
macros can be in the code on the Workbook or Sheet object, in a VBA module
contained in the workbook or code in another, separate workbook.

The
Word document attached gives a description and various examples of how
to use the MACRO argument, including file names with gaps
and named ranges.

The
examples and document show RData() and RHistory() and TR() examples. The syntax for the TR function itself is slightly different as the
argument (MACRO) and parameter (myMacroName) are separated by a colon
(:) in Rdata()/RHistory() and by an equality sign (=) in TR().

Thus,
requesting BID and ASK for VOD.L, to run the macro called myMacro1 when
the data updates, the two functions will look like this;
=RData("VOD.L","BID;ASK;PRCTCK_1",,"MACRO:myMacro1","CH:Fd",A2)

=TR("VOD.L","BID;"&"ASK;"&"PRCTCK_1","MACRO=myMacro1 CH=Fd",A2)

It isn't possible to include or send variables with the
macro name when it is defined in the RData(), RHistory() or TR()
function, such as
=RData("VOD.L","BID;ASK;PRCTCK_1",,"MACRO:myMacro1(myVariable)","CH:Fd",A2)

=TR("VOD.L","BID;"&"ASK;"&"PRCTCK_1","MACRO=myMacro1(myVariable) CH=Fd",A2)

What will be required is to run an initial macro, e.g. myMacro1
that gathers or creates the required variable, which then runs a
subroutine, e.g. myMacro2, or a function, e.g. myCustomFunction, to
return the desired result. The code sample below shows this.

Option Explicit

'Called by RData
Sub myMacro1()
    Dim myVar As Variant

    'Using a custom function
    myVar = myCustomFunction(5)
    MsgBox "Result of myCustomFunction" & Chr(13) & myVar

    'Using a subroutine
    Call myMacro2(5)
End Sub

Function myCustomFunction(ByVal var1 As Integer)
    myCustomFunction = var1 * 25
End Function

Private Sub myMacro2(ByVal val1 As Integer)
    MsgBox "Result of myMacro2" & Chr(13) & val1 * 125
End Sub

The zip file attached to this reply contains the Word document and Excel sample file.

rdata-tr-macro-examples.zip