امثلة عن كيفية استخدام أدوات الفورم- ضاحي الغريب (( متجدد ان شاء الله))

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

جربت الخطولت ولم تنجح

 

ملاحظة عندي أفيس 2003

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

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

[ريان أحمد]

شكرا لك وأتمنى إيجاد الحل

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

 

 

 

 

 

 

 

 

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

 

تم بحمد الله وتوفيقه الانتهاء من شرح خصائص عناصر التحكم المختلفة

و في المشاركة رقم 204 علي الرابط التالي

http://www.officena.net/ib/index.php?showtopic=47476&page=11

 

تم التنويه علي ان يكون الشرح العملي علي مثال تم طرحه في موضوع

((سند صرف مع بيان الدفعات ))

علي الرابط التالي

http://www.officena.net/ib/index.php?showtopic=49296

 

 

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

لسهولة المتابعة وان يكون هناك وقت للتطبيق كالتالي

 

 

 

 

واليوم ان شاء سوف نبدأ بالجزء الأول

 

كما تعرفنا في الدروس السابقة علي اضافة عناصر التحكم وخصائص تلك الخصائص 

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

 

 

ونقوم بضبط خصائص الفورم والعناصر كما يلي

ولاضافة صورة الشعار وضبط خواصها كالتالي

 

الصورة المستخدمة

 

وذلك موضحا بالمرفقات - الفورم رقم (1)

تعرفنا الان علي اضافة أدوات التحكم التالية

 

 

 UserForm and the controls Label, Frame and Image

واعدادت الـ Caption لبيانات الشركة

 

الان سوف نتعرف علي كيفية اضافة الـ Capation عن طريق كود VBA

 

 

 

وموضحا بالمرفقات فورم (2)

 

Officana.rar

[طلعت محمد حسن]

بسم الله ماشاء الله موضوع اكثر من رائع جعله الله فى ميزان حسناتكم 

 

وزادكم الله من علمه 

اخي العزيز ارجوا ان يكون التفقيط بالدينار وخانات الكسر تكون ثلاثة خانات (بالفلس) ولك كل الاحترام والتقدير

[eletrawy]

خيرك كفى و وفى

بصراحة تسلم ايدك ياباشا

جعل ربى ذلك فى ميزان حسناتك

وادخلك الجنة من اوسع ابوابها

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

 

خيرك كفى و وفى

بصراحة تسلم ايدك ياباشا

جعل ربى ذلك فى ميزان حسناتك

وادخلك الجنة من اوسع ابوابها

 

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

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

تقبل الله منا زومنكم صالح الاعمال

كل عام وانتم بخير

تقبل تحياتي

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

 

 

خيرك كفى و وفى

بصراحة تسلم ايدك ياباشا

جعل ربى ذلك فى ميزان حسناتك

وادخلك الجنة من اوسع ابوابها

 

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

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

تقبل الله منا ومنكم صالح الاعمال

كل عام وانتم بخير

تقبل تحياتي

 

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

 

بسم الله ماشاء الله موضوع اكثر من رائع جعله الله فى ميزان حسناتكم 

 

وزادكم الله من علمه 

اخي العزيز ارجوا ان يكون التفقيط بالدينار وخانات الكسر تكون ثلاثة خانات (بالفلس) ولك كل الاحترام والتقدير

 

اخي لم افهم طلبك انه تفقيط برجاء التوضيح

[حمادة عمر]

والله اخي الحبيب / ضاحي ... ابوعمرو

اولا كل عام وانت بخير والاسرة والجميع بصحة وسلام

 

ثانيا : تجعل الجميع  زوار و اعضاء واعضاء مميزن وخبراء معتمدين وادارة

يتابعون موضوعك الراائع الجميل ... لجمالك انت وجمال خلقك

وحسن شرحك وتوصيلك للمعلومة

وبالفعل موضوع جميل مفيد للجميع وسيكون مرجعا للفورم بعد ذلك

ولا ابالغ في ان اقول علي مستوي الوطن العربي كله

 

==============================

وتجعلنا نغار منك علي هذا الموضوع .... هههههههه

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

================================

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

واعانك الله علي اكماله علي اكمل وجه

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

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

 

تم تعديل أكتوبر 18, 2013 بواسطه حمادة عمر

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

 

والله اخي الحبيب / ضاحي ... ابوعمرو

اولا كل عام وانت بخير والاسرة والجميع بصحة وسلام

 

