|
▼かみちゃん さん:
ありがとうございます。
コピー元を指定して実行するのですね。
この場合範囲が決まっているようでが
行数を指定することは
出来ないでしょうか?
よろしくお願いします。
>複数行に対して、一括して数式を設定することはできます。
>たとえば、こんな感じです。
>Sub Test()
> Range("A1:A3").Formula = "=B1+C1"
>End Sub
>
>そこで、今回は、以下のようにしたらできると思います。
>
>Sub Sample()
> Dim rng As Range
>
> On Error Resume Next
> Set rng = Application.InputBox("コピー元セルは?", , ActiveCell.Address, , , , , 8)
> On Error GoTo 0
> If Not rng Is Nothing Then
> If rng.Count = 1 Then
> rng.Resize(23 + 1).Formula = rng.Formula
> Else
> MsgBox "複数のセルは指定できません"
> End If
> Else
> MsgBox "キャンセルしました"
> End If
>End Sub
|
|