تصدير قاعدة بيانات لملف أكسل

[صالح حمادي]

لقد وجدت الكثير من المواضيع على تصدير قاعدة بيانات لملف أكسل لكن بحثت طويلا على أن يكون ملف الأكسل المصدر إليه محمي فلم أجد شيء إذا فيه حد عنده إجابة.(مع العلم أني رأيت هذا في برنامج خاص بحساب نقاط التلاميذ فلا يمكن الكتابة إلا في الخانات المخصصة لوضع النقاط)

[AlwaZeeR]

اخي الكريم:

هل تقصد بالحماية: حماية الملف المصدر بكلمة سر؟؟؟ أم حماية خلاية محددة من الكتابة فيها؟؟؟

اذا كان حماية خلايا محددة تستطيع ذلك باستخدام امر :

objWkb.Worksheets(اسم الورقة).Range("A1:B1").Locked = False

ولحماية الورقة تستطيع استخدام امر:

objWkb.Worksheets(اسم الورقة).Protect "", True

وللحماية بكلمة سر نستطيع استخدام امر:

wrkbk.Sheets("اسم الورقة").Protect Password:="كلمة السر", DrawingObjects:=True, _
Contents:=True, Scenarios:=True
wrkbk.Protect Structure:=True, Windows:=False

وهكذا ...

ان لم تستطع التطبيق ارفق ملفك وسوف اقوم باجراء اللازم

 

::

 

تحياتي

تم تعديل يونيو 5, 2016 بواسطه alwazeer
ااضافة سطر حماية الورقة بكلمة سر

[صالح حمادي]

أنا ما قصدته هو حماية خلايا محددة من الكتابة شكرا جزيلا على الإيضاحات راح أطبق الكود و أخبرك بالنتيجة. تقبل الله صيامك أخي

[صالح حمادي]

السلام عليكم تقبل الله صيامك أخي alwazeer لقد صعب عليا الأمر و لذلك أرفقت لك الملف و معه ملف أكسل الذي أريد أن تكون النتيجة على شكله. جزاك الله عنا كل خير.

 

التصدير إلى ملف أكسل.rar

[AlwaZeeR]

وعليكم السلام ورحمة الله وبركاته

رمضان كريم ،،، وتقبل الله منك اخي الكريم

في المرفق :

- يتم انشاء ملف اكسل على سطح المكتب يحتوي على جميع قوائم الصفوف كل حسب صفه

- الملف الناتج فيه خلايا محمية وانا قمت بتحديد خلايا العلامات فقط وتستطيع التغيير حسب ما تريد من الوحدة النمطية

- لا حاجة لاختيار القسم قبل التصدير كما هو معمول في مثالك

-وضعت لك وحدة نمطية للتحكم بتنسيق ملف الاكسل تستطيع تصميمه حسب ما تريد

-لحماية الورقة بكلمة سر فقط فعل امر الحماية الموجود في الوحدة النمطية الخاصة بالتنسيق

-اي استفسار انا في الخدمة ...

::

تحياتي

 

Alwazeer-Tangeet.rar

[صالح حمادي]

بارك الله فيك أخي و زادك الله علما و علما و علما و فضلا.

هذا ما كنت أبحث عنه لكن سوف أقوم بطرح أسئلة حول أي خطوة لم أفهمها إذا تسمح.

 

[AlwaZeeR]

42 دقائق مضت, صالح حمادي said:

بارك الله فيك أخي و زادك الله علما و علما و علما و فضلا.

هذا ما كنت أبحث عنه لكن سوف أقوم بطرح أسئلة حول أي خطوة لم أفهمها إذا تسمح.

 

تفضل اخي الكريم ،،، اسال ما تريد

::

تحياتي

[صالح حمادي]

السلام عليكم تقبل الله صيامكم و قيامك إن شاء الله

أخي الفاضل بعدما أصدر السجلات إلى ملف أكسل و أسجل فيه علامات الطلبة الآن  أريد إستراد الملف لإدخال العلامات في البرنامج.

ماذا أفعل

تم تعديل يونيو 12, 2016 بواسطه صالح حمادي

[AlwaZeeR]

وعليكم السلام ورحمة الله وبركاته ،،،

