- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
15#
發表於 2010-12-10 08:44
| 只看該作者
回復 12# kelsie - Private Sub Worksheet_SelectionChange(ByVal Target As Range)
- Dim Rng(2) As Range, i%, ii%
- Set Rng(0) = [B3:I4] '數字呈現區
- Set Rng(1) = [B6:I7] '數字排序區
- Set Rng(2) = [B10:K13] '數字選取區
- If Not Intersect(Target, Rng(2)) Is Nothing Then
- i = Application.Count(Rng(0)) '計算 數字呈現區的總數字數
- If i = Rng(0).Count Then '數字呈現區 全部填滿數字 時
- Rng(0) = "": Rng(1) = "" '清空->數字呈現區,數字排序區
- i = Application.Count(Rng(0)) '計算 數字呈現區的總數字數
- End If
- If Application.CountIf(Rng(0), Target) = 0 Then '數字呈現區裡尋找重複的數字
- Rng(0).Cells(i + 1) = Target
- For ii = 1 To i + 1
- Rng(1).Cells(ii) = Application.Small(Rng(0), ii) '傳回數字呈現區裡由小到大在數字排序區
- Next
- End If
- End If
- End Sub
|
|
發表於 2010-12-8 12:02
| 
