選択セルに今日の日付を入力表示形式をYY/MM/DD (AAA)に LIbreOfficeCalcBasic

選択セルに今日の日付を入力表示形式をYY/MM/DD (AAA)に設定する実験

• Ctrl + ; で入力すると日時なので日付だけ入力する
• 表示形式をユーザー定義　YY/MM/DD (AAA)　14/06/01 (日)　にする

 

Sub DateInsert2()
'選択セルに今日の日付を入力し表示形式をY/MM/DD(AAA)にする
'Y/MM/DD(AAA)はユーザー定義表示形式　大文字で記入
'ユーザー定義表示形式は設定したBook（Componentのみ）
'マクロの保存先　マイマクロ
'参考サイト　ttp://blog.livedoor.jp/addinbox/archives/51232349.html

    Dim NumberFormats As Object
    Dim NumberFormatId As Long
    Dim LocalSettings As New com.sun.star.lang.Locale        '言語設定
   
'選択セルに今日の日付を入力（シリアル値）        '
    ThisComponent.CurrentSelection.Value=Date
   
'ユーザー定義表示形式　YY/MM/DD(AAA)
    NumberFormats = ThisComponent.NumberFormats
    NumberFormatId = NumberFormats.queryKey("YY/MM/DD (AAA)", LocalSettings, True)
        If NumberFormatId = -1 Then
               NumberFormatId = NumberFormats.addNew("YY/MM/DD (AAA)", LocalSettings)    '書式コードを追加
        End If
    'Print NumberFormatId '数値
    ThisComponent.CurrentSelection.NumberFormat = NumberFormatId
       
End Sub

 

タグ：日付入力