[已解决](己解决)指定单元格点击不弹出窗口代码修改

SHQM

为减少报价工作时间请高手帮忙修改一下代码

这是个图片要求点C列对应A列的行有一.二....不弹出窗口,C列其余弹出窗口。
这是报价文件
这是数据库.将价格文件解压放至E盘。

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-10-3 20:56

程序虽然不大看得懂，但你的要求刚看了下。
我改了SHEET1里的一点代码。

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Target.Count > 1 Then UserForm2.Hide: Exit Sub
   
3. If Target.Column <> 3 Or Target.Row < 5 Then UserForm2.Hide: Exit Sub
   
4. If Cells(Target.Row, 1).Value Like "*[0-9]*" Then UserForm2.Show
   
5. 
   
6. 'If UserForm2IsLoad Then dd元件选取
   
7. 
   
8. End Sub

复制代码

把最后一句注释了，楼主看看，可以满足你图片的要求。

跳转到最佳答案楼层

hwc2ycy

程序虽然不大看得懂，但你的要求刚看了下。
我改了SHEET1里的一点代码。

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Target.Count > 1 Then UserForm2.Hide: Exit Sub
   
3. If Target.Column <> 3 Or Target.Row < 5 Then UserForm2.Hide: Exit Sub
   
4. If Cells(Target.Row, 1).Value Like "*[0-9]*" Then UserForm2.Show
   
5. 
   
6. 'If UserForm2IsLoad Then dd元件选取
   
7. 
   
8. End Sub

复制代码

把最后一句注释了，楼主看看，可以满足你图片的要求。

hwc2ycy

1. If Cells(Target.Row, 1).Value Like "*#*" Then UserForm2.Show

复制代码

这样更省点。

SHQM

hwc2ycy 发表于 2012-10-3 20:56
程序虽然不大看得懂，但你的要求刚看了下。
我改了SHEET1里的一点代码。把最后一句注释了，楼主看看，可以 ...

相当可以谢谢老师。

SHQM

hwc2ycy 发表于 2012-10-3 20:57
这样更省点。

代码加在那里一行中

hwc2ycy

就替换我刚改的那一行。
If Cells(Target.Row, 1).Value Like "*[0-9]*" Then UserForm2.Show

If Cells(Target.Row, 1).Value Like "*#*" Then UserForm2.Show
这二句其实效果是一样的。