Μετάβαση στο περιεχόμενο

apostolos55

Members
  • Περιεχόμενα

    72
  • Εντάχθηκε

  • Τελευταία επίσκεψη

  • Days Won

    5

Everything posted by apostolos55

  1. @st2 και γενικότερα Αυτό που ζητάς είναι εξαιρετικά δύσκολο. Το εύκολο (αλλά με δουλίτσα για στήσιμο) είναι να φορμάρεις πλήρως μια γραμμή, να κάνεις χρήση της GetIf() (από τα προγράμματά μου για ΙΚΑ) ή της ...vlookup ώστε κάθε φορά που θα προσθέτεις παίχτη να συμπληρώνονται όλα αυτόματα. Για να επεκτείνεις της μορφοποιήσεις θα κάνεις copy-paste προ-μορφοποιημένα κελιά και θα διορθώνεις το Link στον παίχτη. Δες καλά τα προγραμματάκια και τα σχολιά τους. Κάνουν αυτό που θες... αλλά με άλλη προσέγγιση Την vlookup δεν την έχω δουλέψει αλλά έχω δεί ότι κάνει ~ αυτό που θες. Η getif() το κάνει ακριβώς, συντάσεται πανεύκολα (σαν την sumif) και ...την δίνω και Δωρεάν
  2. @georgecv Γίνεται! Το κάνεις "trap" με vba στο sheet (1) ή workbook (2) πάτα Alt+F11 (για VBA Editor) (1) copy-paste το παρακάτω στο worksheet: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 15 And Target.Column = 3 Then Cells(22, 6).formular1c1 = "="+Target.Value End If End Sub ---| δηλαδή αλλαγές στο κελί Cell(15,3) ή C15 μεταφέρονται στο cell(22,6) ή F22 (2) copy-paste το παρακάτω στο thisworkbook: Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If LCase(Sh.Name) = "sheet1" And (Target.Row = 15 And Target.Column = 6) Then Sh.Cells(22, 8 ).formular1c1 = "=" + Target.Value End If End Sub ---| Πρόσεξε ότι εδώ κάνουμε trap σε φύλλο και σε κελί!!! και συγκεκριμένα sheet1.F15 --> sheet1.H22 Ίσως σε Ελληνικό excel χρειαστεί "φύλλο1" αντί sheet1 αλλά δεν είμαι 100% σίγουρος. Αν δε δουλέψει κάνε παγίδευση με Sh.Index=1 ή 2 ... {αντί του LCase(Sh.Name) = "sheet1"} Εννοείται ότι η παγίδευση μπορεί να αλλάξει κατά βούληση και η αντιστοίχηση να γίνεται σχετικά (relative) sh και target είναι το φύλλο και κελί που προκάλεσαν την αλλαγή Αυτονόητο είναι ότι παγίδευση σε πολλαπλά κελιά με αυτόματες αλλαγές αναμεταξύ τους (από VBA και Excel formulas) μπορεί να προκαλέσει σύγχηση και εξαιρετικά "βαρύ" πρόγραμμα...
  3. Ωραίο Θέμα Ασχολούμαι πολλά πολλά χρόνια με QBasic, Vb και VBA οπότε θα προσπαθήσω όσο μπορώ να συνεισφέρω. Για Αρχή, αλλά όχι για αρχάριους, μπορείτε να δείτε τον κώδικα στο αρχείο http://www.michanikos.gr/downloads.php?do=file&id=1031 που παίρνει δεδομένα από πολλά sheets και δημιουργεί αρχείο για το ΙΚΑ. Έχω πολλά σχόλια σε Γκρικλισ και θα κατανοήσετε εύκολα τι παίζει. Στο "Module 1" οπωσδήποτε δείτε την Getif (θα έπρεπε να την είχε το Excel) και τις τελευταίες που γλιτώνουν κόπο και χώρο... Στο "sheet5 (ΑΠΔ gen)" φαίνεται τρόπος να καλέσω συνάρτηση από αλλαγή σε κελί Στο "ThisWorkbook" φαίνεται εργασίες που εκκινούν σε "κατάλληλο" sheet Και μερικά Links για πιο προχωρημένους http://www.java2s.com/Code/VBA-Excel-Access-Word/Excel/CatalogExcel.htm http://spreadsheetpage.com/index.php/tips http://www.xtremevbtalk.com/forumdisplay.php?f=14 http://www.eggheadcafe.com/searchform.aspx?search=Excel%20macro και φυσικά της "μαμάς" http://msdn.microsoft.com/en-us/library/bb979621(v=office.12).aspx Παρατήρηση: Μην κάνετε διαδοχικές δημοσιεύσεις. Για να πραγματοποιήσετε οποιαδήποτε αλλαγή στο περιεχόμενο του κειμένου ή για να συμπληρώσετε το μήνυμα που δημοσιεύσατε, χρησιμοποιείστε την εντολή "Edit". Παρακαλώ διαβάστε τους Κανόνες Συμμετοχής! Ευχαριστώ, ilias
×
×
  • Create New...

Σημαντικό

Χρησιμοποιούμε cookies για να βελτιώνουμε το περιεχόμενο του website μας. Μπορείτε να τροποποιήσετε τις ρυθμίσεις των cookie, ή να δώσετε τη συγκατάθεσή σας για την χρήση τους.