フォームボタン値をセルに連続入力

質問

フォームボタンの値をクリックするたびにExcelセルに連続入力又、セル範囲を左クリックで示した後、ボタンクリックで範囲内に値が入力したいのですがVBAコードなどどなたか解る方よろしくお願いします。

回答No.1

jin34 · ベストアンサー

質問内容からはどんな値をいれるのかわかりませんが、
セル範囲を指定してコマンドボタンを押した時に、
セル範囲が解除されてはいけないというのが必須条件となります。
そのためにはコマンドボタンのプロパティで
"TakeFocusOnClick"を"False"にします。
その上で次のコードを書きます。
このケースではセルに入れる値の初期値を範囲内のセル個数（A1～B2なら4)、
そこから列方向→行方向に値を１ずつ増やして入れていきます。

Private Sub CommandButton1_Click()
Dim myrng As Range
Dim i As Integer
On Error Resume Next
i = Selection.Cells.Count
On Error Goto 0
If i = 0 Then
MsgBox "セル範囲を指定してください。"
Exit Sub
End If

For Each myrng In Selection
myrng.Value = i
i = i + 1
Next

End Sub

お礼

有難うございます。非常に助かりました。