Πώς να δημιουργήσετε μακροεντολές της Visual Basic, χρησιμοποιώντας επίλυση του Excel στο Excel 97

Αναγν. άρθρου: 843304 - Δείτε τα προϊόντα στα οποία αναφέρεται το συγκεκριμένο άρθρο.
Μηχανικά μεταφρασμένοΠΡΟΕΙΔΟΠΟΙΗΣΗ: ΑΥΤΟ ΤΟ ΑΡΘΡΟ ΜΕΤΑΦΡΑΣΤΗΚΕ ΜΕ ΜΗΧΑΝΙΚΗ ΜΕΤΑΦΡΑΣΗ
Ανάπτυξη όλων | Σύμπτυξη όλων

Σε αυτήν τη σελίδα

Περίληψη

Αυτό το άρθρο περιγράφει τον τρόπο χρήσης του "Επίλυση" του Microsoft Excel στο Microsoft Excel 97 για να δημιουργήσετε μακροεντολές της Microsoft Visual Basic. Η επίλυση του Microsoft Excel είναι ένα πρόσθετο του Microsoft Excel.

Επιπλέον, αυτό το άρθρο περιέχει πληροφορίες σχετικά με τον τρόπο δημιουργίας μακροεντολών, τον τρόπο σχεδίασης μιας μακροεντολής και τον τρόπο εργασίας με τους περιορισμούς της μακροεντολής. Αυτό το άρθρο περιγράφει επίσης τον αλγόριθμο και μέθοδοι που χρησιμοποιούνται από την "Επίλυση" του Microsoft Excel. Η ακόλουθη λίστα παρέχει όλα τα θέματα που αναφέρονται στο άρθρο.
Επιστροφή στην αρχή | Αποστολή σχολίων

ΕΙΣΑΓΩΓΉ

Αυτό το άρθρο περιέχει πληροφορίες σχετικά με το Microsoft Excel Επίλυση.
Επιστροφή στην αρχή | Αποστολή σχολίων

Περισσότερες πληροφορίες

Περιγραφή της επίλυσης Microsoft Excel

Η επίλυση του Microsoft Excel είναι ένα Microsoft Excel βοηθά στην επίλυση του πρόσθετο Microsoft Excel Μπορείτε να προσδιορίσετε τη βέλτιστη τιμή για τον τύπο σε ένα συγκεκριμένο κελί προορισμού σε ένα φύλλο εργασίας του Microsoft Excel. Επίλυση Microsoft Excel προσαρμόζει τις τιμές άλλων κελιά που σχετίζονται με το κελί προορισμού, χρησιμοποιώντας μια εξίσωση. Μετά την κατασκευή μιας εξίσωσης και να ορίσετε ένα σύνολο παραμέτρων ή περιορισμούς για την μεταβλητές στην εξίσωση, η "Επίλυση" του Microsoft Excel προσπαθεί διάφορες λύσεις για να καταλήξουμε σε μια απάντηση που ικανοποιεί όλους τους περιορισμούς. Η επίλυση του Microsoft Excel χρησιμοποιεί τα ακόλουθα στοιχεία "Επίλυση" μια εξίσωση:
  • Κελί προορισμού -Το κελί προορισμού είναι ο στόχος. Είναι το κελί στο φύλλο εργασίας μοντέλο που θα ελαχιστοποιηθεί, Μεγιστοποίηση ή να ορίσετε μια συγκεκριμένη τιμή.
  • Μεταβαλλόμενα κελιά -Μεταβαλλόμενα κελιά είναι μεταβλητές απόφαση. Αυτά τα κελιά επηρεάζουν την τιμή του κελιού προορισμού. Αυτά τα κελιά είναι Αλλαγή από το Microsoft Excel "Επίλυση" για να βρείτε τη βέλτιστη λύση για το κελί προορισμού.
  • Περιορισμοί -Περιορισμούς, οι περιορισμοί σχετικά με τα περιεχόμενα των κελιών. Για παράδειγμα, ένα κελί σε ένα μοντέλο φύλλου εργασίας μπορεί να περιορισθεί σε ακέραιες τιμές ενώ ένα άλλο κελί μπορεί να περιορισθεί σε είναι μικρότερη από μια δεδομένη τιμή.
