Board logo

標題: 編列序號問題 [打印本頁]
作者: sheau-lan    時間: 2015-6-11 08:44     標題: 編列序號問題

如何讓編號自動產生
詢求各位大大幫忙
作者: luhpro    時間: 2015-6-13 08:29

如何讓編號自動產生
詢求各位大大幫忙
sheau-lan 發表於 2015-6-11 08:44

你的範例檔有些地方邏輯性不一致,
這裡只能先依我理解的規則來試做.

1.每個 Range 間固定只留 4 的倍數的空白列,
超過且未達 4 的倍數的空白列無條件刪除,
每多 4 個空白列 規格的序號加 1

2.只考慮變更 品號 所在列自動編號 規格-英文字,
對於其下資料並未做重新編號的處理.
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. On Error GoTo 99
  3. Dim TG As Range
  4. With Target
  5. If .Row >= 3 And .Column = 1 Then
  6.      If .Value = "" Then
  7. 98:      .Offset(0, 2) = ""
  8.          .Offset(0, 3) = ""
  9.          .Offset(0, 5) = ""
  10.          .Offset(0, 6) = ""
  11.   
  12.   Else: Set TG = Sheet7.[H3:H9999].Find("*" & .Value & "*", , , xlWhole)
  13.              If TG Is Nothing Then GoTo 98
  14.                 .Offset(0, 2) = TG.Offset(0, -6).Value
  15.                TG2 = .Offset(0, 2).Value
  16.                 .Offset(0, 3) = TG.Offset(0, -3).Value
  17.                 .Offset(0, 9) = TG.Offset(0, -2).Value
  18.                 .Offset(0, 5) = Application.VLookup(TG2, Sheet15.[A4:H9999], 8, False)
  19.                      If IsError(.Offset(0, 5).Value) Then .Offset(0, 5) = ""
  20.                 .Offset(0, 6) = TG.Offset(0, 1).Value
  21.                 Dim N%, N1%, S1$, C%, S2$
  22.                 N = 0
  23.                 Set TG = .Offset(-1, 7)
  24.                 While TG = ""
  25.                   Set TG = TG.Offset(-1)
  26.                   N = N + 1
  27.                 Wend
  28.                
  29.                 N1 = Mid(TG, 2, Len(TG) - 3)
  30.                 S1 = Right(TG, 1)
  31.                
  32.                 C = 0
  33.                 S2 = TG
  34.                 While TG = S2
  35.                   Set TG = TG.Offset(-1)
  36.                   C = C + 1
  37.                 Wend
  38.                
  39.                 If N > 3 Then
  40.                   N1 = N1 + Int((N - 3) / 4) + 1
  41.                   S1 = "A"
  42.                   With Range(.Offset(0), .Offset(, 9)).Borders(xlEdgeTop)
  43.                     .LineStyle = xlContinuous
  44.                     .ColorIndex = 37
  45.                     .Weight = xlHairline
  46.                   End With
  47.                   N = N - (Int(N / 4) * 4)
  48.                 Else
  49.                   If C > 3 Then S1 = Chr(Asc(S1) + 1)
  50.                 End If
  51. Application.EnableEvents = False
  52.                 .Offset(, 7) = "M" & N1 & "-" & S1
  53.                 If N > 0 And N < 4 Then
  54.                   Range(Rows(.Row - 1), Rows(.Row - N)).Delete
  55.                   .Offset(1).Select
  56.                 End If
  57. Application.EnableEvents = True
  58.              End If
  59.   End If
  60. End With
  61. 99
  62. End Sub
複製代碼
作者: sheau-lan    時間: 2015-6-15 10:54

luhpro 大大..就是這樣....謝謝你歐..感激不盡...
作者: sheau-lan    時間: 2015-7-1 07:45

luhpro大,上次是你幫我解的,這次編碼有一些不一樣,但大同小異
可否請再幫忙



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)