選択セルに設定されている数式をコメント欄に記入するマクロの実験 LibreOffice Calc Basic

選択セルに設定されている数式をコメント欄に記入するマクロの実験　LibreOffice Calc Basic

• 数式の設定されているセルを選択してマクロ実行すると、コメント欄に数式が記入される
• セルのコメントをMsgBoxで表示
•  

Sub SelectCell_GetAnnotation()
'選択セルのコメントを取得
Dim oSheet As Object
Dim oCell As Object
Dim oAnnotation As Object

'シート
   oSheet = ThisComponent.getCurrentController().activesheet
'選択セルのRow,Column
    oRow=ThisComponent.CurrentController.getSelection().getCellAddress().row
     oColumn=ThisComponent.CurrentController.getSelection().getCellAddress().Column
 'oCell 選択セル設定
     oCell=oSheet.getCellByPosition(oColumn,oRow)
 'コメントの取得
      oAnnotation = oCell.getAnnotation()
          msgbox oAnnotation().string,,"セルに設定されているコメント"
End Sub

Sub SelectCell_SetAnnotation()
'選択セルに設定されている数式をコメント欄に記入
'参考サイト　ttp://hermione.s41.xrea.com/pukiwiki/pukiwiki.php?OOoBasic%2FCalc%2Fannotation

    Dim oDoc As Object, oSheet As Object
    Dim oCell As Object
    Dim oAnnotation As Object
        on error goto errorH
    'シート
           oSheet = ThisComponent.getCurrentController().activesheet
    '選択セルのRow,Column
        oRow=ThisComponent.CurrentController.getSelection().getCellAddress().row
         oColumn=ThisComponent.CurrentController.getSelection().getCellAddress().Column
    'oCell 選択セル設定
         oCell=oSheet.getCellByPosition(oColumn,oRow)
     '選択セルの数式をdへ
         d= oCell.formula
     '選択セルにコメントを記入
         oSheet.getAnnotations().insertNew(oCell.getCellAddress(), d )
     errorH:
End Sub

 

 

タグ：コメント

コメント 4

あなたのコメントをお寄せいただきありがとうございます！あなたのコメントは、ブログ所有者の承認後に公開されます。
by vizag beach photos (2014-03-19 18:28) 

ED治療なら http://ciamall.com/
精力剤を買いたいなら http://cialishot.com/
by ed (2015-04-17 11:46) 

nice
by sarath (2016-04-18 17:50) 

nice info..
by sarath kumar (2016-05-20 15:00)