Μετάβαση στο περιεχόμενο
Ακολουθήστε τη νέα μας σελίδα στο Facebook! ×

Samdreamth

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

    256
  • Εντάχθηκε

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

  • Days Won

    1

Δημοσιεύσεις δημοσιεύτηκε από Samdreamth

  1. Φίλε μου έτσι αν έχεις πολλά μηδενικα... την πάτησες :sad:

     

    Έχεις δίκιο, το έγραψα μάλλον πρόχειρα. Τότε τι θα έλεγες γι' αυτό:

     

    =IF(MIN(B1:B7)<0;MIN(B1:B7);SMALL(B1:B7;COUNTIF(B1:B7;0)+1))

    • Upvote 1
  2. Η δική μου γνώμη είναι να κοιτάξεις πρώτα την VBA της Access (δεν ξέρω αν εννοείς VBA όταν λες VB).

    Είναι ήδη ενσωματωμένη στην Access και μπορείς να κάνεις αρκετά πράγματα (userforms, reports κλπ).

     

    Αν το "παιχνίδι χοντρύνει" τότε ναι, η VBA ίσως δεν είναι αρκετή (η VB από την άλλη έχει σαφώς περισσότερες δυνατότητες), αλλά για αυτά που περιγράφεις νομίζω ότι θα σε καλύψει.

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

     

    >
    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:

    • Upvote 6
  4. Συνεπώς, αν ξεκίνησε εργασίες χωρίς αυτήν είναι "παράνομος".

     

    Η πολεοδομία σε αυτή την περίπτωση, θα του κόψει πρόστημο ή απλώς θα του πει βγάλει την άδεια?

    Έχετε εμπειρίες από παρόμοιες περιπτώσεις?

     

    Συγνώμη αν γίνομαι κουραστικός με τις ερωτήσεις, αλλά ειδικά οι γείτονες μου έχουν αρχίσει και έχουν

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

    εργασίες του "από κάτω".

  5. Η αλήθεια είναι ότι κι εγώ το ΙΚΑ είχα κατά νου, γιατί ο "μάστορας" δεν μου φαίνεται καθόλου νόμιμος.

     

    Για την φέρουσα κατασκευή, το υπέθεσα και γι' αυτό ζήτησα την γνώμη των πιο σχετικών.

    Προφανώς και αν πχ γκρεμίσεις κολώνα θα έχεις πρόβλημα.

     

    Οι σωλήνες όμως ΔΕΝ είναι ομβρίων! Σκέψου ότι αλλάζει θέση στην κουζίνα (για το μπάνιο δεν είμαι σίγουρος)

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

    Συνεπώς, εδώ μάλλον θα έχει πρόβλημα αφού ο σωλήνας θα περνάει από την πρόσοψη της πολυκατοικίας

    (εδεχομένως θα είναι "καμουφλαρισμένος" μέσα σε γυψοσανίδα)..

  6. για τους τοίχους...είπαμε τι μπορεί να συμβεί....

    για εξωτερική αποχέτευση ουτε κατα διάνοια μπορεί να γίνει χωρίς τις απαραίτητες εγκρίσεις....

     

    βέβαια όλα αυτά θα πρέπει να αποδειχθούν

     

    Με κάλυψες!!!

    Σ' ευχαριστώ πάρα πολύ...

  7. Σ’ ευχαριστώ πολύ stavrosa.

     

    Το να γκρεμίσει όμως κάποιος έναν (ή και περισσότερους) εσωτερικό τοίχο δεν νομίζω ότι είναι απλή επισκευή, σωστά?

    Επίσης, μπορεί κάποιος αυθαίρετα να κάνει εξωτερικό σωλήνα αποχέτευσης?

     

    Δεν ξέρω αν με τα παραπάνω αλλάζουν τα πράγματα.

     

    Πάντως, οι ιδιοκτήτες του διαμερίσματος που βρίσκονται πάνω ακριβώς από το εν λόγω διαμέρισμα έχουν ήδη υποστεί κάποιες φθορές (σπασίματα βάζων κλπ) και είναι έτοιμοι να το τραβήξουν το θέμα….

  8. Χαιρετώ τους συναδέλφους!

    Επειδή λόγω ειδικότητας δεν είμαι σχετικός, θα ήθελα την άποψή σας για το παρακάτω θέμα:

     

    Εδώ και περίπου ένα μήνα, στην πολυκατοικία που μένω έχει αγοράσει κάποιος ένα διαμέρισμα στον από κάτω όροφο (1ος) και έχει βαλθεί να τρελάνει όλη την πολυκατοικία! Έχει φέρει έναν μάστορα (ο θεός να τον κάνει) ο οποίος γκρεμίζει διάφορους εσωτερικούς τοίχους. Ο ιδιοκτήτης από ότι έμαθα θέλει να αλλάξει την διαρρύθμιση του διαμερίσματος , δηλ, να αλλάξει την θέση της κρεβατοκάμαρας με την κουζίνα. Αυτό συνεπάγεται καινούριες σωληνώσεις, τρυπήματα σε τοίχους, γκρεμίσματα τοίχων κλπ. Εξαιτίας των εργασιών μάλιστα το κατάστημα που βρίσκεται κάτω από το εν λόγω διαμέρισμα πλημύρισε την προηγούμενη εβδομάδα.

     

    Η πολυκατοικία είναι 20 χρονών, οπότε θεωρώ ότι τέτοιες αλλαγές δεν μπορεί να τις κάνει αψήφιστα και χωρίς μελέτη. Πχ το γκρέμισμα τοίχων (έστω και εσωτερικών) δεν θα επηρεάσει την στατικότητα όλης της πολυκατοικίας?

     

    Από τις διάφορες συζητήσεις με τον «μάστορα» η υπόθεση φαίνεται να «βρωμάει»! Δεν φαίνεται να έχει καμία άδεια.

     

    Και ρωτώ: Δεν πρέπει κάποιος να έχει άδεια (πχ μικρής κλίμακας) για να μπορεί να προβεί σε τέτοιες ενέργειες οι οποίες επηρεάζουν το σύνολο της πολυκατοικίας? Δεν απαιτείται και μελέτη πχ από πολιτικό μηχανικό?

     

    Σήμερα καλέσαμε την αστυνομία και αυτή μας παρέπεμψε στην πολεοδομία. Η πολεοδομία μπορεί να κάνει κάτι?

     

    Θα ήθελα τα φώτα σας.

    Ευχαριστώ προκαταβολικά!

     

    ΥΓ: Ζητώ προκαταβολικά συγνώμη αν έβαλα το θέμα σε λάθος κατηγορία.

  9. Πίνακα με τιμές αγωγιμότητας θα βρείς εδώ:

     

    http://www.engineeringtoolbox.com/thermal-conductivity-d_429.html

     

    Είναι βέβαια στα αγγλικά. Για ανοξείδωτο χάλυβα ψάξε Stainless Steel.

    Όπως θα δεις είναι 16, 17 και 19 W/(mK) για θερμοκρασίες 25, 125 και 225 C αντίστοιχα.

    • Upvote 1
  10. χαίρετε!Φτιαχνω ενα προγραματακι στο excell για υπολογισμο καλωδιου και θα ηθελα λιγη βοηθεια,θελω να γεινεται το εξης: οταν ο αριθμος που βρισκεται στο κελι c8 ειναι μικροτερος του 2,5 να επιλεγεται 2,5 , οταν ειναι μεγαλητερος του 2,5 να επιλεγεται 4, οταν ειναι μεγαλητερος του 4 να επιλεγεται 6 και παει λεγοντας! χρισιμοποιώ την if συναρτηση αλλα δεν ειναι για πολλες επιλογες, καμια ιδεα κανεις?

     

    Εκτός από την λύση των nested ifs, την οποία σωστά σου πρότειναν τα παιδιά, υπάρχει ευκολότερη λύση αλλά απαιτεί VBA.

    Παρακάτω είναι μια custom function που έγραψα "στο φτερό" και η οποία κάνει αυτό που ζητάς:

     

    >Function Thickness(Cable As Double)
    
    Select Case Cable
    
    Case 0 To 1.5
    
    Thickness = 1.5
    
    Case 1.5 To 2.5
    
    Thickness = 2.5
    
    Case 2.5 To 4
    
    Thickness = 4
    
    Case 4 To 6
    
    Thickness = 6
    
    'Αν θες προσθέτεις και άλλα cases
    
    Case Else
    
    Thickness = "Error"
    
    End Select
    
    End Function

    • Upvote 1
  11. Δουλεψε!Ευχαρηστω!Κατι άλλο οταν βάζω αριθμους και λεξεις σε ενα κελι και κανω πραξη μου βγαζει σφαλμα,τι πρεπει να κανω?Π.χ στο Α1 κελι έχω 5 και στο Β2 12 ah οταν κανω : =Α1*Β2 μου βγαζει σφαλμα και οχι 60ah που θα περιμενα.

     

    Πάντως, αν θες και την μονάδα στο ίδιο κελί γίνεται. Πώς?

    Στο κελί που θες να εμφανίζεται πχ 12 Ah, κάνεις δεξί κλικ, επιλέγεις format cells, number και στην συνέχεια custom format.

    Πχ για την περίπτωση του 12,00 Ah, ο τύπος θα είναι θα είναι 0.00 \Ah.

     

    Με αυτό τον τρόπο το κελί εξακολουθεί να είναι αριθμός και μπορείς να κάνεις κανονικά πράξεις...

  12. Αν δεν δουλεύει, δείτε πώς ορίζεται το δεκαδικό στον υπολογιστή σας (κόμμα ή τελεία).

    Στον τύπο που παρέθεσα το έχω με τελεία οπότε gvarth ίσως γι' αυτό δεν δουλεύει.

    Δε νομίζω ότι έχει σχέση με την έκδοση του excel γιατί το δοκίμασα και σε excel 2003...

     

    Edit:

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

    αλλάξω τον τύπο και όπου τελεία να βάλω κόμμα. Δες το, κατά 99,9% αυτό θα είναι το πρόβλημα.

  13. Να προτείνω και μια εναλλακτική λύση χρησιμοποιώντας την εντολή substitute:

     

    A1: 24+450

    B1: 34+650

    C1: =SUBSTITUTE(B1;"+";".")-SUBSTITUTE(A1;"+";".")

     

    Και για δεδκαδικά:

     

    Α1: 26+973.40

    Β1: 33+056.37

    C1: =SUBSTITUTE(SUBSTITUTE(B1;".";"");"+";".")-SUBSTITUTE(SUBSTITUTE(A1;".";"");"+";".")

    • Upvote 3
  14. Καλησπέρα,

     

    Πριν από ένα μήνα πήρα κι εγώ το νέο βιβλιάριο του ΤΣΜΕΔΕ.

    Γνωρίζει κανείς να μου πει αν πχ θέλω να κάνω εξετάσεις αίματος τι πρέπει να κάνω?

    Αναφέρομαι σε προληπτικές εξετάσεις χωρίς να μου τις έχει γράψει κάποιος ιατρός, σαν ετήσιο check up για παράδειγμα.

     

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

    (και μακάρι να μην την χρησιμοποιήσω ποτέ εδώ που τα λέμε)…

     

    Ευχαριστώ εκ των προτέρων!

     

    Ξέρει κανείς να απαντήσει?

  15. Καλησπέρα,

     

    Πριν από ένα μήνα πήρα κι εγώ το νέο βιβλιάριο του ΤΣΜΕΔΕ.

    Γνωρίζει κανείς να μου πει αν πχ θέλω να κάνω εξετάσεις αίματος τι πρέπει να κάνω?

    Αναφέρομαι σε προληπτικές εξετάσεις χωρίς να μου τις έχει γράψει κάποιος ιατρός, σαν ετήσιο check up για παράδειγμα.

     

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

    (και μακάρι να μην την χρησιμοποιήσω ποτέ εδώ που τα λέμε)…

     

    Ευχαριστώ εκ των προτέρων!

  16. Σωστό αυτό που κάνεις αλλά ο Tripitis έγραψε ότι εχει merged cells γραμμών.

     

    Δηλαδή, το πρώτο κελί είναι πχ το A1:A7, το δεύτερο Α8:Α14 κλπ.

     

    Γι' αυτό και έγραψα τον παραπάνω κώδικα. Δεν ξέρω αν υπάρχει τρόπος να γίνει χωρίς VBA...

  17. Γιατί απλά δε κάνεις μία συσχέτιση;

    πχ στο μονό κελί του Φύλλου2 γράφεις "=Φύλλο1!F1" όπου το F1 είναι το 1ο απο τα συγχωνευμένα και μετά τραβάς προς τα κάτω για να πάρει και τις άλλες τιμές.

     

    Δεν γίνεται αυτό που λες... Όταν θα τραβήξει προς τα κάτω το κελί στο Φύλλο2 θα εμφανιστούν μηδενικά...

    Δυστυχώς δεν είναι τόσο απλό...

  18. Tripitis, παρακάτω έχω γράψει μια μακροεντολή που κάνει αυτό που θες αν και λίγο μπακάλικα.

    Δηλαδή, αντιγράφει τις τιμές των merged cells σε ένα καινούργιο φύλλο, αφαιρεί τις κενές γραμμές και επικολλά το νέο Range

    στο επιλεγμένο target range. Τέλος σβήνει και το νέο φύλλο που δημιούργησε.

     

    Για να το χρησιμοποιήσεις αλλάζεις δυο γραμμές:

    Εκεί που λέει Set MergedRange βάλε το φύλλο και το range που έχεις τα δεδομένα.

    Εκεί που λέει Set TargetRange βάλε το φύλλο και την θέση που θες να επικοληθούν τα δεδομένα από τα merged κελιά.

     

    πχ αν τα δεδομένα σου είναι στο 3ο φύλλο, στα κελιά Β1:Β25 θα βάλεις:

    Set MergedRange = Sheet3.Range("B1:B25")

     

    Ομοίως, αν το κελί που θες να τα επικολήσεις είναι πχ στο 5ο φύλλο το C50, τότε θα βάλεις:

    Set TargetRange = Sheet5.Range("C50")

     

    Πρόσεξε να βάλεις τα επιθυμητά range γιατί σε οποιαδήποτε περίπτωση άλλη περίπτωση (πχ αν δεν υπαρχει το sheet 5) θα βγάλει error.

     

    Τον έγραψα λίγο πρόχειρα τον κώδικα αλλά ελπίζω να σε βοηθήσει.... :???:

     

     

    >
    Option Explicit
    
    Sub CopyMergedCells()
    
    Application.ScreenUpdating = False
    
    Dim MergedRange As Range
    Dim HelpingRange As Range
    Dim TargetRange As Range
    Dim LastRow As Long
    
    Set MergedRange = Sheet1.Range("A1:A20")
    Set TargetRange = Sheet2.Range("G4")
    
    MergedRange.Copy
    
    Sheets.Add After:=Sheets(Sheets.Count)
    Range("A1").PasteSpecial Paste:=xlPasteValues
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.Delete Shift:=xlUp
    Selection.End(xlUp).Select
    
    Sheets(Sheets.Count).Activate
    With ActiveSheet
    	LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    End With
    
    Set HelpingRange = Range("A1:A" & LastRow)
    HelpingRange.Copy
    TargetRange.PasteSpecial xlPasteValues
    
    Application.DisplayAlerts = False
    Sheets(Sheets.Count).Delete
    Application.DisplayAlerts = True
    
    TargetRange.Activate
    
    End Sub
    

    • Upvote 1
  19. Καλημέρα,

     

    Νομίζω ότι θα βοηθούσε αν μας περιγράφετε ακριβώς τί έχετε στο μυαλό σας, δηλαδή τι θέλετε να κάνει ολόκληρο το workbook.

    Το λέω αυτό γιατί με μια πρόχειρη ματιά που έριξα μου φαίνεται ότι πλέκεται πολύ το πράγμα χωρίς ενδεχομένως να χρειάζεται (pivot tables κλπ).

     

    Τα παραπάνω τα λέω με επιφύλαξη γιατί δεν μπορώ να ξέρω τι έχετε κατά νου.

    Συνήθως, η λογική που ακολουθούμε σε θέματα σχετικά με excel είναι keep it simple…

  20. θελω να κλειδωσω την μορφοποίηση των 2 τελευταιων φυλλων για να μπορω να εχω και μια επισκοπηση της εκτυπωσης

    εν κατακλειδι θελω να κλειδωσω το zoom in/out και τις αλλαγες στο πλατος στηλης και στο ύψος γραμμης

     

    Κλειδώνεις τα 2 τελευταία φύλλα ολόκληρα και όταν κάνεις την προστασία φύλλου απεπιλέγεις τα: format rows, columns, ίσως και

    τα insert rows, columns. Όταν κλειδωθεί το φύλλο τότε κανείς δεν θα μπορεί να αλλάξει το πλάτος ή το ύψος των κελλιών.

     

    Σου γράφω να κλειδώσεις ολόκληρο το φύλλο για τον εξής απλό λόγό: αν έχω κλειδωμένα πχ τα κελλιά A1:B2, και έχω αποεπιλέξει

    τα format rows, columns, και τα insert rows, columns κατά το κλείδωμα του φύλλου, τότε θα δω ότι δεν μπορώ να αλλάξω το πλάτος ή το ύψος των κελιών (με τον σταυρό που εμφανίζεται στις γραμμές και τις στήλες). Όμως, αν κάποιος πάει στο κελλί Α3 και πχ μεγαλώσει την γραμματοσειρά, τότε θα αλλάξει το ύψος της γραμμής. Δεν ξέρω αν έγινα πλήρως κατανοητός...

     

    Όσο για το zoom, μια σκέψη είναι να βάλεις πχ έναν κώδικα (event για την ακρίβεια) στο φύλλο ώστε όταν πχ κάποιος πάει να αλλάξει κάτι αυτό να επιστρέψει στο zoom που θα του έχεις προδιαγράψει:

     

    Private Sub Worksheet_Change(ByVal Target As Range)

    ActiveWindow.Zoom = 80

    End Sub

     

    Δεν ξέρω αν σε βοήθησα καθόλου....

    • Upvote 2
×
×
  • Create New...

Σημαντικό

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