返回列表 上一主題 發帖

尋找、刪除的問題~

ms2001

帖子
26 
主題
15 
精華
0 
積分
41 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
10 
性別
男 
註冊時間
2010-7-20 
最後登錄
2019-6-26 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2011-1-15 11:55 | 只看該作者

尋找、刪除的問題~

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

apolloooo
　暱稱: 借钱

中學生Rank: 2

帖子
54 
主題
7 
精華
0 
積分
81 
點名
0  
作業系統
WINDOWS XP 
軟體版本
OFFICE 2007 
閱讀權限
20 
性別
男 
來自
桃園 
註冊時間
2011-1-14 
最後登錄
2021-4-23 
4#
發表於 2011-1-16 18:37 | 只看該作者
[A1]    <--  這樣的寫法是怎麼發現的，好神奇。
借錢不還，才是王道

TOP

ms2001

帖子
26 
主題
15 
精華
0 
積分
41 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
10 
性別
男 
註冊時間
2010-7-20 
最後登錄
2019-6-26 
3#
發表於 2011-1-16 00:05 | 只看該作者
謝謝版大，太感激了~

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
257  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-11-28 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 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
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 稻穗結得越飽滿，越會往下垂，一個人越有成就，就要越有謙沖的胸襟。
返回列表 上一主題