在VBA中計算列表框的選定項目

我有十個不同的列表框，它們都具有多選屬性，我正在尋找一個VBA代碼來計算窗體上所有列表框的選定項目。在VBA中計算列表框的選定項目

因爲我在網上的搜索只適用於使代碼長的特定命名列表框。

所以有一種方法可以縮短代碼，並給我所有列表框中所有選定項目的總數。

非常感謝您提前幫助

來源

2017-09-22 Mohsen Hebshawy

Here是here如何通過用戶表單上每個列表框是循環的，計算有多少排在列表框選擇的一種方式。

來源

2017-09-22 10:17:26 ashleedawg

謝謝主席先生：我寫了下面的代碼，它是工作，但不完全，我想：昏暗oneControl爲對象 ' 對於每個oneControl在Me.Controls 如果類型名（oneControl）=‘列表框’然後隨着oneControl 計數= 0 對於intIndex = 0至.ListCount - 1 如果.Selected（intIndex）和.MultiSelect = fmMultiSelectMulti然後計數=計數+ 1 接着 MSGBOX計數結束隨着結束如果接着oneControl –

我想要的所有選擇的列表框的項目總數不適用於每個列表框sepe ratly謝謝 –

該代碼非常難以閱讀，請在發佈時正確設置代碼格式。不知道更多關於你的應用程序，很難說出你要完成什麼，但是一個錯誤是你的計數器* Count *在過程中間重置爲零。將其移至開頭。您嘗試過哪些方法來完成此項工作？ – ashleedawg

在VBA中計算列表框的選定項目

回答

相關問題