PTT數位生活區 / Office

[算表] 請問下列VBA代碼用range如何來表達？

看板Office作者 (bless)時間11年前 (2015/04/03 00:57), 編輯推噓0(0推 0噓 13→)
留言13則, 2人參與, 最新討論串1/1
軟體:EXCEL 版本:MS2007 Sheet1.Cells(5,Sheet1.Rows(1).Find(what:="總計",LookAt:=xlWhole).Column)=1 非常感謝！ -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 27.38.52.130 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1427993827.A.79E.html
→
04/03 01:01, , 1F
sheet1.Range(sheet1.Rows(1).Find(what:="總計",
04/03 01:01, 1F
→
04/03 01:01, , 2F
LookAt:=xlWhole).Address).Offset(4) = 1
04/03 01:01, 2F
→
04/03 01:03, , 3F
我想要類似這種的
04/03 01:03, 3F
→
04/03 01:03, , 4F
Sheet1.Range("C" & Sheet1.Range("a:a").Find("總計",
04/03 01:03, 4F
→
04/03 01:04, , 5F
LookIn:=xlValues).Row)
04/03 01:04, 5F
→
04/03 01:06, , 6F
能夠用上&
04/03 01:06, 6F
→
04/03 01:11, , 7F
如果要取得欄column的代碼(非數字)，可用split(sheet1.row
04/03 01:11, 7F
→
04/03 01:11, , 8F
(1)....address,"$")(1)
04/03 01:11, 8F
→
04/03 01:17, , 9F
是的，我想取列好的字母，請幫忙提供完整代碼，剛試寫了沒
04/03 01:17, 9F
→
04/03 01:20, , 10F
sheet1.Range(Split(sheet1.Rows(1).Find(what:="總計", L
04/03 01:20, 10F
→
04/03 01:21, , 11F
ookAt:=xlWhole).Address, "$")(1) & "5") = 1
04/03 01:21, 11F
→
04/03 01:22, , 12F
^^^改為5也可以
04/03 01:22, 12F
→
04/03 01:25, , 13F
謝謝您，學習了！
04/03 01:25, 13F
‣ 更多 yyingx 的文章
文章代碼(AID): #1L7NJZUU (Office)
Office 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 yyingx 的文章
文章代碼(AID): #1L7NJZUU (Office)