10-22-2016, 08:38 AM
I attach my approach for any comments :
Function GetSelCellHyperL
Function GetSelCellHyperL
function~
str si.getmacro(getopt(itemid) 1)
str caller.getmacro(getopt(itemid 1) 1);err caller=si
if ideb; min 0; err out "<>%s : <open ''%s /%i''>%s</open> - Called by : <open>%s</open>%s" NowT si _error.place si caller
ExcelSheet es.Init
int nr nc r1 c1
es.GetSelectedRange(nr nc r1 c1)
err
,_s=_error.description
,out "<>%s : <open ''%s /%i''>%s</open> - %s" NowT si _error.place si _s
,mac "Warning_QM" si
,end
str s
s=es.Cell(c1 r1 5)
err
,_s=_error.description
,out "<>%s : <open ''%s /%i''>%s</open> - %s" NowT si _error.place si _s
,mac "Warning_QM" si
,end
;out s
ret s