问题已解决！谢谢！

TRD08

就是假如列A 单元格的值 范围为 0=< X <  4  显示 4 ；4=< X <  8 显示 8；8=< X <  12显示 12；以此类推，都是4 的倍数
请大家帮我看一下 哪出错~
谢谢！

[ 本帖最后由 TRD08 于 2010-10-30 14:07 编辑 ]

41569144

=IF(A3=0,4,IF(TRUNC(A3/4,0)=A3/4,TRUNC(A3/4,0)*4,(TRUNC(A3/4,0)+1)*4))

smhf_6

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 1 Then
Application.EnableEvents = False
Target = (Int(Target.Value / 4) + 1) * 4
Application.EnableEvents = True
End If

End Sub

TRD08

谢谢41569144 ！想法很好，可是还是有点区别
要求0-3.9以内的数字就显示成4,   4-7.9以内的现实成8   8-11.9以内的现实成12   以此类推

[ 本帖最后由 TRD08 于 2010-10-30 12:17 编辑 ]

蓝桥玄霜

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Count > 1 Then Exit Sub
   
3. If Target.Column <> 1 Then Exit Sub
   
4. Dim i As Long
   
5. i = Int(Target.Value / 4)
   
6. If Target.Value >= 4 * i And Target.Value < 4 * i + 4 Then
   
7.     Application.EnableEvents = False
   
8.     Target.Value = 4 * i + 4
   
9.     Application.EnableEvents = True
   
10. End If
    
11. End Sub
    

复制代码

TRD08

谢谢各位老师！目的已经达到了，学习各位的方法了。非常谢谢！

[ 本帖最后由 TRD08 于 2010-10-30 12:21 编辑 ]

TRD08

我来分享一下
=INT(A1/4)*4+4函数直接可以解决，
这也是根据“smhf_6 老师”及“蓝桥玄霜老师”的想法总结而得，
If Target.Value >= 4 * i And Target.Value < 4 * i + 4  这个是真命题，以为无论取何值，总是满足这个条件的
所以可以省略IF语句，
但是在这里有一个奇怪的现象，就是Application.EnableEvents 的作用
当我取消它后 输入0-4的值好像是388，输入5-8好像是392，依次类推，很奇怪！

41569144

需求无止境啊！！