Làm sao để giá trị Spin button là tuần hoàn (quay lại nếu hết chu kỳ)

[hoangtuaotrang_hp_vn]

Em có sử dụng Spin Button để trình bày dữ liệu THÁNG và NGÀY,
câu hỏi cần đặt ra là làm sao cho nó tuần hoàn, quay về nếu hết chu kỳ:
1. giá trị tháng ở cột H: từ tháng 1->12,
- khi đang ở tháng 12, ấn tăng thì sẽ quay về tháng 1, ấn tăng tiếp thì 2>3>4...
- khi đang ở tháng 1 mà ấn giảm sẽ hiển thị tháng 12, ấn giảm tiếp thì 11>10>9...
2. giá trị ngày ở cột I: từ ngày 1->31,
- Khi đang ở ngày 31, ấn tăng sẽ quay về ngày 1, ấn tăng tiếp thì 2>3>4...
- khi đang ở ngày 1, ấn giảm thì sẽ hiển thị ngày 31, ấn giảm tiếp thì 30>29>28…

Mong anh/chị giúp đỡ, em chân thành cảm ơn

 

[tam888]

Em có sử dụng Spin Button để trình bày dữ liệu THÁNG và NGÀY,
câu hỏi cần đặt ra là làm sao cho nó tuần hoàn, quay về nếu hết chu kỳ:
1. giá trị tháng ở cột H: từ tháng 1->12,
- khi đang ở tháng 12, ấn tăng thì sẽ quay về tháng 1, ấn tăng tiếp thì 2>3>4...
- khi đang ở tháng 1 mà ấn giảm sẽ hiển thị tháng 12, ấn giảm tiếp thì 11>10>9...
2. giá trị ngày ở cột I: từ ngày 1->31,
- Khi đang ở ngày 31, ấn tăng sẽ quay về ngày 1, ấn tăng tiếp thì 2>3>4...
- khi đang ở ngày 1, ấn giảm thì sẽ hiển thị ngày 31, ấn giảm tiếp thì 30>29>28…

Mong anh/chị giúp đỡ, em chân thành cảm ơn

Dùng IF trong sự kiện như code ví dụ dưới (với SpinButton1)
Nhớ đặt min=0, max=13

Private Sub SpinButton1_SpinDown()
    With SpinButton1
        If .Value = 0 Then .Value = 12
    End With
End Sub

Private Sub SpinButton1_SpinUp()
   With SpinButton1
        If .Value = 13 Then .Value = 1
    End With
End Sub

 

[hoangtuaotrang_hp_vn]

Dùng IF trong sự kiện như code ví dụ dưới (với SpinButton1)
Nhớ đặt min=0, max=13

Private Sub SpinButton1_SpinDown()
    With SpinButton1
        If .Value = 0 Then .Value = 12
    End With
End Sub

Private Sub SpinButton1_SpinUp()
   With SpinButton1
        If .Value = 13 Then .Value = 1
    End With
End Sub

em cảm ơn anh, em làm được rồi ạ, cho em hỏi thêm là:

Nếu dùng Spin button của Form Control (không phải ActiveX control) thì có cách nào xử lý không ạ? (bằng công thức chẳng hạn)
Vì em phải gửi file qua Kakaotalk cho sếp, mà Kakaotalk nó không chấp nhận định dạng xlsm hoặc xlsb

 

[Phuocam]

Nếu dùng Spin button của Form Control (không phải ActiveX control) thì có cách nào xử lý không ạ? (bằng công thức chẳng hạn)

Thử cách dùng công thức.