請問能否將2個VBA巨集合併成1個VBA巨集 - Excel程式區

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兔年全勤獎章

48^# 跳轉到 »

發表於 2015-7-27 13:28 | 只看該作者

本帖最後由 GBKEE 於 2015-7-27 13:34 編輯

回復 47# lcctno

你有說: 不信您可將按鈕5指定巨集為合1或合2

按鈕5要重新指定巨集

回復 45# no3-taco
謝謝你

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

TOP

lcctno

中學生 Rank: 2

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

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

47^#

發表於 2015-7-27 13:14 | 只看該作者

回復 44# GBKEE
Sub 合3() 的名稱改成 Sub test() 這個我試過
會變成找不到巨集如圖

TOP

lcctno

中學生 Rank: 2

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

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

46^#

發表於 2015-7-27 13:07 | 只看該作者

回復 24# azrael19

我實在是真的不太好意思再麻煩您將下圖之整排例如1.27(0.10%) 之所以0.10%) 拿掉由於我真的不懂故還是厚著臉皮麻煩您有空時幫個大忙謝謝您的辛勞

TOP

no3-taco

中學生 Rank: 2

帖子: 41
主題: 0
精華: 0
積分: 79
點名: 0
作業系統: win7
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2014-4-1
最後登錄: 2016-2-17

45^#

發表於 2015-7-27 12:54 | 只看該作者

回復 44# GBKEE

win7(64bit) ,ie10

415和135

javascript:;

123.jpg (293.66 KB)

456.jpg (298.11 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兔年全勤獎章

44^#

發表於 2015-7-27 12:43 | 只看該作者

回復 42# lcctno
Sub 合3() 的名稱改成 Sub test() ,再試試看
回復 43# no3-taco
我是想請你將第10貼的原本程式碼,在IE10的下執行看看Length最終是多少

Loop Until E.all.Length >= IIf(i = 0, 431, 150)

複製代碼

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

TOP

no3-taco

中學生 Rank: 2

帖子: 41
主題: 0
精華: 0
積分: 79
點名: 0
作業系統: win7
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2014-4-1
最後登錄: 2016-2-17

43^#

發表於 2015-7-27 12:15 | 只看該作者

回復 35# no3-taco

我本來以為會有順序的抓取，試了幾次好像都從40跳到415

javascript:;

234.jpg (271 KB)

TOP

lcctno

中學生 Rank: 2

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

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

42^#

發表於 2015-7-27 11:58 | 只看該作者

回復 41# GBKEE
我之前是用同樣的語法 Sub 合3() 也無法操作出現400(如圖) 但您說要改成 Sub 合3(合3) ??? 奇怪語法一樣是使用Sub 合2() 可執行但Sub 合3() 就出現400???

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兔年全勤獎章

41^#

發表於 2015-7-27 11:40 | 只看該作者

回復 40# lcctno

合1 合2 均能正常動作
不信您可將按鈕5指定句集為合1或合2

是可以但無法在VBA視窗中按F5執行.
SUB 合3(合3) ,括弧內就是要接收的參數

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

TOP

lcctno

中學生 Rank: 2

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

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

40^#

發表於 2015-7-27 11:23 | 只看該作者

回復 36# GBKEE

由於受限於"本站規定會員每小時最多只能發表 3 個帖子。" 故晚回覆

合1 合2 均能正常動作
不信您可將按鈕5指定句集為合1或合2

我沒看到您所謂的 "你沒改又多了一個要接收的參數"

TOP

azrael19

中學生 Rank: 2

帖子: 23
主題: 0
精華: 0
積分: 73
點名: 212
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
註冊時間: 2012-4-21
最後登錄: 2026-10-1

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章

39^#

發表於 2015-7-27 11:15 | 只看該作者

回復 lcctno
你再試一次, 即時淨值合1 合2 能正常運作?
2003修改Sub 合3 的名稱 ,如 Sub test 就可以了 ...
GBKEE 發表於 2015-7-27 10:49

報告GBKEE版主我用31#檔案測試三個都可以抓到資料，下圖是合3訊息資料

TOP

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

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]