Θέμα: Συναρτήσεις Αντιγραφή τιμής

Εμφάνιση ενός μόνο μηνύματος
  #7  
Παλιά 28-09-10, 11:14
Το avatar του χρήστη nisgia
nisgia Ο χρήστης nisgia δεν είναι συνδεδεμένος
Super Moderator
Όνομα: Γιάννης
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 12-10-2009
Περιοχή: Ηγουμενίτσα
Μηνύματα: 161
Προεπιλογή

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

Εναλλακτικά με τη λύση του Θανάση, δοκίμασε και μια ακόμη ακολουθώντας τα παρακάτω βήματα:
  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
Στη συνέχεια, επέστρεψε στο βιβλίο εργασίας και δοκίμασε αν γίνεται αυτό που ζήτησες.

Φιλικά,
Γιάννης
__________________
Αν δεν το ρωτούσες, δεν θα το μαθαίναμε ποτέ...!
-----------------------------------------------
Τελικά η γνώση, αντίθετα με ό,τι μέχρι σήμερα πίστευα, είναι η φυλακή της σκέψης.
Όταν η αφετηρία είναι η ελεύθερη σκέψη, δεν χρειάζεται πλέον να φτάσεις πουθενά!
Απάντηση με παράθεση