Founes Δημοσ. 23 Ιανουαρίου 2004 Δημοσ. 23 Ιανουαρίου 2004 Estw oti exw ena sinolo kwdikwn... tou typou AB12345 to prob einai oti polloi exoun kataxwrithei ws exis... AB123 AB0124 AB00122 AB01245 me apotelesma na min borei na ginei swsto sort kata auxonda arithmo. Exete kapoia protasi gia to pws borw na xwrisw ta 2 prwta psifia twn kwdikwn kai meta na kanw ena scan sto 2o meros kai oti einai katw twn 6 psifiwn na to gemizei me midenika stis prwtes theseis??? px AB0124 na to fiaxnei AB 0124 kai meta AB 000124 AB02345 ------------>AB 02345 -------> AB 002345 AB15926 ------------>AB 15926 -------> AB 015926 AB158 --------------->AB 158 ----------> AB 000158 An borei kapoios na voithisei tha mou ekane megali xari paidia milame gia peripou 60000 kwdikous. Euxaristw ek twn proterwn.
koyan Δημοσ. 23 Ιανουαρίου 2004 Δημοσ. 23 Ιανουαρίου 2004 Μπορώ να σου δώσω φτιάξω μία λύση αν θέλεις, αλλά δεδομένου ότι δεν ξέρω τίποτα από excel, θα έχει την εξής "ιδιαιτερότητα": Θα πρέπει να εξάγεις τα δεδομένα σου σε access, να τρέξεις εκεί την συνάρτηση που θα σου φτιάξω, και μετά να εισάγεις ξανά τα δεδομένα σου στο excel. (γιατί να κρατάς 60000 records στο excel?) Είμαι σίγουρος ότι την function που σου στέλνω, με κάποιο τρόπο μπορείς να την χρησιμοποιήσεις στο excel, αλλά βαριέμαι πολύ να ψάχνω τώρα πως δουλευει η excel. Αν κάποιος άλλος ξέρει, ας μας πει να μαθαίνουμε και μεις. > Public Function cutandspace(orig) Dim a As String Dim b As String Dim x As String Dim l As Integer a = Left(orig, 2) b = Mid(orig, 3) l = Len(b) x = a + " " + Left("000000", 6 - l) + b cutandspace = x End Function Αν χρειάζεσαι βοήθεια για το πώς θα βγάλεις τα δεδομένα σου στην access και πίσω στο excel, πες το.
michaelogr Δημοσ. 23 Ιανουαρίου 2004 Δημοσ. 23 Ιανουαρίου 2004 loipon kollhte to 8emataki einai parapoly aplo.... oute typoi xreiazontai oute nothing.... exeis thn sthlh sou pou einai ws ekshs... O123 ΑΒ123 ΑΒ1234 ΑΒ23564 ΑΒ78932 GI744 GI74545 ΚI123 ΟI123 ΟI178979 ΣΠ546 thn epilegeis kai patas apo to menu dedomena keimeno se sthles sta8erou mhkous epilegeis na xwrisei thn sthlh sta dyo prwta pshfia kai patas telos twra exeis auth thn morfh O1 23 ΑΒ 123 ΑΒ 1234 ΑΒ 23564 ΑΒ 78932 GI 744 GI 74545 ΚI 123 ΟI 123 ΟI 178979 ΣΠ 546 epilegei thn deuterh sthlh me tous ari8mous.... patas morfopoihsh keliwn prosarmogh kai vazeis mhdenika gia osa pshfia 8es.... kai..... That's all folks.... :ppp twra mporeis na shortareis opws 8es... filakiaaaaaaaaaaaaa
Maniakos Δημοσ. 24 Ιανουαρίου 2004 Δημοσ. 24 Ιανουαρίου 2004 mixalaki eisai K...aaa!!! lol! ένα "thanks" συνήθως αρκεί
Προτεινόμενες αναρτήσεις
Αρχειοθετημένο
Αυτό το θέμα έχει αρχειοθετηθεί και είναι κλειστό για περαιτέρω απαντήσεις.