Tạo nút tăng giảm

[congnhat94]

Nhờ các tành viên tạo cho em nút thay đổi kết quả của một ô bằng nút lệnh.
Em gửi File kèm theo, xin cảm ơn nhiều

 

[viehoai]

Nhờ các tành viên tạo cho em nút thay đổi kết quả của một ô bằng nút lệnh.
Em gửi File kèm theo, xin cảm ơn nhiều

Bạn xem file thử nhé

 

[nghiaphuc]

Bạn xem file thử nhé

Thấy bài này post sai box nhưng đã lỡ làm rồi thì post luôn (cùng lắm thì được đi dạo hậu viên với chủ topic và anh viehoai ). Hy vọng SMOD chuyển topic đến đúng vị trí.
Bạn xem trong file nhé, mình thiết lập thuộc tính và dùng công thức, không dùng code.

 

[Hoàng Trọng Nghĩa]

Trong VBA của sheet TangGiam, bạn làm thủ tục sau:

Dim Txt As String, Rng As Range

Private Sub SpinButton2_SpinDown()
  Txt = [D1].Value
  With [I2:I20]
    Set Rng = .Find(Txt, LookIn:=xlValues, LookAt:=xlWhole)
  End With
  If Not Rng Is Nothing Then
    If Rng.Address = "$I$20" Then
      [D1].Value = [I20].Value
    Else
      [D1].Value = Rng.Offset(1).Value
    End If
  Else
    [D1].Value = [I2].Value
  End If
End Sub

''====================================================

Private Sub SpinButton2_SpinUp()
  Txt = [D1].Value
  With [I2:I20]
    Set Rng = .Find(Txt, LookIn:=xlValues, LookAt:=xlWhole)
  End With
  If Not Rng Is Nothing Then
    If Rng.Address = "$I$2" Then
      [D1].Value = [I2].Value
    Else
      [D1].Value = Rng.Offset(-1).Value
    End If
  Else
    [D1].Value = [I20].Value
  End If
End Sub