[已解决]VBA代码自动运行优化

vhanhong · 发表于 2014-11-30 17:21

请教下下面的代码为什么不自动运行，还有如何优化，我刚学这个，不太懂，谢谢。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 And Target.Count = 1 Then
  For i = 4 To Range("E1000").End(xlUp).Row
   d = Cells(i, 4)
   e = Cells(i, 5)

      If e <> "" Then
         If d = "怡纯，350ml，1×24" Then
         k = 84
         ElseIf d = "怡纯，555ml，1×12[彩膜]" Then
         k = 110
         ElseIf d = "怡纯，555ml，1×24" Then
         k = 70
         ElseIf d = "怡纯，1555ml，1×12" Then
         k = 44
         ElseIf d = "怡纯，4500ml，1×4" Then
         k = 36
         Else
         k = 0
      End If
            If e < k Then
            Cells(i, 8) = e & "箱"
            Else
            Cells(i, 8) = VBA.Int(e / k) & "托" & e Mod k & "箱"
            End If
      End If

  Next i

End If
End Sub

最佳答案

月排行榜 / 总排行榜

qh8600

2014-12-1 19:22

vhanhong 发表于 2014-12-1 17:02
用VBA代替公式，单元格内容改变自动运行，谢谢

XX提货2014-11-1 - 副本.rar (18.73 KB, 下载次数: 19)

qh8600 · 发表于 2014-11-30 17:50

这是工作表的change事件，当单元格内容改变时才触发，看你条件，只要不是第一列的单个单元格改变就能触发这个事件

vhanhong · 发表于 2014-12-1 12:45

qh8600 发表于 2014-11-30 17:50
这是工作表的change事件，当单元格内容改变时才触发，看你条件，只要不是第一列的单个单元格改变就能触发这 ...

对的，就是想单元格内容改变的时候就自动运行，但是现在这个好像有点问题，不能运行。主代码好像也有问题

qh8600 · 发表于 2014-12-1 15:02

vhanhong 发表于 2014-12-1 12:45
对的，就是想单元格内容改变的时候就自动运行，但是现在这个好像有点问题，不能运行。主代码好像也有问题 ...

上传附件

vhanhong · 发表于 2014-12-1 17:02

qh8600 发表于 2014-12-1 15:02
上传附件

用VBA代替公式，单元格内容改变自动运行，谢谢

qh8600 · 发表于 2014-12-1 19:22

这个最佳答案由 qh8600 给出，感谢 qh8600 的回答。

单击隐藏图章

vhanhong 发表于 2014-12-1 17:02
用VBA代替公式，单元格内容改变自动运行，谢谢

XX提货2014-11-1 - 副本.rar (18.73 KB, 下载次数: 19)

qh8600 · 发表于 2014-12-1 19:23

vhanhong 发表于 2014-12-1 17:02
用VBA代替公式，单元格内容改变自动运行，谢谢

Private Sub Worksheet_Change(ByVal Target As Range)
Dim arr(1 To 5, 1 To 2), i
x = Cells(Target.Row, 5)
arr(1, 1) = "怡纯，350ml，1×24": arr(1, 2) = 84
arr(2, 1) = "怡纯，555ml，1×12[彩膜]": arr(2, 2) = 110
arr(3, 1) = "怡纯，555ml，1×24": arr(3, 2) = 70
arr(4, 1) = "怡纯，1555ml，1×12": arr(4, 2) = 44
arr(5, 1) = "怡纯，4500ml，1×4": arr(5, 2) = 36
If Target.Row > 3 And (Target.Column = 4 Or Target.Column = 5) Then
      For i = 1 To UBound(arr)
         If x <> "" Then
            If Cells(Target.Row, 4) = arr(i, 1) Then
                  If x \ arr(i, 2) = 0 Then
                     Cells(Target.Row, 6) = x Mod arr(i, 2) & "箱"
                  Else
                     Cells(Target.Row, 6) = x \ arr(i, 2) & "托" & x Mod arr(i, 2) & "箱"
                  End If
                  Exit For
            End If
         End If
      Next
End If
End Sub
在第4,5列，单元格触发事件

vhanhong · 发表于 2014-12-2 08:07

qh8600 发表于 2014-12-1 19:23
Private Sub Worksheet_Change(ByVal Target As Range)
Dim arr(1 To 5, 1 To 2), i
x = Cells ...

感谢大神，完全满足我的使用需求，不过可以帮忙做个注释吗？我对数组不是很了解。谢谢

qh8600 · 发表于 2014-12-2 08:31

vhanhong 发表于 2014-12-2 08:07
感谢大神，完全满足我的使用需求，不过可以帮忙做个注释吗？我对数组不是很了解。谢谢

建议把规则做在表里，这样是直接给数组赋值，多了就麻烦了

		自动登录	找回密码
密码			注册