column=columnname
row+1=number
Code: Select all
function fActiveCell(optional vChangeColOrRow) as object
oActiveSheet=ThisComponent.CurrentController.ActiveSheet
vViewData=ThisComponent.CurrentController.viewData
vViewData=join(split(vViewData,";"),"/") 'replace ; with /
vViewData=join(split(vViewData,":"),"/") 'replace : with /
vViewData=join(split(vViewData,"+"),"/") 'replace + with /
vViewData=split(vViewData,"/") 'split the string
iCol=val(vViewData(6))
iRow=val(vViewData(7))
if not isError(vChangeColOrRow) then 'change row or column
if isNumeric(vChangeColOrRow) then 'change row
iRow=int(val(vChangeColOrRow))
else 'change column
for iCol=0 to 999
if oActiveSheet.GetCellByPosition(iCol,0).String=vChangeColOrRow then exit for
if oActiveSheet.GetCellByPosition(iCol,0).String="" then 'Column-label not found
msgbox "Column-name " & chr(34) & vChangeColOrRow & chr(34) & " is not found !!!"
exit function
endif
next
endif
endif
fActiveCell=oActiveSheet.GetCellByPosition(iCol,iRow)
end function