ثانيا : تجعل الجميع  زوار و اعضاء واعضاء مميزن وخبراء معتمدين وادارة

يتابعون موضوعك الراائع الجميل ... لجمالك انت وجمال خلقك

وحسن شرحك وتوصيلك للمعلومة

وبالفعل موضوع جميل مفيد للجميع وسيكون مرجعا للفورم بعد ذلك

ولا ابالغ في ان اقول علي مستوي الوطن العربي كله

 

==============================

وتجعلنا نغار منك علي هذا الموضوع .... هههههههه

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

================================

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

واعانك الله علي اكماله علي اكمل وجه

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

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

 

أخي الحبيب // حمادة عمر أبو سما العسل

والله لا اجد كلمات اصيغها لتكوين جملة أوفي فيها كلماتك الطيبة الكريمة

التي اعتبرها وسام شرف 

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

علي دعمكـ المتواصل لنا ومشاركتكـ الطيبة والكريمة ومتابعتكـ للموضوع

وعلي دعائكـ الطيب بطيب خلقكـ واصلكـ

وادعوا الله ان اكون عند حسن ظنكم في

وان يكون العمل فيه الفائدة لو بالقليل في موضوع الفورم وأدواته وخصائصه

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

وكل عام وانتم بخير والاسرة الكريمة بخير وصحة وعافية 

وندعوا الله ان يعود تلك الايام علي وطننا العربي والاسلامي

وعلي مصر واهلها وشعبها بالامن والامان والاستقرار

تقبل تحياتي واحترامي وتقديري

 

[خالد القدس]

السلام عليكم

 

كل عام والجميع بألف خير وصحة وعافية 

 

استاذي الفاضل ضاحى  ابداع يفوق الوصف 

 

وحقا فاجأت الجميع بهذا النفس الطويل والشرح الجميل 

 

نرفع اليك مئات القبعات اجلالا واحتراما والى المولى عز  وجل مئات الدعوات بأن يجزل لك الثواب والحسنات

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

السلام عليكم

 

كل عام والجميع بألف خير وصحة وعافية 

 

استاذي الفاضل ضاحى  ابداع يفوق الوصف 

 

وحقا فاجأت الجميع بهذا النفس الطويل والشرح الجميل 

 

نرفع اليك مئات القبعات اجلالا واحتراما والى المولى عز  وجل مئات الدعوات بأن يجزل لك الثواب والحسنات

اخي الحبيب الخلوق استاذنا // خالد القدس

اولا كل عام وانتم بخير وجميع اهلنا بالسودان الشقيق بخير ويمن وبركات 

بارك الله فيك وجزاك خيرا علي كلماتك الطيبة ودعائك الكريم

تقبل الله منا ومنكم صالح الاعمال

تقبل تحياتي واحترامي لكم 

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

معا من جديد ان شاء الله لتكملة الدرس العملي في الفورم المتقدم

 

وفي هذا التدريب سوف نقوم بشرح الجزء من فورم سند الصرف كما تم التوضيح سابقا

 

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

1- خصائص الأطار Frame  وما يحتويه من ادوات اخري  والتحكم في ظهوره واخفائه عند توفر شرط معين

واستخدام الخاصية Visible في حالتيها (True/False) .

2-اضافة الـ CheckBox مع شروط معينة 

3- اضافة التكسات والليبل الي الفورم والتفقيط التلقائي للمبلغ

4- اضافة كود لمسح الادوات الموجودة بالفورم

5- اضافة كود لعمل التسلسل التلقائي

6- كود ادخال البيانات لورقة العمل

7- كود اغلاق الفورم .

 

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

 

 

سوف نقوم باضافة بعض ادوات الفورم للفورم في المثال السابق كالتالي

 

 

نقوم بضبط خصائص الفريم الذي يحتوي بيانات الشيك (رقم الشيك - اسم البنك - التاريخ ) وشرط ظهوره مع السداد بشيك واخفاءه اذا كان السداد نقدا كالتالي

 

 

الان نأتي لضبط التكست بوكس المبلغ في حدث كليك

ليقوم بتفقيط المبلغ بمجرد ادخاله

اولا: نقوم بفتح موديل جديد ونفوم بلصق الكود المستخدم في التفقيط التالي

