Ερωτήσεις για Excel 200

[protathlitis]

Καλησπέρα,

 

Έχω ένα αρχείο Excel με 15 sheets.

Θέλω:

a) Κάθε φορά που ανοίγω το συγκεκριμένο αρχείο να μου δείχνει το πρώτο sheet.

Στο πρώτο sheet να έχω links ή κάτι αντίστοιχο, που όταν τα πατάω να μου επιστρέφει αποτελέσματα εύρεσης λέξεων από τα υπόλοιπα sheets.Κάτι σαν το find δηλαδή.

 

Υπάρχει κάποιος τρόπος για αυτά?

[protathlitis]

Καλησπέρα,

 

Έχω ένα αρχείο Excel με 15 sheets.

Θέλω:

a) Κάθε φορά που ανοίγω το συγκεκριμένο αρχείο να μου δείχνει το πρώτο sheet.

Στο πρώτο sheet να έχω links ή κάτι αντίστοιχο, που όταν τα πατάω να μου επιστρέφει αποτελέσματα εύρεσης λέξεων από τα υπόλοιπα sheets.Κάτι σαν το find δηλαδή.

 

Υπάρχει κάποιος τρόπος για αυτά?

Εκ παραδρομής δεν έγραψα ότι η ερώτηση αφορά Excel 2003 ή 2007.

[dpolal]

Για το α) που ρωτάς πηγαίνεις στο πρώτο sheet και σώζεις το αρχείο.

Μετά όποτε το ανοίγεις θα ξεκινάει από εκεί.

 

Για το β) δοκίμασε την βοήθεια του excel, το περιγράφει αναλυτικά. (ψάξε με το λήμμα «creating links» )

[protathlitis]

Για το α) που ρωτάς πηγαίνεις στο πρώτο sheet και σώζεις το αρχείο.

Μετά όποτε το ανοίγεις θα ξεκινάει από εκεί.

 

Για το β) δοκίμασε την βοήθεια του excel, το περιγράφει αναλυτικά. (ψάξε με το λήμμα «creating links» )

 

Σε ευχαριστώ.

 

Για το α) έχεις δίκιο.

Για το β) τώρα, έφερα τα links σαν παράδειγμα.Ξέρω να τα δουλεύω αλλά δεν νομίζω ότι μπορεί να κάνουν αυτό που ζητάω.Θα προσπαθήσω να το περιγράψω καλύτερα:

Θέλω πατώντας μία λέξη σε ένα κελί, να μου παρουσιάζει αυτόματα σε ποια άλλα κελιά στα υπόλοιπα sheets υπάρχει αυτή η συγκεκριμένη λέξη, όπως κάνει η εντολή Find All.

[D-Lux]

macro programming in excel (visual basic) gia na to kaneis auto

[protathlitis]

macro programming in excel (visual basic) gia na to kaneis auto

 

To υποψιαζόμουν ότι θα χρειαζόταν macro.Δεν έχω ασχοληθεί καθόλου όμως.Μπορείς να δώσεις κάποια βοήθεια?

[spiteo]

Γεια σας

εαν καταλαβα καλα τι ζητας με τον επομενο κωδικα θα εχεις αποτελεσμα

 

Πατα Alt + F11

επελεξε απο το αριστερο πλαισιο με διπλο κλικ ThisWorkBook

και γραψε τον κωδικα που στελνω.

Στον κωδικα εχω σαν φυλο που ζηταω για ανοιγμα αυτο με το ονομα file3 εσυ βαλε οτι ονομα θελεις

Σωσε το αρχειο σου και καθε φορα που θα το φορτωνεις θα ανοιγει 1ο το file3 με πρωτο κελι επιλεγμενο το Α1

 

 

Private Sub Workbook_Open()

Sheets("file3").Select

Range("A1").Select

End Sub

 

 

Για τα υπολοιπα υπαρχει τροπος αλλα να βρω χρονο να ψαξω την καταλληλη συναρτηση

 

http://www.egio.gr

[protathlitis]

Γεια σας

εαν καταλαβα καλα τι ζητας με τον επομενο κωδικα θα εχεις αποτελεσμα

 

Πατα Alt + F11

επελεξε απο το αριστερο πλαισιο με διπλο κλικ ThisWorkBook

και γραψε τον κωδικα που στελνω.

Στον κωδικα εχω σαν φυλο που ζηταω για ανοιγμα αυτο με το ονομα file3 εσυ βαλε οτι ονομα θελεις

Σωσε το αρχειο σου και καθε φορα που θα το φορτωνεις θα ανοιγει 1ο το file3 με πρωτο κελι επιλεγμενο το Α1

 

 

Private Sub Workbook_Open()

Sheets("file3").Select

Range("A1").Select

End Sub

 

 

Για τα υπολοιπα υπαρχει τροπος αλλα να βρω χρονο να ψαξω την καταλληλη συναρτηση

 

http://www.egio.gr

 

 