Μπορείτε να αυτοματοποιήσετε τη δημιουργία και το χειρισμό των μοντέλων "Επίλυση" του Microsoft Excel χρησιμοποιώντας ένα Microsoft Visual Basic for Applications (VBA) μακροεντολής. Αυτό το άρθρο περιγράφει τον τρόπο χρήσης γλώσσα μακροεντολών VBA για να χρησιμοποιήσετε τις συναρτήσεις "Επίλυση" του Microsoft Excel στο Microsoft Excel 97. Αυτό το άρθρο προϋποθέτει ότι είστε εξοικειωμένοι με τη γλώσσα της VBA και της Microsoft Visual Basic για το Microsoft Excel 97. Τα παραδείγματα που χρησιμοποιούνται σε αυτό το άρθρο είναι διαθέσιμο για λήψη στην ακόλουθη τοποθεσία της Microsoft στο Web:
http://Download.Microsoft.com/download/excel97win/solverex/1.0/WIN98Me/EN-US/SolverEx.exe
(http://download.microsoft.com/download/excel97win/solverex/1.0/WIN98Me/EN-US/SolverEx.exe)
Σημείωση Μπορείτε επίσης να χρησιμοποιήσετε τις μακροεντολές και τα παραδείγματα που περιγράφονται σε αυτό άρθρο στο Microsoft Excel έκδοση 5.0 και 7.0.

Πώς να χρησιμοποιήσετε τις συναρτήσεις "Επίλυση" του Microsoft Excel σε μια μακροεντολή VBA

Για να χρησιμοποιήστε τις συναρτήσεις για το πρόσθετο "Επίλυση" του Microsoft Excel σε μια μακροεντολή VBA που πρέπει να αναφέρεται το πρόσθετο από το έργο VBA από το βιβλίο εργασίας που περιέχει τις μακροεντολές. Αν δεν αναφέρετε το πρόσθετο "Επίλυση" του Microsoft Excel, θα λάβετε το παρακάτω σφάλμα μεταγλώττισης κατά την εκτέλεση της μακροεντολής:
Σφάλμα μεταγλώττισης: Sub ή λειτουργία δεν έχει οριστεί.
Για να αναφοράς το πρόσθετο "Επίλυση" του Microsoft Excel για τις μακροεντολές στο βιβλίο εργασίας σας, χρησιμοποιήστε την παρακάτω τα βήματα:
  1. Ανοίξτε το βιβλίο εργασίας σας.
  2. Από το Εργαλεία μενού, σημείοΜακροεντολή, και στη συνέχεια κάντε κλικ στο κουμπί Πρόγραμμα επεξεργασίας Visual Basic.
  3. Από το Εργαλεία μενού, κάντε κλικ στο κουμπίΑναφορές.
  4. Με το Διαθέσιμες αναφορές λίστα, κάντε κλικ για να Επιλέξτε το Solver.xls το πλαίσιο ελέγχου και στη συνέχεια κάντε κλικ στο κουμπί OK.

    Σημείωση Εάν δεν δείτε Solver.xls με το Διαθέσιμες αναφορέςλίστα, κάντε κλικ στο κουμπί Αναζήτηση. Με το Προσθήκη Αναφορά παράθυρο διαλόγου, εντοπίστε και επιλέξτε το αρχείο Solver.xla, και στη συνέχεια Κάντε κλικ στο κουμπί Άνοιγμα. Το αρχείο Solver.xla βρίσκεται συνήθως στο του C:\Program Files\Microsoft Office\Office\Library\Solver υποφάκελο.
Τώρα είστε έτοιμοι να χρησιμοποιήσετε τις συναρτήσεις "Επίλυση" του Microsoft Excel σε μια Μακροεντολή VBA.

Τρόπος σχεδίασης μια μακροεντολή VBA που δημιουργεί και επιλύει ένα απλό μοντέλο "Επίλυση" του Microsoft Excel

Παρόλο που η επίλυση του Microsoft Excel παρέχει πολλές λειτουργίες, τις ακόλουθες τρεις Οι συναρτήσεις είναι θεμελιώδες για τη δημιουργία και την επίλυση ενός μοντέλου:
  • Το SolverOK συνάρτηση
  • Το SolverSolve συνάρτηση
  • Το SolverFinish συνάρτηση

Η συνάρτηση SolverOK

Το SolverOK συνάρτηση ορίζει ένα βασικό μοντέλο "Επίλυση" του Microsoft Excel. Το SolverOK η συνάρτηση είναι γενικά η πρώτη συνάρτηση που θα χρησιμοποιήσετε για να δημιουργήσετε το μοντέλο "Επίλυση" του Microsoft Excel. Το SolverOK συνάρτηση είναι ισοδύναμη με την επιλογή Επίλυση από το Εργαλείαμενού και στη συνέχεια καθορίζοντας τις επιλογές που υπάρχουν στο του Παράμετροι επίλυσηςστο παράθυρο διαλόγου. Ακολουθεί η σύνταξη για το SolverOK συνάρτηση:
SolverOK (SetCell, MaxMinVal, ValueOf, ByChange)
Οι ακόλουθες πληροφορίες περιγράφουν τη σύνταξη για το SolverOK συνάρτηση:
  • SetCell Καθορίζει το κελί προορισμού.
  • MaxMinVal Αν θέλετε να λύσετε το κελί προορισμού αντιστοιχεί για μέγιστη τιμή (1), η ελάχιστη τιμή (2) ή μια συγκεκριμένη τιμή (3).
  • ValueOf Καθορίζει την τιμή που συμφωνεί το κελί προορισμού. Εάν έχετε σύνολο MaxMinVal 3, πρέπει να καθορίσετε αυτό το όρισμα. Εάν ορίσετε MaxMinVal 1 ή 2, μπορείτε να παραλείψετε αυτό το όρισμα.
  • ByChange Καθορίζει το κελί ή περιοχή κελιών που θα αλλάξει.
Σχήμα 1 συσχετίζει τα ορίσματα για το SolverOK λειτουργεί με το παράμετροι του Παράμετροι επίλυσης στο παράθυρο διαλόγου.

Σχήμα 1. Οι παράμετροι που σχετίζονται με το SolverOKτα ορίσματα

Σύμπτυξη αυτής της εικόναςΑνάπτυξη αυτής της εικόνας
Σχήμα 1. Οι παράμετροι που σχετίζονται με τα ορίσματα SolverOK


Η συνάρτηση SolverSolve

Το SolverSolve συνάρτηση λύνει το μοντέλο χρησιμοποιώντας τις παραμέτρους που καθορίσατε με την SolverOK η συνάρτηση. Εκτέλεση του SolverSolve η συνάρτηση είναι ισοδύναμες Για να κάνετε κλικ Επίλυση με το Παράμετροι επίλυσης στο παράθυρο διαλόγου. Ακολουθεί η σύνταξη για το SolverSolve συνάρτηση:
SolverSolve (UserFinish, ShowRef)
Οι ακόλουθες πληροφορίες περιγράφουν τη σύνταξη για το SolverSolve συνάρτηση:
  • UserFinish Υποδεικνύει εάν θέλετε ο χρήστης για να ολοκληρώσετε την επίλυση του μοντέλο.

    Για να επιστρέψει τα αποτελέσματα χωρίς να εμφανίζει την Επίλυση Αποτελέσματα παράθυρο διαλόγου πλαίσιο, ορίστε το όρισμα TRUE. Για να επιστρέψει τα αποτελέσματα και να εμφανίσετε το Αποτελέσματα επίλυσης παράθυρο διαλόγου πλαίσιο, ορίστε το όρισμα στην τιμή FALSE
  • ShowRef Προσδιορίζει τη μακροεντολή που καλείται κατά την επίλυση του Microsoft Excel επιστρέφει ένα ενδιάμεση λύση.

    Το ShowRef το όρισμα πρέπει να χρησιμοποιείται μόνο όταν μεταβιβάζεται TRUE το StepThru το όρισμα από το SolverOptions η συνάρτηση.

Η συνάρτηση SolverFinish

Το SolverFinish συνάρτηση δηλώνει τι πρέπει να κάνετε με τα αποτελέσματα, και τι είδους έκθεση για να δημιουργήσετε αφού ολοκληρωθεί η διαδικασία επίλυσης. Ακολουθεί η σύνταξη για το SolverFinish συνάρτηση:
SolverFinish (KeepFinal, ReportArray)
Οι ακόλουθες πληροφορίες περιγράφουν τη σύνταξη για το SolverFinish συνάρτηση:
  • KeepFinal Υποδεικνύει τι πρέπει να κάνετε με τα τελικά αποτελέσματα. Εάν KeepFinal είναι 1, η τελική λύση διατηρούνται τιμές στα μεταβαλλόμενα κελιά Αντικατάσταση των τιμών. Εάν KeepFinal είναι 2, απορρίπτονται οι τιμές τελική λύση, και της Πρώην επαναφέρονται οι τιμές.
  • ReportArray Καθορίζει έναν πίνακα, η οποία δηλώνει τον τύπο αναφοράς Microsoft Το Excel θα δημιουργήσει όταν επιτευχθεί η λύση. Εάν ReportArray έχει οριστεί σε 1, το Microsoft Excel δημιουργεί μια έκθεση απαντήσεων. Εάν οριστεί σε 2, Το Microsoft Excel δημιουργεί μια έκθεση ευαισθησία και αν ορίσετε 3 Microsoft Το Excel δημιουργεί μια αναφορά ορίων. Για περισσότερες πληροφορίες σχετικά με αυτές τις αναφορές, ανατρέξτε στο θέμα "Πώς να δημιουργείτε αναφορές για λύσεις"ενότητα.
Σχήμα 2. Επιλογές αποτελεσμάτων "Επίλυση" του Microsoft Excel που σχετίζονται με SolverFinish τα ορίσματα

Σύμπτυξη αυτής της εικόναςΑνάπτυξη αυτής της εικόνας
Σχήμα 2. Επιλογές αποτελεσμάτων επίλυσης που σχετίζονται με τα ορίσματα SolverFinish


Αυτό το άρθρο περιγράφει τον τρόπο για να δημιουργήσετε ένα απλό μοντέλο "Επίλυση" του Microsoft Excel με αλληλεπίδραση. Το πρώτο βήμα είναι να Δημιουργία φύλλου εργασίας για το μοντέλο. Το φύλλο εργασίας περιέχει ορισμένα κελιά δεδομένων και τουλάχιστον ένα κελί που περιέχει έναν τύπο. Ο τύπος αυτός εξαρτάται από το άλλο κελιά του φύλλου εργασίας. Αφού ορίσετε το φύλλο εργασίας σας, κάντε κλικ στο κουμπί Επίλυση από το Εργαλεία μενού. Με τοΠαράμετροι επίλυσης παράθυρο διαλόγου πλαίσιο, καθορίστε το κελί προορισμού, η τιμή που επίλυση για την περιοχή των κελιών που θα αλλάξει, και το περιορισμοί. Κάντε κλικ στο κουμπί Επίλυση Για να ξεκινήσετε τη διαδικασία επίλυσης. Μετά την επίλυση του Microsoft Excel εντόπισε μια λύση, τα αποτελέσματα εμφανίζονται στο φύλλο εργασίας και την επίλυση του Microsoft Excel Εμφανίζει ένα πλαίσιο μηνύματος που σας ρωτά εάν θέλετε να διατηρήσετε τα τελικά αποτελέσματα ή Εάν θέλετε να τις απορρίψετε. Όταν κάνετε κλικ σε μία από αυτές τις επιλογές, ολοκληρώνει την επίλυση του Microsoft Excel.

Σχήμα 3 παρουσιάζει ένα απλό μοντέλο που δημιουργείτε χρησιμοποιώντας αυτά τα βήματα.

Σχήμα 3. Ένα απλό μοντέλο: μοντέλο Η τετραγωνική ρίζα

Σύμπτυξη αυτής της εικόναςΑνάπτυξη αυτής της εικόνας
Σχήμα 3. Α απλό μοντέλο: μοντέλο Η τετραγωνική ρίζα


Σε αυτό το παράδειγμα, αλλαγή κελί A1, που περιέχει τον τύπο, = A1 ^ 2 σε μια τιμή που θα κάνετε το κελί A2 ισούται με την τιμή 50. Με άλλα λόγια, εύρεση της τετραγωνικής ρίζας 50. Υπάρχουν χωρίς περιορισμούς στο μοντέλο τετραγωνική ρίζα. Το Find_Square_Root μακροεντολή επιτυγχάνει τις ακόλουθες εργασίες:
  • Ρυθμίζει το μοντέλο που θα επιλύσει την τιμή του κελιού A2 για μια τιμή 50 αλλάζοντας την τιμή του κελιού A1.
  • Επιλύει το μοντέλο.
  • Αποθηκεύει τα τελικά αποτελέσματα στο φύλλο εργασίας χωρίς Εμφάνιση του Αποτελέσματα επίλυσης στο παράθυρο διαλόγου.
Αυτή η απλή μακροεντολή δημιουργεί ένα μοντέλο "Επίλυση" του Microsoft Excel και λύνει το χωρίς παρέμβαση του χρήστη. Ο ακόλουθος κώδικας περιγράφει τον Find_Square_Root μακροεντολή:
    Sub Find_Square_Root()

    ' Set up the parameters for the model.
    ' Set the target cell A2 to a value of 50 by changing cell A1.
    SolverOK SetCell:=Range("A2"), MaxMinVal:=3, ValueOf:=50, _
         ByChange:=Range("A1")

    ' Solve the model but do not display the Solver Results dialog box.
    SolverSolve UserFinish:=True

    ' Finish and keep the final results.
    SolverFinish KeepFinal:=1

    End Sub
Το Find_Square_Root2 μακροεντολή, είναι μια τροποποιημένη έκδοση του Find_Square_Root μακροεντολή. Εάν χρησιμοποιήσετε το Πλαίσιο εισαγωγής συνάρτηση, το Find_Square_Root2 μακροεντολή σας ζητά για η τιμή που θέλετε να λύσετε το κελί προορισμού. Μετά την εισαγωγή μιας τιμής το Find_Square_Root2 μακροεντολή ορίζει την παράμετρο αυτή ως την τιμή της SolverOKvalueof το όρισμα, λύνει το πρόβλημα, αποθηκεύει τα αποτελέσματα στη μεταβλητή Τετραγωνική ρίζα, και στη συνέχεια απορρίπτει τη λύση και επαναφέρει την τιμή στο φύλλο εργασίας στην αρχική του κατάσταση. Βασικά, το Find_Square_Root2 μακροεντολή δείχνει πώς μπορείτε να αποθηκεύσετε τα αποτελέσματα σε ένα ή περισσότερα μεταβλητές και στη συνέχεια επαναφοράς αλλάζοντας τα κελιά στην αρχική τους τιμή.

Ο ακόλουθος κώδικας περιγράφει τον Find_Square_Root2 μακροεντολή:
    Sub Find_Square_Root2()

    Dim val
    Dim sqroot

    ' Request the value for which you want to obtain the square root.
    val = Application.InputBox( _
         prompt:="Please enter the value for which you want " & _
         "to find the square root:", Type:=1)

    ' Set up the parameters for the model.
    SolverOK SetCell:=Range("A2"), MaxMinVal:=3, ValueOf:=val, _
         ByChange:=Range("A1")

    ' Do not display the Solver Results dialog box.
    SolverSolve UserFinish:=True

    ' Save the value of cell A1 (the changing cell) before you discard 
    ' the results.
    sqroot = Range("a1")

    ' Finish and discard the results.
    SolverFinish KeepFinal:=2

    ' Show the result in a message box.
    MsgBox "The square root of " & val & " is " & Format(sqroot, "0.00")

    End Sub

Πώς να δημιουργείτε αναφορές για λύσεις

Η επίλυση του Microsoft Excel προσφέρει διάφορους τύπους αναφορών που περιγράφουν τον τρόπο το αλλάζει τα αποτελέσματα και πόσο κοντά προήλθε περιορισμοί κρίσιμες τιμές τους. Κάθε έκθεση τοποθετείται σε ξεχωριστό φύλλο εργασίας στο βιβλίο εργασίας σας. Τα παρακάτω είναι οι τύποι εκθέσεις ότι η επίλυση του Microsoft Excel προσφέρει:
  • Έκθεση απαντήσεων -Η έκθεση απαντήσεων εμφανίζει το κελί προορισμού και τα μεταβαλλόμενα κελιά με τις αντίστοιχες αρχικές και τελικές τιμές, περιορισμούς, και πληροφορίες σχετικά με τους περιορισμούς.
  • Έκθεση ευαισθησία -Η ευαισθησία έκθεση παρέχει πληροφορίες σχετικά με την ευαισθησία η λύση είναι να μικρές αλλαγές στον τύπο του κελιού προορισμού.
  • Αναφορά ορίων -Τα όρια έκθεσης εμφανίζει το κελί προορισμού και τα μεταβαλλόμενα κελιά με τις αντίστοιχες τιμές, άνω και κάτω όρια και προορισμού τιμές.
Για να δημιουργήσετε αναφορές για μοντέλα σας, καθορίστε έναν πίνακα τιμών για το ReportArray το όρισμα από το SolverFinish η συνάρτηση. Για περισσότερες πληροφορίες σχετικά με το ReportArray το όρισμα, δείτε το "SolverFinish (KeepFinal, ReportArray)"ενότητα. Για παράδειγμα, εάν θέλετε να δημιουργήσετε μια αναφορά ορίων για το μοντέλο που το Find_Square_Root2 μακροεντολή δημιουργεί και επιλύεται, τροποποιήστε το SolverFinish λειτουργεί με το μακροεντολή, ώστε να μοιάζει με το ακόλουθο παράδειγμα κώδικα: 
    SolverFinish KeepFinal:=2, ReportArray:= Array(3)
Για να δημιουργήσετε πολλαπλές αναφορές, τροποποιήστε το SolverFinish συνάρτηση έτσι ώστε να είναι παρόμοιο με το ακόλουθο δείγμα κώδικα: 
    SolverFinish KeepFinal:=2, ReportArray:= Array(1,2)

Πώς να χρησιμοποιείτε συναρτήσεις Microsoft ExcelSolver βρόχου μακροεντολής

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

Το Create_Square_Root_Table μακροεντολή δείχνει πώς λειτουργεί "Επίλυση" του Microsoft Excel σε μια μακροεντολή βρόχου. Το Create_Square_Root_Tableη μακροεντολή δημιουργεί έναν πίνακα σε ένα νέο φύλλο εργασίας. Εισάγει αριθμούς ένα έως δέκα και το αντίστοιχο τετραγωνική ρίζα κάθε αριθμό. Το Create_Square_Root_Table η μακροεντολή δημιουργεί τον πίνακα χρησιμοποιώντας ένα Για επανάληψη για διαδοχικές προσεγγίσεις μέσα αριθμούς 1 έως 10, καθώς και για την επίλυση του κελί προορισμού στο μοντέλο τετραγωνική ρίζα για μια τιμή που συμφωνεί με τον αριθμό της επανάληψη. Ο ακόλουθος κώδικας περιγράφει τον Create_Square_Root_Table μακροεντολή:
    Sub Create_Square_Root_Table()

    ' Add a new worksheet to the workbook.
    Set w = Worksheets.Add

    ' Put the value 2 in cell C1 and the formula =C1^2 in cell C2.
    w.Range("C1").Value = 2
    w.Range("C2").Formula = "=C1^2"

    ' A loop that will make 10 iterations, starting with the number 1, 
    ' and finishing at the number 10.
    For i = 1 To 10

        ' Set the Solver parameters that indicate that Solver should
        ' solve the cell C2 for the value of i (where i is the number
        ' of the iteration) by changing cell C1.
        SolverOk SetCell:=Range("C2"), ByChange:=Range("C1"), _
            MaxMinVal:=3, ValueOf:=i

        ' Do not display the Solver Results dialog box.
        SolverSolve UserFinish:=True

        ' Save the value of i in column A and the results of the 
        ' changing cell in column B.
        w.Cells(i, 1) = i
        w.Cells(i, 2) = Range("C1")

        ' Finish and discard the final results.
        SolverFinish KeepFinal:=2

    Next

    ' Clear the range C1:C2
    w.Range("C1:C2").Clear

    End Sub
Το Create_Square_Root_Table η μακροεντολή δημιουργεί πίνακα απεικονίζεται στο σχήμα 4.

Σχήμα 4. Εξόδου που δημιουργείται από το Create_Square_Root_Table μακροεντολή

Σύμπτυξη αυτής της εικόναςΑνάπτυξη αυτής της εικόνας
Σχήμα 4. Εξόδου που δημιουργείται από το Μακροεντολή Create_Square_Root_Table


Τρόπος εργασίας με περιορισμούς

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

Το μοντέλο τετραγωνική ρίζα που αναφέρθηκε πάνω σε αυτό το σημείο είναι ένα απλό μοντέλο που περιέχουν περιορισμούς. Σχήμα 5 απεικονίζει το μοντέλο που χρησιμοποιεί τους περιορισμούς. Ο σκοπός αυτού του μοντέλου είναι να βρείτε τη βέλτιστη Συνδυασμός προϊόντων για το μέγιστο κέρδος.

Σχήμα 5. Σύνθεση του προϊόντος με τη μείωση των περιθωρίων κέρδους

Σύμπτυξη αυτής της εικόναςΑνάπτυξη αυτής της εικόνας
Σχήμα 5. Σύνθεση του προϊόντος με μείωση περιθώριο κέρδους


Για παράδειγμα, εάν μια εταιρεία κατασκευάζει τηλεοράσεις, στερεοφωνικά συστήματα, και τα ηχεία και το χρησιμοποιεί μια κοινή απογραφή τμήματα του τροφοδοτικά, ηχείο cones και ούτω καθεξής. Τα μέρη είναι περιορισμένη προσφοράς. Ο στόχος σας είναι να Καθορίστε πιο αποδοτικές αναλογίας των προϊόντων για να δημιουργήσετε. Το κέρδος ανά μονάδα μειώνει με τόμου, επειδή απαιτείται πρόσθετη τιμή κίνητρα φόρτωση του το κανάλι διανομής. Ο εκθέτης επιστρέφει diminishing είναι 0,9. Είναι αυτό εκθέτη χρησιμοποιείται για τον υπολογισμό του κέρδους από προϊόν στην περιοχή G11:I11.

Σας Στόχος είναι να βρείτε το μέγιστο κέρδος [βλέπε κελί (G14)]. Οι τιμές που θα Αλλαγή για να βρείτε το μέγιστο κέρδος είναι ο αριθμός των μονάδων που δημιουργείτε. Το περιοχή G9:G11 αντιπροσωπεύει τα μεταβαλλόμενα κελιά σε αυτό το μοντέλο. Σας μόνο περιορισμού είναι ότι ο αριθμός των τμημάτων που χρησιμοποιείτε δεν μπορεί να υπερβαίνει τον αριθμό των τμημάτων που έχετε σε χέρι. Με το Microsoft Excel επίλυσης, αυτός ο περιορισμός εμφανίζεται ως E3:E7<=b3:b7. if="" you="" were="" to="" build="" this="" microsoft="" excel="" solver="" model="" interactively,="" the="" microsoft="" excel="" solver="" parameters="" would="" look="" similar="" to="" those="" that="" are="" in="" figure=""></=b3:b7.>

Σχήμα 6. Παράμετροι επίλυσης του Microsoft Excel για την σύνθεση του προϊόντος με μείωση των περιθωρίων κέρδους μοντέλο

Σύμπτυξη αυτής της εικόναςΑνάπτυξη αυτής της εικόνας
Σχήμα 6. Οι παράμετροι για επίλυση του Microsoft Excel η σύνθεση του προϊόντος με μείωση των περιθωρίων κέρδους μοντέλο


Για να δημιουργήσετε και επίλυση μείξη προϊόντος με μείωση των περιθωρίων κέρδους μοντέλο, θα χρησιμοποιήσετε ένα νέα συνάρτηση, το SolverAdd συνάρτηση, συναρτήσεις VBA "Επίλυση" του Microsoft Excel που ήταν που περιγράφεται παραπάνω. Το SolverAdd συνάρτηση προσθέτει τον περιορισμό του μοντέλου. Εκτέλεση του SolverAdd η συνάρτηση είναι ισοδύναμη με την επιλογή του Προσθήκη κουμπί με το Παράμετροι επίλυσης στο παράθυρο διαλόγου. Το SolverAdd η συνάρτηση έχει την παρακάτω σύνταξη:
SolverAdd (CellRef, σχέση, FormulaText)
Οι ακόλουθες πληροφορίες περιγράφουν τη σύνταξη για το SolverAdd συνάρτηση:
  • CellRef αναφέρεται σε ένα ή περισσότερα κελιά που σχηματίζουν στην αριστερή πλευρά του την περιορισμός.
  • Σχέση είναι η αριθμητική σχέση μεταξύ αριστερά και δεξιά πλευρά του έναν περιορισμό.
  • Σχέση μπορεί να είναι μια τιμή μεταξύ 1 και 5, όπως στο ακόλουθο παράδειγμα:
    • Η τιμή 1 είναι μικρότερη ή ίση με)<>
    • Vaue 2 είναι ίσον (=).
    • Η τιμή 3 είναι μεγαλύτερο ή ίσο (> =).
    • Η τιμή 4 είναι ένας ακέραιος.
    • Η τιμή 5 είναι δυαδική (μια τιμή 0 ή 1).
  • FormulaText αναφέρεται σε ένα ή περισσότερα κελιά που σχηματίζουν τη δεξιά πλευρά του τη CONSTRAINT.* *
