|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Set rng2 = Sheets("基础信息").Range("G:G").Find(Cells(2, 2), lookat:=xlWhole)
If Not rng2 Is Nothing Then
k = rng2.Row
Sheet4.Cells(3, 2) = Sheets("基础信息").Cells(k, 8)
Sheet4.Cells(2, 4) = Sheets("基础信息").Cells(k, 9)
End If
I = Target.Row 'i选中单元格的行数
If Target.Column = 2 And I > 4 And I < 11 Then '如果单击列号是2也就是B列,行号大于4并且小于11设定一个固定的行数区域
If Cells(I, 2) <> "" Then '如果Bi不为空的话
If I = 5 Then
Cells(I, 1) = 1
Else
Cells(I, 1) = Cells(I - 1, 1) + 1
End If
Set rng1 = Sheets("库存明细").Range("a:a").Find(Cells(I, 2), lookat:=xlWhole)
If Not rng1 Is Nothing Then '如果查找的单元格不为空那么,查找到了执行查找不到不执行
j = rng1.Row
Cells(I, 3) = Sheets("库存明细").Cells(j, 2)
End If
End If
End If
Application.EnableEvents = True
End Sub
|
评分
-
1
查看全部评分
-
|