返回列表 上一主題 發帖

[發問] 請教cells.find的用法(關於找到資料並刪除連帶的資料)

lifedidi

帖子
104 
主題
32 
精華
0 
積分
144 
點名
0  
作業系統
windowsXP 
軟體版本
2007 
閱讀權限
20 
性別
男 
註冊時間
2013-2-25 
最後登錄
2022-9-2 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-7-4 08:43 | 只看該作者

[發問] 請教cells.find的用法(關於找到資料並刪除連帶的資料)

假設資料為


.cells.find找到批號為ABCD的位置，
並刪除相關資料(如圖片2~14列)

小弟的程式碼如下，但是會發生錯誤，請問怎麼修改呢？感謝！！
With UserForm1
        If 資料批號.Value = "" Then
            MsgBox "請先查詢資料", vbCritical + vbOKOnly, ""
            Else
            Set 刪除資料 = Sheet1.Cells.Find(What:=批號, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
            xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True)
            With Sheet1
                For i = -1 To 201
                刪除資料.Offset(-10, i).Delete
                刪除資料.Offset(-9, i).Delete
                刪除資料.Offset(-8, i).Delete
                刪除資料.Offset(-7, i).Delete
                刪除資料.Offset(-6, i).Delete
                刪除資料.Offset(-5, i).Delete
                刪除資料.Offset(-4, i).Delete
                刪除資料.Offset(-3, i).Delete
                刪除資料.Offset(-2, i).Delete
                刪除資料.Offset(-1, i).Delete
                刪除資料.Offset(0, i).Delete
                刪除資料.Offset(1, i)Delete
                刪除資料.Offset(2, i).Delete
                Next
            End With
        End If
End With
收藏 分享

handsometrowa

帖子
82 
主題
7 
精華
0 
積分
112 
點名
0  
作業系統
WIN7 
軟體版本
WIN7 
閱讀權限
20 
性別
男 
註冊時間
2013-1-3 
最後登錄
2020-9-21 
2#
發表於 2013-7-4 08:55 | 只看該作者
拍謝，早上路過。

1.你C1 儲存格中，設計的那個字樣可以使用Alt+ Enter 讓他分行調整位置，
     就可以製造出你要的的效果了
2.你這張表格算是表單，不是資料庫型態喔，以後要更改資料會不會比較麻煩@@?

TOP

lifedidi

帖子
104 
主題
32 
精華
0 
積分
144 
點名
0  
作業系統
windowsXP 
軟體版本
2007 
閱讀權限
20 
性別
男 
註冊時間
2013-2-25 
最後登錄
2022-9-2 

論壇贊助勳章
3#
發表於 2013-7-4 09:37 | 只看該作者
回復 2# handsometrowa


1.謝謝大大的指教，已更改！

2.該表單為耗材庫存，最近一直苦於想一個模式來紀錄，於是想出這樣的表單，不知道會不會很麻煩。

目前建立耗材資料、領用退回資料KEYIN、匯入報表 應該都好了(不知道會不會有BUG)，【剩下設定當庫存剩下0時刪除整筆耗材資料並新增下一批料】。

請各高手不嫌棄，能提供些指教or意見，非常感謝。
耗材進出簿20130704.rar (245.23 KB)

TOP

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
16  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
4#
發表於 2013-7-4 23:48 | 只看該作者
本帖最後由 luhpro 於 2013-7-4 23:51 編輯

回復 1# lifedidi
這裡簡化你所提供的程式片斷,
想要刪除涵蓋範圍為矩形的儲存格集合,
其實只要用一行就可以完成了 :

Range(刪除資料.Offset(-10, 1), 刪除資料.Offset(2, 201)).Delete

即可.

TOP

        靜思自在 : 難行能行，難捨能捨，難為能為，才能昇華自我的人格。
返回列表 上一主題