** Όταν καθορίζετε μια περιοχή κελιών για το FormulaText το όρισμα από το SolverAdd λειτουργία, σημειώστε αν η αναφορά είναι σχετική ή απόλυτη. Γενικά, πρέπει να καθορίσετε μια απόλυτη αναφορά για το FormulaText το όρισμα. Ωστόσο, εάν καθορίσετε σχετικές αναφορές για το FormulaText το όρισμα, συνειδητοποιείτε ότι θα είναι η αναφορά σε σχέση με το κελί προορισμού και όχι το ενεργό κελί.

Σημείωση Στο Microsoft Excel εκδόσεις 5.0 και 7.0, χρησιμοποιεί τη σημειογραφία R1C1 Όταν καθορίζετε ένα κελί ή περιοχή κελιών με το FormulaText το όρισμα. Αντίθετα, χρησιμοποιήστε το στυλ A1 στο Microsoft Excel 97 Σημείωση για να καθορίσετε το FormulaText το όρισμα.

Σχήμα 7. Πεδία που σχετίζονται με το SolverAdd τα ορίσματα

Σύμπτυξη αυτής της εικόναςΑνάπτυξη αυτής της εικόνας
Σχήμα 7. Πεδία που σχετίζονται με τα ορίσματα SolverAdd


Το Maximum_Profit μακροεντολή που παράγει ένα μοντέλο για τη σύνθεση του προϊόντος με Diminishing Επιστρέφει το μοντέλο. Αυτή η μακροεντολή εκτελεί τις ακόλουθες συναρτήσεις ή ορίσματα:

  • Το SolverOK συνάρτηση ορίζει το κελί προορισμού για μια μέγιστη τιμή και Καθορίζει τα κελιά, για να αλλάξετε.
  • Το SolverAdd συνάρτηση προσθέτει τον περιορισμό του μοντέλου.
  • Το SolverSolve συνάρτηση βρει μια λύση χωρίς την εμφάνιση τουΑποτελέσματα επίλυσης στο παράθυρο διαλόγου.
  • Το SolverFinish συνάρτηση επιστρέφει τα τελικά αποτελέσματα στο φύλλο εργασίας.
