Question

如何在我的VBA程序中加入进度条及完成计算的百分比

我明白，只是我不知道，在我的程序里不知道加到哪里，你帮我说明一下好吗，这是我的程序
Sub 检索B列中与A列中相同且在B列中有重复的地籍号()
Range("c2:c" & 65536).ClearContents
er = [a65536].End(xlUp).Row
er1 = [B65536].End(xlUp).Row
For j = 2 To er
serstr = Range("A" & j)
tr = 0
For i = 2 To er1
If Range("B" & i) = serstr Then
tr = tr + 1
End If
Next
If tr > 1 Then
Range("C" & 1) = "检索B列中与A列中相同,且在B列中有重复的地籍号"
Range("C" & j) = Range("A" & j) & "(" & tr & "次)"
End If
Next
End Sub

Answer 1

可以用[1:er1]来显示,其中的1,用你的变量j替换,做代码把这个显示到你需要的地方,如果需要百分比,那就换算一下,设百分比为t,有t:100=j:er 得到t=(100*j/er)*100%就可以了

Answer 2

这个比较麻烦，得用 窗体模拟，EXCELHOME 这个论坛上有源码，你自己去找找

追问

你看我的补充，帮我说明一下

追答

加在最内层的 FOR 循环里面