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

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

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

中學生 Rank: 2

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

1^# 跳轉到 » 倒序看帖

字體大小: tT

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

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

已知數值, 如何

本帖最後由 m09903020 於 2012-6-14 12:47 編輯

小的目前sheet中有A行300列當作一個一維array
請問大大，如圖

若有一數值為1時，則如何抓取其cell位址
謝謝大大。

question.JPG (24.48 KB)

問題示意圖

樓主熱帖

收藏

　頭銜: 麻辣路人甲

大學生 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

複製代碼

超級版主 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: 2

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

4^#

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

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

　頭銜: 麻辣路人甲

大學生 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

6^#

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

回復 5# register313

不好意思檔案只留問題部分若還是不足先說聲抱歉，再補上

問題.rar (34.69 KB)

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

7^#

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

我測試正常的，也許你把代碼放錯位置了。

　頭銜: 麻辣路人甲

大學生 Rank: 4

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

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

8^#

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

回復 6# m09903020

位址放在陣列Arr 及M欄

Sub yy()
Dim Arr(1 To 300, 1 To 1)
For Each R In Sheets("asile_table").[A1:A300]
Set C = R.Find(1, , , xlWhole)
If Not C Is Nothing Then s = s + 1: Arr(s, 1) = C.Address(0, 0)
Next
Sheets("asile_table").[M1].Resize(s, 1) = Arr
End Sub

複製代碼

中學生 Rank: 2

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

9^#

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

回復 3# GBKEE

謝謝G大， G大的程式函數很精簡，我查了很久才看懂。不過我放棄使用了:)

中學生 Rank: 2

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

10^#

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

回復 7# oobird

謝謝oo大大，剛剛再試了一次 xx() 確實可用，你po文之前不行我也不是很為什麼"沒宣告"或者沒用with

靜思自在 : 【行善要及時】行善要及時，功德要持續。如燒開水一般，未燒開之前千萬不要停熄火候，否則重來就太費事了。

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