Ο ακόλουθος κώδικας περιγράφει τον για Maximum_Profit μακροεντολή:
    Sub Maximum_Profit()

    ' Set up the parameters for the model.
    ' Determine the maximum value for the sum of profits in cell G14
    ' by changing the number of units to build in cells G9:I9.
    Solverok setcell:=Range("G14"), maxminval:=1, _
        bychange:=Range("G9:I9")

    ' Add the constraint for the model. The only constraint is that the
    ' number of parts used does not exceed the parts on hand-- 
    ' E3:E7<=B3:B7
    SolverAdd CellRef:=Range("E3:E7"), Relation:=1, _
        FormulaText:="$B$3:$B$7"

    ' Do not display the Solver Results dialog box.
    SolverSolve UserFinish:=True

    ' Finish and keep the final results.
    SolverFinish KeepFinal:=1

    End Sub
Σημείωση Στο Microsoft Excel εκδόσεις 5.0 και 7.0, χρησιμοποιεί τη σημειογραφία R1C1 Όταν καθορίζετε ένα κελί ή περιοχή κελιών με το FormulaText το όρισμα. Αντίθετα, χρησιμοποιήστε το στυλ A1 στο Microsoft Excel 97 Σημείωση για να καθορίσετε το FormulaText το όρισμα.

