Bấm Chuột Tăng Số & Giảm Số (1 người xem)

[minhhangg]

Em có yêu cầu trong bài xin được giúp đỡ ạ.

 

[Quang_Hải]

Code này được không?

Sub Tangdan()
If [a1] = 10 Then
[a1] = 0
Else
[a1] = [a1] + 1
End If
End Sub

 

[ptm0412]

Sub Addnum()
If Sheet1.[A1] = 10 Then
    Sheet1.[A1] = 0
Else
    Sheet1.[A1] = Sheet1.[A1] + 1
End If
End Sub

 

[huuthang_bd]

Em có yêu cầu trong bài xin được giúp đỡ ạ.

Có lẽ bạn muốn như thế này:

Sub Macro1()
If [A1].Value = 0 Then
    Shapes("Button").AlternativeText = "+"
ElseIf [A1].Value = 10 Then
    Shapes("Button").AlternativeText = "-"
End If
[A1].Value = Evaluate([A1].Value & Shapes("Button").AlternativeText & 1)
End Sub

 

[minhhangg]

Hi Hi Hi. Cảm ơn các anh nhiều. Phương án nào cũng đúng ý em cả. Cảm ơn các anh nhe

 

[huuthang_bd]

Hi Hi Hi. Cảm ơn các anh nhiều. Phương án nào cũng đúng ý em cả. Cảm ơn các anh nhe

Mỗi người hiểu ý bạn một cách và code cũng cho kết quả khác nhau vậy mà bạn nói phương án nào cũng đúng ý bạn cả thì lạ thật.

 

[minhhangg]

Mỗi người hiểu ý bạn một cách và code cũng cho kết quả khác nhau vậy mà bạn nói phương án nào cũng đúng ý bạn cả thì lạ thật.

Đúng là vậy, lúc trưa em thử được sao hiện giờ lại không vậy anh huuthang_bd.
Em thử gán 3 button cho 3 code của 3 anh, nhưng code anh thì lỗi.

 

[ndu96081631]

Đúng là vậy, lúc trưa em thử được sao hiện giờ lại không vậy anh huuthang_bd.
Em thử gán 3 button cho 3 code của 3 anh, nhưng code anh thì lỗi.

Rõ ràng cái Button "Anh Thang" có tên là Button 3, vậy mà trong code bạn lại ghi Shapes("Button").AlternativeText = ...
Đó là chưa nói các lỗi có thể xãy ra như:
- Nếu code đặt trong 1 module thì còn phải ghi rõ Button ấy thuộc sheet nào nữa mới chuẩn
- Nếu giá trị A1 <> 0 hoặc <> "" và AlternativeText = "" thì cũng lỗi
Để tôi sửa lại code này chút:

Sub Test()
  Dim shp As String, lVal As Long
  On Error Resume Next
  shp = Application.Caller
  With Sheet1
    lVal = CLng(.Shapes(shp).AlternativeText)
    If lVal = 0 Then .Shapes(shp).AlternativeText = 1
    If .Range("A1").Value = 0 Then
      .Shapes(shp).AlternativeText = 1
    ElseIf .Range("A1").Value = 10 Then
      .Shapes(shp).AlternativeText = -1
    End If
    .Range("A1").Value = .Range("A1").Value + Clng(.Shapes(shp).AlternativeText)
  End With
End Sub

Chỉ cần bạn Assign Macro bất cứ button nào cho code trên đều chạy được ráo