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

Forum (https://www.ms-office.gr/forum/)

- Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)

- - [VBA] Χρησιμοποίηση μεταβλητής σε διαφορετικό module (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/5573-xrisimopoiisi-metablitis-se-diaforetiko-module.html)

Βασίλης Καραχάλιος

19-06-20 19:39

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

Καλησπέρα σας,

θα ήθελα τη βοήθειά σας στο παρακάτω
έστω οτι στο module1 έχω μια μεταβλητή public την A η οποία είναι σε loop από 1 εως 5
και έστω οτι στο module2 έχω μια άλλη μεταβλητη την Β η οποία ειναι ίση με "κάτι" & A.
πως μπορώ να το γράψω αυτό με κώδικα ; καθώς μου εμφανίζει μήνυμα σφάλματος "Run-time error '1004': The item with the specified name wasn't found" όταν καλώ από το πρώτο module να μου εμφανίζει την μεταβλητή Β με την εντολή msgbox.

Ευχαριστώ εκ των προτερων

kapetang

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

Βασίλης Καραχάλιος

01-07-20 21:37

Παράθεση:

Αρχική Δημοσίευση από kapetang (Μήνυμα 31158)

Καλησπέρα

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

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

Ευχαριστώ πολύ !

kapetang

01-07-20 22:34

Να είσαι καλά και καλή συνέχεια.

Η ώρα είναι 12:58.

Search Engine Optimization by vBSEO 3.3.2