尋找、刪除的問題~

ms2001

我想在sheet2裡設一個尋找的欄位，欄位輸入資料後按確認就可以立刻在sheet1裡找到相同的字串
，並跳出詢問視窗，確認是否刪除，如果按是，就清除其儲存格資料，否就不做認何動作~
有大大可以幫幫我嗎，感激不盡~~~

Hsieh

回復 1# ms2001

1. Private Sub CommandButton1_Click()
   
2. findchart = [A1] 'A1輸入搜尋字串
   
3. yn = MsgBox("是否刪除?", vbYesNo)
   
4. If yn = 6 Then
   
5. Sheets(1).Cells.Replace findchart, "", xlWhole
   
6. End If
   
7. End Sub

複製代碼

ms2001

謝謝版大，太感激了~

apolloooo

[A1]    <--  這樣的寫法是怎麼發現的，好神奇。