まず4マス問題から、目指すは100マス計算

スポンサーリンク

4マス問題

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

スポンサーリンク

LibreOfficeの関数表

日本語 関数名 関数詳細説明
乱数 RAND() 0以上で1より小さい乱数
0.765763193654787
乱数(整数) RANDBETWEEN(a,b) a~bの間の整数を返す

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

oCell = oDoc.getCellRangeByPosition(10,3,11,4)
oCell.CellBackColor=RGB(0,0,0) ‘//背景色

セル背景色変える

 

コメント

タイトルとURLをコピーしました