帖子: 41
主題: 12
精華: 0
積分: 71
點名: 0
作業系統: Window 7
軟體版本: Office 2007
閱讀權限: 20
性別: 女
註冊時間: 2011-8-30
最後登錄: 2012-8-25

1^# 跳轉到 »

發表於 2011-11-8 13:18 | 只看該作者

請問 VBA "Find" 用法

我想問Find的用法,
有先設定profit 的range

  A= Profit.Fine(5.5555,  , xl value,2).Row
想要在profit 找5.5555 這個值, 然後讀取該欄位的 Row address

問題一: xlvalue後面那一項(2)是指收尋得小數點位數嗎?
   1.是5.5555他是以 5.55去找相同的值
   2. 還是, 找Profit range裡小數點2位的值

問題二:
如果 Profit 裡的小數位數是無窮的, 如何用find找到相同的值呢?

問題三;
  利用find 來找值可以精準地找到嗎
若想要找的值5.5 收尋範圍的值 5.55,  5.555,  5.5555,  5.5
可以直接找到5.5 而不是5.55555

問題四:
當要收尋範圍裡的值小數位數很多時, 我們讓它以2位小數呈現
例如 5.234= 5.23

當去find該值時, 他讀取的是5.23(更改呈現方式之後) 還是原先5.234呢?

Find 用法.rar (10.16 KB)

TOP

kimbal

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 472
主題: 5
精華: 0
積分: 485
點名: 0
作業系統: Windows
軟體版本: MS Office
閱讀權限: 100
性別: 男
來自: 香港
註冊時間: 2010-7-4
最後登錄: 2014-12-28

論壇貢獻勳章

2^#

發表於 2011-11-8 13:42 | 只看該作者

找整個數字(5.55)的方法:
Set b = profit.Find(5.55, , xlValues, xlWhole)
找以5.55"為首" 的方法 (如5.55, 5.55001, 5.552,5.55999....)
Set b = profit.Find(5.55, , xlValues, xlpart)
(與這個一樣 Set b = profit.Find(5.55, , xlValues)

留意excel是以"文字"的方式找, 不是以數字大少來找

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

Helain

中學生 Rank: 2

帖子: 41
主題: 12
精華: 0
積分: 71
點名: 0
作業系統: Window 7
軟體版本: Office 2007
閱讀權限: 20
性別: 女
註冊時間: 2011-8-30
最後登錄: 2012-8-25

3^#

發表於 2011-11-8 14:49 | 只看該作者

回復 2# kimbal

恩~ 謝謝

TOP

Helain

中學生 Rank: 2

帖子: 41
主題: 12
精華: 0
積分: 71
點名: 0
作業系統: Window 7
軟體版本: Office 2007
閱讀權限: 20
性別: 女
註冊時間: 2011-8-30
最後登錄: 2012-8-25

4^# 倒序看帖

打印

字體大小: tT

發表於 2011-11-9 11:11 | 只看該作者

[發問] 關於 Find用法

請各位幫忙, 不知道哪邊出問題
Sub test()

Dim Myrange As Range
Set Myrange = Range(Cells(6, 2), Cells(8, 2))

Cells(1, 1) = Myrange.Find(Cells(3, 2), , xlValues, xlwhole).Row
Cells(2, 1) = Myrange.Find(Cells(3, 2), , xlValues,xlwhole).Column

End Sub

我想要找到該值的欄位資料卻無法
'錯誤顯示: '沒有設定物件變數或with 區塊變數

test.rar (11.33 KB)

GBKEE

超級版主 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兔年全勤獎章

5^#

發表於 2011-11-9 11:45 | 只看該作者

回復 1# Helain

Sub Ex()
Dim Myrange As Range, Rng As Range
Set Myrange = Range(Cells(6, 2), Cells(8, 4))
Set Rng = Myrange.Find(Cells(3, 2), , xlValues, xlWhole)
If Not Rng Is Nothing Then
Cells(1, 1) = Rng.Row
Cells(2, 1) = Rng.Column
End If
End Sub
'''''''''''''''''''''''''''''''''''
Sub test()
Dim Myrange As Range
'Set Myrange = Range(Cells(6, 2), Cells(8, 2)) '這裡的 Cells(8, 2) 是 B8
Set Myrange = Range(Cells(6, 2), Cells(8, 4)) '這裡的 Cells(8, 4) 是 D8
'尋找不到錯誤顯示: '沒有設定物件變數或with 區塊變數
Cells(1, 1) = Myrange.Find(Cells(3, 2), , xlValues, xlWhole).Row
Cells(2, 1) = Myrange.Find(Cells(3, 2), , xlValues, xlWhole).Column
End Sub

複製代碼

TOP

Helain

中學生 Rank: 2

帖子: 41
主題: 12
精華: 0
積分: 71
點名: 0
作業系統: Window 7
軟體版本: Office 2007
閱讀權限: 20
性別: 女
註冊時間: 2011-8-30
最後登錄: 2012-8-25

6^#

發表於 2011-11-9 21:39 | 只看該作者

我想問, 後來我這樣做還是不型
出現"陣列索引超出範圍" 是什麼意思呢???

Find.rar (12.33 KB)

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

7^#

發表於 2011-11-9 22:10 | 只看該作者

回復 6# Helain

參數錯誤
LookIn的參數 xlValues
但是，你的數值是直接KEY_IN的
LookIn參數應使用xlFormulas才能搜尋的到
通常像這樣的搜尋會省略 LookIn引數
直接使用LookAt引數，使用xlWhole來搜尋完全符合的內容

你可試著操作編輯/尋找功能，把程式錄製下來
去比較搜尋條件不同，造成甚麼不同結果

學海無涯_不恥下問

TOP

GBKEE

超級版主 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兔年全勤獎章

8^#

發表於 2011-11-10 08:04 | 只看該作者

本帖最後由 GBKEE 於 2011-11-10 08:22 編輯

回復 6# Helain

請任意輸入 "aaaaaaa"
RMax_Row = Cells.Find("aa", , xlValues, xlPart).Row
RMax_Row = Cells.Find("aa", , xlFormulas, xlPart).Row                有找到:這兩程式碼沒錯誤

RMax_Row = Cells.Find("aa", , xlValues, xlWhole).Row
RMax_Row = Cells.Find("aa", , xlFormulas, xlWhole).Row          沒有找到:這兩程式碼會錯誤陣列索引超出範圍

請不要用上面的語法正確的寫法如下
expression.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat)
Set R_Max = R_Profit.Find(What:=Rmax,LookIn:= xlFormulas,LookAt:= xlWhole)
Set R_Max = R_Profit.Find(LookIn:=xlFormulas, LookAt:=xlWhole, What:=Rmax)
全部有指明參數可任意放置參數的位置但不可以參雜著有指明參數及沒指明的參數

Set R_Max = R_Profit.Find(Rmax, ,  xlValues, xlWhole)
Set R_Max = R_Profit.Find(Rmax, , xlFormulas, xlWhole)

如確定先前的搜尋不是註解 LookIn:=xlComments 可用
Set R_Max = R_Profit.Find(Rmax, ,  , xlWhole)
If Not R_Max Is Nothing Then
      R_MaxRow = R_Max.Row
      R_Maxcolumn = R_Max.Column
End If

TOP

Helain