你这不需要编写VBA,公式完全可以解决问题,单元格、工作表如图,公式如下:
1、型号的公式“=VLOOKUP(B1,Sheet2!A2:H6,2)”
2、工序1数量1的公式“=VLOOKUP(B1,Sheet2!A2:H6,3)”
3、工序2数量1的公式“=VLOOKUP(B1,Sheet2!A2:H6,4)”
4、工序3数量1的公式“=VLOOKUP(B1,Sheet2!A2:H6,5)”
5、工序1不良项1的公式“=VLOOKUP(B1,Sheet2!A2:H6,6)”
6、工序2不良项1的公式“=VLOOKUP(B1,Sheet2!A2:H6,7)”
7、工序3不良项1的公式“=VLOOKUP(B1,Sheet2!A2:H6,8)”
修改“批次”就可以啦。若不明白可以向我索要Excel电子版文件。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If TargetCount > 1 Then Exit Sub
If Target <> "" Then
If Not Sheets("sheet2")CellsFind(TargetValue, lookat:=xlWhole) Is Nothing Then
Sheets(2)Select
Sheets("sheet2")CellsFind(TargetValue, lookat:=xlWhole)Select
End If
End If
End Sub
'程序将 msg 当成一个过程或函数,应改成 MsgBox 消息框
Private Sub Workbook_Open()
MsgBox "aaaaaa"
End Sub
以上就是关于100分求助_EXCEL中VBA响应单元格输入事件全部的内容,包括:100分求助_EXCEL中VBA响应单元格输入事件、EXCEL VBA 触发事件、EXCEL 2016 VBA 运行工作簿事件时,报错“过程或函数未定义”等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)