Giới hạn số lần bấm nút lệnh (Command Button) (1 người xem)

[beginerVBA]

Thân gửi các quản trị và các bạn
Mình có một command button nhưng mình chỉ muốn nút lệnh này chỉ được nhấn một lần trong một phiên làm việc, tức là khi thoát file vào lại thì nút lệnh đó mới có tác dụng trở lại
Chân thành cảm ơn sự giúp đỡ
P/S: Hiện nay mình đang dùng code password cho button này nhưng thấy chưa tối ưu

 

[ChanhTQ@]

Bạn thử cách này xem sao:

(*) Khai báo 1 biến đếm toàn cục, hay loại True/False cũng được
(*) Khi nhấn nút lệnh thì cọng thêm 1 & nếu là 1 khi không làm gì nữa hết.

 

[beginerVBA]

Thanks bạn giúp đỡ nhưng mình chưa rành viết code lắm, hiện nay chỉ tìm code và chỉnh sửa thêm theo ý mình thôi, chứ tự viết ra là chưa có khả năng, bạn có thể cho xin vài dòng code được không, chân thành cảm ơn

 

[quanluu]

Thanks bạn giúp đỡ nhưng mình chưa rành viết code lắm, hiện nay chỉ tìm code và chỉnh sửa thêm theo ý mình thôi, chứ tự viết ra là chưa có khả năng, bạn có thể cho xin vài dòng code được không, chân thành cảm ơn

Bạn dựa vào code này

Dim kt As Boolean
Sub Button1_Click()
    If kt Then Exit Sub
    kt = True
    MsgBox ("aa")
End Sub

 

[beginerVBA]

Không được bạn ơi, code trên thiếu End If và cũng không thực hiện được, bạn kiểm tra lại giúp được không

 

[quanluu]

Không được bạn ơi, code trên thiếu End If và cũng không thực hiện được, bạn kiểm tra lại giúp được không

Vậy bạn phải gửi code của bạn lên thì mới rõ nó như thế nào chứ?

 

[beginerVBA]

Khi mở file, mình nhấn nút lệnh thì ví dụ nó sẽ hiện lệnh MsgBox ("aa"), nhưng nhấn lần thứ 2 đến thứ n thì không thực hiên nữa, nút lại có hiệu lực khi thoát file và vô lại ( tức là trong phiên làm việc của file chỉ nhấn được 1 lần). Xin cảm ơn

 

[quanluu]

Khi mở file, mình nhấn nút lệnh thì ví dụ nó sẽ hiện lệnh MsgBox ("aa"), nhưng nhấn lần thứ 2 đến thứ n thì không thực hiên nữa, nút lại có hiệu lực khi thoát file và vô lại ( tức là trong phiên làm việc của file chỉ nhấn được 1 lần). Xin cảm ơn

Thì code trên hoạt động như ý bạn nói rùi còn gì? Bấm lần đầu sẽ hiện box, lần sau k hiện nữa tức là ok rùi còn gì.

 

[giaiphap]

Khi mở file, mình nhấn nút lệnh thì ví dụ nó sẽ hiện lệnh MsgBox ("aa"), nhưng nhấn lần thứ 2 đến thứ n thì không thực hiên nữa, nút lại có hiệu lực khi thoát file và vô lại ( tức là trong phiên làm việc của file chỉ nhấn được 1 lần). Xin cảm ơn

Vậy bạn sửa lại thế này. Số màu đỏ là số lần cẩn hiệu lực nháy nút

Dim kt As Integer
Sub Button1_Click()
    If kt>[COLOR=#ff0000][B]3 [/B][/COLOR]Then Exit Sub
    kt = kt+1
    MsgBox ("aa")
End Sub

 

[befaint]

Làm theo hướng dẫn bài #2:

Dim ct As Integer
Sub motclick()
ct = ct + 1
If ct > 1 Then Exit Sub
'Your code
MsgBox "Click lan 1!"
End Sub

 

[beginerVBA]

Cảm ơn mọi người mình làm được rồi

 

[befaint]

Lúc chiều đi về... ngẫm lại thấy vầy thì hay hơn:

Dim ct As Integer
Sub MotClick()
If ct = 1 Then Exit Sub
ct = 1
'Your code
MsgBox "Click lan 1!"
End Sub

 

[ndu96081631]

Lúc chiều đi về... ngẫm lại thấy vầy thì hay hơn:

Dim ct As Integer
Sub MotClick()
If ct = 1 Then Exit Sub
ct = 1
'Your code
MsgBox "Click lan 1!"
End Sub

Vậy thì khác gì so với code bài 4?
Tôi nghĩ code bài 4 hay hơn vì đằng nào cũng cho click có 1 lần, vậy chẳng phải dùng biến Boolean là hợp lý hơn sao?

 

[befaint]

Vậy thì khác gì so với code bài 4?
Tôi nghĩ code bài 4 hay hơn vì đằng nào cũng cho click có 1 lần, vậy chẳng phải dùng biến Boolean là hợp lý hơn sao?

Em so với bài #10. Chứ biến Boolean thì bài #4 giải quyết rồi.