返回列表 上一主題 發帖

[發問] 求助~排程填入日期

dino1978

帖子
38 
主題
4 
精華
0 
積分
65 
點名
0  
作業系統
Window7 
軟體版本
office2010 
閱讀權限
20 
性別
男 
來自
Taipei 
註冊時間
2011-12-16 
最後登錄
2013-12-13 
1# 跳轉到 »
發表於 2013-1-10 14:18 | 顯示全部帖子
回復 1# adam2010


    試試看吧
  1. Private Sub CommandButton1_Click()

  3. Dim LotID As Range, Tagt As Range, Qty As Range
  4. Dim a, TalQty

  6. With sheet2

  8.     For Each LotID In .Range("A2:A" & .[A65536].End(xlUp).Row)
  9.    
  10.         For Each Tagt In .Range("B" & LotID.Row & ":J" & LotID.Row)
  11.         
  12.             If Tagt <> "" Then
  13.         
  14.                 With Sheet1
  15.             
  16.                     a = Application.Match(LotID, .[A:A], 0)
  17.                     aa = Application.CountIf(.[A:A], LotID)
  18.                     TalQty = 0
  19.         
  20.                     For Each Qty In .Range("D" & a & ":D" & (a + aa - 1))
  21.             
  22.                         If Qty.Offset(, 1) <> "" Then GoTo ntxa
  23.                
  24.                         Qty = Qty + TalQty
  25.                
  26.                         If Qty < Tagt Then
  27.                         
  28.                             Qty.Offset(, 1) = sheet2.Cells(1, Tagt.Column)
  29.                             TalQty = Qty
  30.                         
  31.                         Else
  32.                            
  33.                             Qty.Offset(, 1) = sheet2.Cells(1, Tagt.Column)
  34.                             GoTo ntla
  35.                         End If
  36. ntxa:
  37.                     Next Qty
  38. ntla:
  39.                 End With
  40.             End If
  41.             
  42.         Next Tagt
  43.    
  44.     Next LotID

  46. End With
  47.    
  48. End Sub
複製代碼

TOP

        靜思自在 : 人生最大的成就是從失敗中站起來。
返回列表 上一主題