作者xxyyzzxyz627 (MrWUYUAN)
看板Office
標題[算表] 儲存格變動時執行具集
時間Fri Nov 15 21:01:58 2019
軟體:Excel
版本:2013
我本來使用Private Sub Worksheet_Change
A1儲存格有變動時
Call 具集
我用手動變動A1時會call 具集
但我用條件式的情況下就不會call了
我A1=if(b1=1,1,””) 但用這方法就不會call具集了
請問有什麼辦法用條件式的情況下會執行具集
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 42.76.6.180 (臺灣)
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Office/M.1573822920.A.A97.html
1F：→ newacc: 想到的方式是把A1值先存到一個全域變數裡 11/15 21:41
2F：→ newacc: 觸發Worksheet_Change後判斷A1.Value是否相同 11/15 21:41
3F：→ newacc: 相同不做事，不同的話先更新全域變數再call巨集 11/15 21:42
4F：→ xxyyzzxyz627: 謝謝newacc 我現在就是碰到a1儲存格變動時不會觸法 11/15 21:48
5F：→ xxyyzzxyz627: 具集 11/15 21:48
6F：→ soyoso: 是巨集，不是具集，另外觸"發" 11/15 21:50
7F：→ soyoso: n大所回文，會於儲存格a1變動時觸發巨集 11/15 21:51
8F：→ soyoso: 因為worksheet_change時判斷a1和先前將a1寫入變數的值是否 11/15 21:52
9F：→ soyoso: 相同，不同就call 程序 11/15 21:53
10F：→ xxyyzzxyz627: Private Sub Worksheet_Change(ByVal Target As Ran 11/15 21:58
11F：→ xxyyzzxyz627: ge) 11/15 21:58
12F：→ xxyyzzxyz627: If Target.Address = "$A$1" Then 11/15 21:58
13F：→ xxyyzzxyz627: Call LINE1 11/15 21:58
14F：→ xxyyzzxyz627: End If 11/15 21:58
15F：→ xxyyzzxyz627: End Sub 11/15 21:58
16F：→ xxyyzzxyz627: 我現在的寫法是這樣可以請問如何修改嗎 謝謝 11/15 21:58
17F：→ soyoso: 先宣告個全域變數，在模組內 11/15 21:59
18F：→ soyoso: 判斷if 儲存格a1 <> 全域變數 then 11/15 22:00
19F：→ soyoso: 全域變數=儲存格a1 11/15 22:01
20F：→ soyoso: call 程序 11/15 22:01
21F：→ soyoso: end if 11/15 22:01
22F：→ soyoso: workbook_open觸發時就，全域變數=儲存格a1的值 11/15 22:02
23F：→ xxyyzzxyz627: 我現在卡住的地方 是我a1的儲存格是用公式 但公式 11/15 22:08
24F：→ xxyyzzxyz627: 的變動讓儲存格的值變動 無法觸法Worksheet _Change 11/15 22:08
25F：→ soyoso: 是的，這篇的回文就是在解決a1儲存格用公式且觸"發" 11/15 22:09
26F：→ soyoso: 再次提醒是觸"發"不是觸"法" 11/15 22:10
28F：→ soyoso: a1為公式(以內文公式)，b1為1或非1時觸發(測試是以msgbox) 11/15 22:15
29F：→ soyoso: 但當a1已是空字串，而更改b1為非1的值時，因為a1會和全域 11/15 22:17
30F：→ soyoso: 變數來判斷都是空字串，所以就不觸發 11/15 22:17
31F：→ soyoso: 因此回文方面是符合a1公式的變動讓儲存格值變動而執行接下 11/15 22:19
32F：→ soyoso: 來call 程序的動作 11/15 22:19
33F：→ xxyyzzxyz627: 抱歉我用一樣的方法還是不行可以請你看一下嗎 謝謝 11/15 22:26
34F：→ soyoso: 將巨集貼到回文或內文看看 11/15 22:29
36F：→ xxyyzzxyz627: 上面是檔案的縮網址感謝你 11/15 22:32
37F：→ soyoso: 回文21:59~22:02的部分，原po都沒有做 11/15 22:34
38F：→ soyoso: 和target.address都沒有關係了 11/15 22:35
39F：→ xxyyzzxyz627: 抱歉因為那個 我不懂 不好意思 11/15 22:36
40F：→ soyoso: 目的是該工作表任何一個儲存格變動觸發worksheet_change時 11/15 22:37
41F：→ soyoso: 就判斷先前a1寫入全域變數的值和觸發後a1的值是否有改變 11/15 22:38
42F：→ soyoso: 而非去判斷所觸發儲存格target位置字串range.address是否 11/15 22:40
43F：→ soyoso: "a1" 11/15 22:41
44F：→ xxyyzzxyz627: 可以請問這樣怎麼寫嗎? 我不太懂 11/15 22:41
45F：→ soyoso: 1.先在模組內宣告個全域變數。已存在模組或新增模組內都可 11/15 22:42
46F：→ xxyyzzxyz627: 因為我工作表 會接DDE資料 並不會手動 去變動 11/15 22:43
47F：→ soyoso: 2.workbook_open內將該變數=a1，開啟時就將a1的值寫入 11/15 22:45
48F：→ soyoso: 3.22:00~22:01的動作 11/15 22:45
49F：→ soyoso: if range("a1") <> 變數名稱 then 11/15 22:46
50F：→ soyoso: 變數名稱 = range("a1") 11/15 22:46
51F：→ soyoso: call LINE1 11/15 22:47
52F：→ soyoso: end if 11/15 22:47
53F：→ soyoso: 變數型態就依實際宣告 11/15 22:48
54F：→ xxyyzzxyz627: 太感謝你了 用好了謝謝 11/15 22:58