Disable commandbutton sau 3 lần ấn vào đó!

[SNET]

Mình có một phần mềm quay xổ số nho nhỏ làm cho trường
Trong userform 1 của mình, có commandButton1 là "Bắt đầu".
Mình muốn sau 3 lần ấn vào cmdbut1 đó thì nút đó sẽ bị làm mờ (chữ đen -->chữ màu ghi) và không thể ấn được nữa

 

[ndu96081631]

Mình có một phần mềm quay xổ số nho nhỏ làm cho trường
Trong userform 1 của mình, có commandButton1 là "Bắt đầu".
Mình muốn sau 3 lần ấn vào cmdbut1 đó thì nút đó sẽ bị làm mờ (chữ đen -->chữ màu ghi) và không thể ấn được nữa

Thì đặt 1 biến đếm, mổi lần nhấn nút, tăng biến thêm 1 ---> Đặt điều kiện nếu biến >= 3 thì CommandButton1.Enabled = False

Dim iCount As Long
Private Sub CommandButton1_Click()
  iCount = iCount + 1
  If iCount >= 3 Then CommandButton1.Enabled = False
End Sub

 

[tungson_mrcc]

Theo tôi thì bạn phải khai báo biến iCount trong thủ tục Userform_Initialize() ở dạng Public, thì đoạn code trên mới có tác dụng. (Lý do xem xem ở đây http://www.giaiphapexcel.com/forum/showthread.php?t=7146&page=2)
Hoặc cũng có thể bổ sung một textbox, với tên gọi là txtCountBAtDau và với thuộc tính visible = false, trong userform có chứa nút lệnh "Bắt đầu". Việc thay đổi giá trị của textbox thực hiện như cách của bạn NDU, nhờ sử dụng hàm value() để chuyển đổi định dạng dữ liệu.

 

[levanduyet]

Theo tôi thì bạn phải khai báo biến iCount trong thủ tục Userform_Initialize() ở dạng Public, thì đoạn code trên mới có tác dụng. (Lý do xem xem ở đây http://www.giaiphapexcel.com/forum/showthread.php?t=7146&page=2)
Hoặc cũng có thể bổ sung một textbox, với tên gọi là txtCountBAtDau và với thuộc tính visible = false, trong userform có chứa nút lệnh "Bắt đầu". Việc thay đổi giá trị của textbox thực hiện như cách của bạn NDU, nhờ sử dụng hàm value() để chuyển đổi định dạng dữ liệu.

Chào bạn,
Thực hiện đoạn code giống như anh Ndu thì được rồi.

Lê Văn Duyệt