موضوع خاص بالردود والاستفسارات واسئله اختبارات على شروحات الفورم (سلسلة علمنى كيف اصطاد )

[الصـقر]

استاذى الحبيب / ابويوسف و الاخ الحبيب ياسر العربى وكل الاخوة فى المنتدى كل عام وانتم بخير دائما سباقين بالخير

يا عم ياسر انت عقبت على رقم 1 طيب و رقم 2 و 3 لأ ليه ؟؟؟؟ منتظر رقم 2 ضرورى متهربش 

[محمد حسن المحمد]

السلام عليكم إخوتي الكرام

أخي الصقر إن سنحت لي الفرصة سأقوم بإنشاء ملف فورم مع الخاصية وذذذذذذذذذذ with أنت بتأمر ونحن بنفذ...تكرم عينك على شرط الوقت ..

لأنني بصراحة الشغل لفوق راسي

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

[الصـقر]

اعانك الله يا ابويوسف وسدد خطاك

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

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

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

تقبل منى وافر الاحترام والتقدير يا بن الشام البار

 

[محمد حسن المحمد]

اعانك الله يا ابويوسف وسدد خطاك

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

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

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

تقبل منى وافر الاحترام والتقدير يا بن الشام البار

 

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

أذكّركم بحديث الرسول صلى الله عليه وسلم: " ما أكرم شاب شيخاً لسنّه إلا قيَّض الله له من يكرمه عند سنّه" وأنا بنظري لست شيخاً طاعنا في السن ولكنني مقبل عليها كما تقبل الماء في المنحدر الصعب...

تقبلوا محبتي وتحياتي....أبنائي الأعزاء...والسلام عليكم

[ياسر العربى]

Private Sub UserForm_Initialize()
TextBox2.Enabled = False
'دي بالوز
With ComboBox1
.RowSource = "d2: e12"
.ColumnHeads = True
.BoundColumn = "2"
.ListRows = "4"
.ListStyle = fmListStyleOption
.ColumnWidths = "150 pt;90 pt"
.ListWidth = "260 pt"
.Style = fmStyleDropDownList
End With

'دي بالبط
'ComboBox1.RowSource = "d2: e12"
'ComboBox1.ColumnHeads = True
'ComboBox1.BoundColumn = "2"
'ComboBox1.ListRows = "4"
'ComboBox1.ListStyle = fmListStyleOption
'ComboBox1.ColumnWidths = "150 pt;90 pt"
'ComboBox1.ListWidth = "260 pt"
'ComboBox1.Style = fmStyleDropDownList

End Sub

 

[الصـقر]

برافووووووووووو انت النهارده خليت اليوم يوم الظغططته وز وبط  مش ناقص غير الحمام والدنيا تولع 

جزاكم الله خيرا وزادكم من فضله وعلمه

تقبل تحياتى

مجرد ملحوظه صغيره انت بقيت محترف ( او كنت محترف  )

ComboBox1.BoundColumn = "2"
ComboBox1.ListRows = "4"

ممكن يكونو بدون "" زى كدا

ComboBox1.BoundColumn = 2
ComboBox1.ListRows = 4

تقبل تحياتى

تم تعديل أكتوبر 14, 2015 بواسطه الصـقر

[ياسر العربى]

شكرا حبيبي الغالي 

اللهم وفقنا واياكم وجميع المسلمين 

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

انا بدأت الموضوع دا في 2005

وكنت ممتاز في المجال دا وعملت برامج كتيررررررررر

بس تقدر تقول عدم الممارسة مع الوقتا وقع مني حاجات كتيررررر  والمسئوليات شغل وبيت واسرة وعيال ربنا يعنيا جميعا 

 

دي احد برامجي قديما في 2006

[الصـقر]

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

[ياسر العربى]

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

لو السورس كود دا من 2006 فا صعب الاقيه بس ميمنعشي ان اعمل غيره 

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

هو من المفترض اني اعمل اصدارات جديدة بس والله غصب عني ياريت الاقي وقت انا بحب الموضوع دا بس الظروف 

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

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

[الصـقر]

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

ورقة الاختبار

 

هل من مشمر ؟ فين بتوع التحدى ؟

[ياسر العربى]

استني لما افتح البرشام 

بقي حد ياجماعه يبص علي المراقبين 

عاوزين نعدي علي خير  مش كل شوية نبلط في الخط

اناعاوز اعدي من الدور الاول علي  خير

ياريت من المصححين لو الاجابة صح يحط درجة 

كويسة المهم اني جاوبت متبقوش وحشين كدا

تم تعديل أكتوبر 19, 2015 بواسطه ياسر العربى

[ياسر العربى]

  الورقة اهي قبل ما المراقب ياخدها 

اللي عاوز يغش يغش

 

aseel.rar

ياريت الكل يشارك من مبتدئ لمحترف

الفكرة 

 للمبتدئ انه يتعلم والمتوسط انه يأكد المعلومة والمحترف انه يراجع كل اللي عرفه وحصله مش عيب للمحترف انه يحط مثال هنا علي الاقل نعرف نمسك غلطة عليه 

انا عن نفسي بتعلم 

[الصـقر]

اخى الحبيب ياسر

بجد روعه روعه روعه 

اسال الله تعالى ان يزيدك من فضله وعلمه ويديم عليك نعمة الصحه والعافيه

مجرد ملحوظه صغير ليه الكمبوبوكس رقم 2 بيعرض عمود 1 فقط انا عايزه عمودين يالا شغل مخك واعرف هتعدل ايه بالظبط على فكره التعديل بسيط جدا جدا مجرد تغير رقم 

