Vấn đề về chỉnh sửa code chức năng. (1 người xem)

[truongquangtrong]

Chào anh/chị em có một câu hỏi thắc mắc về code 2 chức năng khi nhấn phím ctr


Sub abc()
Range("a1").Value = Range("a1").Value + 1
End Sub


Mình muốn khi mình Click vào nút bấm thì ô A1 sẽ tăng lên 1. Khi mình nhấn Ctrl + click vào nút bấm thì nó sẽ giảm đi 1 Range("a1").Value = Range("a1").Value - 1


Mong mọi người giúp mình nhé.
Cảm ơn nhiều.

Xem thêm>>> https://internetvietnam.net/

 

[nghiaphuc]

Chào anh/chị em có một câu hỏi thắc mắc về code 2 chức năng khi nhấn phím ctr


Sub abc()
Range("a1").Value = Range("a1").Value + 1
End Sub


Mình muốn khi mình Click vào nút bấm thì ô A1 sẽ tăng lên 1. Khi mình nhấn Ctrl + click vào nút bấm thì nó sẽ giảm đi 1 Range("a1").Value = Range("a1").Value - 1


Mong mọi người giúp mình nhé.
Cảm ơn nhiều.

Bạn vẽ một nút lệnh thuộc nhóm ActiveX Controls lên sheet và sử dụng code sau cho nó:
[GPECODE=vb]Private Sub CommandButton1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Shift = 2 Then
[A1] = [A1] - 1
Else
[A1] = [A1] + 1
End If
End Sub[/GPECODE]