標題: [發問] 如何輸入數字，顯示對應欄位的英文字母？ [打印本頁]

---

作者: ji12345678    時間: 2016-9-1 16:01     標題: 如何輸入數字，顯示對應欄位的英文字母？

請教
'EXCEL2010  最多  1,048,576 列乘以 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

顯示對應欄位的英文字母？請教三位數該如何編寫？
謝謝指導，感恩。

[attach]25110[/attach]

Sub TEST()
'EXCEL2010  最多  1,048,576 列乘以 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 '<<<<====輸入數字
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 ???????三位數該如何寫??????????????//
End Sub

---

作者: stillfish00    時間: 2016-9-1 16:34

回復 1# ji12345678
M_Val = 703
MsgBox Replace(Cells(1,M_Val ).address(false,false),"1","")

---

作者: 准提部林    時間: 2016-9-1 17:53

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

---

作者: ji12345678    時間: 2016-9-1 20:51

大家都好厲害！感謝各位先進前輩喔。

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)