أ / محمد صالح

عليكم السلام ورحمة الله وبركاته يمكنك تجربة هذا الكود Sub MoveDataWithoutDeletingRows() Dim ws As Worksheet Dim lastRow As Long Dim i As Long, startRow As Long Set ws = ThisWorkbook.Sheets("Sheet1") ' قم بتغيير اسم الورقة حسب الحاجة lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row startRow = 1 ' يمكنك تغيير قيمة startRow حسب الحاجة For i = startRow To lastRow If Application.WorksheetFunction.CountA(ws.Range("A" & i & ":E" & i)) > 0 Then If i <> startRow Then ws.Range("A" & i & ":E" & i).Copy Destination:=ws.Range("A" & startRow & ":E" & startRow) End If startRow = startRow + 1 End If Next i ' مسح البيانات من الصفوف الأصلية دون حذف الصفوف ws.Range("A" & startRow & ":E" & lastRow).ClearContents End Sub بالتوفيق

عليكم السلام ورحمة الله وبركاته يمكنك وضع اسماء الفصول في الصف 11 ووضع هذه المعادلة في الخلية D12 =IFERROR(COUNTIF(OFFSET(أساسية!$A$1,MATCH($C12,أساسية!$B$1:$B$100,0)-1,0,1,50),D$11),"") ويمكنك سحبها يسارا لتجلب أعداد باقيد الفصول وسحبها لأسفل لباقي المعلمين بالتوفيق

هذا التصميم للقوائم معتمد على اختيار واحد في N3 وما على يسارها في الصف الثالث ويصعب جدا تكرار كل هذه القوائم المساعدة لكل صف لذلك تحتاج إلى تغيير طريقة العمل إذا كنت بحاجة إلى نسخ الخلايا التي بها القوائم لأسفل أقترح عمل الآتي: وضع جميع عناصر القائمة في الصفوف التي أسفلها وتسمية هذا النطاق باسم رأس القائمة (طبعا اسم النطاق لا يوجد به مسافات لذلك يجب استبدال المسافات ب _ ) وإذا كان عنصر من هذه العناصر يندرج تحته عناصر أخرى يجب وضعه في عمود جديد وتسمية عناصره باسمه وهكذا وللحصول على القائمة الخاصة بالخلية A2 مثلا نضع في الخلية B3 قائمة التحقق ونضع مصدرها المعادلة التالية =INDIRECT(SUBSTITUTE(A3, " ", "_")) وهكذا مع باقي الأعمدة ويمكنك الرجوع لهذه الروابط بالتوفيق

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

اخي الكريم صاحب الاستفسار انا ما شفت الملف لأني على الموبايل لذلك قمت بترجمة ما قلته حضرتك الي معادلة هذه الجملة تعني انك تريد تاريخ قبل G2 بمدة من شهر الي 60 شهر سابق وهذا ما تقوم به المعادلة أما حكاية تغيير قيمة الخلية لأنها تنشئ رقما عشوائيا وإذا أردت تثبيت المدة مثلا تاريخ سابق ل G2 بعشرين شهر أو 30 شهر يمكنك تغيير الجزء الخاص ب RANDBETWEEN الي هذا الرقم الثابت انا دائما اعطي فكرة الحل وليس الحل امتثالا للحكمة القائلة لا تعطني سمكة ولكن علمني كيف اصطاد فكرتي هي استخدام EDATE يمكنك توظيفها كما تشاء بالتوفيق

يمكنك تجربة هذه المعادلة =IF(G2="", "", EDATE(G2, -RANDBETWEEN(1, 60))) بالتوفيق

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

ما شاء الله أول مشاركة وتسأل عن هذا الشيء الرائع بداية موفقة بإذن الله أن ينضم للمنتدى صاحب فكر جديد ومتطور أنا شخصيا عرضتها على الإدارة التعليمية قبل أكثر من عشر سنوات (بعد ثورة يناير 2011) وكانت أسبابي أن بعض الفصول تضم جميع المتفوقين وبعضها يضم المتأخرين دراسيا وترتيبنا للفصول بهذه الطريقة يجعل قدرا من التساوي بين جميع الفصول في المستوى مما يزيد المنافسة ولكن لللأسف اصطدمت بالروتين وتبرير الرفض باسباب واهية مثل: لخبطة العاملين في الكنترول في الرصد وإخراج النتائج؛ لأن الكنترول يعمل على الترتيب الابجدي وترتيب السري. ولذلك تركت الفكرة وربما حذفت الملف. وأدعو الله أن يوفقك في هذا العمل وأن يفتح لك عقول المسئولين لديكم

