Įklijuokite šią programą į langą ekrano centre. Ši programa naudoja VBA šešioliktainį žymėjimo simbolį „&H“, kad apibrėžtų du kintamuosius „a“ ir „b“. Kintamasis "x" galioja šių dviejų skaičių suma, o sakinys „MsgBox“ rodo ne šešioliktainius „a“, „b“ ir "x."
Public Sub doHexMath() Dim x, a, b a = &H10 b = &HA x = a + b MsgBox a & " plus " & b & " lygu " & x End Sub
Spustelėkite meniu „Vykdyti“ komandą „Vykdyti“. „Excel“ parodys pranešimą „16 plius 10 lygu 26“. Šešioliktainėje sistemoje „10“ yra 16, o „A“ – 10.
Spustelėkite skirtuką „Kūrėjas“, tada skydelyje „Kodas“ spustelėkite mygtuką „Visual Basic“. Šis veiksmas atvers VBA programavimo aplinką.
Įklijuokite šią programą į pasirodžiusį programavimo langą. Ši programa naudoja šešioliktainį žymėjimą, kad priskirtų fono spalvą šiuo metu pasirinktam darbaknygės langeliui. Šis žymėjimas rodomas priskiriant kintamuosius „raudona“, „žalia“ ir „mėlyna“. „ActiveCell“ teiginys taip pat naudojamas šešioliktainis žymėjimas ir kartu prideda „raudoną“, „žalią“ ir „mėlyną“ komponentus, kad gautų skaičių tokiu formatu, kurio reikia nustatyti spalvos programoje Excel. Atkreipkite dėmesį, kad tik „raudonas“ kintamasis nėra nulis. Tai reiškia, kad spalva, kurią matysite, bus grynai raudona.
Viešoji antrinė spalvaCell() Tamsiai mėlyna, žalia, raudona raudona = &HFF žalia = &H0 mėlyna = &H0 ActiveCell. Interjeras. Spalva = mėlyna * &HFF00 + žalia * &HFF + raudona Pabaiga
