Forum

Forum (https://www.ms-office.gr/forum/)
-   Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)
-   -   [Excel07] Βοήθεια με αρχείο Excel (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/2738-boitheia-me-arxeio-excel.html)

sotisanis 12-10-13 00:12

Βοήθεια με αρχείο Excel
 
1 Συνημμένο(α)
καλησπερα παιδια και συγχαρητηρια για την δουλεια που κανετε.

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

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

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

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

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

Tasos 12-10-13 15:02

1 Συνημμένο(α)
Καλησπέρα Σωτήρη!

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

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

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

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

Τάσος

sotisanis 12-10-13 15:16

Τασο καλησπερα και ευχαριστω πολυ για την πολυτιμη βοηθεια σου.Εγω αυτο που θελω ειναι το εξης. οπως το ειχες κανει ποιο παλια. αλλα οταν παω να κανω αναζητηση σε καποιο κελι της 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 12-10-13 15:58

1 Συνημμένο(α)
Δοκίμασε το συνημμένο.

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

Φιλικά

Τάσος

sotisanis 12-10-13 16:49

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

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

Tasos 12-10-13 22:13

Στο αρχικό παράδειγμα σου γράφω πως να το κάνεις με το πληκτρολόγιο (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 12-10-13 22:57

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

Tasos 13-10-13 00:32

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

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

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

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

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

Τάσος



.

sotisanis 13-10-13 02:52

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

Tasos 13-10-13 03:20

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

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

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

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


Η ώρα είναι 15:56.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2