ولماذا تقوم بتسجيل العلامات من اكسل؟ لماذا لا يتم تسجيلها من نفس البرنامج؟

 

[صالح حمادي]

تقبل الله صيامك أخي .

إذا كان كل أستاذ يدخل علاماته في البرنامج فهذا يأخذ وقتا طويلا لذلك أريد تصدير ملف كل أستاذ إلى ملف أكسل و كل أستاذ يسجل نقاطه على حد ثم أعيد تجميعها من جديد في البرنامج

تم تعديل يونيو 16, 2016 بواسطه صالح حمادي

[AlwaZeeR]

السلام عليكم ورحمة الله وبركاته،،،

اذاُ لا نحتاج الى عمل تجميع للصفوف في ملف الاكسل.

اصبح هناك نقطة اساسية يجب تغييرها على التصدير لاكسل وهي:

- التصدير للصف حسب الاختيار ولا حاجة لتجميع الصفوف في ملف اكسل واحد.

* هل تريد عند استيراد العلامات من اكسل للملف الرئيسي في البرنامج ان يتم استيراد جميع البيانات بما فيها الاسماء ام خلايا محددة؟

* هل تريد ان يقوم بتحديث البيانات ام يضيفها تراكميا الى الجدول الرئيسي في البرنامج؟

وافيني بالاجابات

::

تحياتي

[صالح حمادي]

السلام عليكم جزاكم الله كل خير على إفادتكم و ضاعف لكم الأجر إن شاء الله ما دمنا في شهر الرحمة و البركات.

- بالنسبة للتصدير يكون حسب الاختيار يعني كل أستاذ أعطيه ملف أكسل به الأقسام التي يدرسها فقط.

- عند إستراد العلامات من ملف أكسل يتم إستراد خلايا محددة (علامات التلاميذ) و وضعها بالملف الرئيسي في البرنامج.

- أريد أن يقوم بتحديث البيانات في الملف الرئيسي للبرنامج.

 

[صالح حمادي]

السلام عليكم و رحمة الله و بركاته

[صالح حمادي]

للرفع

[صالح حمادي]

أخي الوزير لقد أضفت في معيار الأستعلام sqstu للحقل classe الكلمة التالية GetPublicSedol() حاولت أن أفهم دورها بمقارنتها مع النص البرمجي لكني لم أستطع ذلك يا ريت توضحلي الأمر.

و ما هو المطلوب تغييره لوضعها في حقل غير حقل classe.

و كيف يمكن تصدير البيانات إلى أوراق الأكسل حسب المادة و القسم معا.

تقبل تحياتي أخي الوزير. و شكرا

[AlwaZeeR]

حياك الله اخي صالح ...

GetPublicSedol()

هو اسم الوحدة النمطية الموجودة في البرنامج وعملها:

توزيع البيانات المصدرة الى اكسل في اوراق (Sheets) حسب معيار محدد مثلا اسم الصف او رقم الصف ... وفي برنامجك المعيار لتوزيع الطلاب هو ( classe )

---

ماذا تقصد حسب المادة والقسم معاً في التصدير؟؟؟؟

 

 

[صالح حمادي]

السلام عليكم مشكور أخي الوزير على الإستجابة.

23 ساعات مضت, alwazeer said:

ماذا تقصد حسب المادة والقسم معاً في التصدير؟؟؟؟

- المقصود هنا هو كيف أضع معيارين معا لتوزيع الطلاب في sheets مثلا (matier) و (classe) معا. يعني يوزع الطلاب حسب الصف (classe) و المادة (matier) معا

 

 

في 16‏/6‏/2016 at 13:03, alwazeer said:

السلام عليكم ورحمة الله وبركاته،،،

اذاُ لا نحتاج الى عمل تجميع للصفوف في ملف الاكسل.

اصبح هناك نقطة اساسية يجب تغييرها على التصدير لاكسل وهي:

- التصدير للصف حسب الاختيار ولا حاجة لتجميع الصفوف في ملف اكسل واحد.

* هل تريد عند استيراد العلامات من اكسل للملف الرئيسي في البرنامج ان يتم استيراد جميع البيانات بما فيها الاسماء ام خلايا محددة؟

