Advertisement
justyb11

Simple Example 01

Sep 3rd, 2017
1,081
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. REM  *****  BASIC  *****
  2.  
  3. Sub Main
  4.  
  5.     Dim oWrkBk    as Object
  6.     Dim oSelRng   as Object
  7.    
  8.     oWrkBk   = ThisComponent
  9.    
  10.     oSelRng  = oWrkBk.getCurrentSelection().getRangeAddress()
  11.    
  12.     With oSelRng
  13.         MsgBox "ROW RANGE IS " & .StartRow    & " - " & .EndRow
  14.         MsgBox "COL RANGE IS " & .StartColumn & " - " & .EndColumn
  15.     End With
  16.  
  17. End Sub
Advertisement
RAW Paste Data Copied
Advertisement