Excel VBA 查找寫法 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » Excel VBA 查找寫法

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

[發問] Excel VBA 查找寫法

中學生 Rank: 2

帖子: 79
主題: 19
精華: 0
積分: 148
點名: 0
作業系統: WINDOW7
軟體版本: EXCEL 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-5-21
最後登錄: 2023-3-13

1^# 跳轉到 »

發表於 2020-6-17 21:26 | 顯示全部帖子

Sub tets()
keyword = Range("d1")
i = 1
Do Until Cells(i, 1) = ""
If Cells(i, 1) = keyword Then
Cells(i, 1).Select
MsgBox ActiveCell.Address
End If
i = i + 1
Loop
End Sub

複製代碼

123.PNG (103.9 KB)

中學生 Rank: 2

帖子: 79
主題: 19
精華: 0
積分: 148
點名: 0
作業系統: WINDOW7
軟體版本: EXCEL 2003
閱讀權限: 20
性別: 男
註冊時間: 2017-5-21
最後登錄: 2023-3-13

2^#

發表於 2020-6-17 21:32 | 顯示全部帖子

回復 1# d03ey

Sub test()

Dim Rng As Range

keyword = Range("d1")

Set Rng = Range("a1:a11").Find(keyword, lookat:=xlWhole)

Rng.select

End Sub

靜思自在 : 人的心地是一畦田，土地沒有播下好種子，也長不出好的果實。 -

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