½Ð±Ð
'EXCEL2010 ³Ì¦h 1,048,576 ¦C¼¥H 16,384 Äæ
'256=IV
'700==>ZX 701==>ZY 702==>ZZ 703==>AAA 704==>AAB
'1377==>AZY 1378==>AZZ 1379==>BAA
'2053==>BZY 2054==>BZZ 2055==>CAA
' 2730==>CZZ 2731==>DAA
' 3406==>DZZ 3407==>EAA
Åã¥Ü¹ïÀ³Äæ¦ìªº^¤å¦r¥À¡H½Ð±Ð¤T¦ì¼Æ¸Ó¦p¦ó½s¼g¡H
ÁÂÁ«ü¾É¡A·P®¦¡C
°Ý°ÝÃD.rar (5.95 KB)
Sub TEST()
'EXCEL2010 ³Ì¦h 1,048,576 ¦C¼¥H 16,384 Äæ
'256=IV
'700==>ZX 701==>ZY 702==>ZZ 703==>AAA 704==>AAB
'1377==>AZY 1378==>AZZ 1379==>BAA
'2053==>BZY 2054==>BZZ 2055==>CAA
' 2730==>CZZ 2731==>DAA
' 3406==>DZZ 3407==>EAA
M_Val = 701 '<<<<====¿é¤J¼Æ¦r
If M_Val <= 26 Then Cells(1, 1) = Chr(M_Val + 64)
If M_Val > 26 And M_Val <= 702 Then Cells(1, 1) = Chr((M_Val - 1) \ 26 + 64) & Chr(M_Val - ((M_Val - 1) \ 26) * 26 + 64)
'If M_Val > 702 ???????¤T¦ì¼Æ¸Ó¦p¦ó¼g??????????????//
End Sub |