返回列表 上一主題 發帖

[發問] 請問 "欄位" 轉 "欄號" 方式

[發問] 請問 "欄位" 轉 "欄號" 方式

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

=IF(COUNT(-A1),LEFT(ADDRESS(1,A1,2),FIND("$",ADDRESS(1,A1,2))-1),COLUMN(INDIRECT(A1&1)))
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

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
EXCEL參考資料:
http://blog.xuite.net/smile1000mile/blog

TOP

感謝准提部林前輩的分享
MLB

TOP

隨意窩 "EXCEL迷"  blog  或 http://blog.xuite.net/hcm19522/twblog
已收集6200篇 EXCEL函數

TOP

感謝前輩的分享
MLB

TOP

        靜思自在 : 虛空有盡.我願無窮,發願容易行願難。
返回列表 上一主題