返回列表 上一主題 發帖

請教一個加聰計算問題,

317

帖子
248 
主題
55 
精華
0 
積分
334 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
20 
註冊時間
2010-7-24 
最後登錄
2023-2-2 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-6-20 11:45 | 只看該作者

請教一個加聰計算問題,

前輩們, 早晨
請教一個加聰計算問題, 現上傳檔案室, 檔案內有說明, 請前輩們協助, 謝謝!!
CC.rar (25.9 KB)
收藏 分享

317

帖子
248 
主題
55 
精華
0 
積分
334 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
20 
註冊時間
2010-7-24 
最後登錄
2023-2-2 
2#
發表於 2015-6-21 11:36 | 只看該作者
前輩們, 早晨
沒有回應, 是我表達不清色, 現重新整理, 再接再厲, 希望能得到回應,
現我把問題貼存庫存工作表內, 希望此次能得到回應,
感恩, 謝謝!!
AA.rar (29.15 KB)

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
3#
發表於 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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

317

帖子
248 
主題
55 
精華
0 
積分
334 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
20 
註冊時間
2010-7-24 
最後登錄
2023-2-2 
4#
發表於 2015-6-21 19:49 | 只看該作者
回復 3# GBKEE
謝謝大大回應
衷心感謝,
請教下句語法 :
Workbooks.Open ("這裡輸入 [出入記錄.xlsx] 檔案路徑")
這裡是否是指路徑, 如D:\ , 或是C:\. 盤,
現時把程式貼於工作表, 而沒有變更下句, 資料是可以運行
Workbooks.Open ("這裡輸入 [出入記錄.xlsx] 檔案路徑")
這是否無須修改而可以使用,
另想詢問若變更檔案名稱後, 在提取單輸入提取數量, 原庫存工作表沒有顯示更新, 原因是.
請教導, 謝謝!!祝快樂, 身體健康!!

TOP

hong912

帖子
97 
主題
31 
精華
0 
積分
133 
點名
0  
作業系統
xp2007 
軟體版本
xp2007 
閱讀權限
20 
性別
男 
來自
香港 
註冊時間
2012-8-12 
最後登錄
2020-12-25 
5#
發表於 2015-6-22 09:24 | 只看該作者
小弟也下載此檔學習,
的確檔案名稱是不能變更, 因小弟把檔案名稱變更, 於是於程式中庫存改為已變更之名稱, 但使用是沒有反應, 把它改回原有名稱則正常無誤,
GBKEE 版大, 小弟也想知道原因,
可否解說程式, 好等我一般入門者學習,
謝謝!!
hong912

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
6#
發表於 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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

317

帖子
248 
主題
55 
精華
0 
積分
334 
點名
0  
作業系統
xp 
軟體版本
2003 
閱讀權限
20 
註冊時間
2010-7-24 
最後登錄
2023-2-2 
7#
發表於 2015-6-23 19:06 | 只看該作者
回復 6# GBKEE
感謝版大教導
小妹今晚會嘗試用套用, 再度感謝,
祝願身體健, 快樂..

TOP

        靜思自在 : 並非有錢魷是快樂，問心無愧心最安。
返回列表 上一主題