Function NoToTxt(TheNo As Double, MyCur As String, MySubCur As String) As String
Dim MyArry1(0 To 9) As String
Dim MyArry2(0 To 9) As String
Dim MyArry3(0 To 9) As String
Dim Myno As String
Dim GetNo As String
Dim RdNo As String
Dim My100 As String
Dim My10 As String
Dim My1 As String
Dim My11 As String
Dim My12 As String
Dim GetTxt As String
Dim Mybillion As String
Dim MyMillion As String
Dim MyThou As String
Dim MyHun As String
Dim MyFraction As String
Dim MyAnd As String
Dim i As Integer
Dim ReMark As String


If TheNo > 999999999999.99 Then Exit Function

If TheNo < 0 Then
TheNo = TheNo * -1
ReMark = "íÊÈÞì áßã "
Else
ReMark = "ÝÞØ "
End If

If TheNo = 0 Then
NoToTxt = "ÕÝÑ"
Exit Function
End If

MyAnd = " æ"
MyArry1(0) = ""
MyArry1(1) = "ãÇÆÉ"
MyArry1(2) = "ãÇÆÊÇä"
MyArry1(3) = "ËáÇËãÇÆÉ"
MyArry1(4) = "ÃÑÈÚãÇÆÉ"
MyArry1(5) = "ÎãÓãÇÆÉ"
MyArry1(6) = "ÓÊãÇÆÉ"
MyArry1(7) = "ÓÈÚãÇÆÉ"
MyArry1(8) = "ËãÇäãÇÆÉ"
MyArry1(9) = "ÊÓÚãÇÆÉ"

MyArry2(0) = ""
MyArry2(1) = " ÚÔÑ"
MyArry2(2) = "ÚÔÑæä"
MyArry2(3) = "臂辊"
MyArry2(4) = "ÃÑÈÚæä"
MyArry2(5) = "ÎãÓæä"
MyArry2(6) = "ÓÊæä"
MyArry2(7) = "ÓÈÚæä"
MyArry2(8) = "ËãÇäæä"
MyArry2(9) = "ÊÓÚæä"

MyArry3(0) = ""
MyArry3(1) = "æÇÍÏ"
MyArry3(2) = "ÇËäÇä"
MyArry3(3) = "ËáÇËÉ"
MyArry3(4) = "ÃÑÈÚÉ"
MyArry3(5) = "ÎãÓÉ"
MyArry3(6) = "ÓÊÉ"
MyArry3(7) = "ÓÈÚÉ"
MyArry3(8) = "ËãÇäíÉ"
MyArry3(9) = "ÊÓÚÉ"
'======================

GetNo = Format(TheNo, "000000000000.00")

i = 0
Do While i < 15

If i < 12 Then
Myno = Mid$(GetNo, i + 1, 3)
Else
Myno = "0" + Mid$(GetNo, i + 2, 2)
End If

If (Mid$(Myno, 1, 3)) > 0 Then

RdNo = Mid$(Myno, 1, 1)
My100 = MyArry1(RdNo)
RdNo = Mid$(Myno, 3, 1)
My1 = MyArry3(RdNo)
RdNo = Mid$(Myno, 2, 1)
My10 = MyArry2(RdNo)

If Mid$(Myno, 2, 2) = 11 Then My11 = "ÅÍÏì ÚÔÑ"
If Mid$(Myno, 2, 2) = 12 Then My12 = "ÅËäì ÚÔÑ"
If Mid$(Myno, 2, 2) = 10 Then My10 = "ÚÔÑÉ"

If ((Mid$(Myno, 1, 1)) > 0) And ((Mid$(Myno, 2, 2)) > 0) Then My100 = My100 + MyAnd
If ((Mid$(Myno, 3, 1)) > 0) And ((Mid$(Myno, 2, 1)) > 1) Then My1 = My1 + MyAnd

GetTxt = My100 + My1 + My10

If ((Mid$(Myno, 3, 1)) = 1) And ((Mid$(Myno, 2, 1)) = 1) Then
GetTxt = My100 + My11
If ((Mid$(Myno, 1, 1)) = 0) Then GetTxt = My11
End If

If ((Mid$(Myno, 3, 1)) = 2) And ((Mid$(Myno, 2, 1)) = 1) Then
GetTxt = My100 + My12
If ((Mid$(Myno, 1, 1)) = 0) Then GetTxt = My12
End If