* هل تريد ان يقوم بتحديث البيانات ام يضيفها تراكميا الى الجدول الرئيسي في البرنامج؟

في 17‏/6‏/2016 at 12:33, صالح حمادي said:

السلام عليكم جزاكم الله كل خير على إفادتكم و ضاعف لكم الأجر إن شاء الله ما دمنا في شهر الرحمة و البركات.

- بالنسبة للتصدير يكون حسب الاختيار يعني كل أستاذ أعطيه ملف أكسل به الأقسام التي يدرسها فقط.

- عند إستراد العلامات من ملف أكسل يتم إستراد خلايا محددة (علامات التلاميذ) و وضعها بالملف الرئيسي في البرنامج.

- أريد أن يقوم بتحديث البيانات في الملف الرئيسي للبرنامج.

هل من إجابت أخي على هذا السؤال السابق الخاص بالأستيراد . تقبل مني فائق الإحترام و التقدير

 

[AlwaZeeR]

وعليكم السلام ورحمة الله وبركاته،،،

تابع معي:

لكي يتم عمل ما تريد يجب أولاً مراعاة ما يلي في تصميم البرنامج:

1- بيانات الطلاب في جدول على حدا، ويتضمن أيضا (StuID)ترقيم تلقائي (مفتاح اساسي)، كما يتضمن حقل ClassID نوع بياناته رقم.

2- علامات الطلاب في جدول على حدا ويتضمن أيضاً (StuID) نوع بيانات رقم.

3- المواد الدراسية في جدول على حدا : واسم المادة ورقم المادة، اضافة الى حقل ( ClassID ) نوع بياناته رقم.

4- اساسيات الجداول والشهادات: لو احببت ان تجعل البرنامج يقوم بطباعة الشهادات والجداول الوزارية ...

قم بمراعاة هذه الامور في برنامجك وبعدها سيتم عمل ما تريد ...

اي استفسار انا حاضر

::

تحياتي

 

Alwazeer.rar

[صالح حمادي]

جزيت خير الجزاء أخي الرئيس سوف أقوم باللازم و أطلعك على النتائج.

شكرا على الفكرة الجيدة إضافة الشهادات راح أعملها بإذن الله

 

[AlwaZeeR]

نسيت جدول اساسي:

جدول الصفوف:

ClassID حقل رقم وليس ترقيم تلقائي

الصف

ويفضل المسميات بالانجليزية ولو كانت بلفظ عربي

::

تحياتي

[صالح حمادي]

شكرا يا صقر الأوفيس

[صالح حمادي]

لقد أضفت بعض التعديلات على الكود و تمكنت من وضع معيارين و نجح الأمر و الحمد لله

و قد بقى لدي سؤالين في تنسيق الملف بالنسبة للخلايا المحمية أضفت هذا الكود

.range("C2:H26").Locked = False

لكن عدد التلاميذ يختلف من صف إلى آخر فكيف أغير القيمة 26 و أضع مكانها count(*) عدد السجلات أو الأسطر التي تتضمن معلومات

- أيضا الكود الذي يمكنني من إخفاء عمود و لقد جربت هذا الكود لكنه لم يعمل

.column("G1").visible=false

 

[AlwaZeeR]

أحسنت العمل أخي صالح،،،

بالنسبة للعدد 26: تقصد زيادة او انقاص نطاق الادراج في ورقة اكسل حسب عدد الصف؟؟؟

استخدم هذا السطر بدل تحديد النطاق :

Dim lastRow As Long

lastRow = ws.Range("A1").CurrentRegion.Rows.Count

 

بالنسبة لاخفاء العمود او اعمدة هذا هو الكود الصحيح:

ws.Columns("AF:AT").EntireColumn.Hidden = True

 

 

تم تعديل يونيو 27, 2016 بواسطه alwazeer

[صالح حمادي]

شكرا أخي العزيز سوف أطبق و أطلعك على النتائج

[صالح حمادي]

السلام عليكم اخي الوزير بالنسبة لإخفاء العمود تمام مشي الحال.

أما بالنسبة لكود تحديد النطاقات من أجل إلغاء الحماية لم يشتغل معي مع أني جربت كل المحاولات و الله أعلم