※ 引述《zybaster (小賽)》之銘言：
: 請問一下,
: 如果想以do loop來一次控置相似名稱之物件的屬性
: ex.有text1 text2...text10
: 如果其中之一的isnull屬性為ture,使對應的visible屬性為false
: 有辦法用迴圈來一次運算嘛?
這是你要的嗎？
Dim contrl As Control
i=0
For Each contrl In Me.Controls
If TypeName(contrl) = "CheckBox" Then
i = i + 1
contrl.Caption = chart_rng.Offset(-1, i)
'checkbox tabindex 3 ~ 13
If contrl Then ck(i) = 1 '有打勾 就是1
End If
Next contrl
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.216.103.66