[發問] Calculate，能否回傳發生變動的儲存格的欄位

帖子: 50
主題: 8
精華: 0
積分: 66
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2013
閱讀權限: 20
性別: 男
註冊時間: 2015-2-3
最後登錄: 2022-3-5

27^#

發表於 2016-5-2 22:17 | 只看該作者

回復 27# c_c_lai

太感謝了，完全就是我想實現的狀況
仔細看了語法，其實是之前自已想得太複雜了
其實就單純找「yes」就好了呀。

換言之，其實不需要做到二層迴圈，用if一欄一欄的找就好了。
感謝不吝指教。

EXCEL VBA新手，請前輩多多指教

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

26^#

發表於 2016-5-2 19:10 | 只看該作者

回復 24# ketrddem

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2798
主題: 10
精華: 0
積分: 2854
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-4-20

25^#

發表於 2016-5-2 18:38 | 只看該作者

給個參考方案：

TEST001.rar (25.62 KB)
http://www.funp.net/921173

此帖我發意見至此為止囉！！！

帖子: 50
主題: 8
精華: 0
積分: 66
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2013
閱讀權限: 20
性別: 男
註冊時間: 2015-2-3
最後登錄: 2022-3-5

24^#

發表於 2016-5-2 16:42 | 只看該作者

小弟又想出解法了
二層迴圈
FOR I TO LOSTROW
   FOR J TO LOSTCOLUMN
            IF CELLS(I,J).VALUE = "YES"
                  MSGBOX  "股號" & CELLS(I,1).VALUE & "符合條件" & CELLS(1,J).VALUE
            END IF
   NEXT
NEXT

以上，晚上再實際寫寫看，運作看看

EXCEL VBA新手，請前輩多多指教

帖子: 50
主題: 8
精華: 0
積分: 66
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2013
閱讀權限: 20
性別: 男
註冊時間: 2015-2-3
最後登錄: 2022-3-5

23^#

發表於 2016-5-2 15:57 | 只看該作者

小弟想出解法了，供各位參考指教：

可能繞了一大圈，但真沒辦法的狀況下，也許這個土法鍊鋼的方法反而比較簡單

SHEET1，為CALCULATE的工作表重算事件
SHEET2，用VBA，每十秒將SHEET1整張表複製值到SHEET2上
SHEET3，比對SHEET2與SHEET1的欄位，因為SHEET3不是用到CALCULATE方法，所以差異欄位就很容易找了。

EXCEL VBA新手，請前輩多多指教

帖子: 50
主題: 8
精華: 0
積分: 66
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2013
閱讀權限: 20
性別: 男
註冊時間: 2015-2-3
最後登錄: 2022-3-5

22^#

發表於 2016-5-2 15:41 | 只看該作者

目前的想法，下一分鐘，條件不成立，K2不填入任何資料
如果是一下成立一下不成立
就在值填入K2之前，先掃一遍K欄，看有沒有同時符合1216條件一。如果有，就跳過不填入

換言之，同一個條件只會產生一次訊號，而且只提供多訊或空訊，帶進不帶出。

這都是次要問題，主要是如何取得發生變動的欄位的位址。位址抓不到，後續的動作都無法進行了。

EXCEL VBA新手，請前輩多多指教

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2798
主題: 10
精華: 0
積分: 2854
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-4-20

21^#

發表於 2016-5-2 15:35 | 只看該作者

回復 20# ketrddem

Ｋ２：１２１６統一．符合條件１．建議買進
下一分鐘．條件不成立，Ｋ２如何顯示？

最好附上簡單範例檔案，否則一來一往切也不到點，太浪費大家時間！
若要動態顯示，也許只用公式即可解決！

帖子: 50
主題: 8
精華: 0
積分: 66
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2013
閱讀權限: 20
性別: 男
註冊時間: 2015-2-3
最後登錄: 2022-3-5

20^#

發表於 2016-5-2 14:41 | 只看該作者

回復 19# 准提部林

准提大大，承蒙你關照，沒想到果然把您釣出來了。以前在奇摩知識就發過許多問題，也蒙你指導許多。

這個例子，並不是要取儲存格中的文字「YES」

而是要取「YES」這個值它的列號及欄名，以便得知是那一支股票(列號)符合了選股條件，以及發生在那一種條件下(欄名)的選股條件。

圖例更改剛剛小弟發的圖，發錯圖了，這張後面還有說明，比較完整。

cats.jpg (262.69 KB)

EXCEL VBA新手，請前輩多多指教

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2798
主題: 10
精華: 0
積分: 2854
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-4-20

19^#

發表於 2016-5-2 14:20 | 只看該作者

回復 17# ketrddem

以這樣的表格, 同時成立條件的可能不只一個, 而且自動重算無法判定是哪個(些)儲存格,
建議公式改為:
=IF(條件成立,"YES",0)

當發生事件觸動,
Set Rng = [H:H].SpecialCells(xlCellTypeFormulas, 2) '抓取公式中的[文字值]儲存格
再用
For Each xR in Rng
逐一記錄
next