[已解决]窗体移动时会出现两个相同窗体

qh8600

2000.rar (15.65 KB, 下载次数: 9)

2014-2-26 13:08 上传

点击文件名下载附件
双击D列会出现一个窗体，然后移动一下该窗体，就会出现一个同样的窗体，请老师指教

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-2-26 13:22

1. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
2.     On Error Resume Next
   
3.      Application.ScreenUpdating = False
   
4.     If ActiveCell.Column = 4 And ActiveCell.Row >= 3 Then
   
5.         品名.Show
   
6.     End If
   
7. End Sub
   

复制代码

你的代码里关闭了屏幕更新

跳转到最佳答案楼层

hwc2ycy

没刷新的原因。

hwc2ycy

是不是关闭了屏幕更新了。
application.screenupdating

hwc2ycy

1. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
2.     On Error Resume Next
   
3.      Application.ScreenUpdating = False
   
4.     If ActiveCell.Column = 4 And ActiveCell.Row >= 3 Then
   
5.         品名.Show
   
6.     End If
   
7. End Sub
   

复制代码

你的代码里关闭了屏幕更新

qh8600

hwc2ycy 发表于 2014-2-26 13:22
你的代码里关闭了屏幕更新

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    On Error Resume Next
    Application.ScreenUpdating = False
    If ActiveCell.Column = 4 And ActiveCell.Row >= 3 Then
        品名.Show
    End If
    Application.ScreenUpdating = True
End Sub

改成
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If ActiveCell.Column = 4 And ActiveCell.Row >= 3 Then
        品名.Show
    End If
End Sub

这样就可以了，谢谢老师

qh8600

hwc2ycy 发表于 2014-2-26 13:22
你的代码里关闭了屏幕更新

老师，运行完我又打开屏幕刷新的，怎么也不行，只能不关闭屏幕刷新

hwc2ycy

qh8600 发表于 2014-2-26 13:51
老师，运行完我又打开屏幕刷新的，怎么也不行，只能不关闭屏幕刷新

当然不能关了。
你可以在写入数据到工作表时再关，写完再打开。

qh8600

hwc2ycy 发表于 2014-2-26 14:22
当然不能关了。
你可以在写入数据到工作表时再关，写完再打开。

知道了，谢谢老师