各位大神，vba求助，这是我写的大概的思路，求解

Sylvia.Sun

1 定义一个变量名，使它代表所选单元格的行数
2 判断G列的数值是否小于给定的数字
  如果是，则弹出一个对话框，告诉我时间已经到了
  如果不是，结束
3 继续向下排查，重新做判断，把有数字的都排查完毕 结束

这个是昵称吗

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. Dim 单元格 As Range
   
3. If Target.Column = 7 Then
   
4.     For Each 单元格 In Target
   
5.         If 单元格 < 给定的数字 Then
   
6.             MsgBox "时间已经到了"
   
7.         End If
   
8.     Next
   
9. End If
   
10. End Sub

复制代码

Sylvia.Sun

这个是昵称吗 发表于 2018-7-20 15:59

它提示我运行时错误 要求对象  这是为啥呀

c001q

1. Sub Run()
   
2.     TimeOut [B1:B13], 20
   
3. End Sub
   
4. 
   
5. Sub TimeOut(rng As range, num As Integer)
   
6.     For Each c In rng
   
7.         If c.Value < num Then MsgBox ("比较值：" & num & vbCrLf & "单元格：" & c.Address & vbCrLf & "当前值：" & c.Value & vbCrLf & "时间到了")
   
8.     Next c
   
9. End Sub
   

复制代码

这个是昵称吗

Sylvia.Sun 发表于 2018-7-20 16:13
它提示我运行时错误 要求对象  这是为啥呀

可能你放错地方了吧！

Sylvia.Sun

这个是昵称吗 发表于 2018-7-20 16:26
可能你放错地方了吧！

这样啊，那能请教一下应该放在哪里吗

这个是昵称吗

Sylvia.Sun 发表于 2018-7-23 10:00
这样啊，那能请教一下应该放在哪里吗

工作表事件，你放哪里了？