標題: 尋找、刪除的問題~ [打印本頁]

---

作者: ms2001    時間: 2011-1-15 11:55     標題: 尋找、刪除的問題~

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

---

作者: Hsieh    時間: 2011-1-15 12:17

回復 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    時間: 2011-1-16 00:05

謝謝版大，太感激了~

---

作者: apolloooo    時間: 2011-1-16 18:37

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

---

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