Kleepige järgmine programm ekraani keskel olevasse aknasse. See programm kasutab kahe muutuja "a" ja "b" määratlemiseks VBA kuueteistkümnendsüsteemi tähistussümbolit "&H". Muutuja "x" kehtib nende kahe arvu summa ja lause "MsgBox" kuvab mittekuueteistkümnendsüsteemis "a", "b" ja "x."
Public Sub doHexMath() Dim x, a, b a = &H10 b = &HA x = a + b Msgbox a & " plus " & b & " võrdub " & x End Sub
Klõpsake menüü "Käivita" käsku "Käivita". Excel kuvab teate "16 pluss 10 võrdub 26". Kuueteistkümnendsüsteemis võrdub "10" 16-ga ja "A" on 10.
Klõpsake vahekaarti "Arendaja", seejärel klõpsake paneelil "Kood" nuppu "Visual Basic". See toiming avab VBA programmeerimiskeskkonna.
Kleepige järgmine programm ilmuvasse programmeerimisaknasse. See programm kasutab töövihikus praegu valitud lahtrile taustavärvi määramiseks kuueteistkümnendsüsteemi. See märge ilmub muutujate "punane", "roheline" ja "sinine" määramisel. Avaldus "ActiveCell" kasutab ka kuueteistkümnendsüsteemi tähistus ja lisab komponendid "punane", "roheline" ja "sinine" kokku, et saada arv seadistamiseks vajalikus vormingus värvid Excelis. Pange tähele, et ainult "punane" muutuja on nullist erinev. See tähendab, et värv, mida näete, on puhas punane.
Public Sub colorCell() Tume sinine, roheline, punane punane = &HFF roheline = &H0 sinine = &H0 ActiveCell. Interjöör. Värv = sinine * &HFF00 + roheline * &HFF + punane End Sub