Όταν εκτελείτε το Maximum_Profit μακροεντολή, η επίλυση του Microsoft Excel θα βρει μια λύση του κτιρίου 160 σύνολα Τηλεόρασης, 200 στερεοφωνικά συστήματα και 80 ηχεία για μέγιστο κέρδος των $14,917 δολάρια.

Τρόπος αλλαγής και διαγραφής περιορισμούς

Περιορισμοί του μοντέλου σας μπορεί να αλλάξει μέσω προγραμματισμού ή Διαγραφή. Περιορισμοί αναγνωρίζονται από τους CellRef και Σχέση τα ορίσματα.

Για να αλλάξετε μέσω προγραμματισμού μια υπάρχουσα τον περιορισμό, χρησιμοποιήστε το SolverChange η συνάρτηση. Ακολουθεί η σύνταξη για το SolverChangeσυνάρτηση:
SolverChange (CellRef, σχέση, FormulaText)
Σημειώστε ότι τα ορίσματα για το SolverChange είναι συνάρτηση οι ίδιες με εκείνες που χρησιμοποιείτε με το SolverAdd η συνάρτηση.

Εάν θέλετε Για να αλλάξετε τον περιορισμό του μείγματος προϊόντος με το μοντέλο Diminishing επιστρέφει μπορείτε πρέπει να χρησιμοποιήσετε το SolverChange η συνάρτηση. Για παράδειγμα, αυτήν τη στιγμή τον περιορισμό που έχει καθοριστεί είναι ότι ο αριθμός των τμημάτων που χρησιμοποιείται είναι μικρότερη ή ίση με το αριθμός των τμημάτων σε χέρι (E3:E7<= b3:b7).="" if="" you="" want="" to="" change="" this="" constraint="" so="" that="" the="" number="" of="" parts="" used="" is="" less="" than="" or="" equal="" to="" the="" number="" of="" parts="" projected="" (number="" of="" parts="" on="" hand="" plus="" number="" of="" parts="" ordered).="" this="" new="" constraint="" would="" look="" like="" e3:e7=""></=><= d3:d7.="" the="" following="" macro="" would="" change="" the="" existing="" constraint=""></=><=b3:b7 to="" e3:e7=""></=b3:b7><= d3:d7="" and="" solve="" for="" a=""></=>

