Enterキーを押して、右、下、移動なしの設定をするマクロの実験 LibreOffice Calc Basic

Enterキーを押して、右、下、移動なしの設定をするマクロの実験　LibreOffice Calc Basic

• LIbreOfficeCalcを始めたときからやりたいと思っていた、Enterキーを押して移動方向を設定を変更するマクロ
• 偶然、見つけたのでやってみた(エクセルではマクロの記録でできたが、Calcでは記録をとれなかった）
• 参照サイト
• ttp://hermione.s41.xrea.com/pukiwiki/pukiwiki.php?OOoBasic%2FCalc%2Fsettings 
• 右、左、上、下は説明があったので出来たが、、、無効にする方法が分からなくて試行錯誤の末できた
• 作成したマクロをツールーバーに登録すれば便利、作業効率UP

Sub enterRight()
'Enterキーを押して右移動に設定
Dim oGSheetSettings As Object
  oGSheetSettings =CreateUnoService("com.sun.star.sheet.GlobalSheetSettings")
  oGSheetSettings.MoveDirection = com.sun.star.sheet.MoveDirection.RIGHT
End Sub

Sub enterDown()
'Enterキーを押して下移動に設定
Dim oGSheetSettings As Object
  oGSheetSettings =CreateUnoService("com.sun.star.sheet.GlobalSheetSettings")
  oGSheetSettings.MoveDirection = com.sun.star.sheet.MoveDirection.DOWN
End Sub

Sub enterNOT()
'Enterキーを押して移動なしに設定
Dim oGSheetSettings As Object
  oGSheetSettings =CreateUnoService("com.sun.star.sheet.GlobalSheetSettings")
  oGSheetSettings.MoveDirection = not(com.sun.star.sheet.MoveDirection.LEFT)
End Sub

 

追記

Excel VBA では

Sub enter_Right()
' enter_Right Macro
' マクロ記録日 : 2014/5/16  ユーザー名 : telstar
'
    Application.MoveAfterReturn = True
    Application.MoveAfterReturnDirection = xlToRight
End Sub
Sub enter_Down()
'
' enter_Down Macro
' マクロ記録日 : 2014/5/16  ユーザー名 : telstar
'
    Application.MoveAfterReturn = True
    Application.MoveAfterReturnDirection = xlDown
End Sub
Sub enter_non()
' Enter Move Non
' enter_non Macro
' マクロ記録日 : 2014/5/16  ユーザー名 : telstar
'
    Application.MoveAfterReturn = False
End Sub

 

コメント 10

Cephalexin Dosage Adult Female <a href=https://buyciallisonline.com/#>Buy Cialis</a> Comment Durer Plus Longtemps Hommes <a href=https://buyciallisonline.com/#>cialis dosage</a> Buy Acyclovir Cream Over The Counter
by Janinsessy (2020-05-03 04:29) 

LibreOfficeでの凄いマクロ群ですね。

特に本件は
当方が現在ヤフー知恵袋で質問投稿している件に関係する
かも知れないと探してヒットしました。
https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q12236647152

その案件では H列のデータ入力,右方向キー(→)を入力Endとして
使うと、A列にポジショニングされずに→が生きててB列にポジショニングされてしまうことが問題です。それを解決するため、貴兄の本テクニックで特定列（H列）に来た時に「Enter」ではなく「→」を無効化することへの応用は可能なのでしょうか？



by sunshellsaloha (2021-01-05 10:37) 

<a href="https://genericcialisbob.com/#">cialis pill</a>
by TartinExody (2021-02-10 11:31) 

<a href="https://genericcialisbob.com/#">cialis reviews</a>
by TartinExody (2021-02-11 08:36) 

chloroquinr <a href=https://chloroquineorigin.com/#>buy aralen</a> chloroquinolone
by dolquine (2021-02-24 06:39) 

hydroxyl chloroquine <a href="https://hydroxychloroquinex.com/#">hydroxychloroquine coronavirus</a> hydroxychloroquine dangers
by chloroquine phosphate generic name (2021-06-12 00:33) 

hydrochlorazine https://plaquenilx.com/# hydrochloraquin
by hydroxychoriquin (2021-07-18 01:42) 

heart rate watch walmart https://chloroquineorigin.com/# how do i get hydroxychloroquine
by hydroxychloroquine tablet (2021-07-18 16:50) 

<a href="https://cialiswithdapoxetine.com/#">cialis pills</a> cheap cialis

by cialis 20mg (2021-10-25 18:04) 

cialis tablets <a href="https://cialiswithdapoxetine.com/#">buy cialis online</a>

by cialis price (2021-12-21 00:56)