[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[openoffice:10483 ] Re: マクロで (0,0) に ある時刻から分をぬきだそうとすると分 ではなく (9,9) が返ってきます



OOo 2.1 Calc を起動してから A1 で 9:30 とタイプし、それから下記の
コードを実行してみました。

ThisComponent.Sheets(0).getCellByPosition(1, 1).String = TypeName(ThisComponent.Sheets(0).getCellByPosition(0, 0).String)
ThisComponent.Sheets(0).getCellByPosition(1, 2).String = TypeName(ThisComponent.Sheets(0).getCellByPosition(0, 0).Value)

ThisComponent.Sheets(0).getCellByPosition(1, 3).String = Format(ThisComponent.Sheets(0).getCellByPosition(0, 0).String, "MM")
ThisComponent.Sheets(0).getCellByPosition(1, 4).String = Format(ThisComponent.Sheets(0).getCellByPosition(0, 0).String, "nn")

ThisComponent.Sheets(0).getCellByPosition(1, 5).String = Format(ThisComponent.Sheets(0).getCellByPosition(0, 0).Value, "MM")
ThisComponent.Sheets(0).getCellByPosition(1, 6).String = Format(ThisComponent.Sheets(0).getCellByPosition(0, 0).Value, "nn")

ThisComponent.Sheets(0).getCellByPosition(1, 7).Value = Val(Format(ThisComponent.Sheets(0).getCellByPosition(0, 0).String, "MM"))
ThisComponent.Sheets(0).getCellByPosition(1, 8).Value = Val(Format(ThisComponent.Sheets(0).getCellByPosition(0, 0).String, "nn"))

ThisComponent.Sheets(0).getCellByPosition(1, 9).Value = Val(Format(ThisComponent.Sheets(0).getCellByPosition(0, 0).Value, "MM"))
ThisComponent.Sheets(0).getCellByPosition(1, 10).Value = Val(Format(ThisComponent.Sheets(0).getCellByPosition(0, 0).Value, "nn")


9:30
    String
    Double
    9:30
    9:30
    MM
    nn
    9
    9
    0
    0

こんな結果になりました。
という訳で 9 が返ってくるケースは一応ありますね...
(0,0).String で得たものを Format() へ渡して、その結果を Val() に
かけて、宛先の .Value へ代入する場合ですかね。(時刻の時として
認識しているのか、それとも時ではなく単なる文字列データとして処理
しているのか?)
セルの書式設定などの条件が変わると変化するのかな...

-- 
mutsuro.


--[PR]------------------------------------------------------------------
      ■■  freeml大型リニューアルのお知らせ  ■■
現在、会員の皆様から寄せられた貴重なご意見やご要望を参考に鋭意開発中!
 下記より詳細をご確認ください。
        ↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓
        http://click.freeml.com/ad.php?id=115698 
------------------------------------------------------------------[PR]--
■GMO INTERNET GROUP■ GMO INTERNET www.gmo.jp