|
▼awu さん:
>こんな感じで如何でしょうか。
>
>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
あのこれでできたのですが、IsNumericがわからなくてちょっとどうしてもFor文を使ってやりたいのですがお願いします。
|
|