帖子: 605
主題: 92
精華: 0
積分: 648
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 50
性別: 男
來自: macau
註冊時間: 2013-4-5
最後登錄: 2019-2-10

熱烈參與勳章好學求知勳章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2014-3-7 21:38 | 只看該作者

[發問] 請教關於這段代碼的疑惑？

這個sub過程的意思是將sheet4儲存格a1到a500的所有包含2的儲存格替換為儲存格的值為5，我的疑惑主要是在do...while 這個語法塊中，假設找到了第一個包含2的儲存格，那麼就進入do...while 過程這樣的話 c的值被替換為5 使用set c=.findnext(c)的話這樣不就變成了找5了嗎？？而不是找2了？？但是為什麼程式執行的結果是正確的？？而不是在找到第一個是2的儲存格後，將儲存格的值替換為5，然後再繼續找5呢？？麻煩對VBA語法熟悉的指教一下不甚感激！

Sub t1()
Dim c As Range
Dim firstaddress As String
With Worksheets("Sheet4").Range("a1:a500")
Set c = .Find(2, LookIn:=xlValues)
If Not c Is Nothing Then
firstaddress = c.Address
Do
c.Value = 5
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstaddress
End If
End With
End Sub

複製代碼

樓主熱帖

ss

Hsieh

超級版主 Rank: 8 Rank: 8

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

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2014-3-7 23:33 | 只看該作者

回復 1# sunnyso
Range.FindNext 方法
用 Find 方法開始進行尋找後，用本方法繼續該尋找作業。本方法尋找相符合同一條件的下儲存格，並傳回代表該儲存格的 Range 物件。本方法不影響選定範圍或目前儲存格。
你可先用功能表中的尋找先輸入一個搜尋
然後關閉尋找對話方塊
然後再重新啟動尋找，看看他的尋找目標是否預設成上一次尋找目標

學海無涯_不恥下問

TOP

sunnyso

高中生 Rank: 3 Rank: 3

帖子: 605
主題: 92
精華: 0
積分: 648
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 50
性別: 男
來自: macau
註冊時間: 2013-4-5
最後登錄: 2019-2-10

熱烈參與勳章好學求知勳章

3^#

發表於 2014-3-7 23:40 | 只看該作者

感謝提示, 讓我試試

ss

TOP