white945

¦^´_ 1# skyutm

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Intersect(Target, [B1:B3]) Is Nothing Then Exit Sub
   
3. ReDim ar(1 To [B3])
   
4. YC = [B1] & Format([B2], "00")
   
5. For i = 1 To [B3]
   
6.   ar(i) = YC & Format(i, "00")
   
7. Next
   
8. Sheets(2).[A:A] = ""
   
9. Sheets(2).[A1].Resize([B3], 1) = Application.Transpose(ar)
   
10. End Sub

½Æ»s¥N½X

white945

¦^´_ 9# skyutm
¨â­Óµ{¦¡½XÀ³¸Ó¦X¨Ö

1. Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Intersect(Target, [J1:J3]) Is Nothing Or [J3] = 0 Then Exit Sub
   
3.     ReDim ar(1 To [J3])
   
4.     YC = [J1] & Format([J2], "00")
   
5.     For i = 1 To [J3]
   
6.     ar(i) = YC & Format(i, "00")
   
7.     Next
   
8.     With Sheets(4)
   
9.     .Cells.Rows.Hidden = False
   
10.     .Cells.Columns.Hidden = False
    
11.     .[A:A] = ""
    
12.     .[A3].Resize([J3], 1) = Application.Transpose(ar)
    
13.     .Range("C1", .Cells(1, .Columns.Count)).EntireColumn.Hidden = True
    
14.     .Range(.[A3].Offset([J3], 0), .Cells(Rows.Count, 1)).EntireRow.Hidden = True
    
15.     End With
    
16. End Sub

½Æ»s¥N½X