Question

excel VBA中的Worksheet_SelectionChange函数问题

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中输入上面的代码，为什么运行不了，出现下面图片中的情况

Answer 1

你好，右击左下角Sheet1标签，选择“查看代码”，粘贴复制上面的代码就可以了。
你这个代码是Worksheet_SelectionChange类型的，它的意思是只要你重新选择一下单元格，代码就会自动运行一次，所以像上面那样插入代码就可以了。
另外看了一下你的代码，发现运行和不运行没什么区别，问下你想实现什么呢？我可以帮你该改下，嘿嘿~

Answer 2

Worksheet_SelectionChange事件代码应该放在 工作表模块中 不是整个工作簿级别的Thisworkbook模块
在工程窗口中 双击你要放代码的工作表模块（比如Sheet1），打开一个模块编辑窗口，把代码放进去

Answer 3

真想知道你这段代码是神马意思?
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

真是有意思了

Answer 4

代码无问题，返回工作表SHEEt1中，若F列不是空列，随便选择一下单元格，代码就会自动运行一次。