Ανανέωση ιστοσελίδας
ms-office.gr > Forum > Microsoft Excel > Excel - Ερωτήσεις / Απαντήσεις > [Γενικά] τυχαιες μεταβλητες

Excel - Ερωτήσεις / Απαντήσεις Ότι έχει σχέση με συναρτήσεις, μορφοποίηση, εκτυπώσεις γραφήματα κτλ.

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 23-12-14, 13:51
Όνομα: ΓΙΑΝΝΗΣ
Έκδοση λογισμικού Office: Ms-Office 2003
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 05-11-2014
Μηνύματα: 10
Προεπιλογή τυχαιες μεταβλητες

Δημιουργήσετε ένα σετ τυχαίων δεδομένων με 4 μεταβλητές με όνομα Μ1, Μ2, Μ3, Μ4 με 29 τιμές η κάθε μία, (θα παίρνουν τιμές από 10 έως 50)..Πως μπορω να το κανω αυτο χωρις αναλυση δεδομενων;;;Και επίσης θα ηθελα να μου πειτε πως μπορω να κατεβασω την αναλυση δεδομενων γιατι παλευω εδω και καμια βδομαδα και δεν τα χω καταφερει..Εχω το excel 2003
Απάντηση με παράθεση
  #2  
Παλιά 23-12-14, 15:28
Το avatar του χρήστη Spirosgr
Συντονιστής
Όνομα: Σπύρος Τσιλιγιάννης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 22-11-2011
Περιοχή: Αθήνα
Μηνύματα: 2.321
Προεπιλογή

1.
Συνάρτηση RANDBETWEEN
Επιστρέφει έναν τυχαίο ακέραιο αριθμό, μεταξύ δύο δεδομένων αριθμών.
Κάθε φορά που υπολογίζεται το φύλλο εργασίας, αποδίδεται ένας νέος τυχαίος, ακέραιος αριθμός.
Σύνταξη:
=RANDBETWEEN(μικρότερος; μεγαλύτερος)

2.
Εργαλεία >>> Πρόσθετα >>> Στον διάλογο tick ► Analysis Toolpack.
Απάντηση με παράθεση
  #3  
Παλιά 23-12-14, 15:56
Όνομα: ΓΙΑΝΝΗΣ
Έκδοση λογισμικού Office: Ms-Office 2003
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 05-11-2014
Μηνύματα: 10
Προεπιλογή

Ευχαριστω για την βοηθεια αλλα για καποιο λογο η εντολη randbetween δεν υπαρχει...Και κατι αλλο αν ειναι ευκολο...Μηπως ξερετε καποιο λινκ ωστε να κατεβασω καποιο πιο καινουργιο office αλλα στην ελληνικη εκδοση;;;
Απάντηση με παράθεση
  #4  
Παλιά 23-12-14, 16:17
Το avatar του χρήστη Spirosgr
Συντονιστής
Όνομα: Σπύρος Τσιλιγιάννης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 22-11-2011
Περιοχή: Αθήνα
Μηνύματα: 2.321
Προεπιλογή

Εγκατέστησε το Toolpack πρώτα απ' όλα.
Μετά την εγκατάσταση πάτα F2 και ENTER και θα «ανανεωθούν» οι συναρτήσεις.
Θα εμφανιστεί και η RANDBETWEEN.
Απάντηση με παράθεση
  #5  
Παλιά 23-12-14, 16:35
Όνομα: ΓΙΑΝΝΗΣ
Έκδοση λογισμικού Office: Ms-Office 2003
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 05-11-2014
Μηνύματα: 10
Προεπιλογή απαντηση

Μου βγαζει αυτο το μήνυμα και δεν μ αφηνει να το κατεβασω
Συνημμένα Thumbnails
τυχαιες μεταβλητες-officepo.jpg  
Απάντηση με παράθεση
  #6  
Παλιά 23-12-14, 16:51
Το avatar του χρήστη Spirosgr
Συντονιστής
Όνομα: Σπύρος Τσιλιγιάννης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 22-11-2011
Περιοχή: Αθήνα
Μηνύματα: 2.321
Προεπιλογή

Η Microsoft, εδώ και λίγο καιρό, σταμάτησε την υποστήριξη για 2003.
Πιθανόν, αυτό να είναι επακόλουθο, αυτής της πολιτικής.
Προσωπικά, σταμάτησα να ασχολούμαι με το 2003 σε βάθος και θα πρέπει να ανανεώσεις (όπως και επισήμανες άλλωστε) το πρόγραμμά σου.
Απάντηση με παράθεση
  #7  
Παλιά 23-12-14, 19:12
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.674
Προεπιλογή

Καλησπέρα

