نجوم المشاركات

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

أخي الكريم عند تغيير أي بيان في البيانات الأصلية لايظهر ذلك في pivot table إلا بعد أن تعمل تحديث لل pivot table نفسه أسهل طريقة لعمل التحديث Refresh عن طريق الضغط علي الزر الأيمن للماوس وأنت داخل ال pivot table أنظر الصورة ومن الممكن إذا كان التغيير كثيرا وقد يحدث نسيان منك أو من المستخدم ، أقصد نسيان عمل التحديث Refresh ممكن في هذه الحالة عمل كود صغير بالورقة التي بها ال pivot table تجعل عمل التحديث Refresh يتم أوتوماتيكيا كلما فتحت تلك الورقة

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

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

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

حتّى لا يضيع الــ Commend Button أو اذا قمت بتحديد نطاق من الخلايا (او حتى خلية واحدة) بعيداً عنه فأنه يتبعك اينما ذهبت بواسطة هذا الكود Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim col%: col = Target.Columns.Count Dim lastcel As Range: Set lastcel = Target.Rows(1).Cells(col) Application.EnableEvents = False With Me.Shapes.Range(Array("SALIM_BTN")) .Left = lastcel.Left + lastcel.Columns.Width + 5 .Top = lastcel.Top .Width = 130 .Height = 28 End With Application.EnableEvents = True End Sub جرب هذا الملف Floting_Btn.xlsm

أهلا بك @وائل أبو عبد الرحمن أعدت تصميم النموذج الأصلي لمعالج البحث بما يتوافق مع طلبك.. قارن بينه وبين معالج البحث المصمم على صفحة HTML إليك التعديل: Advanced Search.accdb

ماشاء الله روعة

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

ممتاز أستاذ سليم بارك الله فيك

اتفضل اخى الكريم الملف لعله يفى بالغرض قوائم الفصول.xlsm

جميل جدا ممكن التعديل علي خصائص الزر بحيث لا يظهر في الطباعة وايضا طريقة اضافة مثل هذه الخاصية لملفات موجودة بالفعل

راااائع يا معلم سليم أعشق الابداع لك تحياتي

جرب هذا الحل Prog2022.rar

أهلا بك أبا عبدالرحمن نعم.. ما تبقي تجده في التعديل التالي.. وبهذا تكون مداخلتي في هذه المشاركة قد انتهت. تعديل - جزاكم الله خيرا.accdb

لم تجب على السؤال! هذا مثال بدون النموذج الفرعي Photo.zip

استاذ على انت استاذ كبير ونحن نتعلم منكم وهذا من فضل الله ثم فضلكم علينا وجزاكم الله خير الجزاء

دا برنامج مكتبات محتاج اعمل يوزر فورم يبقى فيه ثلاث قوائم منسدله الاولى للقسم الرئيسى ووحده تانيه للفرعى ياخد من الرئيسى والثالثه فرع ثانى ياخذ منه دا المرفق فيه مثال للمطلوب مثال.rar

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

أهلا محمد.. يمكن بالنموذج الفرعي، وبدونه إذا أرت.. لكن ما الخطوة التالية بعد عرضها حسب الإدارة؟

تفضل اخى الكريم بعد اذن الأستاذ مصطفى-فلابد ان تعلم اخى الكريم ابو العلاء ان هذه معادلات صفيف وليس معادلات عادية فلابد من الضغط على Ctrl+Shift+Enter وليس Enter فقط كباقى المعادلات Book1 TEST.xls

ربنا يكرم اصلك يا فندم وشكرا لردك الجميل

السلام عليكم هذا اول برنامج اقوم بعمله على الاكسس وهذا العمل تحت اشراف الاساتذه الكبار بهذا الصرح التعليميى الكبير وكنت انوى عرضه بعد تقفيله ولن لظروف خاص لم اتمكن من ذلك ولحرصى على ان يستفيد الجميع وليكون مرجع لكل مبتدء مثلى لما به من خلاصه دروس الاساتذه الكبار الذين احبهم فى الله وادعوا المولى عز وجل ان يعطيهم من الخير قدر كرمه البرنامج تم تحت الاشراف المباشر لاستاذى الجيليل أبـوخليل بارك الله فيك وكذلك جميع الاساتذه والاخوه بهذا الصرح الكبير ______________________________- بعض المشكلات التى واجهتنى بالبرنامج: اولا لم اتكمن من حفظ نشخه مقفله منه وتواجهنى هذه الرساله : وكنت فى حيره من امرى ؟ هل اقوم باخفاء الاكسس ام اقوم بعمل قوائم مخصصه على الاكسس اترككم مع بعض الصور student_up.rar

