excel VBA中的Worksheet_SelectionChange函数问题
PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)Application.ScreenUpdating=Fal...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = False
Endrow = Range("F65536").End(xlUp).Row
For i = 2 To Endrow
If Cells(i, 8).Value < Date And Cells(i, 8).Value > 0 Then
Cells(i, 9) = Cells(i, 9).Value
Cells(i, 12) = Cells(i, 12).Value
Cells(i, 13) = Cells(i, 13).Value
Cells(i, 16) = Cells(i, 16).Value
Cells(i, 17) = Cells(i, 17).Value
Cells(i, 18) = Cells(i, 18).Value
End If
Next
Application.ScreenUpdating = True
End Sub
我按下CTRL+F11后,双击左边的对象中的SHEEt1,在里面的WORKSHEET中输入上面的代码,为什么运行不了,出现下面图片中的情况 展开
Application.ScreenUpdating = False
Endrow = Range("F65536").End(xlUp).Row
For i = 2 To Endrow
If Cells(i, 8).Value < Date And Cells(i, 8).Value > 0 Then
Cells(i, 9) = Cells(i, 9).Value
Cells(i, 12) = Cells(i, 12).Value
Cells(i, 13) = Cells(i, 13).Value
Cells(i, 16) = Cells(i, 16).Value
Cells(i, 17) = Cells(i, 17).Value
Cells(i, 18) = Cells(i, 18).Value
End If
Next
Application.ScreenUpdating = True
End Sub
我按下CTRL+F11后,双击左边的对象中的SHEEt1,在里面的WORKSHEET中输入上面的代码,为什么运行不了,出现下面图片中的情况 展开
展开全部
Worksheet_SelectionChange事件代码应该放在 工作表模块中 不是整个工作簿级别的Thisworkbook模块
在工程窗口中 双击你要放代码的工作表模块(比如Sheet1),打开一个模块编辑窗口,把代码放进去
在工程窗口中 双击你要放代码的工作表模块(比如Sheet1),打开一个模块编辑窗口,把代码放进去
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
真想知道你这段代码是神马意思?
If Cells(i, 8).Value < Date And Cells(i, 8).Value > 0 Then
Cells(i, 9) = Cells(i, 9).Value
Cells(i, 12) = Cells(i, 12).Value
Cells(i, 13) = Cells(i, 13).Value
Cells(i, 16) = Cells(i, 16).Value
Cells(i, 17) = Cells(i, 17).Value
Cells(i, 18) = Cells(i, 18).Value
End If
真是有意思了
If Cells(i, 8).Value < Date And Cells(i, 8).Value > 0 Then
Cells(i, 9) = Cells(i, 9).Value
Cells(i, 12) = Cells(i, 12).Value
Cells(i, 13) = Cells(i, 13).Value
Cells(i, 16) = Cells(i, 16).Value
Cells(i, 17) = Cells(i, 17).Value
Cells(i, 18) = Cells(i, 18).Value
End If
真是有意思了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
代码无问题,返回工作表SHEEt1中,若F列不是空列,随便选择一下单元格,代码就会自动运行一次。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |