ããã·ã¼ã¸ã£ãä½ãã¨ãã«å¿
è¦ãªç¥èã¨ãã¦âByVal 㨠ByRef ã®éãâãããã¾ããããã¯ãåå¼æ°ã«ä»ãããã¼ã¯ã¼ãã§ãâå¼æ°ã®å¤ã®æ¸¡ããæ¹âãæå®ãããã®ã§ããé常ã¯ãByVal ã§å®ç¾©ãã¾ãããByRef ã¨å®ç¾©ãããã¨ã«ãã£ã¦ç¹æ®ãªåä½ãè¡ãã¾ãã ByRefãåç
§æ¸¡ãã å¼æ°ã ByRef ã§å®£è¨ããã¨ãããã·ã¼ã¸ã£ã®å¼ã³åºãå´ã«ãå½±é¿ãä¸ããå¼æ°ã«ãªãã¾ãã Private Sub MyProcByRef(ByRef Argument As Long) Argument = 100 End Sub Private Sub btnByRef_Click() Dim Arg As Long Debug.Print "ByRef:" Debug.Print "Arg = " & Arg Debug.Print "Call MyProcByRef(Arg)" Call
{{#tags}}- {{label}}
{{/tags}}