分析可能重覆的欄值並在ListBox中Add唯一值,讓人員好選。
- 帖子
- 199
- 主題
- 45
- 精華
- 0
- 積分
- 252
- 點名
- 0
- 作業系統
- windows 7 (X64)
- 軟體版本
- office 2010 (x64)
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2010-12-24
- 最後登錄
- 2020-3-31
 
|
本帖最後由 linshin1999 於 2011-1-16 20:15 編輯
回復 1# apolloooo
Dim Text_Flag as Range
Dim sd() as integer, sd_val as integer
For Each Text_Flag In Selection
Sd_val = Asc(Text_Flag.Value)
If sd(s_val) = 0 Then
sd(s_val) = 1
Dept_Observing.AddItem Text_Flag.Value
End If
Next |
|
|
V98
|
|
|
|
|
發表於 2011-1-16 20:14
| 