|
こんな感じで如何でしょうか。
Sub ボタン1_Click()
Dim N As Integer
With Sheets("Sheet2")
If IsNumeric(Range("B1").Value) And _
Range("B1").Value <> "" Then
N = Range("B1").Value Mod 12
Range("D1").Value = .Range("A1").Offset(N).Value
Else
Range("D1").Value = ""
End If
If Range("B2").Value >= 1 And _
Range("B2").Value <= 12 Then
Range("D2").Value = _
.Range("B1").Offset(Range("B2").Value - 1).Value
Range("D3").Value = _
.Range("C1").Offset(Range("B2").Value - 1).Value
Else
Range("D2:D3").Value = ""
End If
End With
End Sub
|
|