返回列表 上一主題 發帖

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

mlbolerud

帖子
32 
主題
13 
精華
0 
積分
70 
點名
0  
作業系統
Window 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2019-4-28 
最後登錄
2021-7-6 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2020-2-10 12:34 | 只看該作者

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

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

准提部林

帖子
2843 
主題
10 
精華
0 
積分
2899 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2025-10-18 
2#
發表於 2020-2-10 12:49 | 只看該作者
=IF(COUNT(-A1),LEFT(ADDRESS(1,A1,2),FIND("$",ADDRESS(1,A1,2))-1),COLUMN(INDIRECT(A1&1)))

TOP

准提部林

帖子
2843 
主題
10 
精華
0 
積分
2899 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2025-10-18 
3#
發表於 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

TOP

mlbolerud

帖子
32 
主題
13 
精華
0 
積分
70 
點名
0  
作業系統
Window 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2019-4-28 
最後登錄
2021-7-6 
4#
發表於 2020-2-10 17:32 | 只看該作者
感謝准提部林前輩的分享
MLB

TOP

hcm19522

帖子
1449 
主題
17 
精華
0 
積分
1472 
點名
0  
作業系統
WIN 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2015-9-11 
最後登錄
2025-11-4 

熱烈參與勳章
5#
發表於 2020-2-11 14:24 | 只看該作者
https://blog.xuite.net/hcm19522/twblog/588890438
google"EXCEL迷"  blog  或google網址:https://hcm19522.blogspot.com/

TOP

mlbolerud

帖子
32 
主題
13 
精華
0 
積分
70 
點名
0  
作業系統
Window 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2019-4-28 
最後登錄
2021-7-6 
6#
發表於 2020-2-12 12:36 | 只看該作者
感謝前輩的分享
MLB

TOP

        靜思自在 : 人要自愛，才能愛普天下的人。
返回列表 上一主題