【输入提醒】请教高手如何设置

LILI000311

想解决：如A列输入的数字小于5.5，大于10，则自动跳出提醒窗口“请在考核栏填写评语”，必须在B列输入评语后才能继续操作。另，不想设置“宏”。
请高手帮忙，谢谢~~~

dajiahaoxinku12

第一环节使用数据有效性可以做到    ，第二环节得用vba        

LILI000311

dajiahaoxinku12 发表于 2013-4-27 10:49
这个是用数据有效性可以做到

我一开始也是想用数据有效性的，但一直没成功。

LILI000311

dajiahaoxinku12 发表于 2013-4-27 10:49
第一环节使用数据有效性可以做到    ，第二环节得用vba

VBA确实不太会

sunya_0529

LILI000311 发表于 2013-4-27 10:57
VBA确实不太会

这个功能很简单的，一学就会。

哪个工作表中需要这个功能，就把下面的代码加到哪个工作簿的代码框里去——

1. Option Explicit
   
2. Dim rng As Range
   
3. 
   
4. Private Sub Worksheet_Change(ByVal Target As Range)
   
5. If Target.Cells.Count > 1 Then Exit Sub
   
6. If Target.Column = 1 Then
   
7.   If Target.Value < 5.5 Or Target.Value > 10 Then
   
8.     MsgBox "请在考核栏填写评语!", vbCritical, "提醒"
   
9.     Set rng = Target.Offset(0, 1)
   
10.     rng.Select
    
11.   End If
    
12. End If
    
13. End Sub
    
14. 
    
15. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
16. If Not rng Is Nothing Then
    
17.   If Len(rng.Value) = 0 Then rng.Select
    
18. End If
    
19. End Sub

复制代码

效果如附件所示，打开文件记得启用宏——