excel单元格格式中如何设置可以实现我输入一个数字会自动乘上5，比如输1，它自动成5

LangQueS

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1:H20]) Is Nothing Then    '限制范围
Application.EnableEvents = False  '禁止触发连锁事件
On Error Resume Next     '忽略错误继续执行VBA代码,避免出现错误消息
   
            If Target.Value <> "" Then
            Target = Target.Value * 5

    End If

On Error GoTo 0          '恢复正常的错误提示
Application.EnableEvents = True   '允许触发连锁事件
End If
End Sub

leitiger

建议这样修改一下,避免target里面输入的不是数字.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1:H20]) Is Nothing Then    '限制范围
Application.EnableEvents = False  '禁止触发连锁事件
On Error Resume Next     '忽略错误继续执行VBA代码,避免出现错误消息
   
            If  isnumeric(Target.Value) Then      '输入的是数值才进行操作.
            Target = Target.Value * 5
                    End If
Application.EnableEvents = True   '允许触发连锁事件
End If
End Sub

[ 本帖最后由 leitiger 于 2009-3-14 19:08 编辑 ]

eyou8216

请问怎么把这段宏代码做到EXCEL里..怎么用?
Dim Rng As Range
Application.EnableEvents = False '禁止触发事件
Set Rng = Range("a1:c5,e1:f5") '你需要的单元格区域
If Intersect(Target, Rng) Is Nothing Then   '选择单元不在区内
  Application.EnableEvents = True           '允许触发事件
  Exit Sub                                  '就退出
End If
On Error GoTo 100
If Target.Value <> ValueBefore Then
  Target.Value = Target.Value * 5
  Application.ScreenUpdating = True
End If
100: '错误处理
If Err.Number = 13 Then
End If
Application.EnableEvents = True '允许触发事件
End Sub

eyou8216

哪个会?帮一下..我把这里的宏命令加入里面都不会自动乘..请问怎么加的..不知道我是不是加错了.

fengying012003

选择性粘贴的办法很好

Tony.Chang

自己变自己的问题，貌似只能通过VBA

lhdcxz

43楼：放到
Private Sub Worksheet_Change(ByVal Target As Range)  里面
你的代码
End Sub

yongling20088

请问用一个区域*5，另外一个区域*8又怎么编阿，求教阿，请高手帮忙~~~

lhdcxz

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo 100
Application.EnableEvents = False '禁止触发事件
If Not Application.Intersect(Target, Union(Range("A1:C5"), Range("E1:F5"))) Is Nothing Then
If Not Application.Intersect(Target, Range("A1:C5")) Is Nothing And Target.Value <> "" Then Target.Value = Target.Value * 5
If Not Application.Intersect(Target, Range("E1:F5")) Is Nothing And Target.Value <> "" Then Target.Value = Target.Value * 8
End If
Application.ScreenUpdating = True
100:
If Err.Number = 13 Then
End If
Application.EnableEvents = True '允许触发事件
End Sub

happy1980

lhdcxz 发表于 2009-3-12 22:32
有数据的单元格双击后继续变值？？看来要增加一个双击事件复原？？
这样可以吗？

为请教，什么我复制代码到自己的工作表里不起作用了