أحمد حجاج قام بنشر أكتوبر 11, 2020 مشاركة قام بنشر أكتوبر 11, 2020 السلام عليكم في هذا الملف ثلاثة أوراق الاولى لكتابة بيانات الطلاب والثانية لعمل بحث اجتماعي عن الطلاب استنادا لبعض البيانات الموجودة بالورقة الأولى والثالثة هي ورقة تحتاج إلى ترحيل مجموعة بيانات من خلايا غير متجاورة المطلوب :- عمل معادلة لإدراج بيانات الطالب المطلوبة في ورقة ( ترحيل ) بمجرد كتابة رقم القيد شكرا لكم قاعدة بيانات.xlsx رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أكتوبر 12, 2020 مشاركة قام بنشر أكتوبر 12, 2020 جرب هذا الملف Haggag.xlsx 1 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أكتوبر 12, 2020 مشاركة قام بنشر أكتوبر 12, 2020 يمكنك استعمال هذا الماكرو لنقل الأسماء الى الجداول المحصصة لكل طالب لان عملية نسخ الجدول ولضقه اكثر من مرة ليست بالأمر السهل خاصة اذا كان عدد الطلاب كبير (50 أو اكثر) فقط اضغط على الزر Give Data في الشيت Repport و ترى كل شيء امامك الجداول والاسماء فيها (بدون معادلات) عندها تملأ الداتا الحاصة لكل تلميذ و بدورها تنتقل الى الشيت ترحيل الماكرو Option Explicit Sub copy_Range() Dim S As Worksheet Dim R As Worksheet Dim i%, k%, x Dim Rg_To_Copy Application.ScreenUpdating = False Set S = Sheets("ST_names") Set R = Sheets("Repport") Set Rg_To_Copy = R.Range("A1:D13") i = 2: k = 16 R.Range("A16").Resize(1000, 4).Clear Do Until S.Range("A" & i).Offset(1) = vbNullString Rg_To_Copy.Copy R.Range("A" & k).PasteSpecial (xlAll) R.Range("B" & k + 1).Resize(10).ClearContents R.Range("D" & k + 1).Resize(10).ClearContents With R.Range("A" & k) .Offset(1, 1) = x + 2 .Offset(2, 1) = S.Range("D" & i + 1) .Offset(1, 3) = S.Range("F" & i + 1) End With k = k + 15: x = x + 1: i = i + 1 Loop Application.CutCopyMode = False Application.ScreenUpdating = True R.Cells(2, 1).Select End Sub الملف مرفق للاطلاع وإبداء الرأي Haggag_1.xlsm 2 رابط هذا التعليق شارك More sharing options...
أحمد حجاج قام بنشر أكتوبر 12, 2020 الكاتب مشاركة قام بنشر أكتوبر 12, 2020 جزاكم الله خيرا يا محترم ، الحقيقة أنا مبتدئ جدا في الإكسيل ولا أفهم جزء كبير من الكود المكتوب ، لكن الملف الذي طرحته أفادني كثيراً ، جزاكم الله خيراً بقي لي سؤال واحد واعذرني لجهلي الورقة ( repport ) تأخذ جزء من البيانات من ورقة ( ST_names ) ، بالتالي سأقوم بكتابة باقي البيانات يدوياً . ماذا أفعل إذا أردت إدراج أعمدة أخرى ( حالة القيد ) مثلا ، في ورقة ( ST_names ) وبعد الضغط على give data في الورقة ( repport ) تدرج البيانات تلقائيا في خلية ( حالة القيد ) كما هو الحال بالنسبة للأعمدة الأخرى ، سألتك لأتعلم ، إن استطعت اكتبلي الخطوات أو دلّني علي شرح استعين به . الملف المرفق لتوضيح الطلب . جزاكم الله خيراً . Haggag_1 (3).xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر أكتوبر 13, 2020 أفضل إجابة مشاركة قام بنشر أكتوبر 13, 2020 تم معالجة الأمر كما تريد 1- تدرج كل الأسماء (بدون صقوف فارغة) مع البيانات التابعة لها في الشيتت ALL_Names ( ليس من الضروري كل البيانات) 2 -في الشيت Card تضغط على الزر Get The Cards 3- في الشيت Single_Match العامود (A) تختار اي رقم (أو عدة أرقام) ثم تضغط على الزر Find For_Me وذلك للجصول على بيانات منفردة عن تلميذ واحد أو اكثر اذا كان الرقم التي اخترته غير موجود في الشيت ALL_Names يبقي الصف فارغاً Haggag_New.xlsm 1 رابط هذا التعليق شارك More sharing options...
أحمد حجاج قام بنشر أكتوبر 13, 2020 الكاتب مشاركة قام بنشر أكتوبر 13, 2020 شكرا جزيلاً يا عبقري ، لك خالص الشكر لكن إن كانت الورقة Single_Match تأخذ بياناتها من الورقة ALL_Names فما فائدة الورقة Card ؟؟؟ فالمشكلة أصلا من البداية تتعلق بانتقاء مجموعة بيانات من الجدول المرسوم في الورقة Card وليس من الورقة ALL_Names ونقلها للورقة Single_Match ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ الملف رااااائع لكن ارجو إن أردت أن تتكرم بالتعديل عليه لتكون البيانات الموجودة بالورقة Single_Match مأخوذة من الجدول بالورقة Card . جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أكتوبر 13, 2020 مشاركة قام بنشر أكتوبر 13, 2020 الورقة Card انت اردتها وانا أعرف انه لا فائدة منها الا اذا اردت ان تطبع بطاقات للتلامذة (وهذا ما كنت افكر به) لذلك تركتها البيانات في ALL_Names هي نفسها في Card (مختلفة بالشكل فقط) فما الفرق من اين تأخذ الورقة Single_Match معلوماتها رابط هذا التعليق شارك More sharing options...
أحمد حجاج قام بنشر أكتوبر 13, 2020 الكاتب مشاركة قام بنشر أكتوبر 13, 2020 اشكرك يا محترم ، جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان