مطلوب تعديل على ملف اكسيل

[أبو يوسف 3]

السلام عليكم

الاخوة الافاضل

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

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

ارجوكم الافادة والشرح في الملف

شكرا لاهتمامكم

test-1.rar

[أبو يوسف 3]

لا اله الا الله

[احمدزمان]

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

اخي ابو يوسف

تعتمد الفكرة على عمل نموذج للإضافة ونموذج للسحب

من خلال هذين النموذجين تتم اضافة البيانات الى الورقتين IN و OUT وبدون اي دوال قيم ثابته فاقطة

في المرفق

ادخل البيانات في الجدول ثم اضغط اضافة البيانات

test-1.rar

[أبو يوسف 3]

استاذنا أحمد زمان

جزاك الله خير الجزاك لمجرد الاستجابة

ولكن حقيقة

انت اعتقدت المشكلة في عملية ادخال الاصناف وعملت نموذج ادخال

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

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

واعتقد ان تبسيط الملف شوية شوية ( اقصد المطلوب يعني ) هيبقى احسن

يعني اهم حاجة حاليا

في شيت الوارد مثلا او الصادر المفترض بكتب رقم الصنف وباقي حقول الصف بتكتمل تلقائيا بالمعادلات ( اسم الصنف والشركة وهكذا )

هل هناك طريقة بمجرد ان اقف على خلية رقم الصنف يطلع قائمة منسدلة واكتب اي جزي من الصنف يعمل تصفية على الاصناف في شيت items

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

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

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

[عبدالله المجرب]

اخي احمد زمان بارك الله فيك ولا حرمنا الله هذه الجهود المميزة

اخي ابو يوسف

هل يوجد لديك رابط البرنامج الذي اشرت اليه

[أبو يوسف 3]

اشكرك اخي عبد الله

واعتقد هذا هو الموضوع

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

هو برنامج دليل هاتفي للعلامة الاستاذ خبور

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

شكرا لسعة صدركم

[أبو يوسف 3]

لا حول ولا قوة الا بالله

[عبدالله المجرب]

اخي الفاضل

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

[أبو يوسف 3]

الاخ عبد الله شكرا على التوضيح

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

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

بمجرد ما بتكتب جزء من الصنف اي جز بيتم على طول فلترة مرجع القائمة المنسدلة

[عبدالله باقشير]

السلام عليكم

دبل شيك على العمود رقم الصنف

يظهر فورم يبحث باسم الصنف

وبعد اختيار اي صنف

زر الاضافة يقوم باضافة الرقم والاسم

على الصف النشط

يمكنك الانتقال الى خلية اخرى في عمود رقم الصنف

لوضع صنف اخر والفورم مفتوح

شاهد المرفق 2007

test-2.rar

[أبو يوسف 3]

السلام عليكم

الاستاذ خبور

جزاك الله خيرا سلمت يداك

والله الحل روعة فعلا للغاية

لكن هو بس حاجة كمان تبقى كملت ان شاء الله

هو في فورم البحث اختيار واحد وهو البحث بالاسم

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

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

[عبدالله باقشير]

السلام عليكم

الاستاذ خبور

جزاك الله خيرا سلمت يداك

والله الحل روعة فعلا للغاية

لكن هو بس حاجة كمان تبقى كملت ان شاء الله

هو في فورم البحث اختيار واحد وهو البحث بالاسم

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

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

تم تغيير كود البحث في الفورم الي يحمل نفس الاسم بالتالي:

Private Sub CM_TextFind_Change()

Dim R As Integer, T As Integer

CM_ListFind.Clear

With Range(CStr(Me.Tag))

	For R = 1 To .Rows.Count

	If Len(Trim(.Cells(R, 1))) + Len(Trim(.Cells(R, 2))) = 0 Then GoTo 1

		If .Cells(R, 1) Like "*" & CM_TextFind.Text & "*" Or _

		.Cells(R, 2) Like "*" & CM_TextFind.Text & "*" Then

			CM_ListFind.AddItem

			CM_ListFind.List(T, 0) = .Cells(R, 1)

			CM_ListFind.List(T, 1) = .Cells(R, 2)

			T = T + 1

		End If

1	Next

End With

End Sub

المرفق2007

test-3.rar

[أبو يوسف 3]

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

ماشاء الله عليك مبدع

الله يحفظك يا رب

ذلك تماما ماكنت اسعى اليه بالتحديد