18 lines
336 B
QBasic
18 lines
336 B
QBasic
Attribute VB_Name = "WriteEarningsPerShare"
|
|
Option Explicit
|
|
|
|
Function run(row As Integer, content As String)
|
|
On Error GoTo eh
|
|
Worksheets(TARGET_SHEET).Range(COL_EARNINGS_PER_SHARE & CStr(row)).Value = content
|
|
|
|
Done:
|
|
Exit Function
|
|
|
|
eh:
|
|
Debug.Print "WriteEarningsPerShare"
|
|
Debug.Print row
|
|
Debug.Print content
|
|
|
|
End Function
|
|
|