If (i = 0) And (GetTxt <> "") Then
If ((Mid$(Myno, 1, 3)) > 10) Then
Mybillion = GetTxt + " ãáíÇÑ"
Else
Mybillion = GetTxt + " ãáíÇÑÇÊ"
If ((Mid$(Myno, 1, 3)) = 2) Then Mybillion = " ãáíÇÑ"
If ((Mid$(Myno, 1, 3)) = 2) Then Mybillion = " ãáíÇÑÇä"
End If
End If

If (i = 3) And (GetTxt <> "") Then

If ((Mid$(Myno, 1, 3)) > 10) Then
MyMillion = GetTxt + " ãáíæä"
Else
MyMillion = GetTxt + " ãáÇííä"
If ((Mid$(Myno, 1, 3)) = 1) Then MyMillion = " ãáíæä"
If ((Mid$(Myno, 1, 3)) = 2) Then MyMillion = " ãáíæäÇä"
End If
End If

If (i = 6) And (GetTxt <> "") Then
If ((Mid$(Myno, 1, 3)) > 10) Then
MyThou = GetTxt + " ÃáÝ"
Else
MyThou = GetTxt + " ÂáÇÝ"
If ((Mid$(Myno, 3, 1)) = 1) Then MyThou = " ÃáÝ"
If ((Mid$(Myno, 3, 1)) = 2) Then MyThou = " ÃáÝÇä"
End If
End If

If (i = 9) And (GetTxt <> "") Then MyHun = GetTxt
If (i = 12) And (GetTxt <> "") Then MyFraction = GetTxt
End If

i = i + 3
Loop

If (Mybillion <> "") Then
If (MyMillion <> "") Or (MyThou <> "") Or (MyHun <> "") Then Mybillion = Mybillion + MyAnd
End If

If (MyMillion <> "") Then
If (MyThou <> "") Or (MyHun <> "") Then MyMillion = MyMillion + MyAnd
End If

If (MyThou <> "") Then
If (MyHun <> "") Then MyThou = MyThou + MyAnd
End If

If MyFraction <> "" Then
If (Mybillion <> "") Or (MyMillion <> "") Or (MyThou <> "") Or (MyHun <> "") Then
NoToTxt = ReMark + Mybillion + MyMillion + MyThou + MyHun + " " + MyCur + MyAnd + MyFraction + " " + MySubCur + " " + "áÇ ÛíÑ"
Else
NoToTxt = ReMark + MyFraction + " " + MySubCur + " " + "áÇ ÛíÑ"
End If
Else
NoToTxt = ReMark + Mybillion + MyMillion + MyThou + MyHun + " " + MyCur + " " + "áÇ ÛíÑ"
End If

End Function

ثانيا اضافة الكود التالي في حدث تكست بوكس المبلغ

 

بعدما ما أنتهينا من اعداد ادوات الفورم

سوف نقوم باضافة زر امر لادخال البيانات - لمسح الفورم - لاغلاق الفورم

 

 

 

 

كود مسح الفورم وكود السيريال التلقائي كالتالي

 

كود ادخال البيانات لصفحة العمل كالتالي

 

وفي حدث انطلاق الفورم استخدمنا الكود التالي لاستدعاء كود التسلسل التلقائي وادراج تاريخ اليوم

 

 

بالمرفقات المثال التطبيقي مع الشرح

 

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

والي لقاء في الدرس القادم ان شاء الله في شرح كود البحث والتعديل والحذف والتعرف علي خواص تغير الاسماء والوظائف عن طريق الكود لادوات الفورم

 

 

 

Officana 02.rar

[طلعت محمد حسن]

اللة يعطيك حتى يرضيك على هذا العمل الطيب

استاذ ضاحي سؤالي هو هل بالامكان ان تكون الخانات الكسرية للمبلغ ثلاثة خانات بمعنى (1200.350) الف ومائتان دينار و 350 فلس 

ولك كل الشكر والاحترام

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

اللة يعطيك حتى يرضيك على هذا العمل الطيب

استاذ ضاحي سؤالي هو هل بالامكان ان تكون الخانات الكسرية للمبلغ ثلاثة خانات بمعنى (1200.350) الف ومائتان دينار و 350 فلس 

ولك كل الشكر والاحترام

اخي الكريم // طلعت

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

بالنسبة لسؤلك يمكنك التحكم في عرض الرقم من عرض ثلاثة ارقام او اكثر او عرض فاصل الالاف 

كما يلي:-

 

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

اخواني الاعزاء ......................
هذه اولي المحاولات لشروحات الفيديو

 و ان شاء الله تكون مقبولة في شرح الدرس الثاني فيديو

