VBA例10:按輸入順序填序號

<code>    1 	Private Sub Worksheet_Change(ByVal Target As Range)
    2 	'   功能：根據A列的輸入內容，在B列對應單元格中自動填充A列輸入內容的先後順序號
    3 	'   思路：使用工作表的change事件，自動完成B列順序號。因為先後順序是連續且A列又可能會同時輸入，故採用MAX+1作為先後順序號
    4 	    Dim rng As Range
    5 	
    6 	    '   將B列已使用區域賦值給變量rng
    7 	    Set rng = Range("b2:b" & [B66356].End(xlUp).Row)
    8 	    
    9 	    '   判斷A列與Target是否存在交集（即輸入內容是否在A列）
   10 	    If Not Intersect([a:a], Target) Is Nothing Then
   11 	        '   如有交集，則Target向右偏移1格，並對其賦值為B列已使用區域的最大值+1
   12 	        Target.Offset(, 1) = Application.WorksheetFunction.Max(rng) + 1
   13 	    End If
   14 	    
   15 	End Sub
/<code>