[已解决]自动弹出用户窗

yw88120

求助单元格变动自动弹窗.zip (12.19 KB, 下载次数: 1)

2014-11-12 08:46 上传

点击文件名下载附件 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column <> 3 Then Exit Sub
    r = Target.Row
    If r < 5 Or r > 11 Then Exit Sub
    If Cells(r, 2) = ".购买" Then UserForm1.Show 0
    If Cells(r, 2) = "^回收" Then UserForm2.Show 0
End Sub

这个是点击单元格弹出对应的用户窗，能不能帮我改成单元格变动自动弹出对应的用户窗

最佳答案

月排行榜 / 总排行榜

qh8600

2014-11-12 08:45

求助单元格变动自动弹窗.rar (11.08 KB, 下载次数: 12)

2014-11-12 09:32 上传

点击文件名下载附件

楼主看看是不是这样

跳转到最佳答案楼层

qh8600

求助单元格变动自动弹窗.rar (11.08 KB, 下载次数: 12)

2014-11-12 09:32 上传

点击文件名下载附件

楼主看看是不是这样

yw88120

qh8600 发表于 2014-11-12 08:45
楼主看看是不是这样

同一个表，用户窗体打开之后，点击上面的按键，自动输入类容进单元格C列，点击按键之后自动关闭用户窗，谢谢

yw88120

qh8600 发表于 2014-11-12 08:45
楼主看看是不是这样