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

يوزر فورم للبحث بمعيارين


swordsmanxxx

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

أرجو المساعدة في شيء بسيط.

أريد يوزر فورم للبحث عن معيارين (الاسم أو الكود) مع إمكانية أن تظهر صورة تكون مسجلة فى فولدر منفصل بنفس اسم الصنف بمجرد ظهور اسم الصنف.

لكن يكون الفورم فقط للبحث وليس للتعديل أو الحذف . فقط البحث .

بحث.rar

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

ارجو المساعده .

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

ليقوم بالبحث عن طريق الكود او أسم الصنف 

واسف جدا جدا لو سببت اى إزعاج 

بحث.rar

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

13 hours ago, زوهير said:

السلام عليك

اليك هدا الحل لعله المطلوب

بحث.rar

اولا اريد ان اشكرك على إبداء الاهتمام بالموضوع ولك جزيل الشكر فى ذلك .

ثانيا : عند البحث عن طريق الصنف لا يظهر كود الصنف فى اليست بوكس ولا ادرى السبب .

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

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

5 hours ago, swordsmanxxx said:

اولا اريد ان اشكرك على إبداء الاهتمام بالموضوع ولك جزيل الشكر فى ذلك .

ثانيا : عند البحث عن طريق الصنف لا يظهر كود الصنف فى اليست بوكس ولا ادرى السبب .

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

وهل من الممكن اضافه خاصيه اضافه صورة واظهاراها ؟

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

On 2/16/2018 at 4:41 PM, زوهير said:

السلام عليك ------ اليك هذا الحل بعد التعديل ربما يفي بالغرض

عذرا على التاخر كنت مشغول قليلا

بحث.rar

استاذى الحبيب .

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

ولكن هناك 3 امور اود من حضرتك المساعده بهم .

اولا : عند البحث عن طريق الكود يأتى الترتيب من اليسار الى اليمين ارجو من حضرتك تعديله ليكون من اليمين الى اليسار 

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

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

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

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

بحث.rar

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

17 hours ago, شوقي ربيع said:

السلام عليكم

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

تحياتي للجميع

بحث.rar

استاذى الفاضل شوقى ربيع .

عاجز عن شكر حضرتك .

لك كل الاحترام والتقدير .

جعله الله فى ميزان حسناتك وفى تقدم دائما .

واشكرك كل الشكر على مجهودك وتعبك معى 

هناك فقط امر واحد او مشكله صغيره .

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

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

وانا اريد ان افتحها من الواجهة الرئيسيه مباشرة .

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

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

في 18/02/2018 at 10:41, swordsmanxxx said:

استاذى الفاضل شوقى ربيع .

عاجز عن شكر حضرتك .

لك كل الاحترام والتقدير .

جعله الله فى ميزان حسناتك وفى تقدم دائما .

واشكرك كل الشكر على مجهودك وتعبك معى 

هناك فقط امر واحد او مشكله صغيره .

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

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

وانا اريد ان افتحها من الواجهة الرئيسيه مباشرة .

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

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

Private Sub UserForm_Initialize()
    Me.RightToLeft = True
    VarTab() = ThisWorkbook.Sheets("اسم الورقة التي بها جدول البيانات").Range("a2:d10").Value
Dim i As Byte: For i = 1 To 4
               Me.Controls("Label" & i).Caption = Cells(1, i).Text
               Next
End Sub

 

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

الان, swordsmanxxx said:

اشكرك جزيل الشكر . 

واخر شئ كله تمام ما عدا رأس القائمه ( Lable) لم تتغير بنفس المعطيات بقيت فراغ

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

Private Sub UserForm_Initialize()
    Me.RightToLeft = True
    VarTab() = ThisWorkbook.Sheets("اسم الورقة التي بها جدول البيانات").Range("a2:d10").Value
Dim i As Byte: For i = 1 To 4
               Me.Controls("Label" & i).Caption = ThisWorkbook.Sheets("اسم الورقة التي بها جدول البيانات").Cells(1, i).Text
               Next
End Sub

او لغاء الكود من اساسه و تكتبهم على اليبل يدويا

 

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

تمام 

المشكله هذه ظهرت فى حال قمت بمسح الموجود فى textbox

المخصص للبحث 

اى عندما اقوم بمسح الذى قمت بالبحث عنه وتركتها فرغ تاتى هذه الرساله

xxx.jpg

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information