Calc : VBA100本ノックもどき　07

VBA100本ノックの7番をCalcで解いてみる

100＿07：　日付表示
1. データの最終行を取得する
2. A列の文字列を取得する

100＿07：　日付表示

問題は：

#VBA100本ノック 7本目
A列は文字列データ（表示形式が文字列）で日付が入っています。
日付とみなされる場合はB列に月末日付をmmddの形式で出力してください。
日付け以外の場合は空欄にしてください。
例.B2は「0930」と出力する。
※何をもって日付とみなすかも含めて考えてください。

データの最終行を取得する

ネットでの拾いものです。

Sub lastCellNum()
       Dim objSheet As Object
       Dim objRange As Object
       Dim objCursor As Object
       objSheet = ThisComponent.CurrentController.Activesheet
       objRange = objSheet.getCellRangeByName("A1")
       objCursor = objSheet.createCursorByRange(objRange)
       objCursor.gotoEndOfUsedArea(True)
       Msgbox("最終行 : " & objCursor.Rows.Count & Chr$(13) & _
                      "最終列 : " & objcursor.Columns.Count)
End Sub