vb問題(簡單formula)

2007-11-15 7:42 pm

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
點樣簡化

回答 (1)

centralfishdie

2007-11-18 8:51 am

✔ 最佳答案

假如Check1,Check2....Check11個Parent叫Form1

Private Sub check0_Click()
For i = 1 to 11
Form1.Controls(“Check” & Cstr(i)).Value= check0.Value　’請將引號改成半形
Next
End Sub

👍 0 👎 0

收錄日期: 2021-04-13 14:29:44
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20071115000051KK00930

檢視 Wayback Machine 備份