Πώς να Μετατροπή σε δυαδικό σε VBA

Χρήση της Visual Basic for Applications ( VBA ) σενάρια να εκτελεί πολύπλοκα καθήκοντα και τους υπολογισμούς του Microsoft Office . VBA έρχεται με 11 ενσωματωμένες λειτουργίες μετατροπής τύπου , το οποίο μπορείτε να χρησιμοποιήσετε για να αλλάζετε τους αριθμούς από το ένα στο άλλο συμβολισμό . Καμία από αυτές τις λειτουργίες , ωστόσο, μπορεί να μετατρέψει το δεκαδικό αριθμό σε δυαδικό . Το δεκαδικό σύστημα χρησιμοποιεί τις εξουσίες της να αντλήσει 10 ψηφία ? Το δυαδικό αριθμητικό σύστημα , από την άλλη πλευρά , χρησιμοποιεί τις δυνάμεις του δύο . Χρησιμοποιήστε αυτή την αρχή για να δημιουργήσετε το δικό σας μετατροπέα δεκαδικό προς δυαδικό σε VBA . Οδηγίες
Η 1

Ξεκινήστε το Microsoft Word ή το Microsoft Excel . Πατήστε το πλήκτρο " Ctrl " και " N " για να δημιουργήσετε ένα νέο αρχείο . 2

Πατήστε το " Alt " και " F11 " για να ανοίξει το Visual Basic Editor ( VBE ) .
Η
3

κάντε δεξί κλικ στο όνομα του έργου VBA στην " Εξερεύνηση έργου " πάνελ. Κάντε κλικ στο " Εισαγωγή" και επιλέξτε " Ενότητα ". Αυτό προσθέτει " Module1 " στη λίστα .
Η

4 Κάντε διπλό κλικ στο " Module1 . " Εισάγετε τον παρακάτω κωδικό στο " Code Window : "

Sub Conv2Bin ( )

Dim Istr Όπως String

Dim i Όπως Long

i = Εφαρμογή . InputBox ( _

Prompt : = " . Πληκτρολογήστε τον αριθμό που θέλετε να μετατρέψετε και κάντε κλικ στο ΟΚ " , _

Τίτλος : = " Μετατροπή σε δυαδικό " , _

Τύπος : = 1 )

Istr = CStr ( i )

β = CBin ( i )

MsgBox " Πληκτρολογήσατε" & Istr & " . " & Chr ( 13 ) & Chr ( 13 ) _

& « δυαδική τιμή του είναι " & Chr ( 13 ) & b

End Sub
5

Δεξιά κλικ στο όνομα του έργου VBA στην " Εξερεύνηση έργου " πάνελ και πάλι . Κάντε κλικ στο " Εισαγωγή" και επιλέξτε " Ενότητα ". Αυτό προσθέτει " Module2 " στη λίστα .
Η

6 Κάντε διπλό κλικ στο " Module2 . " Εισάγετε τον παρακάτω κωδικό στο " Code Window ".

Λειτουργία CBin ( Αριθμός Όπως Long ) As String Dim

Temp Όπως Παραλλαγή

Temp = 1

Να Μέχρι Temp > Αριθμός

Temp = Θερμοκρασία * 2

Loop

Κάντε Μέχρι Θερμοκρασία <1

Εάν πρόκειται για > = Temp συνέχεια

CBin = CBin + " 1"

Number = Αριθμός - Temp

Else

CBin = CBin + " 0 "

End If

Temp = Θερμοκρασία /2

Loop

CBin = CStr ( Val ( CBin ) )

End Function
Η 7

Πατήστε το πλήκτρο " F5 ". Επιλέξτε " Conv2Bin " από τη λίστα των μακροεντολών και κάντε κλικ στο " Run".
8

Πληκτρολογήστε τον αριθμό που θέλετε να μετατρέψετε στο παράθυρο . Κάντε κλικ στο "OK". Αυτό ανοίγει ένα πλαίσιο μηνύματος που περιέχει τη δυαδική τιμή για τον αριθμό που έχετε εισαγάγει.
Η
εικόνων