Ο ακόλουθος κώδικας περιγράφει τον Change_Constraint_and_Solve μακροεντολή:
    Sub Change_Constraint_and_Solve()

    ' Change the constraint.
    SolverChange CellRef:=Range("E3:E7"), Relation:=1, _
       FormulaText:="$D$3:$D$7"

    ' Return the results and display the Solver Results dialog box.
    SolverSolve UserFinish:=False

    End Sub
Επειδή οι περιορισμοί που αναγνωρίζονται από το CellRef και Σχέση ορίσματα, μπορείτε να αλλάξετε μόνο το FormulaText το όρισμα για τον περιορισμό, χρησιμοποιώντας το SolverChange η συνάρτηση. Εάν το CellRef και το Σχέση τιμές δεν ταιριάζουν με έναν υπάρχοντα περιορισμό, πρέπει να διαγράψετε το Περιορισμός και στη συνέχεια προσθέστε τον τροποποιημένο περιορισμό. Για να διαγράψετε έναν περιορισμό, χρήση το SolverDelete η συνάρτηση. Ακολουθεί η σύνταξη για το SolverDelete συνάρτηση:

SolverDelete (CellRef, σχέση, FormulaText)

Σημειώστε ότι τα ορίσματα για το SolverDelete είναι συνάρτηση οι ίδιες με εκείνες που χρησιμοποιείτε με το SolverAdd και το SolverChange συναρτήσεις.

Η ακόλουθη μακροεντολή δείχνει πώς μπορείτε να διαγράψετε και να προσθέσετε έναν περιορισμό. Στο παράδειγμα αυτό, το Change_Constraint_and_Solve2 μακροεντολή καταργεί τον περιορισμό της E3:E7<=b3:b7 from="" the="" product="" mix="" with="" diminishing="" returns="" model="" and="" adds="" a="" new="" constraint.="" the="" new="" constraint="" is="" just="" a="" modification="" of="" the="" original="" constraint,="" where="" the="" left="" and="" right="" sides="" of="" the="" constraint="" are=""></=b3:b7>

Ο ακόλουθος κώδικας περιγράφει τον Change_Constraint_and_Solve2 μακροεντολή:
    Sub Change_Constraint_and_Solve2()

    ' Reverse the left and right sides of the constraint...
    ' Delete the constraint E3:E7<=B3:B7 and add the
    ' constraint B3:B7>=E3:E7.
    SolverDelete CellRef:=Range("E3:E7"), Relation:=1, _
        FormulaText:="$B$3:$B$7"
    SolverAdd CellRef:=Range("B3:B7"), Relation:=3, _
        FormulaText:="$E$3:$E$7"
    
    ' Return the results and display the Solver Results dialog box.
    SolverSolve UserFinish:=False
    
    End Sub
Σημείωση Στο Microsoft Excel εκδόσεις 5.0 και 7.0, χρησιμοποιεί τη σημειογραφία R1C1 Όταν καθορίζετε ένα κελί ή περιοχή κελιών με το FormulaText το όρισμα. Αντίθετα, χρησιμοποιήστε το στυλ A1 στο Microsoft Excel 97 Σημείωση για να καθορίσετε το FormulaText το όρισμα.

Πώς να φορτώσετε και αποθήκευση των μοντέλων σας

Όταν αποθηκεύετε το βιβλίο εργασίας, το τελευταίο παραμέτρους που μπορείτε καθορίζεται στο του Παράμετροι επίλυσης στο παράθυρο διαλόγου αποθηκεύονται με το βιβλίο εργασίας. Επομένως, όταν ανοίγετε το βιβλίο εργασίας, οι παράμετροι είναι το ίδια με την κατά την τελευταία αποθήκευση του βιβλίου εργασίας.

Μπορείτε να ορίσετε περισσότερα από ένα πρόβλημα για ένα φύλλο εργασίας. Κάθε πρόβλημα αποτελείται από κελιά και Οι περιορισμοί που εισάγετε στο του Η παράμετρος "Επίλυση" και το Επιλογές επίλυσης παράθυρα διαλόγου. Επειδή αποθηκεύεται μόνο το τελευταίο πρόβλημα με φύλλο εργασίας, θα χάσετε όλα τα άλλα ζητήματα εκτός αν ρητά αποθήκευση τους. Για να αποθηκεύσετε, κάντε κλικ στο κουμπί Αποθήκευση μοντέλου με το Επίλυση Επιλογές στο παράθυρο διαλόγου. Ομοίως, όταν θέλετε να επαναφέρετε τα προηγούμενα Αποθήκευση παραμέτρων, κάντε κλικ στο κουμπί Φόρτωση μοντέλου με το Επίλυση Επιλογές στο παράθυρο διαλόγου.

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

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

Σχήμα 8. Εργαζόμενου Προγραμματισμός λειτουργίας
l
Σύμπτυξη αυτής της εικόναςΑνάπτυξη αυτής της εικόνας
Σχήμα 8. Προγραμματισμός υπάλληλος μοντέλο


Δύο πρόσθετες παράγοντες (ή περιορισμοί) που πρέπει να Εξετάστε το ενδεχόμενο να είναι το ελάχιστο/μέγιστο αριθμό ωρών οποιαδήποτε έναν υπάλληλο να εργαστείτε και ο αριθμός των μονάδων που σκοπεύετε να παράγουν. Εάν για μια συγκεκριμένη εβδομάδα πρέπει για την παραγωγή 3975 μονάδες και θέλετε κάθε υπαλλήλου για να μεταξύ 30 και 45 ώρες, θα είναι παρόμοιες με εκείνες που περιγράφονται στις ακόλουθες παράμετροι επίλυσης του Microsoft Excel Πίνακας:

Σύμπτυξη αυτού του πίνακαΑνάπτυξη αυτού του πίνακα
Η παράμετροςΠεριοχή κελιών Περιγραφή
Κελί προορισμού $D$ 12 Κόστος εργατικών.
Μεταβαλλόμενα κελιά $C$ 2:$ C$ 8 Ώρες εργασίας ανά υπάλληλος.
Περιορισμοί $C$ 2:$ C$ 8<=></=> Μέγιστο ώρες ανά εργαζόμενο είναι 45.
$C$ 2:$ C$ 8 > = 30 Ελάχιστη ώρες ανά εργαζόμενος είναι 35.
$ $$ 12 = 3975-G Ο αριθμός των μονάδων είναι 3975.


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

