セルをyyyy/mm/ddにするマクロ

OpenOffice 3.4.1で都度yyyy/mm/ddにするのを、プルダウンメニューから、

書式/セル/数/

　　　　　　分類/日付

　　　　　　書式/1999/12/31 13:37

　　　　　　　　書式コード/yyyy/mm/dd

とするのは煩雑ですので、マクロを使ってみようと思いました。

自分では構文を書けませんから、例によって、ツール/マクロ/マクロの記録 です。

そうしたところ、以下のコードが生成されました。

そのまま張り付けると、動作にエラーがでるかもしれませんから、preタグで囲ってあります。

REM  *****  BASIC  *****

Sub Main

End Sub


sub hiduke_m
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "NumberFormatValue"
args1(0).Value = 36

dispatcher.executeDispatch(document, ".uno:NumberFormatValue", "", 0, args1())


end sub

これで私の使っているマクロは、五つになりました。いずれもツールバーに埋め込んで

すぐに使えるようにしています。

このうち、5の機能を一番使いますね。

1. 入力した日付をyyyy/mm/ddにする。
2. 選択した列の巾を50ミリにする。
3. 数字として認識し、3桁ごとにコンマを入れる。
4. グラフを反転する。
5. すべてのセルを選択し、上下左右にセンタリングして指定のフォントにする。

ページトップに戻る↑　　　　　　　　　　　　　　　　　　　　　　　　　　　ページ一番下へ↓