8 lines
154 B
QBasic
8 lines
154 B
QBasic
Attribute VB_Name = "ReadStockCode"
|
|
Option Explicit
|
|
|
|
Function run(row as integer)
|
|
run = Worksheets("Sheet1").Range("A" & CStr(row)).Value
|
|
|
|
End Function
|