Εμφάνιση ενός μόνο μηνύματος
  #3  
Παλιά 01-07-20, 21:37
Βασίλης Καραχάλιος Ο χρήστης Βασίλης Καραχάλιος δεν είναι συνδεδεμένος
Όνομα: Βασίλης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 08-06-2012
Μηνύματα: 52
Προεπιλογή

Παράθεση:
Αρχική Δημοσίευση από kapetang Εμφάνιση μηνυμάτων
Καλησπέρα

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

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
Ευχαριστώ πολύ !
Απάντηση με παράθεση