Rozdíly

Zde můžete vidět rozdíly mezi vybranou verzí a aktuální verzí dané stránky.

--- reports:openoffice [2020/04/30 12:52] – [Makro na odstránkování podle textu v buňce] Libor Kadaník
+++ reports:openoffice [2024/02/02 08:31] (aktuální) – [Makro na odstránkování podle textu v buňce] Libor Kadaník
@@ Řádek 21: / Řádek 21: @@
 <code>=INDIRECT(CONCATENATE("F";CELL("ROW")))+INDIRECT(CONCATENATE("K";CELL("ROW")))</code>
+===== CRLF z SQL =====
+pro zalomení (viditelné v buňce) se musí vložit nezlomitelná mezera společně s CRLF
+<code> ... list(idskladkarta, ASCII_CHAR(160)||ASCII_CHAR(13)||ASCII_CHAR(10)) ... </code>
 ===== Makro na odstránkování podle textu v buňce  =====
@@ Řádek 37: / Řádek 42: @@
   Sheet = ThisComponent.getSheets().getByIndex(0) 'hledej na prvnim listu
-  CellRange=Sheet.getCellRangeByName("J1:J3000") 'hledej ve sloupci J
+  CellRange=Sheet.getCellRangeByName("A1:A3000") 'hledej ve sloupci J
   Descriptor=CellRange.createSearchDescriptor()
   With Descriptor
     .SearchCaseSensitive=False
-    .SearchString="Dodací list"
+    .SearchString="KonecStranky"
     .SearchType=1 'Search for values, not just formulas. This is an undocumented property
     .SearchWords=True 'Search the whole cell, not just part of it
@@ Řádek 49: / Řádek 54: @@
   dim args1(0) as new com.sun.star.beans.PropertyValue
-  For i=0 to Found.Count-1
+  If not ISNULL(Found) then
-    'MsgBox Found(i).AbsoluteName
+    For i=0 to Found.Count-1
-    args1(0).Name = "ToPoint"
+      'MsgBox Found(i).AbsoluteName
-    args1(0).Value = Found(i).AbsoluteName
+      args1(0).Name = "ToPoint"
-    dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
+      args1(0).Value = Found(i).AbsoluteName
-    dispatcher.executeDispatch(document, ".uno:InsertRowBreak", "", 0, Array())
+      dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())
-    dispatcher.executeDispatch(document, ".uno:ClearContents", "", 0, Array()) 'smaz text v bunce
+      dispatcher.executeDispatch(document, ".uno:InsertRowBreak", "", 0, Array())
-  Next
+      dispatcher.executeDispatch(document, ".uno:ClearContents", "", 0, Array()) 'smaz text v bunce
+    Next
+  EndIf
   'skok zpatky na A1