如何抓取cell中已知某值的位址? - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 如何抓取cell中已知某值的位址?

返回列表下一主題上一主題發帖

如何抓取cell中已知某值的位址?

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

5^# 跳轉到 »

發表於 2012-6-14 15:19 | 只看該作者

回復 4# m09903020

請上傳excel壓縮檔
vba之撰寫需考慮工作表及儲存格之使用情形

中學生 Rank: 2

帖子: 40
主題: 13
精華: 0
積分: 69
點名: 0
作業系統: w7
軟體版本: office07
閱讀權限: 20
性別: 男
註冊時間: 2012-4-24
最後登錄: 2012-8-20

4^#

發表於 2012-6-14 14:54 | 只看該作者

慚愧慚愧，我不是很了解接下來這個訊息代表什麼

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2012-6-14 13:28 | 只看該作者

本帖最後由 GBKEE 於 2012-6-14 13:30 編輯

回復 1# m09903020

Option Explicit
Sub Ex()
Dim Ar()
With Range("A1:A300")
Ar = .Value
.Replace "1", "=1/0", xlWhole
.SpecialCells(xlCellTypeFormulas, xlErrors).Name = "XX"
.Value = Ar
MsgBox [XX].Address
End With
End Sub

複製代碼

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

2^#

發表於 2012-6-14 13:03 | 只看該作者

回復 1# m09903020

Sub xx()
Set Rng = Range("A1:A" & [A1].End(xlDown).Row)
Set ADDX = Rng.Find(1, , , xlWhole)
MsgBox ADDX.Address
End Sub

複製代碼

靜思自在 : 並非有錢魷是快樂，問心無愧心最安。

返回列表下一主題上一主題