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

Recommended Posts

Δημοσιεύτηκε

Θέμα με Sum/Count κλπ όταν προστίθεται γραμμή/στήλη ανάμεσα στο αποτέλεσμα και την πράξη και ...παραμένει εκτός πράξης

 

Λύση:

έστω ότι στο κελί B31 θέλουμε να προσθέσουμε τα κελιά Β5 ως Β30, αντι για το εύκολο και γνωστό

=sum(B5:B30)

γράφουμε

=Sum(B5:offset(B31;-1;0)

και ιδού... τώρα προσθέτωντας γραμμές ακριβώς πάνω από το άθροισμα (ή και οπουδήποτε μέσα) το άθροισμα παραμένει σωστό...

  • Upvote 2
  • 2 months later...
Δημοσιεύτηκε

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

Στο ecxell εγραψα μια λιστα ονοματων με ελληνικους χαρακτηρες και κατοπιν ηθελα να τα κανω ταξινομηση. Τα μισα ονοματα τα εκανε ταξινομιση και μετα τα αλλα μισα τα ξαναεκανε ταξινομιση απο το Α-Ω οτι και να εκανα δεν τα καταφερνα και αναγκαστικα να τα κανω χειροκινητα. Σε καθε κελι ξεχωριστα ειχα το επιθετο και το ονομα....τι να εχει γινει μπορειτε να με βοηθησετε? Ευχαριστω...

Δημοσιεύτηκε

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

Θα πρέπει να κάνεις μία αντικατάσταση (Ctrl+H) πχ όλα τα Αγγλικά "Ν" με τα Ελληνικά "Ν"

Δημοσιεύτηκε (edited)

Κατά λάθος έχεις γράψει κάποια αρχικά σε αγγλικά . δοκίμασε να αλλάξεις ένα δύο και να ξανακάνεις ταξινόμηση

 

gousgounis με προλαβες

Edited by gmazanakis
Δημοσιεύτηκε (edited)

Ναι ειχατε δικιο ευχαριστω....το σκεφτηκα και αλλαξα γραμματοσειρα ....δεν ηταν αυτο ομως επρεπε να τα γραψω απο την αρχη...!!! ευχαριστω πολυ παιδια με βοηθησατε πολυ....

Edited by Gousgounis
Μετατροπή απο Κεφαλαία σε πεζά
Δημοσιεύτηκε (edited)

Για να μην παιδεύεστε με το χέρι, δείτε την παρακάτω συνάρτηση:

 

>
Option Explicit
Function UKtoGRcharacters(TheWord As String)
 
   'Substitutes the english charachters with
   'the corresponding greek ones
 
Dim UKChar() As String
Dim GrChar() As String
Dim i As Integer
  
UKChar() = Split("A a B b E e H h I i K k M m N n O o P p T t Y y", " ")
GrChar() = Split("Α α Β β Ε ε Η η Ι ι Κ κ Μ μ Ν ν Ο ο Ρ ρ Τ τ Υ υ", " ")
 
On Error Resume Next
For i = LBound(UKChar) To UBound(UKChar)
	TheWord = WorksheetFunction.Substitute(TheWord, UKChar(i), GrChar(i))
Next i
 
UKtoGRcharacters = TheWord

End Function

 

Αλλάζει αυτόματα τους όμοιους χαρακτήρες από αγγλικά σε ελληνικά... :wink:

Edited by Samdreamth
  • Upvote 6
Δημοσιεύτηκε

Καλημέρες !

 

Πολύτιμη η βοήθειά σου φίλε μου .

 

+1 από μένα .

Δημοσιεύτηκε

εψαψνα να βρω ενα τροπο να φτιαξω μια function για να βγαζει το ελαχιστο (MIN) αλλα να αγνοεί το μηδεν

 

σε εμενα δουλευει αυτό

 

=SMALL(E1:E10;COUNTIF(E1:E10;0)+COUNTIF(E1:E10;"<0")+1)

Δημοσιεύτηκε (edited)

Ή εναλλακτικά:

 

=IF(SMALL(B1:B7;1)=0;SMALL(B1:B7;2);SMALL(B1:B7;1))

 

Θεωρώντας ότι το range που σε ενδιαφέρει είναι το B1:B7.

Edited by Samdreamth
  • Upvote 1
Δημοσιεύτηκε

Εδώ θα βρείτε ένα δωρεάν χρήσιμο πρόσθετο για το Excel , σαν "βοηθό" στην δημιουργία διαγραμμάτων GANTT

 

gantt_excel_06_md.gif

 

Περισσότερα μπορείτε να διαβάσετε εδώ .

  • Upvote 2

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

Πρέπει να είστε μέλος για να μπορέσετε να αφήσετε κάποιο σχόλιο

Δημιουργία λογαριασμού

Κάντε μια δωρεάν εγγραφή στην κοινότητά μας. Είναι εύκολο!

Εγγραφή νέου λογαριασμού

Σύνδεση

Εάν έχετε ήδη λογαριασμό; Συνδεθείτε εδώ.

Συνδεθείτε τώρα
×
×
  • Create New...

Σημαντικό

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