[Solved] Set Focus to Cell using Macro without selecting

[ttt_1978]

I have form in a sheet that has a button to clean all the fields.
After pressing the button, I need to change the focus to the first field.
This is my code:

Code: Select all

Sub CleanFields()

Dim Doc As Object
Dim Sheet As Object
Dim Cell As Object

Doc = ThisComponent
Sheet = Doc.Sheets.GetByName("Plan1")
Cell = Sheet.getCellRangeByName("D11")

If Msgbox("Do you want to clean all the fields?", 4 + 32 + 256) = 6 Then
	Sheet.getCellRangeByName("D11").String = ""
	Sheet.getCellRangeByName("D13").String = ""
	Sheet.getCellRangeByName("D15").String = ""
	Sheet.getCellRangeByName("D17").String = ""
	Sheet.getCellRangeByName("D19").String = ""
	Sheet.getCellRangeByName("D21").String = ""
	Sheet.getCellRangeByName("D23").String = ""
	Sheet.getCellRangeByName("D25").String = ""
	ThisComponent.CurrentController.Select(Cell)
End If

End Sub

With this code, after cleaning the fields, the focus changes to the cell D11, but it selects it.
I don't want it to be selected. When the cell stays selected, the user can't change the focus to the next field pressing "TAB" or "ENTER".
How can I change the focus to the first field (Cell D11) without selecting it?

Thanks.

[Villeroy]

Code: Select all

Sub gotoCell(sh,row,col)
view = ThisComponent.getCurrentController()
emptyContainer = createUnoService("com.sun.star.sheet.SheetCellRanges")
cell = ThisComponent.Sheets(sh).getCellByPosition(col, row)
view.select(cell)
view.select(emtpyContainer)
End Sub

gotoCell(0,1,2) goes to C2 on first sheet

[Zizi64]

This code will not select the target cell, but the TAB is not work after running the subroutine. You need click somewhere (or make other activity) to get back the 'manual control' on the sheet.

Code: Select all

sub MyGotoCell
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$D$12"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())

[ttt_1978]

Thanks Zizi64. Your code works.

[Zizi64]

code works.

Yes, I tried launch it with a button, and the focus was stayed on the button.

[B Marcelly]

I tried launch it with a button, and the focus was stayed on the button.

Take focus off button and onto cell

[Villeroy]

There is also a button property "Take focus on click" which can be turned off.

[wbiene]

There is also a button property "Take focus on click" which can be turned off.

Thank you, this has helped me a lot.