返回列表下一主題上一主題發帖

分析可能重覆的欄值並在ListBox中Add唯一值,讓人員好選。

apolloooo

　暱稱: 借钱

中學生 Rank: 2

帖子: 54
主題: 7
精華: 0
積分: 81
點名: 0
作業系統: WINDOWS XP
軟體版本: OFFICE 2007
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2011-1-14
最後登錄: 2021-4-23

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-1-16 18:54 | 顯示全部帖子

分析可能重覆的欄值並在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

樓主熱帖

借錢不還，才是王道

靜思自在 : 每天無所事事，是人生的消費者，積極、有用才是人生的創造者。

返回列表下一主題上一主題