اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

كيفية استدعاء البيانات من اكثر من شيت


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

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

طريقة كتابة كود استدعاء البيانات من اكثر منsheet او من اكثر من workbooks

فمثلا عندي شيت مبيعات الحاسب الالي في عام 2012 واخر في عام 2011 واخر في عام 2010 وهكذا... وعندي شيت اسمه احصائية مبيعات الحاسب الالي وعملت فيه ايقونة اختار منها العام و الشهر اريد استدعي مبيعات الحاسب الالي من كل الشيتات لذلك الشهر

ولو كان بدل الشيتات workbooks لكل سنة workbooks واردت استدعاء البيانات في workbooks اسمة احصائية مبيعات الحاسب الالي وعملت فيه ايقونة اختار منها العام و الشهر اريد استدعي مبيعات الحاسب الالي من كل workbooks لذلك الشهر

pc sales.rar

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

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

أستاذي وسيدي الفاضل رجب جاويش حفظك الله وعافاك

اللهم أعزه في الدنيا وأرفع درجاته في الجنة حتى يرضى.

أبو أنس

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

السلام عليكم

بارك الله بيك اخي رجب وزادك علما وفهما

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

من خلال مجرد اختيار من القائمة المنسدلة

بمعنى عند اختيار السنة وعند اختيار الشهر من القائمة المنسدلة

تظهر النتائج من دون الضغط على زر امر

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

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

أخى / ابو سلام

بعد التحية

تفضل ما تريد


Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("d3:e3")) Is Nothing Then

	Dim cl As Range

	Dim ws As Worksheet

	Application.ScreenUpdating = False

	On Error Resume Next

	y = ActiveWorkbook.Name

	x = ActiveWorkbook.Path & "\" & Cells(3, 4).Value & ".xls"

	Workbooks.Open Filename:=x

	For Each ws In ActiveWorkbook.Worksheets

		For Each cl In ws.Range("A2:L2")

			If ws.Name = Workbooks(y).Sheets("احصائية").Range("D3") And cl = Workbooks(y).Sheets("احصائية").Range("E3") Then

			Workbooks(y).Sheets("احصائية").Range("D6") = cl

			Workbooks(y).Sheets("احصائية").Range("E6") = cl.Offset(1)

			End If

		Next

	Next

	Workbooks(x).Activate

	ActiveWindow.Close

	Application.ScreenUpdating = True

End If

End Sub

pc sales.rar

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

السلام عليكم

جزاك الله خير اخي رجب وفي ميزان حسناتك ان شاء الله

هل بالامكان عمل استدعاء البيانات من عدة شيتات

عن طريق دوال الاكسل وليس بالكود

وربطها ايضا بالقائمتين المنسدلتين

وانا اطلب منك لاجل التعلم

انا اعرف اني اثقلت عليك بس ما لنا الا الخيرين امثالك

وبارك الله بيك

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

أخى الفاضل / ابو سلام

أعتقد أن ذلك ممكن بالمعالات

ولكن لم أجربة من قبل

ولكن ممكن تجربته والمحاولة فيه ثم الرد عليك

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

الأخ الفاضل / ابو سلام

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

وهو تثبيت السنة أما الشهر فيتم اختيارة من القائمة المنسدلة

pc sales.rar

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

بجد انا كل ما افتح المنتدى اتعلم كتير جدا من الاساتذه العباقرة امثالك أستاذ رجب

بجد اشكرك جزيلا

لانى استفدت من الملفات المرفقة

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

وهل يمكن شرح دالتين math & index وكيفية الاستفادة منهما

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

أخى الفاضل / ابو سلام

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

أخى الفاضل / gfranses

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

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

بالنسبة للطلب الثانى الخاص بشرح الدالتين math & index

هذا الرابط يحتوى على شرح الدالة index

http://www.officena....showtopic=37497

وفى هذا الرابط سوف تجد كتاب رائع لشرح جميع دوال الاكسل

http://www.officena....ds&showfile=133

من اعداد الرائعين

الاستاذ / محمد يحياوى

والاستاذ / عيد مصطفى

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

أخى الفاضل/ office 2003

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

أخى الفاضل/ مهند 2002

مرحبا بك أخا كريما فى هذا المنتدى الرائع بين أحبابك

وجزاك الله كل خير على كلماتك الرقيقة

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

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

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

Important Information