如何使用變量引用用戶表單的複選框

任何人都可以告訴我如何使用變量引用用戶窗體的複選框？如何使用變量引用用戶表單的複選框

例如，我有一些像這些，

if UserForm1.checkbox1.Value 
    if UserForm1.checkbox2.Value 
    if UserForm1.checkbox3.Value

我要檢查近40至50複選框。但是編寫像這樣的40到50個語句是耗時的，並且會產生更大的代碼。

所以我有點通過他們的思維迴路：

For i = 1 To 50 
    UserForm1.checkbox & i .Value 
Next i

類似的東西。我沒有發現太多，但最終發現它。這是鏈接http://www.ozgrid.com/forum/showthread.php?t=43358和得到的答案是這樣的，

UserForm1.Shapes("Checkbox" & i).Value

但它無法正常工作。有沒有人知道如何做到這一點？可能嗎？任何幫助是極大的讚賞。

2011-11-01 niko

UserForm1.Controls("Checkbox" & i).Value

2011-11-01 15:12:30

循環遍歷所有控件集合，檢查類型，如果是複選框，則將其轉換爲複選框並取值。

對不起，着寫在VB，怎麼我不知道語法

2011-11-01 12:51:05 user896048

回答