Για να προσδιορίσουμε τον τύπο του λειτουργικού συστήματος, μπορούμε να χρησιμοποιήσουμε κώδικα μακροεντολής. Σε αυτό το άρθρο θα μάθουμε πώς να καθορίσουμε τον τύπο του λειτουργικού συστήματος που χρησιμοποιείται χρησιμοποιώντας τον κώδικα VBA.
Ερώτηση: Θα ήθελα να μάθω το λειτουργικό σύστημα του συστήματος μου μέσω κώδικα VBA αν είναι 32 bit ή 64 bit.
Για να καθορίσουμε τον τύπο του λειτουργικού συστήματος πρέπει να ακολουθήσουμε τα παρακάτω βήματα:
- Πρέπει να ξεκινήσουμε τον επεξεργαστή VB
- Κάντε κλικ στην καρτέλα Προγραμματιστής
- Από την ομάδα κώδικα επιλέξτε Visual Basic
- Κάντε κλικ στην επιλογή Εισαγωγή και στη συνέχεια ενότητα
- Αυτό θα δημιουργήσει νέα ενότητα
- Εισαγάγετε τον ακόλουθο κώδικα στη μονάδα
Λειτουργία OSis32BIT () As Boolean OSis32BIT = False If InStr (Application.OperatingSystem, "32-bit") Στη συνέχεια OSis32BIT = True End If End Function
Λειτουργία OSis64BIT () As Boolean OSis64BIT = False If InStr (Application.OperatingSystem, "64-bit") then OSis64BIT = True End If End Function
Sub TestOSis32BIT () Εάν OSis32BIT Στη συνέχεια MsgBox "Χρησιμοποιείτε λειτουργικό σύστημα 32bit",, _ Application.OperatingSystem Else MsgBox "Δεν χρησιμοποιείτε λειτουργικό σύστημα 32bit",, _ Application.OperatingSystem End If End Sub
Καθώς εκτελείτε τη μακροεντολή θα λάβετε ένα πλαίσιο μηνυμάτων, ανατρέξτε στο παρακάτω στιγμιότυπο:
Εάν χρησιμοποιείτε λειτουργικό σύστημα 64 bit, το πλαίσιο μηνυμάτων θα ενημερωθεί "Δεν χρησιμοποιείτε λειτουργικό σύστημα 32bit"
Για να ελέγξετε αν το σύστημα είναι 32 bit. μπορούμε να χρησιμοποιήσουμε το UDF σε ένα κενό κελί ως:
- = OSis32BIT (); αυτό θα επιστρέψει TRUE εάν το λειτουργικό σύστημα είναι 32 bit διαφορετικά θα επιστρέψει FALSE
Για να ελέγξετε αν το σύστημα είναι 64 bit. μπορούμε να χρησιμοποιήσουμε το UDF σε ένα κενό κελί ως:
- = OSis64BIT (); αυτό θα επιστρέψει TRUE εάν το λειτουργικό σύστημα είναι 64 bit διαφορετικά θα επιστρέψει FALSE
Συμπέρασμα: Με αυτόν τον τρόπο χρησιμοποιώντας τον κώδικα VBA, μπορούμε να προσδιορίσουμε το λειτουργικό σύστημα που χρησιμοποιούμε.
Αν σας άρεσαν τα ιστολόγια μας, μοιραστείτε το με τους φίλους σας στο Facebook. Επίσης, μπορείτε να μας ακολουθήσετε στο Twitter και το Facebook.
Θα θέλαμε πολύ να σας ακούσουμε, ενημερώστε μας πώς μπορούμε να βελτιώσουμε, να συμπληρώσουμε ή να καινοτομήσουμε το έργο μας και να το κάνουμε καλύτερο για εσάς. Γράψτε μας στον ιστότοπο email