標題:
VBA 中搜尋欄位的數字 轉換為欄位
[打印本頁]
作者:
stran
時間:
2012-12-28 14:37
標題:
VBA 中搜尋欄位的數字 轉換為欄位
請問一下
使用VBA中的
Set C = Rows("1:1").Find(da, LookAt:=xlWhole)
If Not C Is Nothing Then
Y1 = C.Column ' 日期位置
得到一個搜尋數字
請問如何將 Y1 的數字轉為 欄位值
例如
1=A
2=B
3=C
27=A1
作者:
stillfish00
時間:
2012-12-28 15:12
回復
1#
stran
Y1 = C.address(0,0) 'C的位置
或
Y1 = Split(C.address,"$")(1) 'C的欄位字母
作者:
stillfish00
時間:
2012-12-28 15:24
回復
2#
stillfish00
Y1 的數字轉為 欄位值 , 同理
=Split(Cells(1,Y1).address,"$")(1)
PS: 27是欄位AA
作者:
stran
時間:
2012-12-28 16:21
回復
2#
stillfish00
感謝您
另外請問 如可以收尋到的欄位 -1 欄位
例如資料為 AB
如何-1 退一欄 為 AA
作者:
stillfish00
時間:
2012-12-28 17:16
回復 stillfish00
感謝您
另外請問 如可以收尋到的欄位 -1 欄位
例如資料為 AB
如何-1 退一 ...
stran 發表於 2012-12-28 16:21
如果資料為不在A欄
可用
= Split(C.Offset(0,-1).address,"$")(1)
語法
運算式.Offset(RowOffset, ColumnOffset)
RowOffset 正值表示向下位移，負值表示向上位移
ColumnOffset 正值表示向右位移，負值表示向左位移
歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)
