[已解决]更新后公式没了

9910343

更新后公式没了 更新.rar (12.81 KB, 下载次数: 8)

2012-11-24 08:11 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-11-24 10:44

1. Sub aa()
   
2.     Dim A
   
3.     Dim B, C
   
4.     Dim d As Object, i As Integer, j As Integer
   
5.     Application.ScreenUpdating = False
   
6.     Set d = CreateObject("scripting.dictionary")
   
7.     B = Sheets("消费").Range("a1").CurrentRegion
   
8.     For i = 2 To UBound(B)
   
9.         '如果同一ID有多次消费记录，则要用累加
   
10.         'j = d(B(i, 1))
    
11.         'd(B(i, 1)) = B(i, 3) + j
    
12.         d(B(i, 1)) = B(i, 3)
    
13.     Next
    
14.    
    
15.     With Sheets("资料")
    
16.         A = .Range("a1").CurrentRegion
    
17.         C = .Range("d1").Resize(UBound(A)).Value
    
18.         For i = 2 To UBound(A)
    
19.             'If d.exists(A(i, 2)) Then C(i, 4) = d(A(i, 2))
    
20.             If d.exists(A(i, 2)) Then C(i, 1) = d(A(i, 2))
    
21.         Next
    
22.         .Range("d:d").ClearContents
    
23.         .Range("d1").Resize(UBound(C)) = C
    
24.         '.Range("d1").Value = "余额"
    
25.     End With
    
26.     Application.ScreenUpdating = True
    
27. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

再定义一个数组只有1列。更新的时候只更新D列的内容就成了。

hwc2ycy

还有你的消费记录写进字典的时候，要考虑同一个人的多次消费嘛。

hwc2ycy

1. Sub aa()
   
2.     Dim A
   
3.     Dim B, C
   
4.     Dim d As Object, i As Integer, j As Integer
   
5.     Application.ScreenUpdating = False
   
6.     Set d = CreateObject("scripting.dictionary")
   
7.     B = Sheets("消费").Range("a1").CurrentRegion
   
8.     For i = 2 To UBound(B)
   
9.         '如果同一ID有多次消费记录，则要用累加
   
10.         'j = d(B(i, 1))
    
11.         'd(B(i, 1)) = B(i, 3) + j
    
12.         d(B(i, 1)) = B(i, 3)
    
13.     Next
    
14.    
    
15.     With Sheets("资料")
    
16.         A = .Range("a1").CurrentRegion
    
17.         ReDim C(1 To UBound(A), 1 To 1)
    
18.         For i = 2 To UBound(A)
    
19.             'If d.exists(A(i, 2)) Then C(i, 4) = d(A(i, 2))
    
20.             If d.exists(A(i, 2)) Then C(i, 1) = d(A(i, 2))
    
21.         Next
    
22.         .Range("d:d").ClearContents
    
23.         .Range("d1").Resize(UBound(C)) = C
    
24.         .Range("d1").Value = "余额"
    
25.     End With
    
26.     Application.ScreenUpdating = True
    
27. End Sub

复制代码

9910343

hwc2ycy 发表于 2012-11-24 09:05

更新后，本月没有消费的会员的余额没有了

hwc2ycy

这个简单，把C列先读取D列的内容，再来更新嘛。

hwc2ycy

1. Sub aa()
   
2.     Dim A
   
3.     Dim B, C
   
4.     Dim d As Object, i As Integer, j As Integer
   
5.     Application.ScreenUpdating = False
   
6.     Set d = CreateObject("scripting.dictionary")
   
7.     B = Sheets("消费").Range("a1").CurrentRegion
   
8.     For i = 2 To UBound(B)
   
9.         '如果同一ID有多次消费记录，则要用累加
   
10.         'j = d(B(i, 1))
    
11.         'd(B(i, 1)) = B(i, 3) + j
    
12.         d(B(i, 1)) = B(i, 3)
    
13.     Next
    
14.    
    
15.     With Sheets("资料")
    
16.         A = .Range("a1").CurrentRegion
    
17.         C = .Range("d1").Resize(UBound(A)).Value
    
18.         For i = 2 To UBound(A)
    
19.             'If d.exists(A(i, 2)) Then C(i, 4) = d(A(i, 2))
    
20.             If d.exists(A(i, 2)) Then C(i, 1) = d(A(i, 2))
    
21.         Next
    
22.         .Range("d:d").ClearContents
    
23.         .Range("d1").Resize(UBound(C)) = C
    
24.         '.Range("d1").Value = "余额"
    
25.     End With
    
26.     Application.ScreenUpdating = True
    
27. End Sub

复制代码

9910343

hwc2ycy 发表于 2012-11-24 10:44

在请教一下，原来的代码怎么把公式都去除了，而现在的代码怎么可以保留公式呢

hwc2ycy

1. Sub aa()
   
2.     Dim A
   
3.     Dim B
   
4.     Dim d As Object, i As Integer
   
5.     Dim strID&, strYe&
   
6.     Set d = CreateObject("scripting.dictionary")
   
7.     B = Sheets("消费").Range("a1").CurrentRegion
   
8.     For i = 2 To UBound(B)
   
9.         d(B(i, 1)) = B(i, 3)
   
10.     Next
    
11.     With Sheets("资料")
    
12.         A = .Range("a1").CurrentRegion.Formula
    
13.         For i = 2 To UBound(A)
    
14.             strID = A(i, 2) * 1
    
15.             strYe = A(i, 4) * 1
    
16.         
    
17.             If d.exists(strID) Then
    
18.                 A(i, 4) = d(strID)
    
19.             Else
    
20.                 A(i, 4) = strYe
    
21.             End If
    
22.             
    
23.         Next
    
24.         .Range("d2:d65536").ClearContents
    
25.         .Range("a1").Resize(UBound(A), UBound(A, 2)) = A
    
26.     End With
    
27. End Sub

复制代码

没有再加数组，直接写A1区域。

hwc2ycy

A = .Range("a1").CurrentRegion
A = .Range("a1").CurrentRegion.Formula
这两个语句的区别，你在代码里F8一下就明白了。
注意第一列的值的区别。