mdr0465

帖子: 163
主題: 45
精華: 0
積分: 246
點名: 27
作業系統: win7
軟體版本: ie
閱讀權限: 20
性別: 男
註冊時間: 2015-7-8
最後登錄: 2024-9-14

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2016-1-28 12:23 | 只看該作者

[發問] ByVal Target As Range 用法

各位師兄,師姐,

我是EXCEL VBA的初學者,而我亦都有買書黎自學,但有TERM "VBA ByVal Target As Range" 我上網,睇書都不是好明白這句語法的意思,

請求各位指點

謝謝

樓主熱帖

mdr0465

中學生 Rank: 2

帖子: 163
主題: 45
精華: 0
積分: 246
點名: 27
作業系統: win7
軟體版本: ie
閱讀權限: 20
性別: 男
註冊時間: 2015-7-8
最後登錄: 2024-9-14

15^#

發表於 2016-2-1 11:07 | 只看該作者

真的萬分多謝ML089版主,JACKQ 大大,不厭其煩對愚蠢的小弟給予詳細的解釋...
我現在更加明白到byval 的語法用途,
謝謝兩位.......

TOP

jackyq

中學生 Rank: 2

帖子: 319
主題: 6
精華: 0
積分: 309
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2024-4-27

14^#

發表於 2016-1-31 12:11 | 只看該作者

about byval  2,3.....
(2) 自轉型態
(3)  至於物件
   物件不需要分身 (  物件自己會處理  )
   物件也不適合有分身 (  效能折扣  )
so  byval object 編譯器傳的還是本尊

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

13^#

發表於 2016-1-31 07:40 | 只看該作者

回復 12# mdr0465

補充
1. 沒宣告時為 ByRef
2. 用()括住引數時，強迫傳值。

Sub 主程式()
Dim A%, B%, C%
Debug.Print

A = 123: B = 456: C = 789
Debug.Print "主程式", A, B, C

Call 副程式((A), (B), C) '(A)、(B)強迫傳值
Debug.Print "副程式 - 1", A, B, C

Call 副程式(A, B, C)
Debug.Print "副程式 - 2", A, B, C
End Sub

Sub 副程式(X%, ByRef Y%, ByVal Z%) '沒有宣告時內定為ByRef
X = 321: Y = 654: Z = 987
End Sub

'Debug.Print
'主程式       123          456          789
'副程式 - 1    123          456          789
'副程式 - 2    321          654          789

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

mdr0465

中學生 Rank: 2

帖子: 163
主題: 45
精華: 0
積分: 246
點名: 27
作業系統: win7
軟體版本: ie
閱讀權限: 20
性別: 男
註冊時間: 2015-7-8
最後登錄: 2024-9-14

12^#

發表於 2016-1-29 09:50 | 只看該作者

cc lai 大大, jackyq 大大

而家我真的明白byval的用法,真的多謝你們不厭其煩幫忙解釋和提供列子給我參考
萬分感謝你們的幫忙....
謝謝

TOP

jackyq

中學生 Rank: 2

帖子: 319
主題: 6
精華: 0
積分: 309
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2024-4-27

11^#

發表於 2016-1-28 20:00 | 只看該作者

Sub 執行我()
  '用 ByRef 發生本尊信息被鄰居2 竄改事件
  '導致鄰居3, 鄰居4 收到錯誤信息
  '改成 ByVal 就可以避開被鄰居2 竄改

msg = "我是陳小美, 星期日晚上6:00 歡迎來我家聚餐"
發信息給鄰居1 msg
發信息給鄰居2 msg
發信息給鄰居3 msg
發信息給鄰居4 msg
End Sub

Sub 發信息給鄰居1(ByRef msg)
MsgBox "鄰居 1 收到信息: " + msg
End Sub
Sub 發信息給鄰居2(ByRef msg)
MsgBox "鄰居 2 收到信息: " + msg

msg = "我是陳小美, 星期日晚上聚餐因為有事緊急取消"          '鄰居2 惡搞信息
End Sub
Sub 發信息給鄰居3(ByRef msg)
MsgBox "鄰居 3 收到信息: " + msg
End Sub
Sub 發信息給鄰居4(ByRef msg)
MsgBox "鄰居 4 收到信息: " + msg
End Sub

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

10^#

發表於 2016-1-28 18:37 | 只看該作者

本帖最後由 c_c_lai 於 2016-1-28 18:39 編輯

回復 9# mdr0465
在函式裡引入參數如為傳值，則無論該參數在該
函式裡如何變化都不會改變該參數傳入時的引入初始值，
該範例內之舉例，只是告訴你，txt 或 num 在函式裡不管
它怎麼異動都不會改變傳入當時的初始值 (原值)。
如果用白話說的話，就如 jackyq 大大說的。

TOP

mdr0465

中學生 Rank: 2

帖子: 163
主題: 45
精華: 0
積分: 246
點名: 27
作業系統: win7
軟體版本: ie
閱讀權限: 20
性別: 男
註冊時間: 2015-7-8
最後登錄: 2024-9-14

9^#

發表於 2016-1-28 17:59 | 只看該作者

本帖最後由 mdr0465 於 2016-1-28 18:08 編輯

cc lai師兄,
真的謝謝你耐心的解釋,我亦都有上網再了解byval 語法
以我所理解,byval 是不會影響程式中有既數值,
如果我無理由錯誤的話,
咁test2 的
txt = "非常好！伯父身體好麼？"
num = num - 85
是不會出現的,但是用byval是沒有影響原有的數值變更的情況下為什麼我們還要寫
txt = "非常好！伯父身體好麼？"
num = num - 85

而不寫其他的字句呢??

不好意思,我腦筋真的很笨,所以想請教各位解答多少少問題.....
謝謝

TOP

jackyq