返回列表 上一主題 發帖

[發問] 如何用vba知道作用儲存格&欄&列的位置

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2013-8-14 17:29 | 只看該作者

[發問] 如何用vba知道作用儲存格&欄&列的位置

如題：

我想透過巨集的方式得知作用儲存格位置，例如得知為RANGE("A5")
也想透過vba自動查詢某一關鍵字，查詢完之後，想得知查詢的儲存格位置
並且想知道如何一併得知欄與列的位置

麻煩各位大大了
收藏 分享
PKKO

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
4#
發表於 2013-8-18 18:19 | 只看該作者
回復 3# Hsieh


    感恩，實在太厲害了!
PKKO

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
254  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-23 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
3#
發表於 2013-8-14 23:10 | 只看該作者
回復 1# PKKO
  1. Sub ex()
  2. MsgBox "目前作用中儲存格" & ActiveCell.Address
  3. MsgBox "目前被選取儲存格" & Selection.Address
  4. FindStr = InputBox("輸入查詢字串", , "搜尋")
  5. Set a = Cells.Find(FindStr, lookat:=xlWhole)
  6. If a Is Nothing Then MsgBox "查無此字串" Else MsgBox "搜尋字串位置" & a.Address
  7. End Sub
複製代碼
學海無涯_不恥下問

TOP

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
16  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
2#
發表於 2013-8-14 22:28 | 只看該作者
回復 1# PKKO
  1.   With Selection(1)
  2.     MsgBox "所選的儲存格位置為 : " & .Address(0, 0) & vbCrLf & vbCrLf & "列號為 : " & .Row & ", 欄號為 : " & .Column
  3.   End With
複製代碼

TOP

        靜思自在 : 謊言像一朵盛開的鮮花，外表美麗，生命短暫。
返回列表 上一主題