南區農漁會電腦小組園地

'流水號遞增
'方法1：
'在停駐儲存格點的起點位置輸入起值，如1
'搭配按住 CTRL鍵，加拖曳複製點

'方法2：
'在停駐儲存格點的起點位置輸入起值，如1，
'在其次一個儲存格輸入第二個值，與第一個值之差值\，為等差值
'選取這兩個儲存格，在第二個儲存格複製點按住拖曳或直接快點二下

'方法3：
'巨集法，指令如下
'將以下指令複製，放在VBA所新增模組內
'停駐在儲存格點的起點位置
'打開巨集，選用 執行

'遞增
Sub 流水號遞增()
'停駐儲存格點的起點位置值為1，向下每一個儲存格增值為1，直到所輸入終止值
ActiveCell.Value = 1
    Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
        Step:=1, Stop:=InputBox("請輸入遞增後終止值"), Trend:=False
End Sub

'等差遞增
Sub 流水號等差遞增101_a2()
'停駐儲存格點的起點位置值為101，向下每一個儲存格增值為2，直到所輸入終止值
ActiveCell.Value = 101
    Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
        Step:=2, Stop:=InputBox("請輸入等差遞增終後終止值"), Trend:=False
End Sub

'等差遞減
Sub 流水號等差遞減101_m2()
'停駐儲存格點的起點位置值為101，向下每一個儲存格減值為2，直到所輸入終止值
ActiveCell.Value = 101
    Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
        Step:=-2, Stop:=InputBox("請輸入等差遞減後終止值"), Trend:=False
End Sub