請大大幫忙有部份vb程式碼不懂

別問我是誰

2012-01-28 5:31 am

請幫忙 vb程式碼

情景:
Excel資料表欄B儲存格1-3000內儲存了不同號碼(範圍1101-5599)(如下)
A B C D
1 3312
2 4450
3 5109
4 5109
5 5109
6 5399
7 5109
8 5109
9 5109
10 1121
11 5109
12 5109
.
.
.

有一個按鈕（名: 按鈕A），
當按下它時，
系統會彈出一個MsgBox，
列明相關號碼以及自動叮一聲!

相關號碼:
假如在欄B儲存格1-3000內, 同一號碼出現次數等於8次.

e.g. 5109同1213都出現左8次, 個MsgBox就彈:
以下號碼出現次數等於8次！
5109
1213

我只懂
Sub 按鈕A_Click()
If Then
MsgBox ("以下號碼出現次數等於8次...")
End If
End Sub

咁vb程式碼應該點寫????

回答 (1)

2012-01-30 5:10 am

✔ 最佳答案

Sub 按鈕A_Click()

A = "以下號碼出現次數等於8次！"

For X = 1101 To 5599
If Application.WorksheetFunction.CountIf([B1:B3000], X) = 8 Then A = A & Chr(13) & X
Next X

Y = MsgBox(A, Buttons:=64)

End Sub

如果不要叮一聲! 最後一句只需 MsgBox (A) 便可。

👍 0 👎 0

請大大幫忙 有部份vb程式碼不懂

回答 (1)

請大大幫忙有部份vb程式碼不懂