[Excel07] Βοήθεια με αρχείο Excel

[sotisanis]

καλησπερα παιδια και συγχαρητηρια για την δουλεια που κανετε.

πηρα το excel http://www.ms-office.gr/forum/excel-...-ergasias.html

που περιττο να πω οτι ειναι τελειο.αλλα θελω να κανω καποιες αλλαγες

επισυναπτω το αρχειο για να με βοηθησετε αν μπορειτε

θελω εισαγω στο κωδικος -(α) και μου αλλαζει ολη την γραμμη ετσι να μπορω να κανω και αλλαγη και στο βοηθητικος κωδικος - (β) και να μου αλλαζει παλι ολη την γραμμη

να σημειωσω πως δεν εχω σβησει καμοια στηλη.μονο αποκρυψη τα εχω κανει

[Tasos]

Καλησπέρα Σωτήρη!

Δες ένα παράδειγμα στο συνημμένο.

Μπορείς να αναζητήσεις στη στήλη με τον κωδικό αλλά και στη στήλη Β των φύλλων δεδομένων.

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

Οδηγίες υπάρχουν στο συνημμένο.

Τάσος

[sotisanis]

Τασο καλησπερα και ευχαριστω πολυ για την πολυτιμη βοηθεια σου.Εγω αυτο που θελω ειναι το εξης. οπως το ειχες κανει ποιο παλια. αλλα οταν παω να κανω αναζητηση σε καποιο κελι της J τοτε να αλλαζει ολη η γραμμη. στην ουσια θελω να κανω αναζητηση με διαφορα πεδια αλλα χωρις να αλλαξω τα πεδια απο την γραμμη 19

Για παραδειγμα εχω βρει απο αναζητηση αυτην την γραμμη

'CACTU Cactus Comidas para llevar Patricio Simpson Sales Agent Cerrito 333

θελω οταν κανω αναζητηση στην στηλη j με καποιο αλλο ονομα τοτε να αλλαζει η γραμμη ολη εκ νεου πχ

να παω στο κελι j 23 να πατησω Francisco Chang και να αλλαξει ολη η γραμμη ετσι

'CENTC a Φύλλο 1 - Γραμμή: 14 Centro comercial Moctezuma Francisco Chang Marketing Manager


στην ουσια οπως το ψαχνεις με το καινουργιο που εφτιαξες αλλα να ειναι στην αντιστοιχη στηλη

[Tasos]

Δοκίμασε το συνημμένο.

Μπορείς να κάνεις αναζήτηση σε κάθε στήλη που έχεις ενεργοποιήσει.

Φιλικά

Τάσος

[sotisanis]

ακριβως αυτο θελω.αλλα εχω ενα θεμα.αν βαλω σκετα νουμερα δεν τα κανει αναζητηση (το εκανα αυτο τελικα)

αλλα πως μπορω να το κανω χωρις να ειναι active x?
δηλαδη να μην κανω διπλο κλικ

[Tasos]

Στο αρχικό παράδειγμα σου γράφω πως να το κάνεις με το πληκτρολόγιο (CTRL + j)

Μπορείς να αλλάξεις τον συνδυασμό πλήκτρων τροποποιώντας τον κώδικα που βρίσκεται στην κλάση "Αυτό_το_βιβλίο_εργασίας" του παραδείγματος.

Private Sub Workbook_Open()
    Application.OnKey "^j", "ShowSearchBox"
End Sub

Στην ίδια κλάση θα σου πρότεινα να προσθέσεις το παρακάτω:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnKey "^j"
End Sub

Τάσος

[sotisanis]

θελω χωρις καν να υπαρχει το ctrl j η οτιδηποτε αλλο.οπως πας να γραψεις ετσι να γινεται αμεσως (σαν να μην υπαρχει το active x)

[Tasos]

Αυτό που θέλεις να πετύχεις αγαπητέ μου γίνεται πιο καλά και πιο εύκολα στην Access.

Δεν γίνεται όταν πληκτρολογείς στο κελί να ενεργοποιηθεί και να εκτελεστεί κώδικας.

Ωστόσο, για να δουν και οι υπόλοιποι φίλοι τι μπορεί να κάνει η Excel-VBA επισυνάπτω ακόμα ένα παράδειγμα όπου μπορεί κανείς χρησιμοποιώντας το πλήκτρο TAB ή το συνδυασμό πλήκτρων Shift + TAB να μετακινεί τα ActiveX στα κενά κελιά.

Το ίδιο ισχύει και με την επιλογή ενός κενού κελιού με το ποντίκι.

Στα κελιά που περιέχουν τιμές θα πρέπει να χρησιμοποιηθούν είτε το διπλό κλικ είτε ο συνδυασμός πλήκτρων CTRL + j.

Τάσος



.

[sotisanis]

δεν γινεται να ανοιγει το active x με ενα κλικ οπως δηλαδη γινεται στα κενα κελια

[Tasos]

Αγαπητέ φίλε,
δεν υπάρχει συμβάν με "το κλικ" στο φύλλο εργασίας.

Το μόνο συμβάν που μπορεί να χρησιμοποιηθεί είναι το Worksheet_SelectionChange().

Μπορείς να βρεις τη γραμμή στον κώδικα:

If Cells(Target.Row, 5).Value <> vbNullString Then GoTo ExitHere και να την κάνεις σχόλιο
δηλαδή : ' If Cells(Target.Row, 5).Value <> vbNullString Then GoTo ExitHere (με απόστροφο στην αρχή της γραμμής).
για να εμφανίζεις τα στοιχεία ελέγχου κάθε φορά που επιλέγεις ένα κελί.