123456
返回列表 上一主題 發帖

[發問] 請問能否將2個VBA巨集合併成1個VBA巨集

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
38# 跳轉到 »
發表於 2015-7-27 10:59 | 只看該作者
回復 34# lcctno


   

你沒改又多了一個要接收的參數.
就Sub test() 試試看
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
37#
發表於 2015-7-27 10:53 | 只看該作者
回復 35# no3-taco
0< 可省略掉
  1. Loop Until InStr(1, E.outerHTML, IIf(i = 0, "滬深反", "台灣加權股價指數"))
  2. Loop Until 0 < InStr(1, E.outerHTML, IIf(i = 0, "滬深反", "台灣加權股價指數"))
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
36#
發表於 2015-7-27 10:49 | 只看該作者
回復 33# lcctno
你再試一次, 即時淨值 合1 合2 能正常運作?
2003修改Sub 合3 的名稱 ,如 Sub test 就可以了,再試試看
也可請 no3-taco  ,azrael19 用2010,2013 試試看
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

no3-taco

帖子
41 
主題
0 
精華
0 
積分
79 
點名
0  
作業系統
win7 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2014-4-1 
最後登錄
2016-2-17 
35#
發表於 2015-7-27 10:48 | 只看該作者
回復 28# GBKEE

我還是不清楚版大指的是哪一句有問題
但是
E.all.Length >= IIf(i = 0, 415, 135) ，這個值你的版本還沒把數量抓完就會執行下一行了

TOP

lcctno

帖子
142 
主題
18 
精華
0 
積分
160 
點名
134  
作業系統
win10 64位元 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
臺灣 高雄市 
註冊時間
2015-7-18 
最後登錄
2024-5-19 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章
34#
發表於 2015-7-27 10:46 | 只看該作者
回復 32# GBKEE
已改合3


改後出現

TOP

lcctno

帖子
142 
主題
18 
精華
0 
積分
160 
點名
134  
作業系統
win10 64位元 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
臺灣 高雄市 
註冊時間
2015-7-18 
最後登錄
2024-5-19 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章
33#
發表於 2015-7-27 10:38 | 只看該作者
回復 32# GBKEE

即時淨值 合1 合2 均能正常運作
您的內容是使用在合3 請TRY合3內之按鈕5 SUB語法與其他皆相同方式命名 唯獨合3 無法正常???

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
32#
發表於 2015-7-27 10:28 | 只看該作者
回復 31# lcctno


   
你vba 的工作表物件名稱與程式碼的程序名稱相同的衝突.須修改
合1(合1)
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

lcctno

帖子
142 
主題
18 
精華
0 
積分
160 
點名
134  
作業系統
win10 64位元 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
臺灣 高雄市 
註冊時間
2015-7-18 
最後登錄
2024-5-19 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章
31#
發表於 2015-7-27 10:15 | 只看該作者
回復 28# GBKEE

不知道我有沒有改錯 我VBA真的很不懂 很難知道(大部分跟本不知道)您所說的 還請見諒


修正後的檔案
即時估計淨值.zip (29.06 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兔年全勤獎章
30#
發表於 2015-7-27 10:11 | 只看該作者
回復 29# no3-taco
條件是傳回的值 True 執行, False 不執行
  1. Option Explicit
  2. Sub Ex()
  3.     Dim AR(), E As Variant
  4.     AR = Array(1, 5, 0, -1, -2)
  5.     For Each E In AR
  6.          'MsgBox E & " = " & IIf(E, True, False)
  7.          If E Then MsgBox E
  8.     Next
  9. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

no3-taco

帖子
41 
主題
0 
精華
0 
積分
79 
點名
0  
作業系統
win7 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2014-4-1 
最後登錄
2016-2-17 
29#
發表於 2015-7-27 09:59 | 只看該作者
回復 22# GBKEE

其實我也不是很清楚，能在指點問題的癥結點在哪嗎

我抓到的數量就這麼多Loop Until E.all.Length >= IIf(i = 0, 415, 135)，都比版大的少所以會卡住。(判斷式我寫不出完整的)

下面這兩句我執行都可以，有資料都會抓的到(沒有資料我就不知道了)，不知道版大指的是什麼(我的判斷能力有限，沒有很深入了解)
Loop Until InStr(1, E.outerHTML, IIf(i = 0, "滬深反", "台灣加權股價指數"))
Loop Until 0 < InStr(1, E.outerHTML, IIf(i = 0, "滬深反", "台灣加權股價指數"))

TOP

        靜思自在 : 屋寬不如心寬。
123456
返回列表 上一主題