السلام عليكم ورحمه الله وبركاته الى الاستاذة الافاضل عباقرة هذا المنتدي الكريم الذين على ايديهم بدات اتعلم وادخل هذا المجال متمنيا من الله ان اصل ولو 1/100 من مستوى علمهم الغزير فزادكم الله علما وجعلكم الله نورا يهتدى به لهذا المنتدي العريق لقد قراءت موضوع فى منتدى اجنبيى عن امكانيه نسخ بيانات من مجموعه ملفات الى ملف واحد بطريقه سلسه جدا ولكن فى الحقيقه لم استطع فهمه بصورة كامله حتى احوله الى مثال وشرح يستفيد منه الجميع لذلك اضع رابط الموضوع بين ايديكم وكلى ثقه انكم لن تتاخرو على رواد المنتدي بعمل مثال له مع شرح بسيط ليستفيد منه الجميع باذن الله http://chandoo.org/wp/2012/04/09/consolidate-data-from-different-excel-files-vba/

السلام عليكم بالفعل الملف جيد ونشكرك أخي الكريم علي مشاركتنا إياه جزاك الله خيرا لقد حملته ، ووضعت بعض أسماء الملفات التي علي الجهاز عندي وسأرفعه لمن لم يستطع تحميله من الموقع وجربت الكود وهو يعمل جيدا مع الملاحظات التالية 1. لابد أن تلتزم بالفورمات التي يأخذها الكود ، مثلا الشرطة المايلة بالعكس (\) في آخر مسار الملف المراد نسخه 2. إذا كان المجال (أو الخلية) المنقول إليها غير فارغة ينقل أسفلها مباشرة ولايمسح الأصل ، وهذا له استخدامه بالطبع ويمكنك بعد فهم الكود تعديله كما تشاء 3. الشيت المنقول منه هو الشيت الحالي للملف المنقول منه ، بمعني أن الملف المنقول منه إذا كان به مثلا 3 شيتات وكنت أغلقته آخر مرة علي الشيت الثاني فإن النسخ سيتم من هذا الشيت الثاني (الحالي بالنسبة لذاك الملف) والآن شرح موجز للكود سأقسم الكود لأجزاء يسهل استيعابها الجزء الأول تعريفات عامة Public strFileName As String Public currentWB As Workbook Public dataWB As Workbook Public strCopyRange As String الجزء الثاني بداية الكود والتعريفات الداخلية Sub GetData() Dim strWhereToCopy As String, strStartCellColName As String Dim strListSheet As String strListSheet = "List" الجزء الثالث تأمين الكود في حالة الخطأ في إسم الملف مع رسالة خطأ والنهاية On Error GoTo ErrH ... ... ErrH: MsgBox "It seems some file was missing. The data copy operation is not complete." Exit Sub End Sub الجزء الرابع تحديد إسم الملف المنقول منه وذلك من الجدول بالشيت الأساسي List في ملف المنقول إليه Sheets(strListSheet).Select Range("B2").Select 'this is the main loop, we will open the files one by one and copy their data into the masterdata sheet Set currentWB = ActiveWorkbook الجزء الخامس وكما بالملاحظة الإنجليزي بالجزء السابق هو لووب (حلقة) سيتم من خلالها فتح الملفات المنقول منها واحد بواحد ونسخ البيانات المرادة حسب النطاقات بالجدول ثم غلقها .. حتي انتهاء الحلقة أي حتي يجد الخلية بالعمود B من الجدول فارغة Do While ActiveCell.Value <> "" strFileName = ActiveCell.Offset(0, 1) & ActiveCell.Value strCopyRange = ActiveCell.Offset(0, 2) & ":" & ActiveCell.Offset(0, 3) strWhereToCopy = ActiveCell.Offset(0, 4).Value strStartCellColName = Mid(ActiveCell.Offset(0, 5), 2, 1) ... ... Loop Exit Sub الجزء السادس وهو جزء فرعي من الخامس يعمل علي تحديد أماكن القراءة (النسخ) من الملف المنقول منه ووضع النسخة في مكانها المطلوب Application.Workbooks.Open strFileName, UpdateLinks:=False, ReadOnly:=True Set dataWB = ActiveWorkbook Range(strCopyRange).Select Selection.Copy currentWB.Activate Sheets(strWhereToCopy).Select lastRow = LastRowInOneColumn(strStartCellColName) Cells(lastRow + 1, 1).Select Selection.PasteSpecial xlPasteValues, xlPasteSpecialOperationNone Application.CutCopyMode = False dataWB.Close False Sheets(strListSheet).Select ActiveCell.Offset(1, 0).Select طبعا لم ادخل في تفاصيل الشرح لاعتقادي أن هذا ماتحتاجه من سؤالك وإن كان لك اي أسئلة ، فلاتتردد وإليكم الملف vba-macro-to-copy-data-from-multiple-files.rar

السلام عليكم تفضل يا أخى 5.rar