Γιάννη, αναλυτική λύση στο πρόβλημά σου δίνεται στο σύνδεσμο:http://www.ms-office.gr/forum/excel-...isi-excel.html

Επειδή το αρχείο που υπάρχει εκεί δε θα μπορέσεις να το ανοίξεις, δημιούργησα το συνημμένο και προσάρμοσα τα δεδομένα στο ζητούμενο.

Αυτό που μένει να κάνεις είναι να πατήσεις το κατάλληλο κουμπί, ανάλογα με τον τύπο της δειγματοληψίας (με ανατοποθέτηση ή μη).

Φιλικά/Γιώργος
Συνημμένα Αρχεία
Τύπος Αρχείου: xls SamplesYesNoRepetitions2.xls (102,0 KB, 13 εμφανίσεις)
Απάντηση με παράθεση
  #8  
Παλιά 24-12-14, 11:52
Το avatar του χρήστη Spirosgr
Συντονιστής
Όνομα: Σπύρος Τσιλιγιάννης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 22-11-2011
Περιοχή: Αθήνα
Μηνύματα: 2.321
Προεπιλογή

Καλημέρα

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

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

Αφού δεν μπορούμε να χρησιμοποιήσουμε (για κάποιο λόγο) την RANDBETWEEN, θα πάμε σε μια άλλη συνάρτηση, που κι αυτή δημιουργεί τυχαίους αριθμούς.
Η =RAND() είναι μια συνάρτηση, χωρίς ορίσματα, που δημιουργεί τυχαίους αριθμούς, δεκαδικούς, υποδιαιρέσεις της μονάδας.

Θα βασιστούμε σε αυτό και με ένα τέχνασμα, θα κάνουμε μια χαρά την δουλειά μας.

Αν γράψουμε σε ένα κελί:

=ROUND(RAND()*(50-1)+1;0)

τότε έχουμε, τυχαίους ακεραίους αριθμούς, από 1 έως 50 και μπορούμε να αντικαταστήσουμε την RANDBETWEEN χωρίς πρόβλημα, τραβώντας κάτω όσο χρειάζεται.

Σύνταξη:

=ROUND(RAND()*(μεγαλύτερος-μικρότερος)+μικρότερος ; δεκαδικά της round 0)

Από την άλλη (αν κι εφ' όσον μας το επιτρέπει η εργασία την οποία έχουμε)
μπορούμε με κώδικα, να «κατασκευάσουμε» μόνοι μας μια δικιά μας RANDBETWEEN
και μάλιστα με περισσότερα χαρακτηριστικά, από αυτήν που έχει η Excel.

Η RANDBETWEEN δημιουργεί, τυχαίους αριθμούς, ακεραίους μόνο.
Για να δημιουργήσει και δεκαδικούς χρειάζεται κι αυτή ένα τέχνασμα.

Αν συνοψίσουμε το σκεπτικό μας, και το εφαρμόσουμε σε μια Function τότε:

Κώδικας:
Public Function CustomRandBetween(StartNumb As Long, EndNumb As Long, DecNum As Integer)
    Application.Volatile
    Randomize
    If DecNum = 0 Then
        CustomRandBetween = Int((EndNumb + 1 - StartNumb) * Rnd + StartNumb)
    Else
        CustomRandBetween = Round((EndNumb - StartNumb) * Rnd + StartNumb, DecNum)
    End If
End Function
Ο πιο πάνω κώδικας, μας επιτρέπει, να έχουμε μια Custom Function στο βιβλίο* μας.
Η συνάρτηση, αποθηκεύεται στο σημείο με τις υπόλοιπες συναρτήσεις,
στην ενότητα User Defined.

*Αν δημιουργήσουμε ένα πρόσθετο και το ενσωματώσουμε στα Add-ins, μπορούμε εκτός από το βιβλίο που έχουμε την εργασία μας,
να την έχουμε στην εφαρμογή.

Επιλέξτε ένα κελί, πληκτρολογήστε =CustomRandBetween και
θα εμφανιστεί η συνάρτηση, έτοιμη για χρήση.

Σύνταξη:

=CustomRandBetween( αριθμός από ; αριθμός έως ; δεκαδικά )

Τα τρία ορίσματα είναι υποχρεωτικά και αν δεν θέλουμε δεκαδικά βάζουμε (0) μηδέν.

Καλή συνέχεια και καλά Χριστούγεννα σ' όλους!!!

Τελευταία επεξεργασία από το χρήστη Spirosgr : 27-12-14 στις 22:56. Αιτία: Ορθογραφία, σύνταξη
Απάντηση με παράθεση
Απάντηση στο θέμα


Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[Συναρτήσεις] Τυχαίες Ωρες manolis Excel - Ερωτήσεις / Απαντήσεις 2 14-03-16 22:20


Η ώρα είναι 09:57.