mir/libreoffice
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

tdf#90447 vba find() should NOT select the found cell.

Browse Source 
Change-Id: Ia8c331f33bc81e7bdabeea649a47c73930dae206
This commit is contained in:
Justin Luth
2015-04-07 19:26:17 +03:00
committed by Markus Mohrhard
parent 853bfc68b9
commit a623d1a0e6
3 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
sc/qa/extras/macros-test.cxx
View File

@@ -229,6 +229,10 @@ void ScMacrosTest::testVba()
OUString("vba_endFunction."), OUString("vba_endFunction."),
OUString("vnd.sun.Star.script:VBAProject.testMacros.test?language=Basic&location=document") OUString("vnd.sun.Star.script:VBAProject.testMacros.test?language=Basic&location=document")
}, },
{
OUString("vba_findFunction."),
OUString("vnd.sun.Star.script:VBAProject.testMacros.test?language=Basic&location=document")
},
}; };
OUString sTempDir; OUString sTempDir;
OUString sTempDirURL; OUString sTempDirURL;

BIN
sc/qa/extras/testdocuments/vba_findFunction.xls Normal file
View File

Binary file not shown.

1
sc/source/ui/vba/vbarange.cxx
View File

@@ -3281,7 +3281,6 @@ ScVbaRange::Find( const uno::Any& What, const uno::Any& After, const uno::Any& L
uno::Reference< excel::XRange > xResultRange = new ScVbaRange( mxParent, mxContext, xCellRange ); uno::Reference< excel::XRange > xResultRange = new ScVbaRange( mxParent, mxContext, xCellRange );
if( xResultRange.is() ) if( xResultRange.is() )
{ {
xResultRange->Select();
return xResultRange; return xResultRange;
} }
} }