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 [2023/11/29 10:05] – [Vzorce pro počítání hodnot na jednotlivých řádcích] 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 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