اترككم مع المحاولة وسماع سورة الكهف بصوت الشيخ أدريس أبكر

تقبل الله منا ومنكم صالح الأعمال

 

 

 

http://www.youtube.com/watch?feature=player_detailpage&v=G1ksyt-MhDY
 

http://www.youtube.com/watch?feature=player_detailpage&v=G1ksyt-MhDY

[طلعت محمد حسن]

 

اللة يعطيك حتى يرضيك على هذا العمل الطيب

استاذ ضاحي سؤالي هو هل بالامكان ان تكون الخانات الكسرية للمبلغ ثلاثة خانات بمعنى (1200.350) الف ومائتان دينار و 350 فلس 

ولك كل الشكر والاحترام

اخي الكريم // طلعت

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

بالنسبة لسؤلك يمكنك التحكم في عرض الرقم من عرض ثلاثة ارقام او اكثر او عرض فاصل الالاف 

كما يلي:-

 

 

استاذ ضاحي سؤالي عن قراءة الرقم بالتفقيط بمعنى ان يقرأ الكسر بثلاث خانات بدل خانتان اي الف ومائتان دينار وثلاثمائة وخمسون فلس لا غير

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

أخي الكريم // طلعت

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

في موضوع "دالة ( تفقيط ) تحويل الرقم الى نص بالعربي - طول الرقم غير محدود "

لاستاذنا ومعلمنا // عبدالله باقشير (بارك الله فيه وجزاه خيرا ) عما يقدمه لنا دائما من روائع الاكسيل

علي الرابط التالي

http://www.officena.net/ib/index.php?showtopic=39447&hl=%D8%AA%D9%81%D9%82%D9%8A%D8%B7

 

تم ادراج مثال بالمرفقات لتفقيط كسر العملة ثلاثة ارقام بعد العلامة

 

الكود المستخدم مع الشرح

 

 

ان شاء الله يكون هذا ما تقصد وان كان هناك اي تعديلات او استفسارات لا تتردد في سردها

تقبل تحياتي

 

التفقيط.rar

[طلعت محمد حسن]

أخي الكريم // طلعت

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

في موضوع "دالة ( تفقيط ) تحويل الرقم الى نص بالعربي - طول الرقم غير محدود "

لاستاذنا ومعلمنا // عبدالله باقشير (بارك الله فيه وجزاه خيرا ) عما يقدمه لنا دائما من روائع الاكسيل

علي الرابط التالي

http://www.officena.net/ib/index.php?showtopic=39447&hl=%D8%AA%D9%81%D9%82%D9%8A%D8%B7

 

تم ادراج مثال بالمرفقات لتفقيط كسر العملة ثلاثة ارقام بعد العلامة

 

الكود المستخدم مع الشرح

 

 

ان شاء الله يكون هذا ما تقصد وان كان هناك اي تعديلات او استفسارات لا تتردد في سردها

تقبل تحياتي

هذا هو المطلوب استاذي العزيز ضاحي بأنتظار تكملة الموضوع اقبل تحياتي وتقديري لك

[MSG]

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

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

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

بارك الله فيك

[maz527]

لكم جزيل الشكر على هذا العرض الرائع

وأنا من عشاق الاكسيل وخصوصا 2003

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

[حمادة عمر]

[طلعت محمد حسن]

 

 

 

 

أخي الكريم // طلعت

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

في موضوع "دالة ( تفقيط ) تحويل الرقم الى نص بالعربي - طول الرقم غير محدود "

لاستاذنا ومعلمنا // عبدالله باقشير (بارك الله فيه وجزاه خيرا ) عما يقدمه لنا دائما من روائع الاكسيل

علي الرابط التالي

http://www.officena.net/ib/index.php?showtopic=39447&hl=%D8%AA%D9%81%D9%82%D9%8A%D8%B7

 

تم ادراج مثال بالمرفقات لتفقيط كسر العملة ثلاثة ارقام بعد العلامة

 

الكود المستخدم مع الشرح

 

 

ان شاء الله يكون هذا ما تقصد وان كان هناك اي تعديلات او استفسارات لا تتردد في سردها

تقبل تحياتي

هذا هو المطلوب استاذي العزيز ضاحي بأنتظار تكملة الموضوع اقبل تحياتي وتقديري لك

 

استاذ ضاحي الفترة بين كل دروس ودرس اخر طويلة جدا لا ادري ما هو السبب