Αναγν. άρθρου: 141691 - Τελευταία αναθεώρηση: Πέμπτη, 26 Μαΐου 2011 - Αναθεώρηση: 4.0

XL: παράδειγμα Visual Basic χρησιμοποιώντας, αν και δηλώσεις υπόθεσης

Παράλληλη προβολήΠροβολή του πρωτότυπου αγγλικού άρθρου και της ελληνικής μετάφρασης αντικριστά
Μηχανικά μεταφρασμένοΠΡΟΕΙΔΟΠΟΙΗΣΗ: ΑΥΤΟ ΤΟ ΑΡΘΡΟ ΜΕΤΑΦΡΑΣΤΗΚΕ ΜΕ ΜΗΧΑΝΙΚΗ ΜΕΤΑΦΡΑΣΗ
Retired KB ArticleΑποποίηση ευθυνών για περιεχόμενο της Γνωσιακής Βάσης (KB) που έχει αποσυρθεί
Δείτε τα προϊόντα στα οποία αναφέρεται το συγκεκριμένο άρθρο.
Συμβουλή συστήματοςΑυτό το άρθρο ισχύει για διαφορετικό λειτουργικό σύστημα από αυτό που χρησιμοποιείτε. Το περιεχόμενο του άρθρου που ενδέχεται να μην σας αφορά έχει απενεργοποιηθεί.

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

Ανάπτυξη όλων | Σύμπτυξη όλων

Περίληψη

Στην Microsoft Visual Basic για εφαρμογές, υπάρχουν δύο προτάσεις που Μπορείτε να χρησιμοποιήσετε για να εκτελέσετε μια δοκιμή υπό όρους: ένα IF...Στη συνέχεια...Else πρόταση ή ένα Επιλέξτε υπόθεση η πρόταση. Το IF...Στη συνέχεια...Else δήλωση εκτελεί μια ομάδα προτάσεις με βάση την τιμή μιας παράστασης και το Επιλέξτε υπόθεση δήλωση εκτελεί μία από τις πολλές προτάσεις με βάση την τιμή μιας παράστασης.
Επιστροφή στην αρχή

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

Η Microsoft παρέχει παραδείγματα προγραμματισμού μόνο για επεξήγηση, χωρίς καμία εγγύηση, ρητή ή σιωπηρή. Αυτό περιλαμβάνει αλλά δεν περιορίζεται σε σιωπηρών εγγυήσεων εμπορευσιμότητας ή καταλληλότητας για συγκεκριμένο σκοπό. Αυτό το άρθρο προϋποθέτει ότι είστε εξοικειωμένοι με τη γλώσσα προγραμματισμού που παρουσιάζεται, καθώς και με τα εργαλεία που χρησιμοποιούνται για τη δημιουργία και τον εντοπισμό σφαλμάτων διαδικασιών. Οι μηχανικοί υποστήριξης της Microsoft μπορούν να σας εξηγήσουν τη λειτουργικότητα μιας συγκεκριμένης διαδικασίας, αλλά δεν θα τροποποιήσουν αυτά τα παραδείγματα για να παράσχουν πρόσθετες λειτουργίες ούτε θα δημιουργήσουν διαδικασίες για να ικανοποιεί συγκεκριμένες απαιτήσεις σας. Τα ακόλουθα δείγματα μακροεντολών δείχνουν τον τρόπο χρήσης του IF...Στη συνέχεια...Else και το Επιλέξτε υπόθεση δηλώσεις.
Επιστροφή στην αρχή

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

   Sub Using_IF()

      ' Dimension the variable.
      Dim x As Integer
      ' Place a value in x.
      x = Int(Rnd * 100)
      ' Test to see if x less than or equal to 10.
      If x <= 10 Then
         ' Display a message box.
         MsgBox "X is <=10"

      ' Test to see if x less than or equal to 40 and greater than 10.
      ElseIf x <= 40 And x > 10 Then
         MsgBox "X is <=40 and > 10"

      ' Test to see if x less than or equal to 70 and greater than 40.
      ElseIf x <= 70 And x > 40 Then
         MsgBox "X is <=70 and > 40"

      ' Test to see if x less than or equal to 100 and greater than 70.
      ElseIf x <= 100 And x > 70 Then
         MsgBox "X is <= 100 and > 70"

      ' If none of the above tests returned true.
      Else
         MsgBox "X does not fall within the range"
      End If

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