Σε μια μακροεντολή, Παράμετροι επίλυσης του Microsoft Excel για ένα μοντέλο Μπορείτε να αποθηκεύσετε και να φορτωθεί με χρήση του SolverSave και το SolverLoad συναρτήσεις αντίστοιχα. Το SolverSave και το SolverLoad έχετε τις ακόλουθες συναρτήσεις σύνταξη:

SolverSave (SaveArea)

SolverLoad (LoadArea)

Το SolverSave και το SolverLoad συναρτήσεις κάθε έχουν μόνο ένα όρισμα SaveArea και το LoadArea τα ορίσματα αντίστοιχα. Αυτά τα ορίσματα, καθορίστε μια περιοχή σε ένα φύλλο εργασίας όπου είναι αποθηκευμένες οι πληροφορίες του μοντέλου.

Το ακόλουθο New_Employee_Schedule μακροεντολή, δείχνει τον τρόπο δημιουργίας, επίλυση και αποθήκευση ενός μοντέλου με βάση Εισαγωγή δεδομένων χρήστη. Ο χρήστης καλείται να παράσχει την ημερομηνία του μοντέλου, τον αριθμό των μονάδες για την παραγωγή και τον ελάχιστο και το μέγιστο αριθμό ωρών ανά εργαζόμενο. Τα δεδομένα αυτά χρησιμοποιείται για να δημιουργήσετε το μοντέλο. Λύθηκε το μοντέλο και στη συνέχεια Αποθήκευση με την εισαγωγή του χρήστη.

Ο ακόλουθος κώδικας περιγράφει τον New_Employee_Schedule μακροεντολή:
    Sub New_Employee_Schedule()
    
    ' Prompt the user for the date of the model, the units to produce,
    ' and the maximum and minimum number of hours per employee.
    ModelDate = Application.InputBox( _
       Prompt:="Date of Model:", Type:=2)
    Units = Application.InputBox( _
       Prompt:="Projected Number of Units:", Type:=1)
    MaxHrs = Application.InputBox( _
       Prompt:="Maximum Number of Hours Per Employee:", Type:=1)
    MinHrs = Application.InputBox( _
       Prompt:="Minimum Number of Hours Per Employee:", Type:=1)
    
    ' Clear any previous Solver settings.
    SolverReset
    
    ' Set the target cell, D12, to a minimum value by changing
    ' the range, C2:C8.
    SolverOk SetCell:=Range("$D$12"), MaxMinVal:=2, _
       ByChange:=Range("C2:C8")
    
    ' Add the constraint that number of hours worked <= MaxHrs.
    SolverAdd CellRef:=Range("C2:C8"), Relation:=1, FormulaText:=MaxHrs
    
    ' Add the constraint that number of hours worked >=MinHrs.
    SolverAdd CellRef:=Range("C2:C8"), Relation:=3, FormulaText:=MinHrs
    
    ' Add the constraint that number of units produced = Units.
    SolverAdd CellRef:=Range("G12"), Relation:=2, FormulaText:=Units
    
    ' Solve the model and keep the final results.
    SolverSolve UserFinish:=True
    SolverFinish KeepFinal:=1
    
    ' Save the input values for ModelDate, MaxHrs, MinHrs, and Units
    ' in columns I:L.
    Set ModelRange = Range("I2:R2").CurrentRegion.Offset( _
       Range("I2:R2").CurrentRegion.Rows.Count).Resize(1, 1)
    ModelRange.Resize(1, 4) = Array("'" & Format(ModelDate, "m/d/yy"), _
       Units, MaxHrs, MinHrs)
    
    ' Save the model parameters to the range M:R in the worksheet.
    SolverSave SaveArea:=ModelRange.Offset(, 4).Resize(1, 6)
    
    End Sub
Σημείωση Στο Microsoft Excel εκδόσεις 5.0 και 7.0, χρησιμοποιεί τη σημειογραφία R1C1 Όταν καθορίζετε ένα κελί ή περιοχή κελιών με το FormulaText το όρισμα. Αντίθετα, χρησιμοποιήστε το στυλ A1 στο Microsoft Excel 97 Σημείωση για να καθορίσετε το FormulaText το όρισμα.

Σχήμα 9 απεικονίζει τον τρόπο το αποθηκεύσει μοντέλο Οι πληροφορίες που εμφανίζονται στο φύλλο εργασίας.

Σχήμα 9. Πληροφορίες μοντέλο που έχει αποθηκευτεί από μακροεντολή New_Employee_Schedule

Σύμπτυξη αυτής της εικόναςΑνάπτυξη αυτής της εικόνας
Σχήμα 9. Πληροφορίες του μοντέλου που έχει αποθηκευτεί μακροεντολή New_Employee_Schedule


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

Ο ακόλουθος κώδικας περιγράφει τον New_Employee_Scheduleμακροεντολή:
    Sub Load_Employee_Schedule()
    
    ' Prompt for the date of the model. 
    ModelDate = Application.InputBox( _
       Prompt:="Date of Model to Load:", Type:=2)
    
    ' Locate the date in column I.
    Set DateRange = Range("I2").CurrentRegion.Resize(, 1)
    r = Application.Match(ModelDate, DateRange, 0)
    
    If IsError(r) Then
        ' Display a message if the model date is not found
        MsgBox "Cannot find a model with the date " & ModelDate
    Else
        ' If the model date is found, load the model into Solver,
        ' solve the model, and keep the final results.
        SolverLoad LoadArea:=DateRange.Offset(r - 1, 4).Resize(1, 6)
        SolverSolve UserFinish:=True
        SolverFinish KeepFinal:=1
    End If
    
    End Sub
Το New_Employee_Schedule μακροεντολή παρουσιάζει το SolverReset η συνάρτηση. Το SolverResetλειτουργία μπορεί να χρησιμοποιηθεί για να διαγράψετε όλες τις επιλογές κελιού και περιορισμούς στο του Παράμετροι επίλυσης στο παράθυρο διαλόγου και για να επαναφέρετε όλες τις ρυθμίσεις σε Το SolverReset δεν περιέχει συνάρτηση τα ορίσματα.

Πώς μπορείτε να βρείτε περισσότερες πληροφορίες σχετικά με την "Επίλυση" του Microsoft Excel

