Σελ. 1 από 3 123 ΤελευταίαΤελευταία
Εμφάνιση 1-15 από 41
  1. #1
    Εγγραφή
    17-08-2005
    Περιοχή
    Χανιά
    Ηλικία
    33
    Μηνύματα
    294
    Downloads
    11
    Uploads
    0
    Τύπος
    ADSL OTE
    Ταχύτητα
    1024/256
    ISP
    OTEnet
    DSLAM
    Vivodi - ΤΖΑΝΑΚΑΚΗ
    Router
    zyxel 660HA-61
    Παιδιά αυτό που θέλω να κάνω γίνεται μάλλον με το excel αλλά είμαι ασχετος με το συγκεκριμένο πρόγραμμα. Θέλω να φτιάξω μία λίστα με διαδρομές και να γράφω τα χιλιόμετρα. Πχ Αθηνα - θεσ/νικη 800, χανια - ηρακλειο 150 κτλ. Αλλά επειδή οι ίδιες διαδρομές θα γίνονται πολλές φορές και για να μην γράφω τα ίδια θα ήθελα το εξής: Να πατούσα το 1 σε ένα κελί στο excel και μόλις πατουσα το εντερ αμέσως να μου έβγαζε χανια-ηρακλειο και στο διπλανό κελί τα χιλιομετρα. Τέλος μόλις έκανα την λίστα με όλες τις διαδρομες, το excel μόνο του να μου έκανε την πρόσθεση με τα συνολικά χιλιόμετρα.

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

  2. #2
    Εγγραφή
    29-01-2003
    Περιοχή
    EUROPEAN UGANDA ΕΛΛΑΔΑρα
    Ηλικία
    53
    Μηνύματα
    778
    Downloads
    6
    Uploads
    0
    Τύπος
    ADSL2+ Net One Full
    Ταχύτητα
    17.143 / 1.023
    ISP
    Net One
    DSLAM
    Net One - ΝΕΑΣ ΚΗΦΙΣΙΑΣ
    Router
    SpeedTouch
    SNR / Attn
    12(dB) / 14(dB)
    Αν κάνεις δεξί κλικ στο αμέσως επόμενο κενό κελί της στηλης θα δεις ότι υπάρχει μια εντολη που λέει "επιλογή από αναπτυσόμενη λίστα" το ίδιο γίνετε και με Alt και βελάκι προς τα κάτω ...

    η αναγραφή των χιλιομέτρων και η πρόσθεση μπορεί να γίνει με μια ρουτινούλα

    Κώδικας:
    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ro As Integer, co As Integer, roc As Integer
    ro = ActiveCell.Row
    co = ActiveCell.Column
    With Range("A:A")
        Set c = .Find(ActiveCell.Value, LookIn:=xlValues)
        If Not c Is Nothing Then
        roc = c.Row
        kim = Cells(roc, co + 1).Value
        End If
        End With
      Cells(ro, co + 1).Value = kim
      If Cells(ro + 1, co + 1).Value = "" And Cells(ro, co + 1).Value > 0 Then
      su = Application.WorksheetFunction.Sum(Range(Cells(1, co + 1), Cells(ro, co + 1)))
      Cells(ro + 1, co + 1).Value = su
      End If
    End Sub
    τοποθετημένη μέσα στο κώδικα του φύλλου στο οποίο είναι οι τιμές
    Τελευταία επεξεργασία από το μέλος troll : 10-06-07 στις 03:20.

    Λειτουργικός Διαχωρισμός του ΟΤΕ ΤΩΡΑ !!!!!

  3. #3
    Εγγραφή
    29-01-2003
    Περιοχή
    EUROPEAN UGANDA ΕΛΛΑΔΑρα
    Ηλικία
    53
    Μηνύματα
    778
    Downloads
    6
    Uploads
    0
    Τύπος
    ADSL2+ Net One Full
    Ταχύτητα
    17.143 / 1.023
    ISP
    Net One
    DSLAM
    Net One - ΝΕΑΣ ΚΗΦΙΣΙΑΣ
    Router
    SpeedTouch
    SNR / Attn
    12(dB) / 14(dB)
    Ορίστε φίλε μου!!!
    Attached Files Attached Files

    Λειτουργικός Διαχωρισμός του ΟΤΕ ΤΩΡΑ !!!!!

  4. #4
    Εγγραφή
    17-08-2005
    Περιοχή
    Χανιά
    Ηλικία
    33
    Μηνύματα
    294
    Downloads
    11
    Uploads
    0
    Τύπος
    ADSL OTE
    Ταχύτητα
    1024/256
    ISP
    OTEnet
    DSLAM
    Vivodi - ΤΖΑΝΑΚΑΚΗ
    Router
    zyxel 660HA-61
    βασικά κάτι τετοιο θέλω αλλα δεν ξερω πως να βάλω τις διαδρομές που θέλω εγώ
    Attached Files Attached Files
    Το μεγαλύτερο ρίσκο στην ζωή είναι να μην πάρεις κανένα

  5. #5
    Εγγραφή
    29-01-2003
    Περιοχή
    EUROPEAN UGANDA ΕΛΛΑΔΑρα
    Ηλικία
    53
    Μηνύματα
    778
    Downloads
    6
    Uploads
    0
    Τύπος
    ADSL2+ Net One Full
    Ταχύτητα
    17.143 / 1.023
    ISP
    Net One
    DSLAM
    Net One - ΝΕΑΣ ΚΗΦΙΣΙΑΣ
    Router
    SpeedTouch
    SNR / Attn
    12(dB) / 14(dB)
    Δεν καταλαβαίνω τι λες

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

    το αρχείο που ανέβασες είναι corrupted
    Τελευταία επεξεργασία από το μέλος troll : 10-06-07 στις 15:08.

    Λειτουργικός Διαχωρισμός του ΟΤΕ ΤΩΡΑ !!!!!

  6. #6
    Εγγραφή
    06-07-2005
    Περιοχή
    Νέα Υόρκη
    Ηλικία
    49
    Μηνύματα
    11.703
    Downloads
    6
    Uploads
    2
    Τύπος
    Cable
    Ταχύτητα
    300 Mbps down/10 Mbps up
    ISP
    Spectrum
    Γενικά τα zip αρχεία τα συναντάω συχνά corrupted, ενώ τα rar ποτέ... Μήπως είναι πρόβλημα του site;

  7. #7
    Εγγραφή
    22-09-2003
    Μηνύματα
    81.799
    Downloads
    218
    Uploads
    48
    Άρθρα
    6
    Τύπος
    VDSL2
    Ταχύτητα
    204800/20480
    ISP
    Wind
    Router
    Technicolor DGA4130
    SNR / Attn
    6(dB) / 2.8(dB)
    Path Level
    Interleaved
    Παράθεση Αρχικό μήνυμα από tsigarid Εμφάνιση μηνυμάτων
    Γενικά τα zip αρχεία τα συναντάω συχνά corrupted, ενώ τα rar ποτέ... Μήπως είναι πρόβλημα του site;
    Δεν έχουμε εντοπίσει κάτι σχετικό.
    Προσωπικά με ό,τι και να τα ανοίξω ανοίγουν κανονικά.
    7zip,winzip,rar
    We'll build a fortress to keep them out and in a world gone silent I'll be your sound and if they try to hurt you I'll tear them down I'm always with you now....
    I forgot that I might see, so many Beautiful things
    everything that has a beginning has an end
    See the mirror in your eyes-see the truth behind your lies-your lies are haunting me See the reason in your eyes-giving answer to the why- your eyes are haunting me

  8. #8
    Εγγραφή
    29-01-2003
    Περιοχή
    EUROPEAN UGANDA ΕΛΛΑΔΑρα
    Ηλικία
    53
    Μηνύματα
    778
    Downloads
    6
    Uploads
    0
    Τύπος
    ADSL2+ Net One Full
    Ταχύτητα
    17.143 / 1.023
    ISP
    Net One
    DSLAM
    Net One - ΝΕΑΣ ΚΗΦΙΣΙΑΣ
    Router
    SpeedTouch
    SNR / Attn
    12(dB) / 14(dB)
    μπορείς να το ανοιξεις να το κάνεις ραρ και να το ξαναανεβάσεις γιατί εχω περιέργεια τι θέλει ο φίλος μας;

    Λειτουργικός Διαχωρισμός του ΟΤΕ ΤΩΡΑ !!!!!

  9. #9
    Εγγραφή
    22-09-2003
    Μηνύματα
    81.799
    Downloads
    218
    Uploads
    48
    Άρθρα
    6
    Τύπος
    VDSL2
    Ταχύτητα
    204800/20480
    ISP
    Wind
    Router
    Technicolor DGA4130
    SNR / Attn
    6(dB) / 2.8(dB)
    Path Level
    Interleaved
    Δεν έχω rar σε αυτό το Pc ξαναζίπαρα το .xls με 7zip.
    Attached Files Attached Files
    We'll build a fortress to keep them out and in a world gone silent I'll be your sound and if they try to hurt you I'll tear them down I'm always with you now....
    I forgot that I might see, so many Beautiful things
    everything that has a beginning has an end
    See the mirror in your eyes-see the truth behind your lies-your lies are haunting me See the reason in your eyes-giving answer to the why- your eyes are haunting me

  10. #10
    Εγγραφή
    29-01-2003
    Περιοχή
    EUROPEAN UGANDA ΕΛΛΑΔΑρα
    Ηλικία
    53
    Μηνύματα
    778
    Downloads
    6
    Uploads
    0
    Τύπος
    ADSL2+ Net One Full
    Ταχύτητα
    17.143 / 1.023
    ISP
    Net One
    DSLAM
    Net One - ΝΕΑΣ ΚΗΦΙΣΙΑΣ
    Router
    SpeedTouch
    SNR / Attn
    12(dB) / 14(dB)
    Το αρχείο μέσα το διαβάζεις γιατί εμένα το εξελ μου λέει ότι είναι ή κατεστραμένο ή αγνωστης προέλευσης ...

    Λειτουργικός Διαχωρισμός του ΟΤΕ ΤΩΡΑ !!!!!

  11. #11
    Εγγραφή
    22-09-2003
    Μηνύματα
    81.799
    Downloads
    218
    Uploads
    48
    Άρθρα
    6
    Τύπος
    VDSL2
    Ταχύτητα
    204800/20480
    ISP
    Wind
    Router
    Technicolor DGA4130
    SNR / Attn
    6(dB) / 2.8(dB)
    Path Level
    Interleaved
    Δοκίμασε να το μετονομάσεις σε .zip και να το ξεζιπάρεις πάλι.
    We'll build a fortress to keep them out and in a world gone silent I'll be your sound and if they try to hurt you I'll tear them down I'm always with you now....
    I forgot that I might see, so many Beautiful things
    everything that has a beginning has an end
    See the mirror in your eyes-see the truth behind your lies-your lies are haunting me See the reason in your eyes-giving answer to the why- your eyes are haunting me

  12. #12
    Εγγραφή
    06-07-2005
    Περιοχή
    Νέα Υόρκη
    Ηλικία
    49
    Μηνύματα
    11.703
    Downloads
    6
    Uploads
    2
    Τύπος
    Cable
    Ταχύτητα
    300 Mbps down/10 Mbps up
    ISP
    Spectrum
    Και εγώ έχω το ίδιο πρόβλημα... Είναι αυτό που ανέφερα και προηγουμένως. Το zip ανοίγει κανονικά, αλλά το αρχείο που περιέχει δεν έχει κατάληξη. Αν το μετονομάσω σε .xls δεν ανοίγει.

  13. #13
    Εγγραφή
    29-01-2003
    Περιοχή
    EUROPEAN UGANDA ΕΛΛΑΔΑρα
    Ηλικία
    53
    Μηνύματα
    778
    Downloads
    6
    Uploads
    0
    Τύπος
    ADSL2+ Net One Full
    Ταχύτητα
    17.143 / 1.023
    ISP
    Net One
    DSLAM
    Net One - ΝΕΑΣ ΚΗΦΙΣΙΑΣ
    Router
    SpeedTouch
    SNR / Attn
    12(dB) / 14(dB)
    Διπλά ζιπαρισμένο μάλιστα ...

    Τελικά κατάλαβα ο κλασσικός τρόπος με τις συναρτήσεις... αλλά αν ο προγραμματισμός δεν είναι στην VBA που είναι θά ήθελα να μάθω το κολπάκι με το κουμπάκι ...

    τελικά το πρόβλημα με τα ζιπ εξιχνιάστηκε ο σερβερ σας ξανα ζιπαρι το ζιπακι την ωρα που ανεβαίνει και μάλιστα αποκρίπτοντας την ρίζα .zip του πρώτου θεωρώ λοιπόν ότι το πρόβλημα είναι στο προγραμματισμό του adslgr

    Λειτουργικός Διαχωρισμός του ΟΤΕ ΤΩΡΑ !!!!!

  14. #14
    Το avatar του μέλους EvilHawk
    EvilHawk Guest
    Κατέβασα και τα 2 αρχεία (αρχικό και αυτό που ανέβασε ο nnn) με 3 διαφορετικούς browsers και δεν είχα κανένα απολύτως πρόβλημα, ελέγξτε τα plugins που χρησιμοποιείτε ...

  15. #15
    Εγγραφή
    06-07-2005
    Περιοχή
    Νέα Υόρκη
    Ηλικία
    49
    Μηνύματα
    11.703
    Downloads
    6
    Uploads
    2
    Τύπος
    Cable
    Ταχύτητα
    300 Mbps down/10 Mbps up
    ISP
    Spectrum
    IE7, Win Vista business eng, winrar, κανένα plugin... Δεν πειράζει, μικρό το κακό