تقبل تحياتى 

[ياسر العربى]

معلش حبيبي كنت بغش بسرعه واتلغبط

تفضل

=OFFSET(sheet1!$D$2;0;0;COUNTA(sheet1!$D$2:$D$10000);2)

 

aseel.rar

[الصـقر]

يا كبير الكبير كبير من يومه هى دى الناس الحلوه ولا بلاش

يبدو ان الناس مش فارق معها موضوع شروحات الفورم ده

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

علشان كدا بشكركم من كل قلبى 

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

 

[ياسر العربى]

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

 

[إبراهيم ابوليله]

يا كبير الكبير كبير من يومه هى دى الناس الحلوه ولا بلاش

يبدو ان الناس مش فارق معها موضوع شروحات الفورم ده

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

علشان كدا بشكركم من كل قلبى 

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

 

اخى الصقر

بالفعل هناك تقصير كبير منا

فى اعطاء الموضوع حقه الذى يستحقه

ولكن

هذا بسبب المشاغل ليس الا

لكن ثق تماما

باننا متابعون

ومشتاقون الى مزيد من الدروس

تقبل تحياتى

 

[أسامة البراوى]

السلام عليكم

الاخ العزيز .. الصقر

اثناء تصفحى لشروحاتك الجميلة فى هذا الموضوع وشرحك للمربع  النصى استوقفنى الجملة التالية:

*** الاختيار رقم 3 وهو عمل ScrollBars للـ TextBox1   بشكل رأسى واخر افقى بصراحه حاولت استخدمه لكن لم يظهر معى بشكل افقى وراسى وتفسير ذالك هى الخاصيه  Multiline   لانها تحمل خيارين اما الادخال يكون على سطر واحد وبالتالى فان الاسكرول بار الرأسى لا يوجد له فائده  وأما الادخال على عدة اسطر متتاليه وبالتالى ان الاسكرول بار الافقى لي له فائده هذا والله اعلم ( مش عايز افتى فى شئ لا اعلمه واترك الامر للخبراء )

 السكرول الأفقى له فائدة فى الأسطر المتعددة .. MultiLine  ولكن لا تظهر هذة الفائدة الا إذا كانت الخاصية الأخيرة من خصائص صندوق النص وهى WordWarp غير مفعلة False فى الحالة دى لو انت كاتب سطر اطول من عرض المربع النصى مش ها يظهر باقى السطر ولا حتى السكرول الافقى .. ولكن عند الضغط داخل النص للتحرير يظهر السكرول الافقى الذى يمكنك من مشاهدة باقى السطر

 

انما لو كانت True فإن السطر الطويل بيكمل فى اللى بعده وفى الحالة دى لن يظهر السكرول الافقى لعدم الحاجة اليه

 

تم تعديل أكتوبر 19, 2015 بواسطه أسامة البراوى

[أسامة البراوى]

السلام عليكم

أخى العزيز الصقر ..

بالنسبة لطرق ملء الكمبوبوكس عن طريق المصفوفات ، انت كنت كتبت الكود ده

Private Sub UserForm_Initialize()
Dim a As Variant
a = Array("سند قبض", "سند صرف")
        For i = LBound(a) To UBound(a)
        ComboBox1.AddItem a(i)
        Next
End Sub

 

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

 

Private Sub UserForm_Initialize()
Dim a As Variant
a = Array("سند قبض", "سند صرف")
       
        ComboBox1.List = a
        
End Sub

[الصـقر]

استاذى الحبيب / اسامه البراوى

شاكر جدا اهتمامك بالموضوع واضافاتك الرائعه

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

تقبل تحياتى

 

[المارد العراقي]

السلام عليكم
أستاذ
عندي 3  (textbox)   الاول يحتوي على تاريخ اليوم والثاني يحتوي تاريخ الشهر والثالث تاريخ السنه بالميلادي
و عندي تكست رابع اريد ان اجعل التاريخ في التكست الرابع يمثل  تاريخ  التكست الثلاثه السابقه ولكن بالهجري بأستخدام اليوزر فورم  دون الرجوع او استخدام الخلايا في الاكسل 

على سبيل المثال التكست الاول يساوي 22 الي هو اليوم  ولثاني يساوي 2 الي هو الشهر والثالث يساوي 2000  

كيف اجعل التكست الرابع يساوي ( 18 / 11 /1420) الي هوه التاريخ الهجري لتلك السنه   بواسطة vba  فقط دون استخدام خلايا الاكسل ؟؟

[ياسر خليل أبو البراء]

أخي الكريم المارد

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

أرجو ألا يكون كلامي مصدر إزعاج لك .. الأمر ما هو إلا تنظيم فقط

تقبل تحياتي

[الصـقر]

الاخ مارد راجع الرابط التالى تم تفيذ طلبك

http://www.officena.net/ib/topic/64350-تحويل-التاريخ-من-ميلادى-الى-هجرى-على-الفورم/#comment-418586

تقبل تحياتى

[المارد العراقي]

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

[محمد حسن المحمد]

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

أخي وحبيبي في الله وأستاذي بحق الصقر حسام 

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

اللهم بارك لنا بعمرنا وأوقاتنا واختم لنا بما تحب وترضى ...فنحن ضعاف أمام سهام القدر ...

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

اللهم نسألك العفو والعافية والمعافاة في الدنيا والآخرة ..والسلام عليكم ورحمة الله وبركاته.