لخبراء vba محتاج كود يقوم باضافة الفورم للداتا بيز

[أبو ليمونه]

السلام عليكم شباب ...

 

لدي ملف اكسل حاولت اعدل فيه لكنني لم استطع ... اتمنى ان اجد المساعدة منكم ...

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

 

الملف مكون من صفحتين اكسل وملف وورد كتالي:

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

 

الصفحة الثاني اسمها داتا بيز
وفيها يتم حفظ معلومات الكتب التي تم ادخالها بالبرنامج ...

 

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

 

ما اريد عمله هو التالي
1- اذا اضغطت على الزر الاول واسمه (اضف) يقوم باخذ المعلومات في صفحة الفورم واضافتها في الداتا بيز....
* اذا رقم السيريل نمبر التابع للكتاب موجود مسبقا يعطيني رسالة "الكتاب موجود مسبقا"
2- اذا ضغطت على الزر الثاني واسمه (حدث) فيقوم باستبدال المعلومات القديمة والموجودة في الداتا بيز بالمعلومات الجديدة والموجودة في الفورم

3- اذا ضغطت على الزر الثالث واسمه (اطبع) فيقوم بطباعة ملف الورود المربوط بالاكسل ولكن يطبع الصفحات التي تم تحديدها فقط وليس كامل الملف.
4- اذا ادخلت التاريخ الميلادي في الفورم يقوم بادراج التاريخ الهجري المقابل له فلو افترضنا انني ادخلت التاريخ 22/05/2000 فيجب ان يعطيني التاريخ الهجري المقابل وهو 18/02/1421

كما هو معمول بموقع اسلام فايندر http://www.islamicfinder.org/dateConversion.php?lang=arabic

 

اتمنى ان تعمل جميع الاكواد بمجرد فتح ملف الاكسل ...

 

وكل شي تم شرحه بالملف المرفق

 

شاكرا ومقدرا لكم مساعدتكم

 

اخوكم ابو ليمونه

pro.zip

تم تعديل نوفمبر 25, 2013 بواسطه أبو ليمونه

[أبو ليمونه]

السلام عليكم ...

 

اتمنى ان اجد منكم المساعدة او حتى توجيه بخصوص الموضوع اعلاه 

 

لانني لا زلت ابحث عن الحل

 

شاكرا ومقدرا لكم جهودكم الجبارة ...

[شوقي ربيع]

السلام عليكم

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

اولا أنوه الى أن الفورم المستعمل في البرنامج من إعداد وتنسيق الأخ العزيز ضاحي الغريب حفظه الله

الذي طرحه في موضوع

هدية العام الجديد لكل اخواني ومعلميني واعضاء منتدانا

أوجه له بالمناسبة تحية خالصة وجازاه الله خيرا لما يقدمه من أعمال

 

أما بخصوص هذا البرنامج

الواجهة

يمكنك من خلاله الحفظ و التعديل والطباعة للبيانات التي تريدها كما أنه يصلح للاستعمالات أخرى غير الكتب

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

لذى استغنيت عن طلبك المتمثل في الطباعة من الورد

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

وكذالك لإنقطاع النت عندي لأني أعلم بوجود العديد من الموضع المتعلقة بهذا الأمر في هذا الصرح العملاق

أرجو أن يقوم أحد الأعضاء بتولي المهمة لتنفيذ هذا الطلب

تحياتي للجميع (شوقي ربيع)

 

برنامج مكاتب.rar

[أبو ليمونه]

السلام عليكم 

 

اخي شوقي ربيع ...

 

صراحة عمل جبار تشكر عليه انت واخي ضاحي الغريب ...

 

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

 

وملف الورود شي مهم بالنسبة لي واضافة الى تحويل التاريخ ...

 

انا لا اطمح الى عمل فورم محترف كفورم اخي ضاحي الغريب وانما اريد ادخال البيانات عن طريق الشيت لان بعض الحقول تستلزم مني بعض الحسابات ...

 

سؤالي ... هل بالامكان اضافة الكود على ملف الاكسل الذي انا ارفقته؟

 

