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

中學生 Rank: 2

帖子: 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

超級版主 Rank: 8 Rank: 8

帖子: 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

試試看

Option Explicit
Dim D As Object
Sub Main()
庫存紀錄
出入紀錄
End Sub
Sub 庫存紀錄()
Dim i As Integer, S As String
Set D = CreateObject("SCRIPTING.DICTIONARY") '字典物件
On Error GoTo OP
With Workbooks("庫存.xlsx").Sheets("工作表1")
i = 3
Do While .Cells(i, "C") <> ""
S = .Cells(i, "C") & .Cells(i, "O")
D(S) = D(S) + .Cells(i, "G")
i = i + 1
Loop
End With
Exit Sub
OP:
Workbooks.Open ("這裡輸入 [庫存.xlsx] 檔案路徑")
Resume
End Sub
Sub 出入紀錄()
Dim i As Integer, S As String
On Error GoTo OP
With Workbooks("出入記錄.xlsx").Sheets("工作表1")
i = 4
Do While .Cells(i, "B") <> ""
S = .Cells(i, "B") & .Cells(i, "G")
If D.EXISTS(S) Then
.Cells(i, "J") = D(S)
.Cells(i, "L") = .Cells(i, "I") + .Cells(i, "K") - D(S)
Else
.Cells(i, "J") = ""
.Cells(i, "L") = .Cells(i, "I") + .Cells(i, "K")
End If
i = i + 1
Loop
End With
Exit Sub
OP:
Workbooks.Open ("這裡輸入 [出入記錄.xlsx] 檔案路徑")
Resume
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

317

中學生 Rank: 2

帖子: 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

中學生 Rank: 2

帖子: 97
主題: 31
精華: 0
積分: 133
點名: 0
作業系統: xp2007
軟體版本: xp2007
閱讀權限: 20
性別: 男
來自: 香港
註冊時間: 2012-8-12
最後登錄: 2020-12-25

5^#

發表於 2015-6-22 09:24 | 只看該作者

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

hong912

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 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 中這兩個檔案的位置.

OP:
Workbooks.Open ("這裡輸入 [庫存.xlsx] 檔案路徑")
Resume

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

317

中學生 Rank: 2

帖子: 248
主題: 55
精華: 0
積分: 334
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 20
註冊時間: 2010-7-24
最後登錄: 2023-2-2

7^#

發表於 2015-6-23 19:06 | 只看該作者

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

TOP