[Solved] Excel iparxi tetoia entoli?

VB Script και κολπάκια, Excel macro, Word, Powerpoint, κτλ

Συντονιστές: WebDev Moderators, Super-Moderators

Απάντηση
Άβαταρ μέλους
christos312
Δημοσιεύσεις: 126
Εγγραφή: 13 Νοέμ 2005 22:13
Επικοινωνία:

[Solved] Excel iparxi tetoia entoli?

Δημοσίευση από christos312 » 07 Αύγ 2007 15:00

Loipon skeftika na kano stin excel ena programma sto opio tha diaxeirizome ta lefta pu exw ti exoda kanw posa 3odeyo ktl...

Ayto pu thelw einai na kanw ena cell na dexetai mia timi ke na tin prostheti sto oliko


Kai exigume

px exw oliko poso xrimaton : y xrimata

ego thelw na dilono kapu se ena kuti oti exw esoda akoma z xrimata na patw add ke na prostheti sto idio cell to neo poso

diladi y+z
mporei na ginei kati teoio

eyxaristw ek ton proteron
christos12 :)
Τελευταία επεξεργασία από το μέλος christos312 την 26 Ιουν 2009 14:23, έχει επεξεργασθεί 1 φορά συνολικά.
Εικόνα
"All This Has Happened Before And It Will Happen Again.."
Battlestar Galactica RULEZZ

Άβαταρ μέλους
zefremi
Δημοσιεύσεις: 27
Εγγραφή: 11 Μαρ 2004 16:15

[Solved] Excel iparxi tetoia entoli?

Δημοσίευση από zefremi » 08 Αύγ 2007 03:29

Καταρχάς θα χρειαστείς να δημιουργήσεις ένα κουμπί εντολής. Αυτό γίνεται ως εξής:
1) Εργαλεία->Προσαρμογή
2) Στο πρώτο tab Γραμμές εργαλείων επιλέγεις το Εργαλειοθήκη στοιχείων ελέγχου
3) Απο την εργαλειοθήκη επιλέγεις το Κουμπι εντολής
4) Ζωγραφίζεις ένα παραλληλόγραμμο εκεί που θες να υπάρχει το κουμπί

Έπειτα πρέπει να εισάγαγεις τον κώδικα που θα προσθέτει το νέο ποσό στο συνολικό. Έστω ότι το συνολικό ποσό βρίσκεται στο κελί Α1 και το νέο ποσό στο κελί Β1:
1) Κάνεις δεξί κλικ στο κουμπί ελέγχου που δημιούργησες πριν
2) Επιλέγεις Προβολή κώδικα
3) Στο σημείο του κέρσορα γράφεις τον εξής κώδικα

Κώδικας: Επιλογή όλων

With ActiveSheet
    .Range("a1").Value = .Range("a1").Value + .Range("b1").Value
End With
4) Κλείνεις το παράθυρο (δεν χρειάζεται να κάνεις save)
5) Από την εργαλειοθήκη πατάς την Κατάσταση σχεδίασης για να βγεις από αυτήν

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

Κώδικας: Επιλογή όλων

ActiveSheet.Range("b1").Clear
Φίλε Χρήστο ελπίζω να λειτουργήσει όπως και σε εμένα. Έχω Office XP.

Άβαταρ μέλους
christos312
Δημοσιεύσεις: 126
Εγγραφή: 13 Νοέμ 2005 22:13
Επικοινωνία:

[Solved] Excel iparxi tetoia entoli?

Δημοσίευση από christos312 » 11 Αύγ 2007 10:23

eyxaristo para poli tha to dokimaso tora!!!
Εικόνα
"All This Has Happened Before And It Will Happen Again.."
Battlestar Galactica RULEZZ

Άβαταρ μέλους
christos312
Δημοσιεύσεις: 126
Εγγραφή: 13 Νοέμ 2005 22:13
Επικοινωνία:

[Solved] Excel iparxi tetoia entoli?

Δημοσίευση από christos312 » 11 Αύγ 2007 10:32

thanks a lot it working!!!!
Εικόνα
"All This Has Happened Before And It Will Happen Again.."
Battlestar Galactica RULEZZ

Απάντηση

Επιστροφή στο “Office, Excel, Word VB Scripts και Tips”

Μέλη σε σύνδεση

Μέλη σε αυτήν τη Δ. Συζήτηση: Δεν υπάρχουν εγγεγραμμένα μέλη και 0 επισκέπτες