[發問] ByVal Target As Range 用法

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

2^#

發表於 2016-1-28 13:05 | 只看該作者

回復 1# mdr0465
多多上網查詢，你便會更加明瞭外面的世界了。
以 ByVal 和 ByRef 傳遞引數

ByRef and ByVal Parameters

jackyq

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

3^#

發表於 2016-1-28 13:54 | 只看該作者

byval object =byref object = object的本尊
byval 變數a = 變數a的分身
byref 變數a = 變數a的本尊

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

4^#

發表於 2016-1-28 14:32 | 只看該作者

本帖最後由 c_c_lai 於 2016-1-28 16:07 編輯

回復 1# mdr0465
舉個實例說明，你便會明瞭：

Sub joke()
Dim txt As String, num As Integer
txt = "你好嗎？": num = 200
Test1 txt, num ' 傳址 (即 jackyq 大大分享的 "本尊")
MsgBox "txt = " & txt & " , num = " & num
' 答案是： txt = 很好，謝謝！大家可好? , num = 150
txt = "早餐吃了嗎？": num = 100
Test2 txt, num ' 傳值 (即 jackyq 大大分享的 "分身")
MsgBox "txt = " & txt & " , num = " & num
' 答案是： txt = 早餐吃了嗎？ , num = 100
End Sub
Sub Test1(ByRef txt As String, ByRef num As Integer) ' 傳址 (位址 Address)
txt = "很好，謝謝！大家可好?" ' (Reference)
num = num - 50
End Sub
Sub Test2(ByVal txt As String, ByVal num As Integer) ' 傳值 (數值 Value)
txt = "非常好！伯父身體好麼？"
num = num - 85
End Sub

複製代碼

yen956

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

5^#

發表於 2016-1-28 16:02 | 只看該作者

回復 4# c_c_lai
謝謝分享!!

mdr0465

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

6^#

發表於 2016-1-28 16:47 | 只看該作者

回復 4# c_c_lai
jackyq 師兄,謝謝你有用的資料
cc lai 謝謝你仔細提供的sample, 但因為我都比較蠢,我想問多少少,byref 我都大約知道佢既用法,佢係會改變原有數值的值,

但是byval 佢係法係唔會改變個變本身原有既數值,咁要設定byval 有什麼作用呢??

謝謝

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

7^#

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

回復 6# mdr0465

Sub Test2(ByVal txt As String, ByVal num As Integer) ' 傳值 (數值 Value)
txt = "非常好！伯父身體好麼？"
num = num - 85
End Sub

複製代碼

一般實務上除非須同步更新變數值 (ByRef)，否則都是宣告成傳入值 (ByVal)：
以上範例即等於平常習慣使用的：

Sub Test2(txt As String, num As Integer) ' 傳值 (數值 Value)
txt = "非常好！伯父身體好麼？"
num = num - 85
End Sub

複製代碼

如此說明，明白否？

jackyq

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

8^#

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

byval 用來保護本尊的
如果本尊資料很重要
不允許被人竄改 ( read only )
就可以派分身出去拋頭露臉
萬一分身在外地被他人霸凌
甚至被殺死
甚至還死的很慘
本尊依然會完好無缺

mdr0465

帖子: 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

而不寫其他的字句呢??

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

帖子: 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 大大說的。