Board logo

標題: [發問] 計算向下箱數加一 [打印本頁]
作者: john2006168    時間: 2013-8-3 11:57     標題: 計算向下箱數加一

我想請問有沒人懂用excel   formulas  or VBA, 自動計算向下箱數加一,如右 (column A, B  的資料,要做到(column C,D那樣),
[attach]15677[/attach]
作者: GBKEE    時間: 2013-8-3 14:42

回復 1# john2006168
  1. Option Explicit
  2. Sub Ex()
  3.     Dim i As Integer
  4.     i = 2
  5.     With Sheets("sheet1")
  6.         .Range("D2:E" & .Range("E1").End(xlDown).Row) = ""
  7.         Do While .Cells(i, "A") <> ""
  8.             If .Cells(i, "B") > 0 Then
  9.                 .Cells(.Rows.Count, "D").End(xlUp).Offset(1).Resize(.Cells(i, "B"), 2) = Array(.Cells(i, "A"), "=ROW()-1")
  10.             End If
  11.             i = i + 1
  12.         Loop
  13.         .Range("E:E") = .Range("E:E").Value
  14.     End With
  15. End Sub
複製代碼
作者: john2006168    時間: 2013-8-4 19:43

[attach]15691[/attach]回復 2# GBKEE
多謝老師幫忙解決我的問題.
    另外,我想問如果同1板只有一個相同的"Ref#",例如第2板 只有一個相同的JN130720028,那麼結果只顯 1個箱號碼 ref no :JN130720028           Cartons no :31-32.   其他不變,
請問應該怎麼寫??
作者: GBKEE    時間: 2013-8-5 14:46

本帖最後由 GBKEE 於 2013-8-5 14:54 編輯

回復 3# john2006168
你上傳這檔案對嗎?與所問的好像沒關連!

Set x = Sheets("DataBasa")有錯誤  ->  Sheets("DataBasa ") 要多一個空格
修改 工作表"DataBasa "
  1. Private Sub Enter_Click()
  2. Set x = Sheets("DataBasa ")
複製代碼
作者: john2006168    時間: 2013-8-5 23:10

回復 4# GBKEE


    sorry,attached wrong file ,pls find the attachment[attach]15702[/attach]
作者: mhl9mhl9    時間: 2013-8-8 05:09

回復 1# john2006168

B2=Row()-1
b2向下複製公式



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