Οι παρακάτω πόροι παρέχουν πληροφορίες σχετικά με τον τρόπο χρήσης της επίλυσης Microsoft Excel πρόσθετο.

  • Για βοήθεια σχετικά με την επίλυση συγκεκριμένων μηνυμάτων, ανατρέξτε στο θέμαFrontline Συστήματα
    (http://www.frontsys.com/solvmsgs.htm)
    .
  • Για συμβουλές σχετικά με τη δημιουργία αναγνώσιμη, δείτε διαχειρίσιμα μοντέλαFrontline Συστήματα
    (http://www.frontsys.com/solvmsgs.htm)
    .
  • Για πρόσθετες πληροφορίες σχετικά με την επίλυση όρια για τους περιορισμούς και κάντε κλικ στον αριθμό του άρθρου παρακάτω, για να προβάλετε το άρθρο της Γνωσιακής Βάσης της Microsoft:
    75714
    (http://support.microsoft.com/kb/75714/ )
    Όρια επίλυσης για περιορισμούς
  • Για αρκετά παραδείγματα που χρησιμοποιούν το πρόσθετο "Επίλυση" του Microsoft Excel στο Microsoft Το Excel, ανατρέξτε στο αρχείο Solvsamp.xls δείγματος.
  • Τα παρακάτω είναι η προεπιλεγμένη θέση του αρχείου δείγματος που περιλαμβάνεται Microsoft Excel 97:
    \Program Files\Microsoft Office\Office\Examples\Solver\SolvSamp.xls
  • Τα παρακάτω είναι η προεπιλεγμένη θέση του αρχείου δείγματος που περιλαμβάνεται Το Microsoft Excel 7.0:
    \MSOffice\Excel\Examples\Solver\SolvSamp.xls
  • Τα παρακάτω είναι η προεπιλεγμένη θέση του αρχείου δείγματος που περιλαμβάνεται Το Microsoft Excel 5.0:
    \Excel\Examples\Solver\SolvSamp.xls

Πώς μπορείτε να μάθετε περισσότερα σχετικά με τον αλγόριθμο και μέθοδοι που χρησιμοποιούνται από το Microsoft Excel επίλυσης

Η επίλυση του Microsoft Excel χρησιμοποιεί τη γενίκευση μειωθεί ντεγκραντέ Κωδικός μη γραμμικά βελτιστοποίησης (GRG2) που αναπτύχθηκε από Leon Lasdon, πανεπιστήμιο του Τέξας Austin και Allan Waren, Κλίβελαντ πανεπιστήμιο κράτους.

Για πρόσθετες πληροφορίες σχετικά με τον αλγόριθμο που χρησιμοποιείται από την "Επίλυση" του Microsoft Excel, κάντε κλικ στον αριθμό του άρθρου παρακάτω, για να προβάλετε το άρθρο της Γνωσιακής Βάσης της Microsoft:
82890
(http://support.microsoft.com/kb/82890/ )
Η επίλυση χρησιμοποιεί γενίκευση μειωμένης


Γραμμικά και ακέραια προβλήματα χρησιμοποιείται η μέθοδος simplex με τις μεταβλητές και μέθοδος κλάδο και δεσμευμένα, υλοποιούνται από John Watson και Dan Fylstra, Frontline Systems, Inc. Για περισσότερες πληροφορίες σχετικά με την εσωτερική διαδικασία επίλυσης χρησιμοποιούνται στην επίλυση, επαφή: 

Frontline Systems, Inc.
P.O. Box 4288
Incline Village, NV 89450-4288 
(702) 831-0300
Web site: http://www.frontsys.com
Electronic mail: info@frontsys.com


Επιλογές επίλυσης Microsoft Excel κώδικας προγράμματος είναι πνευματικών δικαιωμάτων 1990, 1991, 1992 και 1995 από συστήματα πρώτης γραμμής Τμήματα Inc. είναι 1989 περί πνευματικών δικαιωμάτων από την βέλτιστη μεθόδους, Inc.

Σημείωση Το Microsoft Excel πρόσθετο επίλυση που περιγράφεται σε αυτό το άρθρο παρέχονται "ως έχουν" και δεν κάνουμε εγγυάται ότι μπορεί να χρησιμοποιηθεί σε όλες τις περιπτώσεις. Παρόλο που η Microsoft υποστηρίζει Επαγγελματίες τεχνολογιών πληροφορικής μπορούν να σας βοηθήσουν με την εγκατάσταση και την υπάρχουσα λειτουργικότητα αυτού πρόσθετο πρόγραμμα, δεν θα τροποποιήσουν το πρόσθετο για να παρέχει νέες λειτουργίες.

ΔΕΝ ΠΑΡΈΧΕΙ ΚΑΜΊΑ ΕΓΓΎΗΣΗ. Το λογισμικό παρέχεται "ως-είναι," χωρίς κανενός είδους εγγύηση και οποιαδήποτε χρήση αυτού του προϊόντος λογισμικού είναι με δική σας ευθύνη.

Επιστροφή στην αρχή | Αποστολή σχολίων

Ιδιότητες

Αναγν. άρθρου: 843304 - Τελευταία αναθεώρηση: Κυριακή, 29 Μαΐου 2011 - Αναθεώρηση: 4.0
Οι πληροφορίες σε αυτό το άρθρο ισχύουν για:
  • Microsoft Excel 97 Standard Edition
Λέξεις-κλειδιά: 
kbhowto kbmacroexample kberrmsg kbaddin kbvba kbprogramming kbinfo kbmt KB843304 KbMtel
Μηχανικά μεταφρασμένο
ΣΗΜΑΝΤΙΚΟ: Αυτό το άρθρο είναι προϊόν λογισμικού μηχανικής μετάφρασης της Microsoft και όχι ανθρώπινης μετάφρασης. Η Microsoft σάς προσφέρει άρθρα που είναι προϊόντα ανθρώπινης αλλά και μηχανικής μετάφρασης έτσι ώστε να έχετε πρόσβαση σε όλα τα άρθρα της Γνωσιακής Βάσης μας στη δική σας γλώσσα. Ωστόσο, ένα άρθρο που έχει προκύψει από μηχανική μετάφραση δεν είναι πάντα άριστης ποιότητας. Ενδέχεται να περιέχει λεξιλογικά, συντακτικά ή γραμματικά λάθη, όπως ακριβώς τα λάθη που θα έκανε ένας μη φυσικός ομιλητής επιχειρώντας να μιλήσει τη γλώσσα σας. Η Microsoft δεν φέρει καμία ευθύνη για τυχόν ανακρίβειες, σφάλματα ή ζημίες που προκύψουν λόγω τυχόν παρερμηνειών στη μετάφραση του περιεχομένου ή χρήσης του από τους πελάτες της. Επίσης, η Microsoft πραγματοποιεί συχνά ενημερώσεις στο λογισμικό μηχανικής μετάφρασης.
Η αγγλική έκδοση αυτού του άρθρου είναι η ακόλουθη:843304
(http://support.microsoft.com/kb/843304/en-us/ )
Αποποίηση ευθυνών για περιεχόμενο της Γνωσιακής Βάσης (KB) που έχει αποσυρθεί
This article was written about products for which Microsoft no longer offers support. Therefore, this article is offered "as is" and will no longer be updated.
Επιστροφή στην αρχή | Αποστολή σχολίων

Αποστολή σχολίων

 
Επιστροφή στην αρχήΕπιστροφή στην αρχή