الصق البرنامج التالي في النافذة في مركز الشاشة. يستخدم هذا البرنامج رمز التدوين السداسي العشري لـ VBA ، "& H" ، لتحديد متغيرين ، "أ" و "ب". المتغير "x" يحمل مجموع هذين الرقمين ، وتعرض عبارة "MsgBox" التمثيلات غير السداسية العشرية لـ "a" و "b" و "x".
العامة الفرعية doHexMath () Dim x، a، b a = & H10 b = & HA x = a + b MsgBox a & "plus" & b & "equals" & x End Sub
انقر فوق أمر "تشغيل" في القائمة "تشغيل". سيعرض Excel الرسالة "16 زائد 10 يساوي 26." في النظام الست عشري ، "10" يساوي 16 ، و "أ" يساوي 10.
انقر فوق علامة التبويب "Developer" ، ثم انقر فوق الزر "Visual Basic" في لوحة "Code". سيؤدي هذا الإجراء إلى إظهار بيئة برمجة VBA.
الصق البرنامج التالي في نافذة البرمجة التي تظهر. يستخدم هذا البرنامج تدوينًا سداسيًا عشريًا لتعيين لون خلفية للخلية المحددة حاليًا في المصنف. يظهر هذا الترميز في تعيينات المتغيرات "أحمر" و "أخضر" و "أزرق". تستخدم عبارة "ActiveCell" أيضًا تدوين سداسي عشري ، ويضيف المكونات "الأحمر" و "الأخضر" و "الأزرق" معًا لإنتاج رقم بالتنسيق المطلوب لتعيين الألوان في Excel. لاحظ أن المتغير "الأحمر" فقط هو غير صفري. هذا يعني أن اللون الذي ستراه سيكون أحمر نقيًا.
عام Sub colorCell () أزرق خافت ، أخضر ، أحمر أحمر = & HFF أخضر = & H0 أزرق = & H0 ActiveCell. الداخلية. اللون = أزرق * & HFF00 + أخضر * & HFF + أحمر End Sub
