giúp code 2 chức năng khi nhấn Ctrl (1 người xem)

[minhtuan55]

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é

 

[Hau151978]

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é

Private Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If (Shift And 2) Then [a1] = [a1] - 1 Else [a1] = [a1] + 1
End Sub

 

[minhtuan55]

Private Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If (Shift And 2) Then [a1] = [a1] - 1 Else [a1] = [a1] + 1
End Sub

Anh ơi nút bấm của em là Hình Rectang, chứ không phải nút Bấm trên From

 

[Hau151978]

Anh ơi nút bấm của em là Hình Rectang, chứ không phải nút Bấm trên From

Không biết bạn tạo nút bấm bằng cách nào.

 

[Minh15.01.1991]

Có thể assign macro bằng shapes trên excel mà. Hình vuông hình chữ nhập gì cũng được.

 

[minhtuan55]

Có thể assign macro bằng shapes trên excel mà. Hình vuông hình chữ nhập gì cũng được.

Minh da thu nhung hok dc