麻辣家族討論版版 » Excel程式區 » 請幫小弟除錯...是不能連續用find函數嗎?!

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

[發問] 請幫小弟除錯...是不能連續用find函數嗎?!

中學生 Rank: 2

帖子: 102
主題: 14
精華: 0
積分: 142
點名: 0
作業系統: Win10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2016-7-31
最後登錄: 2020-3-21

論壇贊助勳章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2016-8-15 16:41 | 只看該作者

[發問] 請幫小弟除錯...是不能連續用find函數嗎?!

本帖最後由 VBALearner 於 2016-8-15 16:55 編輯

小弟我想要找兩個目標儲存格十字交錯的儲存格值
但不知道錯在哪裡...還請高手賜教除錯，感激不盡!
(提醒一下:非VBA程式碼的回答，例如用直接在worksheet上面的儲存格打index...都不是我想要的答案，大概的目的是要能在多個工作表中的資料裡查多個不同儲存格的值，感謝各位!)

Sub test()
Dim rng1, rng2 As Range
號碼 = CStr(Cells(3, 17).Value)
日期 = CStr(Cells(2, 18).Text)
With Sheets(1)
.Activate
Set rng1 = .Range("A:A").Find(號碼)
Set rng2 = .Range("A1:A20").Find(日期)
Cells(3, 18).Value = Cells(rng1.Row, rng2.Column).Value
End With
End Sub

複製代碼

感謝您的協助!.zip (14.26 KB)

樓主熱帖

收藏

真心感謝每一位願意分享所學、指導新手的人!

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

2^#

發表於 2016-8-15 17:36 | 只看該作者

本帖最後由 lpk187 於 2016-8-15 17:46 編輯

回復 1# VBALearner

程式有誤已幫你修正，日期必須宣告為Date ，Find才會找到
應該要養成宣告變數的習慣！

Sub test()
Dim rng1 As Range, rng2 As Range
Dim 日期 As Date
With Sheets(1)
號碼 = .Cells(3, 18)
日期 = .Cells(2, 19)
'.Activate'這行可以不用
Set rng1 = .Columns(1).Find(號碼)
Set rng2 = .Rows(1).Find(日期, LookIn:=xlValues)
.Cells(3, 19) = .Cells(rng1.Row, rng2.Column).Value
End With
End Sub

複製代碼

中學生 Rank: 2

帖子: 102
主題: 14
精華: 0
積分: 142
點名: 0
作業系統: Win10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2016-7-31
最後登錄: 2020-3-21

論壇贊助勳章

3^#

發表於 2016-8-15 21:20 | 只看該作者

回復 2# lpk187

O____O! 原來是這樣一個小錯誤...感謝lpk大一直解決我的問題OwQ 感激不盡!

真心感謝每一位願意分享所學、指導新手的人!

靜思自在 : 閒人無樂趣，忙人無是非。

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