Forum - Εμφάνιση ενός μόνο μηνύματος - VBA Χρησιμοποίηση μεταβλητής σε διαφορετικό module

kapetang · #2 21-06-20, 18:10

Καλησπέρα

Δοκίμασε τον παρακάτω κώδικα:

Module2

Κώδικας:

Option Explicit
Public B As Double

Sub test2()
    B = Module1.A + 10
End Sub

Module1

Κώδικας:

Option Explicit
Public A As Double

Sub test()
    Dim i As Long
    A = 100
    
    For i = 1 To 5
        Module2.test2
        A = Module2.B + 5
        MsgBox A
    Next
        
End Sub

Θέμα: VBA Χρησιμοποίηση μεταβλητής σε διαφορετικό module