SSブログ

LibreOffice Basic (マクロ)を試してみた。Msgboxの実験 [LibreOffice 4.1.1.2]

LibreOffice Basic (マクロ)を試してみた。Msgboxの実験

まだまだ手探り状態なので、取り合えずMsgBoxの「はい」「いいえ」ボタンの戻り値を調べてみた。

Sub msgbox2
Dim modorichi As Integer
modorichi = MsgBox("MsgBoxの実験" & chr(13) & "「はい」「いいえ」の戻り値を調べる" ,4+256+32,"Msgbox2" )
msgbox "押されたボタンの戻り値は " & modorichi & "です。"

End sub

Msgbox2はMsgBoxのタイトルバーに表示する文字
chr(13)は改行 VBAならvbVRLF

「はい」の戻り値   6
「いいえ」の戻り値  7

LibreOfice Msgbox_02.jpg

マクロの実行 ステップオーバー(イン)(1行ずつ実行)Shift+F8

 

参考資料

www.ja-fukuoka.or.jp/pdf/libre/ExceltoCalc.pdf 

 

 

 

 


Excel VBA グリッド線(枠線)表示非表示 [Excel2000 VBA独習]

Excel VBA グリッド線(枠線)表示非表示

g_line_onoff_2.jpgg_line_onoff_3.jpg

 

Sub グリッド線表示非表示()
'
'
If ActiveWindow.DisplayGridlines = False Then ActiveWindow.DisplayGridlines = True _
Else ActiveWindow.DisplayGridlines = False
End Sub

 ActiveWindow.DisplayGridlines = True 表示

 ActiveWindow.DisplayGridlines = False 非表示

 

Excel操作では、オプション→表示→枠線にチェックを入れる、外す

この作業をマクロに記録し改造した。

g_line_onoff.jpg

 

 


この広告は前回の更新から一定期間経過したブログに表示されています。更新すると自動で解除されます。