Εμφάνιση ενός μόνο μηνύματος
  #2  
Παλιά 12-01-14, 12:49
Το avatar του χρήστη Tasos
Tasos Ο χρήστης Tasos δεν είναι συνδεδεμένος
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 2.035
Προεπιλογή

Καλημέρα Γιώργο!
Πέρασε στο κελί Α2 του φύλλου 'Φύλλο2' τον τύπο:
Κώδικας:
=IF(CELL("col")=COLUMN();IF(CELL("row")=ROW();Φύλλο1!A2;"");"")
Για να λειτουργήσει όμως αυτός ο τύπος αποτελεσματικά θα πρέπει προκληθεί υπολογισμός τουλάχιστον στο φύλλο όπου περιέχεται κάθε φορά που επιλέγεται ένα κελί στο φύλλο 'Φύλλο2'.

Ο επανυπολογισμός δεν προκαλείται αυτόματα όταν απλά ο χρήστης επιλέξει ένα κελί.

Για να επιτύχεις τον υπολογισμό επιλέγοντας ένα κελί μπορείς να κάνεις τα εξής:

Να πατάς το πλήκτρο F9 κάθε φορά που επιλέγεις ένα κελί από τη στήλη Α (Ίσως να είναι πρακτικό - Ίσως όχι).

Να χρησιμοποιήσεις τη συνάρτηση =SELECTION() σε ένα ορισμένο όνομα (ξεπερασμένη μέθοδος...)

Να μετατρέψεις το βιβλίο σου σε *.xlsm και να περάσεις τον παρακάτω κώδικα VBA στη λειτουργική μονάδα του φύλλου 'Φύλλο2' :

Κώδικας:
Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    Me.Range("A1").Dirty
End Sub
Για να μεταβείς στη λειτουργική μονάδα του φύλλου 'Φύλλο2', κάνε δεξί κλικ στην καρτέλα του
και επίλεξε την εντολή: Προβολή κώδικα.

Καλή συνέχεια!

Τάσος
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών
Απάντηση με παράθεση