Αυτός είναι ένας δεύτερος, πιο σίγουρος τρόπος για να κάνω το α).Βέβαια το Office μου πετάει μηνύματα για τα Macro και αναγκάστηκα να βάλω το macro security στο medium για να παίξει.Όπως και να'χει δούλεψε και σε ευχαριστώ.

 

Το β) βέβαια είναι αρκετά πιο δύσκολο φαντάζομαι.Ελπίζω να βρεθεί κάτι και γι'αυτό.

[planetexcel]

Αγαπητέ φίλε, η β ερώτηση σου προφανώς προυποθέτει μακροπρογραμματισμό και βέβαια δεν γίνεται να αποφύγεις την ερώτηση για να ενεργοποιήσείς ή όχι τις μακροεντολές. Είναι θέμα ασφάλειας, καθώς κάποιος με γνώσεις μπορεί να κάνει μεγάλη ζημιά..

 

Αν δεν έχεις γνώσεις μακροπρογραμματισμού θα είναι αρκετά πολύπλοκο να ακολουθήσεις τις οδηγίες για να το πετύχεις αλλά θα προσπαθήσω να βοηθήσω... Θα το πειραματιστώ και θα σου απαντήσω το συντομότερο..

 

 

 

http://www.planetexcel.gr

[planetexcel]

Ο βασικός κώδικας για να δουλέψει η Find είναι ο παρακάτω...

 

Cells.Find(What:="Stelios", After:=ActiveCell, LookIn:=xlFormulas, _

LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _

MatchCase:=False, SearchFormat:=False).Activate

Cells.FindNext(After:=ActiveCell).Activate

 

To "stelios" μπορείς να το αντικαταστήσεις με μια μεταβλητή όπου θα παίρνει την τιμή κάποιου κελιού που θα έχεις ορίσει,

 

Όπως μπορείς να προσαρμόσεις τα πάντα στην μέθοδο Find.

 

Π.χ.

 

Dim rFindTi as string

 

rFindTi =range("a1").value

Cells.Find(What:=rFindTi, After:=ActiveCell, LookIn:=xlFormulas, _

LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _

MatchCase:=False, SearchFormat:=False).Activate

 

Η FindNext χρησιμεύει για να βρείς το επόμενο...

Άρα χρησιμοποιώντας κάποιον μετρητή θα μπορούσες να δηλώνεις να ψάξει μέχρι να μην βρει άλλη φορά αυτό που ψάχνεις.

 

For lCount = 1 To WorksheetFunction.CountIf(Columns(1), "Stelios")

 

Cells.FindNext(After:=ActiveCell).Activate

 

Κι ένα ολοκληρωμένο παράδειγμα αναζήτησης της λέξης Stelios στην στήλη Α

 

Sub Find_Stelios()

 

Dim lCount As Long

Dim rFoundCell As Range

dim fWhat as string

Fwhat=Range("E1").value 'ψάχνω τα περιεχόμενα του κελιού Ε1

Set rFoundCell = Range("A1")

 

For lCount = 1 To WorksheetFunction.CountIf(Columns(1), Fwhat)

Set rFoundCell = Columns(1).Find(What:=Fwhat, After:=rFoundCell, _

LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, _

SearchDirection:=xlNext, MatchCase:=False)

 

With rFoundCell

.ClearComments

.AddComment Text:="Εδώ είναι αυτό που ψάχνεις..."

End With

 

Next lCount

End Sub

 

Ελπίζω να βοήθησα, αν όχι... πάλι εδώ είμαστε... PlanetExcel

[spiteo]

εαν εχεις προβλημα με τις μακροεντολες κανε το εξης:

 

απο το menu Εργαλεια επελεξε > Μακροεντολη > Ασφαλεια > επιπεδο χαμηλο

 

 

http://www.egio.gr

[protathlitis]

Ο βασικός κώδικας για να δουλέψει η Find είναι ο παρακάτω...

 

 

Ευχαριστώ φίλε Planetexcel. Κατάλαβα περίπου την δομή και τις εντολές που έγραψες. Για να το υλοποιήσω τώρα, alt-f11-double click this workbook και paste τις εντολές?(διορθωμένες φυσικά). Μετά γυρνώντας στο excel και πατώντας στο αντίστοιχο κελί, θα πρέπει να δω το αποτέλεσμα της εύρεσης? Χρειάζεται να κάνω κάτι άλλο?

[planetexcel]

Αν κατάλαβες την δομή θα σου πρότεινα την μακροεντολή να την φτιάξεις σε μια ενότητα (module) κι έπειτα με ένα κουμπί να αναζητάς τα αποτελέσματα που θέλεις.. Αν θες στείλε ένα δείγμα αυτού που θα φτιάξεις για αξιολόγηση ή και διόρθωση στο [email protected] ίσως κάτι τέτοιο να είναι χρήσιμο και στους υπόλοιπους χρήστες του Excel...

 

http://www.planetexcel.gr