標題: ~ Excel有辦法將搜尋結果，show出欄列位置嗎? [打印本頁]

---

作者: yawen    時間: 2012-12-18 11:24     標題: ~ Excel有辦法將搜尋結果，show出欄列位置嗎?

本帖最後由 GBKEE 於 2012-12-18 14:34 編輯

請問高手~ Excel有辦法將搜尋字串，show出欄、列位置嗎?
如圖範例~

感謝指導!!

[attach]13587[/attach]

---

作者: GBKEE    時間: 2012-12-18 14:23

回復 1# yawen
試試看

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng(1 To 3) As Range    '陣列型態 為 Range(物件類型)
   
4.     Set Rng(1) = [B1:I18]       '設定: 搜尋範圍   (變數為物件 要用 Set)
   
5.     Set Rng(2) = [A21]          '設定: 要搜尋的位置
   
6.     Do While Rng(2) <> ""       '執行迴圈的條件: 搜尋的位置<>""
   
7.         Set Rng(3) = Rng(1).Find(Rng(2), LookAT:=xlWhole)
   
8.         If Rng(3) Is Nothing = False Then         '找到搜尋的字串
   
9.             Rng(3).Interior.Color = vbYellow      '設定底色
   
10.             Rng(2).Offset(0, 1) = Rng(3).Column   '欄數: Offset(0, 1) 位移1欄
    
11.             Rng(2).Offset(0, 2) = Rng(3).Row      '列數: Offset(0, 2) 位移2欄
    
12.         End If
    
13.         Set Rng(2) = Rng(2).Offset(1)             '設定: 搜尋的位置往下一列的位置
    
14.     Loop
    
15. End Sub

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)