[Solved] Calc macro fails if cell is active

[retain]

I have the following macro:

Code: Select all

Sub move
	Dim oSheet as Object
	Dim oCell as Object
	oSheet = ThisComponent.CurrentController.getActiveSheet()
	oCell = oSheet.getCellRangeByName("A1")
	oCell.setValue(123)
End Sub

If I open up a new spreadsheet and run the macro the value 123 appears in cell A1 as I expected. If I then delete the value but leave the focus in A1 and run the macro again nothing happens. If I click on any other cell and run the macro it works again.

I would like an understanding of this behaviour as I think it might be useful for avoiding bugs when I come to write macros.

[Zizi64]

I have the following macro:

How you lanch the macro? By a custom menu item, by a Form control element (button or other), by a ToolBar Icon, or by some other way: Directly from Macro menu...?

[retain]

I opened a new spreadsheet and then: Tools -> Macros -> Run Macro... -> select macro by name -> Run

[Zizi64]

Code: Select all

Remove the "focus" (the "Edit mode") from the A1 somehow. You can not modify a cell value by you macro while it is in "Edit mode". Here is a tip:
REM  *****  BASIC  *****
Sub move
	Dim oSheet as Object
	Dim oCell as Object
	Dim oCtrl as Object
	
	oCtrl = ThisComponent.CurrentController
	oSheet = ThisComponent.CurrentController.getActiveSheet()
	oCtrl.Select(oCtrl.ActiveSheet.GetCellRangeByName("B1"))
	oCell = oSheet.getCellRangeByName("A1")
	oCell.setValue(123)
	oCtrl.Select(oCtrl.ActiveSheet.GetCellRangeByName("A1"))
End Sub

Modify the cell value what is in manual edit mode.ods

(10.72 KiB) Downloaded 293 times