LibreOffice Calc Basic シート名（１月−１２月）のシートを挿入するマクロの実験

LibreOffice Calc Basic シート名（１月−１２月）のシートを挿入するマクロの実験

 

 Sub insert_newSheet()
'新規シートの挿入、1月ー12月のシート名で挿入する
'insertNewByName( シート名 , 挿入する位置 )
'

    'シートを先頭(値０)から挿入するので12月からで
    For i=12 To 1 Step -1
        newSheetName= i & "月"
        '同じシート名が有るかチェック
        If ThisComponent.Sheets().hasByName( newSheetName ) Then
                GoTo Loopi
            else
                Thiscomponent.sheets().insertNewByName( newSheetName, 0 )  
        End if 
Loopi:
    Next i    
   
End Sub