
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
| Ευχαριστώ πολύ !
|