[發問] 簡化CommandButton

c1203364

Private Sub CommandButton1_Click()
CommandButton1.Enabled = False
Range("N3") = Date
End Sub
Private Sub CommandButton2_Click()
CommandButton2.Enabled = False
Range("N4") = Date
End Sub
一直到
Private Sub CommandButton98_Click()
CommandButton98.Enabled = False
Range("N100") = Date
End Sub
請問有辦法簡化嗎?謝謝大大們

linyancheng

大概知道你的意思，但不很清楚，所以可能用這兩個方法之一：
一、只用一個按鈕，再加另一個條件來執行。
二、使用物件類別模組，只要設定一次事件(Sub CommandButton_Click)，不是用循環。

這就是用物件類別模組寫的，所有的按鈕只寫了一次事件，而且按鈕是「執行階段」才創建的：
http://forum.twbts.com/thread-13114-1-1.html
你可以參考一下，研究一下物件類別模組。

c1203364

Private Sub CommandButton_Click()
On Error Resume Next
Dim i As Integer
For i = 3 To 100
If CommandButton & i = False Then
Cells(i, 10) = Date
End If
Next
End Sub
自己亂寫的,想讓大家了解,大概就是這樣的模式,謝謝

owen06

回復 4# c1203364


    想請問的是，請問你這近100個按鈕，你想要簡化成什麼樣的方式？
    是要按下一個按鈕，就能哪些儲存格產生什麼結果，還是其他怎麼樣的構想，
    是否能敘述一下？

c1203364

當同事填寫資料完成,就按紐記錄日期,用來計算處理時間

owen06

回復 1# c1203364


    請問你設這麼多的按鈕，目的為何？能否描述一下你想要達成的功能？