マクロを作るにはツール->マクロ->新規とか キーバインドも同じところで割り当て でシートの値から計算してシートに代入する方法 Sub Main Dim oSheet As Object Dim oCell As Object Dim value As Double oSheet = ThisComponent.Sheets(0) oCell = oSheet.…