分析可能重覆的欄值並在ListBox中Add唯一值,讓人員好選。
- 帖子
- 54
- 主題
- 7
- 精華
- 0
- 積分
- 81
- 點名
- 0
- 作業系統
- WINDOWS XP
- 軟體版本
- OFFICE 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 桃園
- 註冊時間
- 2011-1-14
- 最後登錄
- 2021-4-23
|
分析可能重覆的欄值並在ListBox中Add唯一值,讓人員好選。
A欄
A
A
A
B
B
B
C
C
D
E
F
F
G
★Dept_Observing 是list Box
變數A 只是判斷欄位值是否和listbox 相同的真假值。
要用VBA 應用 , 自己寫了一段程式，是為了在list box 只列出單一值(A,B,C,D,E,F,G)給人員方便點選。
但總覺得程式很長，可否幫忙簡化呢？
For I = 1 To 20
A = 0
Text_Flag = Area.Cells(I, 1)
For J = 0 To Dept_Observing.ListCount - 1
If Dept_Observing.List(J) = Text_Flag Then
A = 1
Exit For
End If
Next J
If A = 0 And Text_Flag <> "" Then
Dept_Observing.AddItem Text_Flag
End If
Next I |
|
|
借錢不還，才是王道
|
|
|
|
|
發表於 2011-1-16 18:54
| 
