LibreOffice : まず４マス問題から、目指すは１００マス計算

Excelで百マス問題見つけたので、それを参考にLibreOfficeのCalcで作ってみようと思います。

4マス問題ダウンロード

LibreOfficeの関数表

RANDBETWEEN(1,10)　　　1~10までの乱数取得

黄色い部分に設定します。

自動で再計算しないように設定する

赤矢印のようにたどり、「自動計算」のチェックを外します。

チェック外さないと、答え入力セル値変わるたびに、問題も変わってしまいます。
外すと「F9」押すまで、問題はそのまま。

答えのセルを非表示にする

行・列はすべてを非表示にしてしまうようです。特定のセルだけは無理みたいです。

背景色と文字色同じにし、見えなくしました。
表示したい時どうする？マクロBasicでなく簡単にするには

LibreOffice Basicでセル背景色を変更

Option Explicit
'// 変数宣言必要

Sub Main
Dim oDoc As Object
Dim oCell As Object
oDoc = ThisComponent.CurrentController.ActiveSheet
'//---------------------------
oCell = oDoc.getCellByPosition(10,3)
oCell.CellBackColor=RGB(0,0,0) '//背景色
End Sub

これだと、まだ一つのセルのみです。

セル範囲だと：CellRange

セルにランダムな値を入れる

関数だと新しい問題作成のとき、再計算でしないとだめ
再計算させる方法がBasicで見つからないので、最初からBasicでやります。

Sub Qstart() '//問題新規
Dim oSheet As Object
Dim oCell As Object
Dim i as integer

oSheet = ThisComponent.CurrentController.ActiveSheet
For i=0 to 1
oSheet.getCellByPosition(1,i+3).value=int(Rnd*9+1)
oSheet.getCellByPosition(i+2,2).value=int(Rnd*9+1)
Next
End Sub

文字の色を白に

oCell_1.CharColor = RGB(255,255,255) '//文字色 White

正解のところ、背景色を変える

Sub Answer_Check '//解答Check
Dim oSheet As Object
Dim oCell_1, oCell_2 As Object
Dim i,k As integer

oSheet = ThisComponent.CurrentController.ActiveSheet

for i=0 to 1
for k=0 to 1
oCell_1 = oSheet.getCellByPosition(10+i,3+k) '//解答
oCell_2 = oSheet.getCellByPosition(2+i,3+k) '//入力値

if oCell_1.value = oCell_2.value then
oCell_1.CellBackColor = RGB(255,0,0) '//背景色 正解用
oCell_1.CharColor = RGB(255,255,255) '//文字色 White

oCell_2.CellBackColor = RGB(255,0,0) '//背景色 正解用
oCell_2.CharColor = RGB(255,255,255) '//文字色 White
end if 
next
next

End Sub

セル範囲を移動する　（動画）

新しく３X3（９マス）にしようと思いレイアウトを変更します。

グリッドが表示されない

「直接設定した書式の解除」を選択

セルの枠線がなにか指定されていて見えなくなっています。それをリセットすればOK