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

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

قام بنشر

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

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

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

بحث.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

 

قام بنشر

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

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

قام بنشر
الان, 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