Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky

Domáce Hardware Siete Programovanie Softvér Otázka Systémy

Ako previesť na binárne vo VBA

Použitie jazyka Visual Basic for Applications ( VBA ) skripty vykonávať zložité úlohy a výpočty v Microsoft Office . VBA je dodávaný s 11 vstavanými typu konverzný funkcií , ktoré môžete použiť na prepínanie čísla od jedného zápisu do druhého . Žiadna z týchto funkcií však možno previesť desiatkové číslo na binárne . Desiatková sústava používa právomoci 10. odvodiť číslic , binárne číselná sústava , na druhej strane , využíva sily dvoch . Použite túto zásadu vytvoriť svoj ​​vlastný desiatkovej do binárnej prevodník vo VBA . Pokyny dovolená 1

Spustite program Microsoft Word alebo Microsoft Excel . Stlačte tlačidlo " Ctrl " a " N " pre vytvorenie nového súboru .
2

Stlačte tlačidlo " Alt " a " F11 " pre otvorenie editora jazyka Visual Basic ( VBE ) .

3

Kliknite pravým tlačidlom myši na názov projektu VBA v paneli " Prehliadač projektu " . Kliknite na " Vložiť " a vyberte " Module " . To dodáva : " Module1 " do zoznamu .
4

Double - kliknite na " Module1 . " Zadajte nasledujúci kód do okna " Kód : "

Sub Conv2Bin ( )

Dim Istra As String

Dim i As Long klipart

= aplikácie . InputBox ( _

Prompt : = " . Zadajte číslo , ktoré chcete previesť , a kliknite na tlačidlo OK " , _

Title : = " previesť binárny " , _

type : = 1 )

Istra = CStr ( i )

b = CBin ( i )

MsgBox " Zadali ste " a Istra & " . " & Chr ( 13 ) & Chr ( 13 ) _

& " Jeho binárna hodnota je " & Chr ( 13 ) & B

End Sub
5

Pravá kliknite znovu na názov projektu VBA v paneli " Prehliadač projektu " . Kliknite na " Vložiť " a vyberte " Module " . To dodáva : " Module2 " do zoznamu .
6

Double - kliknite na " Module2 . " Zadajte nasledujúci kód do okna " Code " .

Funkcia CBin ( Počet As Long ) As String

Dim Temp As Variant

Temp = 1
< p > To Do Temp > Počet

Temp = TEMP * 2

Loop

Do Temp < 1

Ak číslo > = Temp Potom

CBin = CBin + " 1 "

číslo = číslo - Temp

Else

CBin = CBin + " 0 "

end If

Temp = teplota /2

Loop

CBin = CStr ( Val ( CBin ) )

end Function
7

Stlačte " F5 " . Zvoľte " Conv2Bin " zo zoznamu makier a kliknite na " Run " .
8

Zadajte číslo , ktoré chcete previesť na pole . Kliknite na " OK " . Tým sa otvorí okno so správou , ktorá obsahuje binárnu hodnotu pre číslo , ktoré ste zadali .

Najnovšie články

Copyright © počítačové znalosti Všetky práva vyhradené