Excel VBA | excel vba數字轉英文
Columns(27).Address---->傳回"$AA:$AA"---->解字串算出AAS1=Trim(Replace(Left(Columns(27).Address,_InStr(Columns(27).Address,":")-1),"$",""))上述_S1=AA說明____先取出_:_左邊字串將取出字串的_$_使用空白_取代另外使用_26個英文字母的排序取出英文字.i=53s1=IIf(iMod26<>0Andi26>0,ChrW(64+(i26)),"")&_ChrW(64+(iMod26))以上_S1=BAi自行設定_算出英文字組合2008-04-2011:42:22補充:第三個方法:S1=Split(Columns(27).Address,":")S1=Trim(Replace(S1(0),"$",""))
Columns(27).Address ----> 傳回 "$AA:$AA" ----> 解字串算出 AA
S1 = Trim(Replace(Left(Columns(27).Address, _
InStr(Columns(27).Address, ":") - 1), "$", ""))
上述_S1=AA
說明____
先取出 _:_左邊字串
將取出字串的_$_使用空白_取代
另外使用_26個英文字母的排序取出英文字.
i = 53
s1 = IIf(i Mod 26 <> 0 And i 26 > 0, ChrW(64 + (i 26)), "") & _
ChrW(64 + (i Mod 26))
以上 _S1=BA
i自行設定_算出英文字組合
2008-04-20 11:42:22 補充:
第三個方法:
S1 = Split(Columns(27).Address, ":")
S1=Trim(Replace(S1(0), "$", ""))