17 lines
358 B
QBasic
17 lines
358 B
QBasic
Attribute VB_Name = "WriteShortSellingAmountRatio"
|
|
Option Explicit
|
|
|
|
Function run(row as integer, content as string)
|
|
On Error GoTo eh
|
|
Worksheets(TARGET_SHEET).Range(COL_SHORT_SELLING_AMOUNT_RATIO_ & CStr(row)).Value = content
|
|
|
|
Done:
|
|
exit Function
|
|
|
|
eh:
|
|
debug.print "WriteShortSellingAmountRatio"
|
|
debug.print row
|
|
debug.print content
|
|
|
|
End Function
|