'*** スピンボタン-アップ *** Private Sub spimbtn_data_SpinUp() Call kyoutuu '----- オートフィルターをかけている場合解除 ----- If Sheets(sname(2)).FilterMode = True Then Sheets(sname(2)).ShowAllData End If '日付を1足す Range("F4").Value = Range("F4").Value + 1 Range("I4").Value = Range("I4").Value + 1 Call spimbtn_data_writ End Sub '*** スピンボタン-ダウン *** Private Sub spimbtn_data_SpinDown() Call kyoutuu '----- オートフィルターをかけている場合解除 ----- If Sheets(sname(2)).FilterMode = True Then Sheets(sname(2)).ShowAllData End If '日付を1引く Range("F4").Value = Range("F4").Value - 1 Range("I4").Value = Range("I4").Value - 1 Call spimbtn_data_writ End Sub