ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦p¦ó¿é¤J¼Æ¦r¡AÅã¥Ü¹ïÀ³Äæ¦ìªº­^¤å¦r¥À¡H

[µo°Ý] ¦p¦ó¿é¤J¼Æ¦r¡AÅã¥Ü¹ïÀ³Äæ¦ìªº­^¤å¦r¥À¡H

½Ð±Ð
'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

¦^´_ 1# ji12345678
M_Val = 703
MsgBox Replace(Cells(1,M_Val ).address(false,false),"1","")
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

M_Val = 703
MsgBox Split(Cells(1, M_Val).Address, "$")(1)

TOP

¤j®a³£¦n¼F®`¡I·PÁ¦U¦ì¥ý¶i«e½ú³á¡C

TOP

        ÀR«ä¦Û¦b : ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí ¤W¤@¥DÃD