شاكرا ومقدرا لك حرصك على الاجابة على هذا الموضوع ...

 

اخوك / ابو ليمونه ...

[أبو حنــــين]

السلام عليكم

قمت ايضا بالعمل الذي قام به أخي شوقي ربيع بفورم   آخر استغرق مني وقتا كبيرا

و عندما قرأت رد اخي ابو ليمونه عرفت انه لا داعي من رفعه لان الاخ يطلب العمل على الشيت و ليس الفورم

تحياتي

[أبو ليمونه]

السلام عليكم

 

اخي ابو حنين ...

 

اشكر لك جهدك وبنفس الوقت اعتذر لك لاني اخذت من وقتك الكثير لتعديل الفورم الذي لن يفي باحتياجاتي ...

 

انا اعرف ان الموضوع صعب وليس بالسهل ويستغرق الوقت الكثير لعمله...

 

ولكن بسؤالي ذكرت رغبتي بالتعديل على الملف المرفق ولم اتطرق للفورم ...

 

سؤالي لك وللإخوة الكرام ... هل بالامكان تطبيق كود الفورم ليعمل على الشيت ؟؟؟

 

او الموضوع راح يستغرق الكثير من الوقت لعمله ؟؟

 

لاني حاولت ووجدت الموضوع معقد ولقلة خبرتي في التعامل مع vba كود ...

 

اشكر الجميع على تعاونهم ومساعدتهم ...

[أبو ليمونه]

اخواني

 

هل الطريقة ممكن تنفيذها على الاكسل ؟؟؟ او تنصحوني اني لا اتعب نفسي بالبحث عن حل لهذه الطريقة ؟؟

 

تحياتي لكم

[ضاحي الغريب]

 

السلام عليكم

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

اولا أنوه الى أن الفورم المستعمل في البرنامج من إعداد وتنسيق الأخ العزيز ضاحي الغريب حفظه الله

الذي طرحه في موضوع

هدية العام الجديد لكل اخواني ومعلميني واعضاء منتدانا

أوجه له بالمناسبة تحية خالصة وجازاه الله خيرا لما يقدمه من أعمال

 

أما بخصوص هذا البرنامج

الواجهة

Sans titre.png

يمكنك من خلاله الحفظ و التعديل والطباعة للبيانات التي تريدها كما أنه يصلح للاستعمالات أخرى غير الكتب

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

لذى استغنيت عن طلبك المتمثل في الطباعة من الورد

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

وكذالك لإنقطاع النت عندي لأني أعلم بوجود العديد من الموضع المتعلقة بهذا الأمر في هذا الصرح العملاق

أرجو أن يقوم أحد الأعضاء بتولي المهمة لتنفيذ هذا الطلب

تحياتي للجميع (شوقي ربيع)

 

أخي الحبيب ربيع المنتدي// شوقي ربيع

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

 

يعلم الله بمدي معزتكم لدي

وتعلمنا الكثير من افكاركم الاكثر من رائعة

عملك وفكرته جميلة واكثر من رائعة

بحنكة شوقي الجميلة وروحه الطيبة وشخصه العزيز

 

وذكرك اسمي تشريف لي عظيم

وكفاية علي دعائك الكريم الطيب

بارك الله لك ونفعك بعلمك

ويسر لك امورك

تقبل تحياتي وشكري وتقديري

تم تعديل ديسمبر 1, 2013 بواسطه ضاحي الغريب

[أبو ليمونه]

اخي ضاحي الغريب

 

اشكر مرورك على موضوع ...

 

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

 

بحكم خبرتك بهذا النوع من البرمجمة ... هل بالإمكان ان اخذ من وقتكم الثمين بعض الوقت للإطلاع على الملف المرفق في بداية الموضوع ...

 

لقد بحثت وتعبت وانا ابحث للحصول على حل لبرمجمة الملف ولكن بدون جدوى ... اريد برمجمة الملف بدون فورم فقط اضافة الاكواد لتعمل الازرة ...

 

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

 

اخوك / ابو ليمونه

[شوقي ربيع]

السلام عليكم

