LibreOffice: 九九の問題を作る (1)

2017.03.282014.04.26

・まずは０～９までの乱数をつくる

● RAND() ：０以上１未満の乱数を出力する。（例：0.0656）

● ROUNDDOWN(数値,桁数) ：数値を指定した桁数に切り捨てて出力する。

ROUNDDOWN(0.0656,0) ==> 0 桁数０が一桁のようです。

・特定のセルの値を取得

Sub Main
	dim oDoc as object
	dim oSheet as object
	dim oCell as object

	oDoc=ThisComponent
	oSheet=oDoc.CurrentController.ActiveSheet
	oCell=oSheet.getCellRangeByName(&quot;G2&quot;)

	MsgBox oCell.String
End Sub

Sub Main

dim oDoc as object

dim oSheet as object

dim oCell as object

oDoc=ThisComponent

oSheet=oDoc.CurrentController.ActiveSheet

oCell=oSheet.getCellRangeByName("G2")

MsgBox oCell.String

End Sub

セルG2の値を取得するのに、こんなに長く書かないといけないのでしょうか？

・特定のセルを選択する

赤枠（答え入力のところです）

新規に問題する時、選択内の数値をすべてクリアします。

Sub Main
	dim oDoc as object
	dim oController as object
	dim oSheet as object
	dim oCell as object
	dim oSelectedCellRange as object
	
	oDoc=ThisComponent
	oController=oDoc.getCurrentController()
	
	oSelectedCellRange=_
          oController.getActiveSheet().getCellRangeByName(&quot;F2:F8&quot;)
	oController.select(oSelectedCellRange)
End Sub