Forum

Forum (https://www.ms-office.gr/forum/)
-   Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)
-   -   [Γενικά] τυχαιες μεταβλητες (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/3484-tyxaies-metablites.html)

mutilinios 23-12-14 13:51

τυχαιες μεταβλητες
 
Δημιουργήσετε ένα σετ τυχαίων δεδομένων με 4 μεταβλητές με όνομα Μ1, Μ2, Μ3, Μ4 με 29 τιμές η κάθε μία, (θα παίρνουν τιμές από 10 έως 50)..Πως μπορω να το κανω αυτο χωρις αναλυση δεδομενων;;;Και επίσης θα ηθελα να μου πειτε πως μπορω να κατεβασω την αναλυση δεδομενων γιατι παλευω εδω και καμια βδομαδα και δεν τα χω καταφερει..Εχω το excel 2003

Spirosgr 23-12-14 15:28

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

2.
Εργαλεία >>> Πρόσθετα >>> Στον διάλογο tick ► Analysis Toolpack.

mutilinios 23-12-14 15:56

Ευχαριστω για την βοηθεια αλλα για καποιο λογο η εντολη randbetween δεν υπαρχει...Και κατι αλλο αν ειναι ευκολο...Μηπως ξερετε καποιο λινκ ωστε να κατεβασω καποιο πιο καινουργιο office αλλα στην ελληνικη εκδοση;;;

Spirosgr 23-12-14 16:17

Εγκατέστησε το Toolpack πρώτα απ' όλα.
Μετά την εγκατάσταση πάτα F2 και ENTER και θα «ανανεωθούν» οι συναρτήσεις.
Θα εμφανιστεί και η RANDBETWEEN.

mutilinios 23-12-14 16:35

απαντηση
 
1 Συνημμένο(α)
Μου βγαζει αυτο το μήνυμα και δεν μ αφηνει να το κατεβασω

Spirosgr 23-12-14 16:51

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

kapetang 23-12-14 19:12

1 Συνημμένο(α)
Καλησπέρα

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

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

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

Φιλικά/Γιώργος

Spirosgr 24-12-14 11:52

Καλημέρα

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

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

Αφού δεν μπορούμε να χρησιμοποιήσουμε (για κάποιο λόγο) την 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) μηδέν.

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


Η ώρα είναι 07:46.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2