أعتذر منك اخي لعدم اكمالي معك الموضوع لانقطاع النت عندي وانا الان اكتب هته الاسطر من مقهى انترنت لا علينا سكتب لك الاكواد والشرح الازم ان شاء الله

اولا قم بأدراج  كومبوبوكس في ورقة العمل

ثم ضع هذا الكود في حدث SELECT CHANGE الخاص بالورقة العمال التي انشائت فيها اليست بوكس

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

Dim sh As Worksheet
Dim X As Integer
Set sh = ThisWorkbook.Sheets("Database")
If sh.Cells(Rows.Count, 1).End(xlUp).Row = 1 Then
Lr = 2
Else
Lr = sh.Cells(Rows.Count, 1).End(xlUp).Row
End If
Me.ComboBox1.Clear
For X = 2 To Lr
Me.ComboBox1.AddItem sh.Cells(X, 1)
Next

ثم في حدث CHANGE الخاص بالكومبوبوكس ضع هذا الكود

Dim sh As Worksheet
Dim ii As Double
Dim Mh As Double
Dim Lr As Long
Dim X As Integer
Set sh = ThisWorkbook.Sheets("Database")
Sheet1.Range("B1").Value = Me.ComboBox1.Value
ii = Sheet1.Range("B1").Value
If ii <> 0 Then
    With sh
        Lr = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
        Mh = WorksheetFunction.Match(ii, .Range("A2:A" & Lr), 0) + 1
    End With
For X = 1 To 7
Sheet1.Range("B" & X + 3).Value = sh.Cells(Mh, X).Value
Next X
End If

ثم انشاء ميودل وضع فيه هته الاكواد

اولا كود اضافت كتاب جديد

Sub ajout()
Dim sh As Worksheet
Dim sh_2 As Worksheet
Dim Lr As Long
Dim Lr_2 As Long
Dim X As Integer
Set sh = ThisWorkbook.Sheets("Fourm")
Set sh_2 = ThisWorkbook.Sheets("Database")
Lr = sh.Cells(Rows.Count, 1).End(xlUp).Row
Lr_2 = sh_2.Cells(Rows.Count, 1).End(xlUp).Row + 1
For X = 1 To Lr
sh_2.Cells(Lr_2, X).Value = sh.Range("B" & X + 3).Value
sh.Range("B" & X + 3) = ""
Next X
End Sub

ملاحظة يمكنك زيادت ماشئت من صفوف في العمد B حيث ان الكود يقوم بترحيل البينات الموجدوة في العمود B ابتداا من الخلية الرابعة الى اخر خلية بها بينات

وهذا الكود خاص بالتعديل على البينات

Sub Moudf()
Dim sh As Worksheet
Dim sh_2 As Worksheet
Dim Lr As Long
Dim Lr_2 As Long
Dim ii As Double
Dim Mh As Double
Dim X As Integer
Set sh = ThisWorkbook.Sheets("Fourm")
Set sh_2 = ThisWorkbook.Sheets("Database")
Lr = sh.Cells(Rows.Count, 1).End(xlUp).Row
Lr_2 = sh_2.Cells(Rows.Count, 1).End(xlUp).Row + 1
ii = sh.Range("B4").Value
    With sh_2
        Mh = WorksheetFunction.Match(ii, .Range("A2:A" & Lr_2), 0) + 1
    End With
For X = 1 To Lr
sh_2.Cells(Mh, X).Value = sh.Range("B" & X + 3).Value
Next X
End Sub

يبقى لك التحويل الى التاريخ الهجري والطباعة من الورد

سأقوم بادراج الاكواد الازمة متى سنحت لي الفرصة

ارجو ان اكون قد وفقت في الشرح

تحياتي (شوقي ربيع)

[ضاحي الغريب]

أخي الكريم //  ابوليمونة

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

 

وبعد اذن اخي الحبيب // شوقي ربيع  ولاثراء الموضوع

محاولة مني كنت جهزت الملف امس ونظرا لانقطاع النت لم ارفعه

عسي يكون فيها طلب الأخ الكريم ابو ليمونة

ولا تأتي بجمال رورعة افكار اخي الرائع //  شوقي ربيع

