r3dx

هل تتوقعون الاقي حل للرفع

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

Private Sub CommandButton3_Click() ' تعيين قيمة TextBox148 إلى الخلية bj8 في Sheet2 Sheet2.Range("bj8").Value = Me.TextBox148.Text ' تعيين متغير sahb بقيمة الخلية bk8 في Sheet2 Dim sahb As Integer sahb = Sheet2.Range("bk8").Value ' عرض رسالة تأكيد للمستخدم Dim answer As VbMsgBoxResult answer = MsgBox("هل تريد سحب الطلب بالفعل؟", vbYesNo + vbCritical) If answer = vbYes Then ' استدعاء دالة listsource (تأكد من وجود هذه الدالة في الكود) listsource ' الحصول على آخر صف مستخدم في العمود A في Sheet6 Dim last5 As Integer last5 = Sheet6.Range("a10000").End(xlUp).Row ' نسخ النطاق من A8 إلى BD(sahb) في Sheet2 إلى A8 إلى BD(last5) في Sheet6 Sheet2.Range("a8:bd" & sahb).Copy Sheet6.Range("a8:bd" & last5 + 1) ' مسح النطاق المنسوخ من A8 إلى BD(sahb) في Sheet2 Sheet2.Range("a8:bd" & sahb).Clear End If End Sub

إذا كنت تفضل تشغيل ملف MP3 مباشرة داخل Excel دون فتح مشغل خارجي، يمكنك استخدام عنصر تحكم Windows Media Player. إظهار علامة تبويب المطور (Developer): إذا لم تكن علامة تبويب المطور (Developer) ظاهرة في الشريط، انتقل إلى "File" (ملف) > "Options" (خيارات) > "Customize Ribbon" (تخصيص الشريط). تأكد من تفعيل "Developer" (المطور) في القائمة اليمنى. إدراج عنصر تحكم Windows Media Player: انتقل إلى علامة تبويب "Developer" (المطور). اضغط على "Insert" (إدراج) في مجموعة "Controls" (التحكمات). اختر "More Controls" (تحكمات إضافية) من القائمة المنسدلة. في نافذة "More Controls" (تحكمات إضافية)، ابحث عن "Windows Media Player" وحدده، ثم اضغط على "OK" (موافق). ارسم عنصر التحكم على الورقة حيث تريد أن يكون مشغل الوسائط. تكوين عنصر التحكم: اضغط بزر الفأرة الأيمن على عنصر التحكم واختر "Properties" (خصائص). في نافذة الخصائص، ابحث عن خاصية "URL" وأدخل مسار ملف MP3. بعد تكوين عنصر التحكم، يمكنك تشغيل ملف MP3 مباشرة داخل Excel باستخدام مشغل الوسائط المدمج. ملاحظة تأكد من أن ملف MP3 في مكان ثابت حتى لا يتغير المسار، وإذا كنت تشارك ملف Excel، فتأكد من تضمين ملف MP3 في نفس المجلد أو تعديل المسار بما يتناسب مع مكان الملف على جهاز الشخص الآخر

حل منقول يمكنك تحقيق هذا الهدف باستخدام دالة VLOOKUP في Excel. سأرشدك خلال الخطوات التي تحتاجها لتحقيق ذلك. افترض أن لديك شيتين في ملف Excel: Sheet1: العمود A: أرقام الحافلات العمود B: أسماء المشرفات (التي تريد ملؤها تلقائيًا) Sheet2: العمود A: أرقام الحافلات العمود B: أسماء المشرفات (البيانات المرجعية) إليك الخطوات بالتفصيل: افتح ملف Excel الخاص بك وافتح Sheet1 و Sheet2. في Sheet1، اختر الخلية B2 (أو أي خلية في العمود B حيث تريد عرض اسم المشرفة بناءً على رقم الحافلة). كتب الصيغة التالية في الخلية B2 في Sheet1: =VLOOKUP(A2, Sheet2!A:B, 2, FALSE) ++++++++++++++++++++++++++++++++ هنا: A2 هو رقم الحافلة في Sheet1. Sheet2!A:B هو النطاق الذي يحتوي على بيانات المرجع في Sheet2 (أرقام الحافلات وأسماء المشرفات). 2 يعني أننا نريد إرجاع القيمة من العمود الثاني في النطاق المحدد. FALSE تعني أننا نبحث عن تطابق تام. بعد كتابة الصيغة، اضغط على Enter. يجب أن يظهر اسم المشرفة في الخلية B2 في Sheet1 بناءً على رقم الحافلة في الخلية A2. اسحب الصيغة إلى الأسفل لتطبيقها على بقية الخلايا في العمود B في Sheet1. بهذا الشكل، سيتم ملء أسماء المشرفات تلقائيًا في Sheet1 بناءً على أرقام الحافلات الموجودة في Sheet2.

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