هناك العديد من البدائل لموقع MIT App Inventor التي يمكنك استخدامها لإنشاء تطبيقات الأندرويد بسهولة. إليك بعض الخيارات: Thunkable: منصة قوية تعتمد على السحب والإفلات لإنشاء التطبيقات. تم تطويرها بواسطة مهندسين من MIT App Inventor1. AppyBuilder: منصة أخرى تعتمد على السحب والإفلات، مشابهة لـ App Inventor وتوفر ميزات إضافية. Bubble: أداة لإنشاء تطبيقات الويب بدون برمجة، يمكن استخدامها لإنشاء تطبيقات متقدمة بواجهة مستخدم مخصصة. بالتوفيق

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

يمكنك استخدام كود VBA في Excel لتحقيق ذلك. إليك مثال على كود يمكنك تعديله حسب الحاجة: Sub CopyColumns() Dim sourceSheet As Worksheet Dim targetSheet As Worksheet Dim sourceRange As Range Dim targetRange As Range ' تحديد الورقة المصدر والورقة الهدف Set sourceSheet = ThisWorkbook.Sheets("SourceSheetName") Set targetSheet = ThisWorkbook.Sheets("TargetSheetName") ' نسخ العمود B Set sourceRange = sourceSheet.Range("B5:B200") Set targetRange = targetSheet.Range("B5") sourceRange.Copy Destination:=targetRange ' نسخ العمود C Set sourceRange = sourceSheet.Range("C5:C200") Set targetRange = targetSheet.Range("C5") sourceRange.Copy Destination:=targetRange ' نسخ العمود D Set sourceRange = sourceSheet.Range("D5:D200") Set targetRange = targetSheet.Range("D5") sourceRange.Copy Destination:=targetRange End Sub يمكنك تعديل أسماء الأوراق والنطاقات حسب الحاجة. إذا كنت ترغب في تغيير الأعمدة المرحل إليها، يمكنك تعديل القيم في `targetRange`. بالتوفيق

سهلة بإذن الله حدد العمود المراد تبويب “البيانات” (Data). اختر “إزالة التكرارات” (Remove Duplicates). بالتوفيق

بارك الله لكم جميعا وجعلكم ممن يتحرون الحلال من الحرام إنشاء كود كهذا سهل جدا ويمكن اختصاره عن هذا ولكن لأن فكرة الكود تخالف كل ما عرفناه من قيم بعد عرض الكود الجديد أسجل اختلافي مع صاحب فكرة الكود بهذا الكود نجعل المعلم غير ملتزم بما هو مكلف به من متابعة مستوى الطلاب وعمل اختبارات أسبوعية وشهرية ورصد ما حصل عليه الطالب فعلا في سجل الدرجات ورصد غياب وسلوك الطالب على أرض الواقع في السجلات وليس عشوائيا. تخيل أن ابنك واحد من الذين رصدت لهم درجات بهذه الطريقة العشوائية!!!! مرة اخرى رزقنا الله تحري الحلال

فعلا لم أنتبه لعناوين الأعمدة فهي AmX & Amy وما بعدها لذلك يجب الانتقال لأول الشيت بالضغط على CTRL+home مع ضبط الزووم على 100% كما قال أخي الفاضل حسونة لكن ردي السابق على اختفاء بيانات الخلايا في النطاق المستعمل فعلا يرجع بعضها للاسباب السابقة بالتوفيق

تمت معالجة هذا الأمر كثيرا قبل ذلك ربما تفيدك هذه الروابط Showing results for 'طباعة الكل pdf' in content posted in منتدى الاكسيل Excel . - أوفيسنا (officena.net) بالتوفيق