返回列表 上一主題 發帖

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

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

請問各位前輩、高手 :
我想請教個 "欄位" 轉 "欄號" 問題 , 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)))

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

TOP

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

TOP

google"EXCEL迷"  blog  或google網址:https://hcm19522.blogspot.com/

TOP

感謝前輩的分享
MLB

TOP

        靜思自在 : 得理要饒人,理直要氣和。
返回列表 上一主題