Excel列数字转换为字母

FUNCTION zfm_convert_int_to_abc.

*"----------------------------------------------------------------------

*"*"本地接口：

*"  IMPORTING

*"     REFERENCE(IM_VALUE) TYPE  I

*"  EXPORTING

*"     REFERENCE(EX_VALUE)

*"----------------------------------------------------------------------

  DATA: gt_abc TYPE TABLE OF char1,

        gs_abc LIKE LINE OF gt_abc.

  DATA: gv_value  TYPE i,

        gv_output TYPE string,

        gv_i      TYPE i,

        gv_mod    TYPE i.

 

  CLEAR ex_value.

 

  CHECK im_value GT 0.

 

  gv_value = im_value.

 

  DO 26 TIMES.

    gs_abc = substring( val = sy-abcde off = sy-index - 1 ).

    APPEND gs_abc TO gt_abc.

  ENDDO.

 

  WHILE gv_value NE 0.

 

    gv_i = gv_value DIV 26.

    gv_mod = gv_value MOD 26.

 

    IF gv_mod = 0 AND gv_i <> 0.

      gv_i = gv_i - 1.

      IF gv_i < 0.

        gv_i = 0.

      ENDIF.

      gv_mod = 26.

    ENDIF.

 

    gv_value = gv_i.

    IF gv_i <= 26.

      gv_value = 0.

    ENDIF.

 

    "28  = AB

    IF gv_i > 0 AND gv_i <= 26.

      gv_output = gv_output && gt_abc[ gv_i ].

    ENDIF.

 

    IF gv_mod > 0 AND gv_mod <= 26.

      gv_output = gv_output && gt_abc[ gv_mod ].

    ENDIF.

 

    ex_value = gv_output && ex_value.

    CLEAR gv_output.

 

  ENDWHILE.

 

ENDFUNCTION.