وليد المصرى 1 قام بنشر ديسمبر 24, 2012 قام بنشر ديسمبر 24, 2012 السلام عليكم ورحمة الله وبركاتة عندى شيت قاعدة بيانات ( A) وشيت اخر عبارة عن استمارة (B) بمله الاستمارة عن طريق المعادلات ولكن شيت القاعدة وصل قرب نهايتة هل يوجد حل ان اكمل البيانات فى شيت اخر ولنفترض © يعنى اريد قاعدة بيانات تكون شيت a وشيت c
أبو ردينة قام بنشر ديسمبر 24, 2012 قام بنشر ديسمبر 24, 2012 فكرة إنشاء قاعدة بيانات بالأكسيل تشابه في طريقة حفظها للبيانات قواعد البيانات في البرامج الأخرى هي من الأفكار التي يعمل عليها كثيرون بحثا او تطويرا لذا إن تفضلت أخي الكريم بإرفاق ملف ربما تساهم في إفادة غيرك وأيضا يفيدك الغير بحل و جواب لسؤالك جزاك الله خيرا
وليد المصرى 1 قام بنشر ديسمبر 24, 2012 الكاتب قام بنشر ديسمبر 24, 2012 (معدل) اشكركم جميعا اخواتى ولكن انا اقصد بعد انتهاء الشيت كله من ادخال بيانات حتى اصل الى نهايته ( نهاية الشيت ) يعنى يكون الشيت خلص اريد شيت اخر لتكمله البيانات فيه هل يوجد حل اتمنى ان تكون فكرتى وصلت اليكم لو فى حل او فكرة اخره ياريت حد يقولى اشكركم تم تعديل ديسمبر 24, 2012 بواسطه goodlife
وليد المصرى 1 قام بنشر ديسمبر 25, 2012 الكاتب قام بنشر ديسمبر 25, 2012 لعل هذا المرفق يوضح المطلوب Book1.rar
وليد المصرى 1 قام بنشر ديسمبر 25, 2012 الكاتب قام بنشر ديسمبر 25, 2012 اخواني واخواتي المشرفين والاعضاء تحيه طيبة اقدر انشغالكم وعدم توفر الوقت للرد عليا لاكن ارجو لمن يسمح له الوقت بالرد وافادتي جزاكم الله كل خير ,,,
klma7lwa قام بنشر ديسمبر 25, 2012 قام بنشر ديسمبر 25, 2012 اخى الكريم رجاء توضيح سؤالك بصورة افضل لكى يتمكن الاعضاء من تحديد المشكلة وحلها على النحو الصحيح انا اللى فهمته من كلامك ان الشيت قد امتلاء وتريد الكتابة فى شيت اخر الحل بسيط قم باضافة شيت اخر "" وانا اعلم جيدا انك لا تقصد هذا "" فلذلك يجب التوضيح بصورة افضل او ارفاق الملف المطلوب التعديل عليه
احمد عبد الناصر قام بنشر ديسمبر 25, 2012 قام بنشر ديسمبر 25, 2012 السلام عليكم 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 قام بنشر ديسمبر 26, 2012 الكاتب قام بنشر ديسمبر 26, 2012 السلام عليكم الملف المرفق به المعادلات التى اريدها اخى اتمنى مشاركة باقى الاخوة الاعضاء معى اشكركم Book1.rar
وليد المصرى 1 قام بنشر ديسمبر 27, 2012 الكاتب قام بنشر ديسمبر 27, 2012 اشكرك اخى احمد جزاك الله خير ولكن اذا تكرار الرقم بمعنى رقم 10 و 11 اذا تكرار بماذا ؟؟؟ لو شيت 1 فية رقم 10 وشيت 2 فيه رقم 10
وليد المصرى 1 قام بنشر ديسمبر 27, 2012 الكاتب قام بنشر ديسمبر 27, 2012 هل يوجد كود وليست معادلات جزاك الله خير
الشهابي قام بنشر ديسمبر 27, 2012 قام بنشر ديسمبر 27, 2012 أخي العزيز / goodlife هذا حل بالمعادلات بمساعدة الدالتين (CONCATENATE ) و ( INDIRECT ) ما عليك إلا اختيار اسم الورقة ورقم الشخص المراد جلب بياناته إن شاء الله يكون هو مطلوبك تقبل تحياتي Book1 (19).rar
وليد المصرى 1 قام بنشر ديسمبر 30, 2012 الكاتب قام بنشر ديسمبر 30, 2012 اشكرك اخى الشهابى جزاك الله خير يا اخى
وليد المصرى 1 قام بنشر ديسمبر 30, 2012 الكاتب قام بنشر ديسمبر 30, 2012 ولكن اخى لا يوجد كود يقوم بهذة المهمة لان المعادلات هتأخد وقت فى تغيرها فى طلب اخير هل يوجد كود يقوم بالبحث فى اكثر من شيت بدل ما اكتب اسم الشيت فى الخانة اشكرك
الـعيدروس قام بنشر ديسمبر 30, 2012 قام بنشر ديسمبر 30, 2012 شاهدت المرفق يوجد ملف فقط ارجو ارفاق الملفات التي تريد جلب القيم منها ومن اي مدى كي تتضح الصورة فهم السؤال نصف الاجابه
وليد المصرى 1 قام بنشر ديسمبر 30, 2012 الكاتب قام بنشر ديسمبر 30, 2012 اشكرك اخى عباد على ردك الكريم انا لا اريد البحث فى ملفات ولكن فى شيتات اريد البحث فى نفس ملف الاكسيل اشكرك اخى
الـعيدروس قام بنشر ديسمبر 30, 2012 قام بنشر ديسمبر 30, 2012 السلام عليكم فرضا خلية البحث هيا " 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 قام بنشر ديسمبر 31, 2012 الكاتب قام بنشر ديسمبر 31, 2012 صباح الخير استاذ عباد اشكرك لتعبك جزاك الله خير اخى انا سؤالى لما يخلص الشيت كله عايز ادخل باقى البيانات فى شيت تانى ولما اضع الرقم الوظيفى فى شيت الاستمارة يعطينى النتائج و ما يتقرر البيانات و جزاهم الله خير الاخوة هنا اعطونى حل ولكن انا بسأل ممكن يكون الحل دة بالكود بمعنى ان الكود دة يلم شيت 1 و2 وما يقرر الاسم ويعطينى النتائج صحيحية انا اسف ان مش عارف اوصلك الفكرة انا بس مش خبير فى الاكسيل اشكرك مره تانية لتعبك
الـعيدروس قام بنشر يناير 1, 2013 قام بنشر يناير 1, 2013 السلام عليكم هل تريد تنفيذ الكود مجرد التغير في قيمة خلية " B4 " وهل المعادلات التي تريدها أكواد هي التي في الخلايا " B13 , B14 , K14 , D16 , D17 , D18 " اذا هذا ماتريده ارفق الملف وبه بيانات في ورقة " 1 " و ورقة " 2 " للتأكد من نتائج الكود وإن شاء الله خير
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.