Σελ. 1 από 3 123 ΤελευταίαΤελευταία

Παρόμοια Θέματα

  1. Βοήθεια με excel για εργασια!
    Από kafao1 στο φόρουμ Windows
    Μηνύματα: 9
    Τελευταίο Μήνυμα: 19-03-09, 22:45
  2. Βοηθεια στο excel.
    Από mplamplampla στο φόρουμ Προγραμματισμός και γλώσσες προγραμματισμού
    Μηνύματα: 9
    Τελευταίο Μήνυμα: 05-03-08, 18:49
  3. Βοήθεια στο excel
    Από satboy στο φόρουμ Windows
    Μηνύματα: 3
    Τελευταίο Μήνυμα: 30-10-05, 17:55

Tags για αυτό το Θέμα

Bookmarks

Bookmarks

Δικαιώματα - Επιλογές

  • Δεν μπορείτε να δημοσιεύσετε νέα θέματα
  • Δεν μπορείτε να δημοσιεύσετε νέα μηνύματα
  • Δεν μπορείτε να αναρτήσετε συνημμένα
  • Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας
  •  
  • Τα BB code είναι σε λειτουργία
  • Τα Smilies είναι σε λειτουργία
  • Το [IMG] είναι σε λειτουργία
  • Το [VIDEO] είναι σε λειτουργία
  • Το HTML είναι εκτός λειτουργίας