الحالة:

في مقرر مبادئ الاقتصاد الكلي، متاح مجموعة أسئلة في ملف إكسيل سبق تجميعها من مساهمات أعضاء هيئة التدريسي، مطلوب فصل قوائم الأسئلة لكل وحدة من وحدات المقرر في ملفات صالحة للإدخال على نظام Blackboard

الخطوات:

مثال: الملف المجمع لأسئلة مقرر مبادئ الاقتصاد الكلي

Q&A_ECON102_2014-12-31.xlsx

1- تجزئة مساهمات هيئة التدريس على ملفات بعدد الوحدات التعليمية

ملف كل وحدة يأخذ النسق التالي

كل صف يمثل سؤالا مستقلا، أما الأعمدة فبيانها كالتالي:

العمود A = رمز نوع الاختبار وهو دائما MC أي اختيار من متعدد Multiple Choice (في المرحلة الحالية نكتفي بهذا النوع – وهو كاف!)

العمود B = نص جذر السؤال

العمود C = نص البديل الأول

العمود D = تكتب إحدى الكلمتين correct إذا كان البديل الأول صواب أو incorrect إذا كان البديل الأول خطأ

العمود E = نص البديل الثاني

العمود F = تكتب إحدى الكلمتين correct إذا كان البديل الثاني صواب أو incorrect إذا كان البديل الثاني خطأ

العمود G = نص البديل الثالث

العمود H = تكتب إحدى الكلمتين correct إذا كان البديل الثالث صواب أو incorrect إذا كان البديل الثالث خطأ

العمود I = نص البديل الرابع

العمود J = تكتب إحدى الكلمتين correct إذا كان البديل الرابع صواب أو incorrect إذا كان البديل الرابع خطأ

** التظليل الأصفر ليس له دلالة تقنية إلا انه يفيد لتتأكد أنك اخترت الإجابة الصحيحة

تأكد من حفظ ملف مستقل لكل وحدة

** يمكن تنسيق الملف المجمع أولا ثم يجزأ في خطوة تالية

تخصص أسماء معبرة عن محتوى الملفات. مثال:

Bb_Q&A_01.xlsx

Bb_Q&A_02.xlsx

Bb_Q&A_03.xlsx

وهكذا

2- حفظ الصيغة المناسبة للتصدير

الصيغة المناسبة للتصدير إلى Blackboard يجب أن تكون Unicode Text

مثال: ملف الوحدة الأولى Bb_Q&A_01.xlsx

FILE > Save As >

Save as type = Unicode Text (*.txt)

File name = Bb_Q&A_01.txt

وينفذ ذلك لجميع الوحدات

ويمكن عمل ماكرو لتنفيذ ذلك تلقائيا

أولا: إنشاء الماكرو ليقوم بحفظ نسخة من المصنف الحالي في نفس المجلد لكن من نوع Unicode

DEVELOPER > Visual Basic

VBAProject (PERSONAL.XLSB) > Modules > Module1

Sub SaveAsUnicode()

‘

‘ SaveAsUnicode Macro

‘ Save Excel sheet as Unicode text

‘

Dim currentFile As String

   currentFile = Left(ActiveWorkbook.FullName, _

           (InStrRev(ActiveWorkbook.FullName, “.”, -1, vbTextCompare) – 1))

   ‘This will account for any file extension (.xlsx, .xlsm, .xls, etc)

   ActiveWorkbook.SaveAs Filename:=currentFile & “.txt”, _

         FileFormat:=xlUnicodeText, CreateBackup:=False

End Sub

ثانيا: ضبط مواصفات الماكرو

DEVELOPER > Macros

            Macros in = PERSONAL.XLSB (Personal Macro Workbook)

            PERSONAL.XLSB!SaveAsUnicode

            [Options]

            Shortcut Key = Crtl+Shift+T   (eg)

            Description = Save Excel sheet as Unicode text

الآن يمكنك فتح ملفات XLSX تباعا ثم الضغط على Ctrl+Shift+T لحفظ نسخة Unicode text في نفس المجلد ثم الخروج (بدون حفظ)