From c31528604e5e9abe2d14cdf693a216ebbc349c57 Mon Sep 17 00:00:00 2001
From: oliver-huetkoeper <oliver@huetkoeper.eu>
Date: Thu, 2 Oct 2014 08:05:55 +0200
Subject: [PATCH] Add method to check if a cell is merged

---
 ZA2X/CLAS/ZCL_EXCEL_WORKSHEET.slnk | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

diff --git a/ZA2X/CLAS/ZCL_EXCEL_WORKSHEET.slnk b/ZA2X/CLAS/ZCL_EXCEL_WORKSHEET.slnk
index 7cd92d8..33dca93 100644
--- a/ZA2X/CLAS/ZCL_EXCEL_WORKSHEET.slnk
+++ b/ZA2X/CLAS/ZCL_EXCEL_WORKSHEET.slnk
@@ -4233,6 +4233,30 @@ ENDMETHOD.</source>
   ENDIF.
 
   endmethod.</source>
+ </method>
+  <method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="IS_CELL_MERGED" VERSION="1" LANGU="E" DESCRIPT="Checks if a cell is merged" EXPOSURE="2" STATE="1" EDITORDER="59 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" MTDNEWEXC="X" BCMTDCAT="00" BCMTDSYN="0">
+  <parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="IS_CELL_MERGED" SCONAME="IP_COLUMN" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="1 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="SIMPLE"/>
+  <parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="IS_CELL_MERGED" SCONAME="IP_ROW" VERSION="1" LANGU="E" DESCRIPT="Cell Row" CMPTYPE="1" MTDTYPE="0" EDITORDER="2 " DISPID="0 " PARDECLTYP="0" PARPASSTYP="1" TYPTYPE="1" TYPE="ZEXCEL_CELL_ROW"/>
+  <parameter CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="IS_CELL_MERGED" SCONAME="RP_IS_MERGED" VERSION="1" LANGU="E" CMPTYPE="1" MTDTYPE="0" EDITORDER="3 " DISPID="0 " PARDECLTYP="3" PARPASSTYP="0" TYPTYPE="1" TYPE="ABAP_BOOL"/>
+  <exception CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="IS_CELL_MERGED" SCONAME="ZCX_EXCEL" VERSION="1" LANGU="E" DESCRIPT="Exceptions for ABAP2XLSX" MTDTYPE="0" EDITORDER="1 "/>
+  <source>method IS_CELL_MERGED.
+  DATA lt_merge_range TYPE string_table.
+
+  FIELD-SYMBOLS &lt;lv_merge_range&gt;  LIKE LINE OF lt_merge_range.
+
+
+  lt_merge_range = me-&gt;get_merge( ).
+
+  LOOP AT lt_merge_range ASSIGNING &lt;lv_merge_range&gt;.
+    rp_is_merged = zcl_excel_common=&gt;is_cell_in_range(
+        ip_column   = ip_column
+        ip_row      = ip_row
+        ip_range    = &lt;lv_merge_range&gt; ).
+    IF rp_is_merged = abap_true.
+      EXIT.
+    ENDIF.
+  ENDLOOP.
+endmethod.</source>
  </method>
  <method CLSNAME="ZCL_EXCEL_WORKSHEET" CMPNAME="PRINT_TITLE_SET_RANGE" VERSION="1" LANGU="E" DESCRIPT="Update range for print title" EXPOSURE="0" STATE="1" EDITORDER="58 " DISPID="0 " MTDTYPE="0" MTDDECLTYP="0" BCMTDCAT="00" BCMTDSYN="0">
   <source>method PRINT_TITLE_SET_RANGE.