Δείγμα μακροεντολής χρησιμοποιώντας υπόθεσης πρόταση Select

   Sub Using_Case()

      ' Dimension the variable.
      Dim x As Integer
      ' Place a value in x.
      x = Int(Rnd * 100)

      ' Start the Select Case structure.
      Select Case x

         ' Test to see if x less than or equal to 10.
         Case Is <= 10
            ' Display a message box.
            MsgBox "X is <=10"

         ' Test to see if x less than or equal to 40 and greater than 10.
         Case 11 To 40
            MsgBox "X is <=40 and > 10"

         ' Test to see if x less than or equal to 70 and greater than 40.
         Case 41 To 70
            MsgBox "X is <=70 and > 40"

         ' Test to see if x less than or equal to 100 and greater than 70.
         Case 71 To 100
            MsgBox "X is <= 100 and > 70"

         ' If none of the above tests returned true.
         Case Else
            MsgBox "X does not fall within the range"
      End Select

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

Αναφορές

Για περισσότερες πληροφορίες σχετικά με τον έλεγχο της ροής του προγράμματος, κάντε κλικ στο κουμπί Οδηγός απαντήσεων Στο διακομιστή Βοήθεια μενού και τον τύπο:
πληροφορίες για τον προγραμματισμό υπό όρους
"Οδηγός χρήστη Visual Basic", έκδοση 5.0, κεφάλαιο 7 "Ελέγχει πώς σας κώδικα εκτελεί"

Πατήστε το πλήκτρο Microsoft: "Microsoft Excel/Visual Basic Programmer's Guide" έκδοση 7.0, κεφάλαιο 3, "Έλεγχος ροής προγράμματος"

Στο Microsoft Excel έκδοση 5.0, κάντε κλικ στο Περιεχόμενα Στο διακομιστή Βοήθεια μενού, κάντε κλικ στο κουμπί Προγραμματισμός με τη Visual Basic; στη συνέχεια, κάντε κλικ στην επιλογή του Αναζήτηση κουμπί και τον τύπο:
Εάν,

-ή-

περίπτωση
Για πρόσθετες πληροφορίες σχετικά με τη λήψη Βοήθειας με τη Visual Basic για Εφαρμογές, κάντε κλικ στον αριθμό του άρθρου παρακάτω, για να προβάλετε το άρθρο της Γνωσιακής Βάσης της Microsoft:
163435  (http://support.microsoft.com/kb/163435/EN-US/ ) VBA: Προγραμματισμός πόρων για τη Visual Basic για εφαρμογές
Επιστροφή στην αρχή
Οι πληροφορίες σε αυτό το άρθρο ισχύουν για:
  • Microsoft Excel 95 Standard Edition
  • Microsoft Excel 5.0 Standard Edition
  • Microsoft Excel 5.0 για Macintosh
  • Microsoft Excel 97 Standard Edition
  • Microsoft Excel 98 για Macintosh
Επιστροφή στην αρχή
Λέξεις-κλειδιά: 
kbdtacode kbhowto kbprogramming kbmt KB141691 KbMtel
Επιστροφή στην αρχή
Μηχανικά μεταφρασμένοΜηχανικά μεταφρασμένο
ΣΗΜΑΝΤΙΚΟ: Αυτό το άρθρο είναι προϊόν λογισμικού μηχανικής μετάφρασης της Microsoft και όχι ανθρώπινης μετάφρασης. Η Microsoft σάς προσφέρει άρθρα που είναι προϊόντα ανθρώπινης αλλά και μηχανικής μετάφρασης έτσι ώστε να έχετε πρόσβαση σε όλα τα άρθρα της Γνωσιακής Βάσης μας στη δική σας γλώσσα. Ωστόσο, ένα άρθρο που έχει προκύψει από μηχανική μετάφραση δεν είναι πάντα άριστης ποιότητας. Ενδέχεται να περιέχει λεξιλογικά, συντακτικά ή γραμματικά λάθη, όπως ακριβώς τα λάθη που θα έκανε ένας μη φυσικός ομιλητής επιχειρώντας να μιλήσει τη γλώσσα σας. Η Microsoft δεν φέρει καμία ευθύνη για τυχόν ανακρίβειες, σφάλματα ή ζημίες που προκύψουν λόγω τυχόν παρερμηνειών στη μετάφραση του περιεχομένου ή χρήσης του από τους πελάτες της. Επίσης, η Microsoft πραγματοποιεί συχνά ενημερώσεις στο λογισμικό μηχανικής μετάφρασης.
Η αγγλική έκδοση αυτού του άρθρου είναι η ακόλουθη:141691  (http://support.microsoft.com/kb/141691/en-us/ )
Επιστροφή στην αρχή
Retired KB ArticleΑποποίηση ευθυνών για περιεχόμενο της Γνωσιακής Βάσης (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.
Επιστροφή στην αρχή