Private Sub check0_Click()
Check1.Value = check0.Value
Check2.Value = check0.Value
Check3.Value = check0.Value
Check4.Value = check0.Value
Check5.Value = check0.Value
Check6.Value = check0.Value
Check7.Value = check0.Value
Check8.Value = check0.Value
Check9.Value = check0.Value
Check10.Value = check0.Value
Check11.Value = check0.Value
End Sub
點樣簡化
vb問題(簡單formula)
2007-11-15 7:42 pm
回答 (1)
2007-11-18 8:51 am
✔ 最佳答案
假如Check1,Check2....Check11個Parent叫Form1Private Sub check0_Click()
For i = 1 to 11
Form1.Controls(“Check” & Cstr(i)).Value= check0.Value ’請將引號改成半形
Next
End Sub
收錄日期: 2021-04-13 14:29:44
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20071115000051KK00930