標題: [發問] 請問,如何使用vba countif excel 二維陣列中之數字並作成下拉式選單之清單 [打印本頁]

---

作者: cmo140497    時間: 2012-8-9 10:06     標題: 請問,如何使用vba countif excel 二維陣列中之數字並作成下拉式選單之清單

Dear 各位大大 :
小弟有一問題想請教各位大大,關於如何使用excel vba countif 一個二維陣列之數字,排序後,刪除"0"並自成為下拉式選單中之數字範圍,謝謝 !
[attach]12070[/attach]



[attach]12071[/attach]

---

作者: GBKEE    時間: 2012-8-14 09:43

回復 1# cmo140497
試試看

1. Sub Ex()
   
2.     Dim Rng As Range, i As Integer, S As Integer
   
3.     Dim Ar '() <-動態陣列
   
4.     With Sheets("sheet3")
   
5.         Set Rng = .Range("b14:o23")
   
6.         For i = Application.Min(Rng) To Application.Max(Rng)
   
7.             Debug.Print i & ":" & Application.CountIf(Rng, i)
   
8.             If Application.CountIf(Rng, i) > 0 Then
   
9.                 Ar = Ar & IIf(Ar <> "", "," & i, i)  '動態陣列時 註解此行程式碼(不需此行程式碼)
   
10.                 'ReDim Preserve Ar(S)
    
11.                 'Ar(S) = "" & i
    
12.                 'S = S + 1
    
13.             End If
    
14.         Next
    
15.         Ar = Split(Ar, ",")   '動態陣列時 註解此行程式碼(不需此行程式碼)
    
16.         .Shapes(1).ControlFormat.List = Ar
    
17.     End With
    
18. End Sub

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)