標題: [發問] 請問 "欄位" 轉 "欄號" 方式 [打印本頁]

---

作者: mlbolerud    時間: 2020-2-10 12:34     標題: 請問 "欄位" 轉 "欄號" 方式

請問各位前輩、高手 :
我想請教個 "欄位" 轉 "欄號" 問題 , VBA程式裡有沒有比較簡單方式或指令可以直接用?
例 :     輸入A → 得到1 ,  輸入B → 得到2 , 輸入CN → 得到92  
反之   輸入1 → 得到A ,  輸入2 → 得到B , 輸入92 → 得到CN
我只想到用excel 建對照表方式, 再用lookup作取值 , 這個方式太麻煩
感謝了 ~

---

作者: 准提部林    時間: 2020-2-10 12:49

=IF(COUNT(-A1),LEFT(ADDRESS(1,A1,2),FIND("$",ADDRESS(1,A1,2))-1),COLUMN(INDIRECT(A1&1)))

---

作者: 准提部林    時間: 2020-2-10 13:00

Sub TEST22()
Dim A, T
A = 92
If IsNumeric(A) Then
   T = Split(Columns(A).Address(0, 0), ":")(0)
Else
   T = Cells(1, A).Column
End If
MsgBox T
End Sub

---

作者: mlbolerud    時間: 2020-2-10 17:32

感謝准提部林前輩的分享

---

作者: hcm19522    時間: 2020-2-11 14:24

https://blog.xuite.net/hcm19522/twblog/588890438

---

作者: mlbolerud    時間: 2020-2-12 12:36

感謝前輩的分享

---

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