VBA入门到进阶常用知识代码总结16

第16集 单元格查找
66、 Range的Find方法
每次使用此方法后，参数 LookIn、LookAt、SearchOrder 和 MatchByte 的设置都将被保存。如果下次调用此方法时不指定这些参数的值，就使用保存的值。设置这些参数将更改“查找”对话框中的设置，如果省略这些参数，更改“查找”对话框中的设置将更改使用的保存值。要避免出现这一问题，每次使用此方法时请明确设置这些参数。
Sub c2()
Dim r As Integer, r1 As Integer
Dim icount As Integer
icount = Application.WorksheetFunction.CountIf(Sheets(“库存明细表”).[b:b], [g3])
If icount > 0 Then
r = Sheets(“库存明细表”).[b:b].Find(Range(“G3”), Lookat:=xlWhole).Row '查找号码第一次出现的位置
r1 = Sheets(“库存明细表”).[b:b].Find([g3], , , , , xlPrevious).Row '从下往上查找
MsgBox r & “:” & r1
End If
End Sub

Sub c3() '返回最下一行非空行的行数
MsgBox Sheets(“库存明细表”).Cells.Find("*", , , , , xlPrevious).Row
End Sub
67、 入库单设计
Sub 输入()
Dim c As Integer '号码在库存表中的个数
Dim r As Integer '入库单的数据行数
Dim cr As Integer '库存明细表中第一个空行的行数
With Sheets(“库存明细表”)
c = Application.CountIf(.[b:b], Range(“g3”))
If c > 0 Then
MsgBox “该单据号码已经存在！,请不要重复录入”
Exit Sub
Else
r = Application.CountIf(Range(“b6:b10”), “<>”)
cr = .[b65536].End(xlUp).Row + 1
.Cells(cr, 1).Resize(r, 1) = Range(“e3”)
.Cells(cr, 2).Resize(r, 1) = Range(“g3”)
.Cells(cr, 3).Resize(r, 1) = Range(“c3”)
.Cells(cr, 4).Resize(r, 6) = Cells(6, 2).Resize(r, 6).Value
MsgBox “输入已完成”
End If
End With
End Sub

Sub 查找()
Dim c As Integer '号码在库存表中的个数
Dim r As Integer '入库单的数据行数

With Sheets(“库存明细表”)
c = Application.CountIf(.[b:b], Range(“g3”))
If c = 0 Then
MsgBox “该单据号码不存在！”
Exit Sub
Else
r = .[b:b].Find(Range(“g3”), , , , , xlNext).Row
Range(“c3”) = .Cells(r, 3)
Range(“e3”) = .Cells(r, 1)
Cells(6, 2).Resize(c, 5) = .Cells(r, 4).Resize(c, 5).Value
MsgBox “查询已完成”
End If
End With
End Sub

Sub 删除()
Dim c As Integer '号码在库存表中的个数
Dim r As Integer '入库单的数据行数

With Sheets(“库存明细表”)
c = Application.CountIf(.[b:b], Range(“g3”))
If c = 0 Then
MsgBox “该单据号码不存在！”
Exit Sub
Else
r = .[b:b].Find(Range(“g3”), , , , , xlNext).Row
.Range(r & “:” & c + r - 1).Delete
MsgBox “删除已完成”
End If
End With
End Sub
Sub 修改()
Call 删除
Call 输入
End Sub