استفسار لقاعدة بيانات

[وليد المصرى 1]

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

عندى شيت قاعدة بيانات ( A) وشيت اخر عبارة عن استمارة (B) بمله الاستمارة عن طريق المعادلات ولكن شيت القاعدة وصل قرب نهايتة

هل يوجد حل ان اكمل البيانات فى شيت اخر ولنفترض ©

يعنى اريد قاعدة بيانات تكون شيت a وشيت c

[وليد المصرى 1]

رجاء

منتظر الخبراء

[أحمد الصواف]

أرفق ملف

[أبو ردينة]

فكرة إنشاء قاعدة بيانات بالأكسيل تشابه في طريقة حفظها للبيانات قواعد البيانات في البرامج الأخرى هي من الأفكار التي يعمل عليها كثيرون بحثا او تطويرا

لذا إن تفضلت أخي الكريم بإرفاق ملف ربما تساهم في إفادة غيرك وأيضا يفيدك الغير بحل و جواب لسؤالك

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

[وليد المصرى 1]

اشكركم جميعا اخواتى ولكن انا اقصد بعد انتهاء الشيت كله من ادخال بيانات حتى اصل الى نهايته ( نهاية الشيت ) يعنى يكون الشيت خلص اريد شيت اخر لتكمله البيانات فيه هل يوجد حل

اتمنى ان تكون فكرتى وصلت اليكم

لو فى حل او فكرة اخره ياريت حد يقولى

اشكركم

تم تعديل ديسمبر 24, 2012 بواسطه goodlife

[وليد المصرى 1]

هل يوجد حل اخوانى

[وليد المصرى 1]

لعل هذا المرفق يوضح المطلوب

Book1.rar

[وليد المصرى 1]

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

[klma7lwa]

اخى الكريم

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

انا اللى فهمته من كلامك ان الشيت قد امتلاء وتريد الكتابة فى شيت اخر

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

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

[احمد عبد الناصر]

السلام عليكم

goodlife

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

و لكن عامتا هذه امثلة بسيطة لعلها تفيد

=SUM(Sheet2!A:A)+SUM(Sheet3!A:A) في حالة جمع عادي من شيتان

=IFERROR(VLOOKUP(A1,Sheet2!A:B,2,FALSE),VLOOKUP(A1,Sheet3!A:B,2,FALSE)) وهذه في حالة استخدم معادلة بحث

و هكذا سوف تضطر الي تكرار كا معدلاتك

تحياتي

[وليد المصرى 1]

السلام عليكم

الملف المرفق به المعادلات التى اريدها اخى

اتمنى مشاركة باقى الاخوة الاعضاء معى

اشكركم

Book1.rar

[وليد المصرى 1]

للرفع

[وليد المصرى 1]

هل من مجيب

[احمد عبد الناصر]

جرب المرفق

تحياتي

Book1+++.rar

[وليد المصرى 1]

اشكرك اخى احمد جزاك الله خير ولكن اذا تكرار الرقم بمعنى رقم 10 و 11 اذا تكرار بماذا ؟؟؟

لو شيت 1 فية رقم 10 وشيت 2 فيه رقم 10

[وليد المصرى 1]

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

[الشهابي]

أخي العزيز / goodlife

هذا حل بالمعادلات بمساعدة الدالتين (CONCATENATE ) و ( INDIRECT )

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

إن شاء الله يكون هو مطلوبك

تقبل تحياتي

Book1 (19).rar

[وليد المصرى 1]

اشكرك اخى الشهابى جزاك الله خير يا اخى

[وليد المصرى 1]

ولكن اخى لا يوجد كود يقوم بهذة المهمة لان المعادلات هتأخد وقت فى تغيرها

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

اشكرك

[الـعيدروس]

شاهدت المرفق يوجد ملف فقط

ارجو ارفاق الملفات التي تريد جلب القيم منها ومن اي مدى

كي تتضح الصورة

فهم السؤال نصف الاجابه

[وليد المصرى 1]

اشكرك اخى عباد على ردك الكريم

انا لا اريد البحث فى ملفات ولكن فى شيتات اريد البحث فى نفس ملف الاكسيل

اشكرك اخى

[الـعيدروس]

السلام عليكم

فرضا خلية البحث هيا " A1 " في ورقة1

في المدى من " A:Z "

Option Explicit

Public Sub Ali_Serch_Sh()

Dim Mat_A

Dim Ws As Worksheet

Dim R As Range

Dim Msg_A As String, Fir_A As String

    Mat_A = Sheets("ورقة1").Range("A1").Value

    Msg_A = Mat_A & "    وجدت القيمة :" & Chr(10) & " =========================== " & Chr(10)

    For Each Ws In Worksheets

	    With Ws

	    If .Name = ActiveSheet.Name Then GoTo 1

		    Set R = .Columns("A:Z").Find(What:=Mat_A, LookIn:=xlValues, LookAt:=xlPart)

		    If Not R Is Nothing Then

			    Fir_A = R.Address

			    Do

				    Msg_A = Msg_A & "- في ورقة " & Ws.Name & ", في الخلية " & R.Address & Chr(10) & Chr(10)

				    Set R = .Columns("A:Z").FindNext(R)

			    Loop While Not R Is Nothing And R.Address <> Fir_A

		    End If

	    End With

1    Next Ws

    MsgBox Msg_A

End Sub

جرب الكود وبلغنى بالنتائج

[وليد المصرى 1]

صباح الخير استاذ عباد اشكرك لتعبك جزاك الله خير

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

بمعنى ان الكود دة يلم شيت 1 و2 وما يقرر الاسم ويعطينى النتائج صحيحية

انا اسف ان مش عارف اوصلك الفكرة انا بس مش خبير فى الاكسيل

اشكرك مره تانية لتعبك

[وليد المصرى 1]

اذا امكن الحل من فضلكم

[الـعيدروس]

السلام عليكم

هل تريد تنفيذ الكود مجرد التغير في قيمة خلية " B4 "

وهل المعادلات التي تريدها أكواد هي التي في الخلايا " B13 , B14 , K14 , D16 , D17 , D18 "

اذا هذا ماتريده ارفق الملف وبه بيانات في ورقة " 1 " و ورقة " 2 "

للتأكد من نتائج الكود

وإن شاء الله خير