
28-09-10, 11:14
|
 | Super Moderator Όνομα: Γιάννης Έκδοση λογισμικού Office: Ms-Office 2007 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 12-10-2009 Περιοχή: Ηγουμενίτσα
Μηνύματα: 161
| |
Καλημέρα Στέλιο και καλωσόρισες στην παρέα!
Εναλλακτικά με τη λύση του Θανάση, δοκίμασε και μια ακόμη ακολουθώντας τα παρακάτω βήματα: - Με δεξί κλικ στην καρτέλα του φύλλου "ΤΑΧΥΤΗΤΑ" πάτα στο "Εμφάνιση κώδικα" (View Code).
- Στο παράθυρο κώδικα που θα ανοίξει, επικόλησε τον παρακάτω κώδικα:
Κώδικας: 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
Στη συνέχεια, επέστρεψε στο βιβλίο εργασίας και δοκίμασε αν γίνεται αυτό που ζήτησες.
Φιλικά,
Γιάννης
__________________ Αν δεν το ρωτούσες, δεν θα το μαθαίναμε ποτέ...! 
----------------------------------------------- Τελικά η γνώση, αντίθετα με ό,τι μέχρι σήμερα πίστευα, είναι η φυλακή της σκέψης.
Όταν η αφετηρία είναι η ελεύθερη σκέψη, δεν χρειάζεται πλέον να φτάσεις πουθενά! |