mirror of
https://github.com/abap2xlsx/abap2xlsx.git
synced 2025-05-05 13:46:17 +08:00
+ change_area_style (same as change_cell_style, but for area) (#922)
* + change_area_style New method change_area_style as combination of change_cell_style and set_area_style Co-authored-by: sandraros <sandra.rossi@gmail.com> Co-authored-by: Lars Hvam <larshp@hotmail.com> Co-authored-by: Abo <andrea@borgia.bo.it>
This commit is contained in:
sandraros
GitHub
parent
df709ace6a
commit
3df52da4c2
|
|
@ -2,7 +2,8 @@ REPORT zdemo_excel40.
|
||||||
|
|
||||||
|
|
||||||
DATA: lo_excel TYPE REF TO zcl_excel,
|
DATA: lo_excel TYPE REF TO zcl_excel,
|
||||||
lo_worksheet TYPE REF TO zcl_excel_worksheet.
|
lo_worksheet TYPE REF TO zcl_excel_worksheet,
|
||||||
|
lo_style_changer TYPE REF TO zif_excel_style_changer.
|
||||||
|
|
||||||
DATA: lv_row TYPE zexcel_cell_row,
|
DATA: lv_row TYPE zexcel_cell_row,
|
||||||
lv_col TYPE i,
|
lv_col TYPE i,
|
||||||
|
|
@ -29,41 +30,32 @@ START-OF-SELECTION.
|
||||||
* - first 3 rows will have fontcolor set
|
* - first 3 rows will have fontcolor set
|
||||||
* These marked cells will be used for repeatable rows/columns on printpages
|
* These marked cells will be used for repeatable rows/columns on printpages
|
||||||
*--------------------------------------------------------------------*
|
*--------------------------------------------------------------------*
|
||||||
DO 100 TIMES. " Rows
|
lo_worksheet->set_area(
|
||||||
|
ip_column_start = 1
|
||||||
|
ip_column_end = 20
|
||||||
|
ip_row = 1
|
||||||
|
ip_row_to = 100
|
||||||
|
ip_formula = 'CHAR(64+COLUMN())&TEXT(ROW(),"????????0")'
|
||||||
|
ip_area = lo_worksheet->c_area-whole ).
|
||||||
|
|
||||||
lv_row = sy-index .
|
lo_style_changer = zcl_excel_style_changer=>create( lo_excel ).
|
||||||
WRITE lv_row TO lv_row_char.
|
lo_style_changer->set_fill_filltype( zcl_excel_style_fill=>c_fill_solid ).
|
||||||
|
lo_style_changer->set_fill_fgcolor_rgb( zcl_excel_style_color=>c_yellow ).
|
||||||
DO 20 TIMES.
|
lo_worksheet->change_area_style(
|
||||||
|
ip_column_start = 1
|
||||||
lv_col = sy-index - 1.
|
ip_column_end = 20
|
||||||
CONCATENATE sy-abcde+lv_col(1) lv_row_char INTO lv_value.
|
ip_row = 1
|
||||||
lv_col = sy-index.
|
ip_row_to = 3
|
||||||
lo_worksheet->set_cell( ip_row = lv_row
|
ip_style_changer = lo_style_changer ).
|
||||||
ip_column = lv_col
|
|
||||||
ip_value = lv_value ).
|
|
||||||
|
|
||||||
TRY.
|
|
||||||
IF lv_row <= 3.
|
|
||||||
lo_worksheet->change_cell_style( ip_column = lv_col
|
|
||||||
ip_row = lv_row
|
|
||||||
ip_fill_filltype = zcl_excel_style_fill=>c_fill_solid
|
|
||||||
ip_fill_fgcolor_rgb = zcl_excel_style_color=>c_yellow ).
|
|
||||||
ENDIF.
|
|
||||||
IF lv_col <= 4.
|
|
||||||
lo_worksheet->change_cell_style( ip_column = lv_col
|
|
||||||
ip_row = lv_row
|
|
||||||
ip_font_color_rgb = zcl_excel_style_color=>c_red ).
|
|
||||||
ENDIF.
|
|
||||||
CATCH zcx_excel .
|
|
||||||
ENDTRY.
|
|
||||||
|
|
||||||
ENDDO.
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
ENDDO.
|
|
||||||
|
|
||||||
|
lo_style_changer = zcl_excel_style_changer=>create( lo_excel ).
|
||||||
|
lo_style_changer->set_font_color_rgb( zcl_excel_style_color=>c_red ).
|
||||||
|
lo_worksheet->change_area_style(
|
||||||
|
ip_column_start = 1
|
||||||
|
ip_column_end = 4
|
||||||
|
ip_row = 1
|
||||||
|
ip_row_to = 100
|
||||||
|
ip_style_changer = lo_style_changer ).
|
||||||
|
|
||||||
*--------------------------------------------------------------------*
|
*--------------------------------------------------------------------*
|
||||||
* Printsettings
|
* Printsettings
|
||||||
|
|
|
||||||
|
|
@ -13,8 +13,8 @@
|
||||||
<TPOOL>
|
<TPOOL>
|
||||||
<item>
|
<item>
|
||||||
<ID>R</ID>
|
<ID>R</ID>
|
||||||
<ENTRY>abap2xlsx Demo: Print settings</ENTRY>
|
<ENTRY>abap2xlsx Demo: Area and Print settings</ENTRY>
|
||||||
<LENGTH>30</LENGTH>
|
<LENGTH>39</LENGTH>
|
||||||
</item>
|
</item>
|
||||||
<item>
|
<item>
|
||||||
<ID>S</ID>
|
<ID>S</ID>
|
||||||
|
|
|
||||||
|
|
@ -176,6 +176,15 @@ CLASS zcl_excel_worksheet DEFINITION
|
||||||
METHODS calculate_column_widths
|
METHODS calculate_column_widths
|
||||||
RAISING
|
RAISING
|
||||||
zcx_excel .
|
zcx_excel .
|
||||||
|
METHODS change_area_style
|
||||||
|
IMPORTING
|
||||||
|
!ip_column_start TYPE simple
|
||||||
|
!ip_column_end TYPE simple OPTIONAL
|
||||||
|
!ip_row TYPE zexcel_cell_row
|
||||||
|
!ip_row_to TYPE zexcel_cell_row OPTIONAL
|
||||||
|
!ip_style_changer TYPE REF TO zif_excel_style_changer
|
||||||
|
RAISING
|
||||||
|
zcx_excel.
|
||||||
METHODS change_cell_style
|
METHODS change_cell_style
|
||||||
IMPORTING
|
IMPORTING
|
||||||
!ip_column TYPE simple
|
!ip_column TYPE simple
|
||||||
|
|
@ -1387,6 +1396,65 @@ CLASS zcl_excel_worksheet IMPLEMENTATION.
|
||||||
ENDMETHOD. "CALCULATE_COLUMN_WIDTHS
|
ENDMETHOD. "CALCULATE_COLUMN_WIDTHS
|
||||||
|
|
||||||
|
|
||||||
|
METHOD change_area_style.
|
||||||
|
|
||||||
|
DATA: lv_row TYPE zexcel_cell_row,
|
||||||
|
lv_row_start TYPE zexcel_cell_row,
|
||||||
|
lv_row_to TYPE zexcel_cell_row,
|
||||||
|
lv_column_int TYPE zexcel_cell_column_alpha,
|
||||||
|
lv_column TYPE zexcel_cell_column_alpha,
|
||||||
|
lv_column_start TYPE zexcel_cell_column_alpha,
|
||||||
|
lv_column_end TYPE zexcel_cell_column_alpha,
|
||||||
|
lv_column_start_int TYPE zexcel_cell_column_alpha,
|
||||||
|
lv_column_end_int TYPE zexcel_cell_column_alpha.
|
||||||
|
|
||||||
|
lv_row_to = ip_row_to.
|
||||||
|
lv_row = ip_row.
|
||||||
|
|
||||||
|
IF lv_row_to IS INITIAL OR ip_row_to IS NOT SUPPLIED.
|
||||||
|
lv_row_to = lv_row.
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
|
lv_column_start = ip_column_start.
|
||||||
|
lv_column_end = ip_column_end.
|
||||||
|
|
||||||
|
IF lv_column_end IS INITIAL OR ip_column_end IS NOT SUPPLIED.
|
||||||
|
lv_column_end = lv_column_start.
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
|
lv_column_start_int = zcl_excel_common=>convert_column2int( lv_column_start ).
|
||||||
|
lv_column_end_int = zcl_excel_common=>convert_column2int( lv_column_end ).
|
||||||
|
|
||||||
|
IF lv_column_start_int > lv_column_end_int OR lv_row > lv_row_to.
|
||||||
|
|
||||||
|
RAISE EXCEPTION TYPE zcx_excel
|
||||||
|
EXPORTING
|
||||||
|
error = 'Wrong Merging Parameters'.
|
||||||
|
|
||||||
|
ENDIF.
|
||||||
|
|
||||||
|
lv_column_int = lv_column_start_int.
|
||||||
|
lv_row_start = lv_row.
|
||||||
|
WHILE lv_column_int <= lv_column_end_int.
|
||||||
|
|
||||||
|
lv_column = zcl_excel_common=>convert_column2alpha( lv_column_int ).
|
||||||
|
lv_row = lv_row_start.
|
||||||
|
|
||||||
|
WHILE lv_row <= lv_row_to.
|
||||||
|
|
||||||
|
ip_style_changer->apply( ip_worksheet = me
|
||||||
|
ip_column = lv_column_int
|
||||||
|
ip_row = lv_row ).
|
||||||
|
|
||||||
|
ADD 1 TO lv_row.
|
||||||
|
ENDWHILE.
|
||||||
|
|
||||||
|
ADD 1 TO lv_column_int.
|
||||||
|
ENDWHILE.
|
||||||
|
|
||||||
|
ENDMETHOD.
|
||||||
|
|
||||||
|
|
||||||
METHOD change_cell_style.
|
METHOD change_cell_style.
|
||||||
|
|
||||||
DATA: changer TYPE REF TO zif_excel_style_changer.
|
DATA: changer TYPE REF TO zif_excel_style_changer.
|
||||||
|
|
|
||||||
|
|
@ -189,6 +189,12 @@
|
||||||
<LANGU>I</LANGU>
|
<LANGU>I</LANGU>
|
||||||
<DESCRIPT>Calculate widths for auto-size columns</DESCRIPT>
|
<DESCRIPT>Calculate widths for auto-size columns</DESCRIPT>
|
||||||
</SEOCOMPOTX>
|
</SEOCOMPOTX>
|
||||||
|
<SEOCOMPOTX>
|
||||||
|
<CLSNAME>ZCL_EXCEL_WORKSHEET</CLSNAME>
|
||||||
|
<CMPNAME>CHANGE_AREA_STYLE</CMPNAME>
|
||||||
|
<LANGU>E</LANGU>
|
||||||
|
<DESCRIPT>Change area style</DESCRIPT>
|
||||||
|
</SEOCOMPOTX>
|
||||||
<SEOCOMPOTX>
|
<SEOCOMPOTX>
|
||||||
<CLSNAME>ZCL_EXCEL_WORKSHEET</CLSNAME>
|
<CLSNAME>ZCL_EXCEL_WORKSHEET</CLSNAME>
|
||||||
<CMPNAME>CHANGE_CELL_STYLE</CMPNAME>
|
<CMPNAME>CHANGE_CELL_STYLE</CMPNAME>
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue
Block a user