數字轉換Excel欄

例 1=A 2=B 26=Z 27=AA 52=AZ 53=BA

因為太常用了 每次都忘記 所以寫一篇放上來

function GetExcelCol(ColIndex:integer):string;
begin
  if ColIndex Div 27=0 then
    Result:=Chr(64+ColIndex)
  else
    Result:=Chr(64+((ColIndex-1) div 26))+Chr(65+((ColIndex-1) mod 26))
end;

arrow
arrow
    文章標籤
    Delphi Excel
    全站熱搜
    創作者介紹
    創作者 抓狂小白 的頭像
    抓狂小白

    抓狂小白的程式筆記

    抓狂小白 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