| |
evenoscar さん、こんにちわ。
>EXCELで例えばあるセルに"1"を入力し、マウスの右ボタンをドラッグしていき、ボタンを離すと右メニューが表示されて「連続データ」をクリックすると、ドラッグしたセルに「1･2･3････」のように連続した値が設定されますが、この連続したデータをVBAでやりたいと思っています。
その動作を記録してみたらわかりますが、そのまんま、AutoFillです。
Sub Macro1()
Dim I1 As Variant, I2 As Variant
I1 = Application.InputBox("最小値", "どこから？", 1)
I2 = Application.InputBox("最大値", "どこまで？", 100)
'
If I1 <= I2 Then
If I1 >= 1 Then
With Range("A1")
.Value = I1
If I2 > I1 Then
.AutoFill Destination:=.Resize(I2 - I1 + 1, 1), Type:=xlFillSeries
End If
End With
End If
Else
MsgBox "設定エラー", vbExclamation, "中断"
End If
End Sub
こんな感じです。
A1セルが基準になっていますが、ここを変更するようにすると、好きなセルから連番をふることができます。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
- 07/10/7(日) 12:42 -