تقبلوا تحياتي

 

أرشفة الكتب.rar

[أبو ليمونه]

والله يا اخوان يعجز اللسان عن شكركم

 

بارك الله فيك اخي ضاحي غريب ورزقك من حيث لا تحتسب

 

الملف جميل وسهل الاستخدام

 

مشكوووور والف شكر لك

 

وبارك الله فيك اخي شوقي ربيع على الاكواد.

 

اخوكم / ابوليمونه

[شوقي ربيع]

السلام عليكم

تحية طيبة للاخ الحبيب ضاحي الغريب على ملفه الجميل  و روحه الاجملة

جزاه الله كل الخير لما قدمه ومازال يقدمه

 

ولاثراء الموضوع  هذا ملف اخر قمت بتصميمه امس  يحتوي على نفس مايحويه ملف الاخ ضاحي

بالاضافة الى

امكانية  الزيادة في عدد الحقول الى اماتشاء من حقول

دالة لتحويل التاريخ الميلادي الى تاريخ الهجري

كود يقوم بانشاء ملف وورد باسم السيريل نمبر في نف الجلد

 

عسى ان تجد فيه مطلبك وان يكون فيه فائدة لبقية الاعضاء

مع تحيات اخوكم في الله شوقي ربيع

RABIE CHAOUKI.rar

[أبو ليمونه]

اخي شوقي ربيع

 

تحية طيبة 

 

المجلد المرفق فارغ ...

 

تحياتي لك

[أبو ليمونه]

اخي / شوقي ربيع

 

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

 

هل بالامكان رفع الملف مرة ثانية لانني اتطلع لما قمت به مشكورا 

 

تحياتي لك

[شوقي ربيع]

أعتذر لعدم ملاحظتي ان الملف فارغ

تفضل المرفق

 

rabie.rar

[أم عبد الله]

أستاذنا الفاضل / شوقي ربيع

 

أستاذنا الفاضل / ضاحي الغريب

 

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

 

عمل أكثر من رائع واستخدام أستاذنا / شوقي ربيع للفورم الرائع لأستاذنا ضاحي أعطى لمسة فنية رائعة لعمله الممتاز  جزاكم الله خيراً وزادكم الله من علمه وفضله وجعل جميع اعمالكم في ميزان حسناتكم. لكم كل التحية والتقدير.

[شوقي ربيع]

وعليكم السلام

الاخت الفاضلة ام عبدالله

لكي مني جزيل الشكر والتقدير لعباراتك الجميلة

جزاك الله خيرا

[أبو ليمونه]

اخي / شوقي ربيع

 

عمل جباااار وهو ما كنت ابحث عنه.

 

اشكرك جزيل الشكر على الملف وجعل ماقمت به في ميزان حسناتك ورزقك من خير الدنيا والاخرة

 

لو استطيع تحديد اجابتين كموضوع محلول لحددت اجابتك اخي شوقي ربيع واجابت اخي ضاحي الغريب

 

اخوك 

ابوليمونه

تم تعديل ديسمبر 9, 2013 بواسطه أبو ليمونه

[شوقي ربيع]

الاخ ابو ليمونة

دعائك الجميل وحده  يكفيني

ولك مني حين يسمح لي وقتي ان أطور الكود لكي  ينسق الخط و يطبع ورقة الورد مباشرتا من ملف الاكسل

[ضاحي الغريب]

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

أخي الحبيب // شوقي ربيع ............ ربيع المنتدي

عملك جميل جدا وومميزا كبقية اعمالك

افكارك جميلة ورائعة 

ودائما بنتعلم منها ونقتبس منها الكثير والكثير

بارك الله فيك وجزاك خيرا

اخي الفاضل // ابو ليمونة

بارك الله فيك علي كلماتك ودعائك الطيب

وجزاك خيرا

أختي الفاضلة الأستاذة // ام عبدالله

بارك الله فيك علي كلماتك ودعائك الطيب

وجعل جميع اعمالك في ميزان حسناتك 

تقبلوا تحياتي جمعيا

تم تعديل ديسمبر 9, 2013 بواسطه ضاحي الغريب