السلام عليكم ورحمة الله وبركاته بارك الله لكم في العشر وكل عام وانتم بخير اتمنى اظهار اسم اخر طالب في خلية معينة حاولت بالاندكس ولكن ظهر خطاء لا اريد استخدام الكود البرمجي تحياتي لكم -------------------- mdrrsah.xlsx -------------------

Sub MoveSheetToLast() Dim ws As Worksheet Dim lastSheetIndex As Integer ' تحديد الورقة التي تريد نقلها Set ws = ThisWorkbook.Sheets("اسم الورقة الخاصة بك") ' تحديد رقم آخر ورقة lastSheetIndex = ThisWorkbook.Sheets.Count ' نقل الورقة إلى نهاية الملف ws.Move After:=ThisWorkbook.Sheets(lastSheetIndex) End Sub

لنفترض أنك تريد نقل ملف Excel يحتوي على ارتباطات تشعبية (مراجع إلى خلايا في ملف آخر) إلى مكان آخر. في هذه الحالة، يجب أن تأخذ في الاعتبار اثنين من الأمور: نقل الملف Excel نفسه: يمكنك ببساطة نسخ الملف ولصقه في المكان الجديد. تحديث الارتباطات التشعبية: عند نقل الملف، قد يكون عناوين الخلايا المرتبطة قد تغيرت بسبب التحول إلى مسار جديد. لذا، يجب تحديث هذه الارتباطات التشعبية. هناك بعض الطرق لتحديث الارتباطات التشعبية في ملف Excel: طريقة 1: استخدام "تغيير مصدر الارتباط" افتح الملف الجديد الذي تم نقله. انتقل إلى علامة التبويب "بيانات" (Data) في شريط الأوامر. اختر "تغيير مصدر الارتباط" (Edit Links). ستظهر نافذة تعرض جميع الارتباطات التشعبية في الملف. اختر الارتباط الذي تريد تحديثه واختر "تغيير مصدر" (Change Source). حدد الملف الجديد الذي تم نقله واختر "موافق" (OK). طريقة 2: استخدام برمجة VBA يمكنك أيضًا استخدام VBA لتحديث الارتباطات التشعبية بشكل تلقائي. هذا مفيد إذا كنت ترغب في تنفيذ هذا الإجراء بشكل تلقائي عند فتح الملف. Sub UpdateLinks() Dim links As Variant Dim i As Integer ' Get all links in the workbook links = ThisWorkbook.LinkSources ' If there are links, update them If Not IsEmpty(links) Then For i = 1 To UBound(links) ThisWorkbook.ChangeLink links(i), "C:\New\Path\To\Linked\File.xlsx", xlLinkTypeExcelLinks Next i End If End Sub

الشيء الذي يبدو غير صحيح في الكود هو كيفية استخدام المعالج الخطأ (Error Handler). تستخدم المعالج في الوظائف `AddTransaction` و `PrintReport` لكنه يدعو دائمًا نفس الدالة `ErrorHandler` بالرقم والوصف المحددين، بغض النظر عن الخطأ الفعلي الذي يحدث. لتصحيح هذا، يمكنك استخدام `Err.Number` و `Err.Description` للحصول على الخطأ الفعلي الذي حدث وإرساله إلى الدالة `ErrorHandler`. هناك عدة طرق لتحقيق ذلك، لكن إحدى الطرق البسيطة هي استبدال السطر: ```vba Call ErrorHandler(Err.Number, Err.Description) ``` بالسطر: ```vba Call ErrorHandler(errorNum, errorDesc) ``` وذلك ليتم نقل الرقم والوصف الفعليين للخطأ الحدث إلى الدالة `ErrorHandler` فيما يخص كل من الدوال `AddTransaction` و `PrintReport`. هكذا ستتمكن من الحصول على المزيد من المعلومات حول الخطأ الذي يحدث، مما يسهل تحديد وإصلاح المشكلات في الكود.

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

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

السلام عليكم ورحمة الله وبركاته حاولة في المعادلة ولم استطيع للحل الصحيح الملف جاهز فقط تركيب دالة countifs عليه كرما منكم المطلوب التقرير الشهري اللي اسمه month-allll يحسب لي كل شخص كم تأخر واستأذن حسب البيانات في الاسابيع 434.xlsx

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

السلام عليكم ورحمة الله وبركاته عندي اسماء كثير فوق ال 200 اسم وارغب في تكرار شيت معين وادخال بيانات رئيسية فيه فقط بعدها بربطه بلينك للوصول لكل شيت مستقل من قائمة الاسماء الشرح اكثر في المرفق جزاكم الله خير نقل.xlsx