帖子: 31
主題: 5
精華: 0
積分: 68
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 20
性別: 男
註冊時間: 2012-1-2
最後登錄: 2013-7-25

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2012-2-9 00:11 | 只看該作者

[發問] 請問該如何自動記錄加總

本帖最後由 leefing 於 2012-2-9 00:32 編輯

如題

當單量>=10時，判斷    成交=買進    記在  空那一欄
                              , 判斷    成交=賣出    記在  多那一欄
                              ,判斷    成交同時>買進and賣出  記在    多那一欄
                           ,判斷    成交同時<買進and賣出記在空那一欄

每次出現  就累加上次，而不會取代掉

那該如何解決呢？

看盤1.rar (12.36 KB)

樓主熱帖

appr

小學生 Rank: 1

帖子: 28
主題: 4
精華: 0
積分: 32
點名: 0
作業系統: WIN 7
軟體版本: office 2003
閱讀權限: 10
性別: 男
註冊時間: 2012-1-1
最後登錄: 2012-6-29

30^#

發表於 2012-2-21 21:27 | 只看該作者

可以了!!!!!!!!實在是太謝謝了~~~~~

TOP

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

29^#

發表於 2012-2-21 10:20 | 只看該作者

回復 28# appr

只放27#的程式碼
放在工作表模組,如下圖

還有問題的話,請上傳檔案

TOP

appr

小學生 Rank: 1

帖子: 28
主題: 4
精華: 0
積分: 32
點名: 0
作業系統: WIN 7
軟體版本: office 2003
閱讀權限: 10
性別: 男
註冊時間: 2012-1-1
最後登錄: 2012-6-29

28^#

發表於 2012-2-21 02:21 | 只看該作者

不好意思!!!又發生問題了!!!

一開始測試是好的重新關閉後，重新來過也把後來的模組放進來

結果"Target" 被顯示不正確的外部程序?

是我一開始的巨集編輯錯誤嗎?

有點搞混了~"~

TOP

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

27^#

發表於 2012-2-20 08:14 | 只看該作者

回復 26# appr

工作表模組

Private Sub Worksheet_Change(ByVal Target As Range)
Set RngA = Range("A2:A4")
Set RngB = Range("B2:B4")
Set RngCA = Intersect(Target, RngA)
Set RngCS = Intersect(Target, RngB)
If Not RngCA Is Nothing Then
RngCA.Offset(0, 2) = RngCA.Offset(0, 2) + RngCA.Value
RngCA.Value = ""
End If
If Not RngCS Is Nothing Then
RngCS.Offset(0, 1) = RngCS.Offset(0, 1) - RngCS.Value
RngCS.Value = ""
End If
End Sub

複製代碼

TOP

appr

小學生 Rank: 1

帖子: 28
主題: 4
精華: 0
積分: 32
點名: 0
作業系統: WIN 7
軟體版本: office 2003
閱讀權限: 10
性別: 男
註冊時間: 2012-1-1
最後登錄: 2012-6-29

26^#

發表於 2012-2-20 02:00 | 只看該作者

想在請問一個問題!!!

如果我要連A3或者是A4也是一樣的做法!!那是要一樣複製

然後這個工作表模組A2改成A3 C2 改成 C3 嗎?

TOP

appr

小學生 Rank: 1

帖子: 28
主題: 4
精華: 0
積分: 32
點名: 0
作業系統: WIN 7
軟體版本: office 2003
閱讀權限: 10
性別: 男
註冊時間: 2012-1-1
最後登錄: 2012-6-29

25^#

發表於 2012-2-20 01:22 | 只看該作者

是的!!這就是我想要做的部分!!!真的很感謝你!!

真不好意思還讓你用這種方法來呈現出來~"~

TOP

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

24^#

發表於 2012-2-19 23:43 | 只看該作者

回復 23# appr

工作表模組

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" And [A2] <> "" Then
[C2] = [C2] + [A2]
[A2] = ""
End If
If Target.Address = "$B$2" And [B2] <> "" Then
[C2] = [C2] - [B2]
[B2] = ""
End If
End Sub

複製代碼

TOP

appr

小學生 Rank: 1

帖子: 28
主題: 4
精華: 0
積分: 32
點名: 0
作業系統: WIN 7
軟體版本: office 2003
閱讀權限: 10
性別: 男
註冊時間: 2012-1-1
最後登錄: 2012-6-29

23^#

發表於 2012-2-19 21:02 | 只看該作者

本帖最後由 appr 於 2012-2-19 22:43 編輯

不好意思!!!想請教各位一下，我自己有在另外發表一篇主題!!不過我在這邊有看到好像跟我類似的

所以想請教一下!!我的這個問題的做法也是要用SetLinkOnData嗎?

我的問題是
         A1       A2       A3
架構：進貨    退貨    庫存
                                    10

我在進貨的時候是從A1底下輸入

而公式就是=SUM(A3-A1) 那就會出現目前的庫存量

但如果我不小心把進貨的數值Delete 那庫存的值就會消失!!! 但我不知道說，有哪個公式可以自動紀錄A3庫存的數值嗎???

還是說可以把程式關掉的時候自動更新庫存量以及把 A1的數值給清除

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 278
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-12-24

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

22^#

發表於 2012-2-14 00:35 | 只看該作者

回復 20# leefing

本人並無DDE實際經驗，依據kobo的經驗
直接於開檔與關檔使用SetLinkOnData方法就可達到自動化了

Sub Catch_DDE()
'單量10，然後成交=買進，所以"空"下面那一格出現10
If IsError([J12]) Then Exit Sub '單量連結錯誤就停止計算
If [J12] >= 10 Then '單量10以上執行
If [D12] = [F12] Then [U12] = [U12] + [J12]
If [E12] = [F12] Then [T12] = [T12] + [J12]
End If
End Sub
Sub auto_open()
ThisWorkbook.SetLinkOnData "YES|DQ!EXFB2.Volume", "Catch_DDE" '啟動SetLinkOnData方法
End Sub
Sub auto_close()
ThisWorkbook.SetLinkOnData "YES|DQ!EXFB2.Volume", "" '關閉SetLinkOnData方法
End Sub

複製代碼

學海無涯_不恥下問

TOP