اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

أخي علي

تم الاطلاع علي المرفق الاخير بالمشاركة رقم 275 

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

هل تود اضافة زر للفورم معاينة ثم طباعة

تقبل تحياتي

تم تعديل بواسطه ضاحي الغريب
رابط هذا التعليق
شارك

الاستاذ ضاحى بارك الله فيك وجزاك خيرا 

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

تقبل تحياتي

رابط هذا التعليق
شارك

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

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

أخي الحبيب // طلعت

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

نفس الموضوع قام بالرد اخي الحبيب ابو حنين

نرجوا التوضيح ماذا تريد بالضبط هلي تريد ترحيل البيانات وحفظها ثم طباعتها

او معياينة البيانات ثم طبعها

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

تقبل تحياتي

رابط هذا التعليق
شارك

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

تقبل تحياتي

تم تعديل بواسطه ضاحي الغريب
رابط هذا التعليق
شارك

الاستاذ ضاحى بارك الله فيك وجزاك خيرا 

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

تقبل تحياتي

بارك الله فيك اخي // احمد 

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

تقبل تحياتي

تم تعديل بواسطه ضاحي الغريب
رابط هذا التعليق
شارك

استاذ ضاحي بارك اللة فيك

المطلوب استاذ ضاحي معاينة بيانات الفورم وان تظهر البيانات بالمعاينة نفس ترتيب الفورم

رابط هذا التعليق
شارك

استاذ ضاحى

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

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

رابط هذا التعليق
شارك

اخى فى الله أ/ ضاحى الغريب

تحيه طيبه وبعد

اشكركم شكرا كثيرا على تواصلكم معى وجعله اله فى ميزان حسناتك يوم الحشر الاعظم

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

ولكن لى استفسار صغير

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

ارجو ان يكون صدركم واسعا لتلميذ غبى

واشكر سيادتكم على تواصلكم معى

اخيك فى الله على الحديوى

نموذج فاتورة بالفورم.zip

رابط هذا التعليق
شارك

استاذ ضاحى

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

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

اخي الحبيب // انسان

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

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

تقبل تحياتي

  • Like 1
رابط هذا التعليق
شارك

بارك الله فيكم جميعا ... بالفعل عمل ومجهود رائع

اخي الكريم // سمير

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

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

تقبل تحياتي

رابط هذا التعليق
شارك

عندي لما اجي اضيف ادوات جديدة مبتشتغلش عندي

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

تقبل تحياتي

رابط هذا التعليق
شارك

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

اخي الكريم // ياسر جمعة

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

تقبل تحياتي

رابط هذا التعليق
شارك

 

موضوع مميز جدا

 

اسأل الله ان يثيبك بما تحبه وترضاه

 

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

 

اخي الكريم  احمد النجار

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

تقبل تحياتي

رابط هذا التعليق
شارك

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

الاخ الكريم // عصام عادل

يمكن للكمبوبوكس عرض الاسماء بدون تكرار 

لاحظ المثال التالي

 

jdh2.png

الكود المستخدم كما يلي

Sub Ser_Name()
Set SH = Sheet1
Me.CmbSearch.Clear
With SH
.Activate
LsRow = .Cells(Rows.Count, "A").End(xlUp).Row
On Error Resume Next
    Dim MyValue As Collection, Cl As Range
        Set MyValue = New Collection
            For Each Cl In .Range("a2:a" & LsRow)
                MyValue.Add Cl.Value, Cl.Text
            Next Cl
        For i = 1 To MyValue.Count
    CmbSearch.AddItem MyValue(i)
  Next i
End With
End Sub

التطبيق بالمرفقات

عصام عادل.rar

رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
×
×
  • اضف...

Important Information