Forum

Forum (https://www.ms-office.gr/forum/)
-   Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)
-   -   [Συναρτήσεις] Αντιγραφή τιμής (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/748-antigrafi-timis.html)

matis 25-09-10 19:37

Αντιγραφή τιμής
 
καλησπερα σας μποροιται να με βοηθησετε στο πιο κατο θεμα;
αντιγραφεί τιμής ενός κελιού από φύλλο 2 σε κελί φύλλου 1 με διπλό κλικ μεσα στο excel υπαρχει τροποσ χωρις AVB

gr8styl 26-09-10 16:17

Φίλε Στέλιο,
στο Excel ένα κελί παίρνει/εμφανίζει κάποια τιμή με έναν από τους παρακάτω 4 τρόπους.

1) Απευθείας πληκτρολόγηση στο κελί από το χρήστη της τιμής.
2) Το κελί περιέχει κάποιον τύπο ο οποίος υπολογίζει την τιμή.
3) Ο χρήστης επιλέγει από μιά αναπτυσσόμενη (drop-down) λίστα την τιμή.
4) Με κώδικα VBA κατχωρηση της τιμής στο κελί.

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

Τα λέμε
Θανάσης

matis 27-09-10 13:37

ΑΝΤΙΓΡΑΦΕΙ ΚΕΛΙΟΥ
 
1 Συνημμένο(α)
Καλημέρα επισυνάπτω το αρχείο excel, θέλω στο φύλλο 1 στο πεδίο c43 να παίρνει με διπλό κλικ του ποντικιού τιμές που θα επιλέγω από το φύλλο 2 από των πίνακα

Tasos 27-09-10 15:41

Καλησπέρα Στέλιο!

Πως θέλεις να κάνεις διπλό κλικ στα Hyperlinks που εκτελούντα με μονό κλίκ;;;

Φιλικά

Τάσος

matis 27-09-10 17:01

εντάξει μου κάνει και το μονό κλικ,υπάρχει λύση;

gr8styl 27-09-10 20:01

1 Συνημμένο(α)
Αγαπητέ Στελιο μας τα λες λίγο μπερδεμένα τα πράγματα. :hmm:

Τέλος πάντων.
Για δες το συνημένο αν σου κάνει.
Κάνει χρήση της μεθόδου 3 που έγραψα στην πρώτη μου απάντηση.

Τα λέμε
Θανάσης

nisgia 28-09-10 11:14

Καλημέρα Στέλιο και καλωσόρισες στην παρέα!

Εναλλακτικά με τη λύση του Θανάση, δοκίμασε και μια ακόμη ακολουθώντας τα παρακάτω βήματα:
  1. Με δεξί κλικ στην καρτέλα του φύλλου "ΤΑΧΥΤΗΤΑ" πάτα στο "Εμφάνιση κώδικα" (View Code).
  2. Στο παράθυρο κώδικα που θα ανοίξει, επικόλησε τον παρακάτω κώδικα:

Κώδικας:

Private mdblSpeed As Double

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
  ActiveSheet.Range("C43") = mdblSpeed
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    mdblSpeed = Target.Value
End Sub

Στη συνέχεια, επέστρεψε στο βιβλίο εργασίας και δοκίμασε αν γίνεται αυτό που ζήτησες.

Φιλικά,
Γιάννης

matis 29-09-10 20:02

Καλησπέρα παιδιά ευχαριστώ πολύ για τις απαντήσεις σας,
φίλε γιαννη δεν μου εμφανίζει όταν κάνω δεξί κλικ το view code ώστε να το αντιγράψω.

kapetang 29-09-10 20:41

Καλησπέρα
Στέλιο θα κάνεις δεξί κλικ στην καρτέλα (όνομα) του φύλλου «ΤΑΧΥΤΗΤΑ» (στο κάτω μέρος του παράθυρου του excel), οπότε θα εμφανιστεί το μενού συντόμευσης και η εντολή «Προβολή κώδικα». Πάνω σ’ αυτήν κάνε αριστερό κλικ.
Φιλικά/Γιώργος
Υ.Γ Γιάννη δεν ήσουν συνδεδεμένος και σκέφτηκα να μη καθυστερεί ο Στέλιος

nisgia 30-09-10 03:02

1 Συνημμένο(α)
Παράθεση:

Αρχική Δημοσίευση από kapetang (Μήνυμα 3818)
Υ.Γ Γιάννη δεν ήσουν συνδεδεμένος και σκέφτηκα να μη καθυστερεί ο Στέλιος

Και πολύ καλά έκανες Γιώργο! :thanks:
Άλλωστε, στο ομαδικό πνεύμα αυτού εδώ του φόρουμ δεν χωράνε ...εργολαβίες.:001_smile:

Παρόλα αυτά φίλε Στέλιο, αν δεν τα κατάφερες ακόμα να ανοίξεις το παράθυρο του VBA,
ένας ακόμη τρόπος είναι το πάτημα των πλήκτρων Alt+F11 με πληκτρολόγιο γυρισμένο στα αγγλικά.

Εντοπίζεις εκεί το αντικείμενο "Sheet2(ΤΑΧΥΤΗΤΑ)"και του κάνεις διπλό κλικ και επικολλάς τον κώδικα
στη μεγάλη λευκή περιοχή όπως φαίνεται στη συνημμένη εικόνα.


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

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


Search Engine Optimization by vBSEO 3.3.2