Ανανέωση ιστοσελίδας
ms-office.gr > Forum > Microsoft Excel > Excel - Ερωτήσεις / Απαντήσεις > [VBA] Χρησιμοποίηση μεταβλητής σε διαφορετικό module

Excel - Ερωτήσεις / Απαντήσεις Ότι έχει σχέση με συναρτήσεις, μορφοποίηση, εκτυπώσεις γραφήματα κτλ.

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 19-06-20, 20:39
Όνομα: Βασίλης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 08-06-2012
Μηνύματα: 52
Προεπιλογή Χρησιμοποίηση μεταβλητής σε διαφορετικό module

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

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

Ευχαριστώ εκ των προτερων
Απάντηση με παράθεση
  #2  
Παλιά 21-06-20, 19:10
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.674
Προεπιλογή

Καλησπέρα

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

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
Απάντηση με παράθεση
  #3  
Παλιά 01-07-20, 22: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
Ευχαριστώ πολύ !
Απάντηση με παράθεση
  #4  
Παλιά 01-07-20, 23:34
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.674
Προεπιλογή

Να είσαι καλά και καλή συνέχεια.
Απάντηση με παράθεση
Απάντηση στο θέμα


Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[Μορφοποίηση] Διαφορετικό χρώμα για ημερομηνίες και Σ/Κ mlsds Excel - Ερωτήσεις / Απαντήσεις 5 25-01-17 23:48
[VBA] Χρήση μεταβλητής ονοματος αρχείου σε vlookup Βασίλης Καραχάλιος Excel - Ερωτήσεις / Απαντήσεις 0 14-10-14 20:57
Kώδικας σε module alex Access - Ερωτήσεις / Απαντήσεις 0 22-10-12 14:50
Διόρθωση κώδικα σε Module alex Access - Ερωτήσεις / Απαντήσεις 2 12-08-11 14:01


Η ώρα είναι 18:54.