Board logo

標題: 請教一個加聰計算問題, [打印本頁]
作者: 317    時間: 2015-6-20 11:45     標題: 請教一個加聰計算問題,

前輩們, 早晨
請教一個加聰計算問題, 現上傳檔案室, 檔案內有說明, 請前輩們協助, 謝謝!!
[attach]21217[/attach]
作者: 317    時間: 2015-6-21 11:36

前輩們, 早晨
沒有回應, 是我表達不清色, 現重新整理, 再接再厲, 希望能得到回應,
現我把問題貼存庫存工作表內, 希望此次能得到回應,
感恩, 謝謝!!
[attach]21224[/attach]
作者: GBKEE    時間: 2015-6-21 15:55

回復 2# 317

試試看
  1. Option Explicit
  2. Dim D As Object
  3. Sub Main()
  4.     庫存紀錄
  5.     出入紀錄
  6. End Sub
  7. Sub 庫存紀錄()
  8.     Dim i As Integer, S As String
  9.     Set D = CreateObject("SCRIPTING.DICTIONARY")  '字典物件
  10.     On Error GoTo OP
  11.     With Workbooks("庫存.xlsx").Sheets("工作表1")
  12.         i = 3
  13.         Do While .Cells(i, "C") <> ""
  14.             S = .Cells(i, "C") & .Cells(i, "O")
  15.             D(S) = D(S) + .Cells(i, "G")
  16.             i = i + 1
  17.         Loop
  18.     End With
  19.     Exit Sub
  20. OP:
  21.     Workbooks.Open ("這裡輸入 [庫存.xlsx] 檔案路徑")
  22.     Resume
  23. End Sub
  24. Sub 出入紀錄()
  25.     Dim i As Integer, S As String
  26.     On Error GoTo OP
  27.     With Workbooks("出入記錄.xlsx").Sheets("工作表1")
  28.         i = 4
  29.         Do While .Cells(i, "B") <> ""
  30.             S = .Cells(i, "B") & .Cells(i, "G")
  31.             If D.EXISTS(S) Then
  32.                 .Cells(i, "J") = D(S)
  33.                 .Cells(i, "L") = .Cells(i, "I") + .Cells(i, "K") - D(S)
  34.             Else
  35.                 .Cells(i, "J") = ""
  36.                 .Cells(i, "L") = .Cells(i, "I") + .Cells(i, "K")
  37.             End If
  38.             i = i + 1
  39.         Loop
  40.     End With
  41.     Exit Sub
  42. OP:
  43.     Workbooks.Open ("這裡輸入 [出入記錄.xlsx] 檔案路徑")
  44.     Resume
  45. End Sub
複製代碼
作者: 317    時間: 2015-6-21 19:49

回復 3# GBKEE
謝謝大大回應
衷心感謝,
請教下句語法 :
Workbooks.Open ("這裡輸入 [出入記錄.xlsx] 檔案路徑")
這裡是否是指路徑, 如D:\ , 或是C:\. 盤,
現時把程式貼於工作表, 而沒有變更下句, 資料是可以運行
Workbooks.Open ("這裡輸入 [出入記錄.xlsx] 檔案路徑")
這是否無須修改而可以使用,
另想詢問若變更檔案名稱後, 在提取單輸入提取數量, 原庫存工作表沒有顯示更新, 原因是.
請教導, 謝謝!!祝快樂, 身體健康!!
作者: hong912    時間: 2015-6-22 09:24

小弟也下載此檔學習,
的確檔案名稱是不能變更, 因小弟把檔案名稱變更, 於是於程式中庫存改為已變更之名稱, 但使用是沒有反應, 把它改回原有名稱則正常無誤,
GBKEE 版大, 小弟也想知道原因,
可否解說程式, 好等我一般入門者學習,
謝謝!!
作者: GBKEE    時間: 2015-6-23 16:26

回復 4# 317

回復 5# hong912

樓主 317 需在檔案 [庫存.xlsx] 中 尋找檔案 [出入記錄.xlsx] 的資料

xlsx 是無巨集的活頁簿檔案
所以 給的程式碼是 xlsm 有巨集的活頁簿檔案 中執行
當程式執行時 [庫存.xlsx] 或 [出入記錄.xlsx] 沒有開啟時程式會有錯誤的.
所以下面的程式碼,須分別修改為你 PC 中這兩個檔案的位置.
  1. OP:
  2.     Workbooks.Open ("這裡輸入 [庫存.xlsx] 檔案路徑")
  3.     Resume
複製代碼
作者: 317    時間: 2015-6-23 19:06

回復 6# GBKEE
感謝版大教導
小妹今晚會嘗試用套用, 再度感謝,
祝願身體健, 快樂..



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