عفرنس قام بنشر يوليو 24, 2020 قام بنشر يوليو 24, 2020 اخواني الكرام أريد تصدير عمود t1 وعمود f16 فقط إلى ملف اكسل المرفق في ورقة ( متابعة الدرجات ) . لكني لما أضغط أيقونة Browse لأختار الملف الذي أريد التصدير له لا أجده . ملحوظة : في حال نجحت عملية التصدير أريد تصدير عمود t1 إلى عمود B في ملف اكسل وعمود F16 في عمود C في ملف اكسل . والتصدير يكون في ورقة ( متابعة الدرجات ) .. لكم الود والتقدير ..
ابو البشر قام بنشر يوليو 24, 2020 قام بنشر يوليو 24, 2020 اخي الكريم عدل كود الموجود في Browse ليظهر لك الملف .. لان في عبارة فلتر به ... ضع الكود هنا للتعديل 1
عفرنس قام بنشر يوليو 24, 2020 الكاتب قام بنشر يوليو 24, 2020 (معدل) في 24/7/2020 at 18:22, ابو البشر said: اخي الكريم عدل كود الموجود في Browse ليظهر لك الملف .. لان في عبارة فلتر به ... ضع الكود هنا للتعديل Expand جميل أخي @ابو البشر تم التعديل وظهر .. بقي كود التصدير .. أريد عند اختيار الصف والشعبة ثم اختيار ملف اكسل نضغط زر تصدير ليرحل أسماء الصف والشعبة إليه في ورقة ( متابعة الدرجات ) طبعا أريد ترحيل بيانات العمودين t1 و f16 إلى القالب المرفق في المشاركة الأولى لي . وليس انشاء ملف اكسل جديد .. تم تعديل يوليو 24, 2020 بواسطه فايز..
محمد أبوعبدالله قام بنشر يوليو 24, 2020 قام بنشر يوليو 24, 2020 اين المرفق في 24/7/2020 at 18:51, فايز.. said: أريد ترحيل بيانات العمودين t1 و f16 Expand على كل حال صمم استعلام به هذه الحقلين وضع الشروط التي تريدها ثم قم بتصدير الاستعلام DoCmd.OutputTo acOutputQuery, "qry1", acFormatXLSX, , True تحياتي
عفرنس قام بنشر يوليو 24, 2020 الكاتب قام بنشر يوليو 24, 2020 في 24/7/2020 at 22:24, محمد أبوعبدالله said: اين المرفق على كل حال صمم استعلام به هذه الحقلين وضع الشروط التي تريدها ثم قم بتصدير الاستعلام DoCmd.OutputTo acOutputQuery, "qry1", acFormatXLSX, , True تحياتي Expand هذا المرفق . وأظن نسيت ارفاقه في المشاركة السابقة .. المطلوب نقل البيانات من عمود t1 إلى عمود B في ملف اكسل المرفق وعمود F16 في عمود C في الملف المرفق . نقل البيانات .rarFetching info...
محمد أبوعبدالله قام بنشر يوليو 25, 2020 قام بنشر يوليو 25, 2020 تفضل اخي الكريم الحل موجود في الموضوع التالي تحياتي 3
عفرنس قام بنشر يوليو 25, 2020 الكاتب قام بنشر يوليو 25, 2020 في 25/7/2020 at 05:46, محمد أبوعبدالله said: تفضل اخي الكريم الحل موجود في الموضوع التالي تحياتي Expand سأجرب ومن ثم اوافيكم بالنتيجة ..
Barna قام بنشر يوليو 25, 2020 قام بنشر يوليو 25, 2020 (معدل) في 24/7/2020 at 18:01, فايز.. said: اخواني الكرام أريد تصدير عمود t1 وعمود f16 فقط إلى ملف اكسل المرفق في ورقة ( متابعة الدرجات ) . لكني لما أضغط أيقونة Browse لأختار الملف الذي أريد التصدير له لا أجده . ملحوظة : في حال نجحت عملية التصدير أريد تصدير عمود t1 إلى عمود B في ملف اكسل وعمود F16 في عمود C في ملف اكسل . والتصدير يكون في ورقة ( متابعة الدرجات ) .. لكم الود والتقدير .. Expand اخي فايز ... ملف الاكسل المرفق . يخص مادة الاجتماعيات . فهل هذا يعني ان جميع المواد بنفس حقول المتابعة ام هي مختلف ؟؟؟ لان هناك مواد تختلف طريقة التقييم فيها مثل مواد العلوم . احياء . فيزياء ... وكذلك الحال لمواد المكتبة والبحث ... والقران الكريم ... وهكذا.... تم تعديل يوليو 25, 2020 بواسطه Barna 2
عفرنس قام بنشر يوليو 25, 2020 الكاتب قام بنشر يوليو 25, 2020 في 25/7/2020 at 17:34, Barna said: اخي فايز ... ملف الاكسل المرفق . يخص مادة الاجتماعيات . فهل هذا يعني ان جميع المواد بنفس حقول المتابعة ام هي مختلف ؟؟؟ لان هناك مواد تختلف طريقة التقييم فيها مثل مواد العلوم . احياء . فيزياء ... وكذلك الحال لمواد المكتبة والبحث ... والقران الكريم ... وهكذا.... Expand جميع المواد عمود B يحتوي الرقم الاكاديمي وعمود C يحتوي اسم الطالب .. انا هدفي من هذا البرنامج .. اريد نقل اسماء الطلاب وارقامهم الاكاديمية في هذين العمودين بضغطة زر .. سابقا كنت انسخ والصق لكن هذا يستغرق وقتا كثيرا .. خاصة اذا كل مادة لا تقل عن 5 شعب في كل مرحلة .. اذا اردت ارفق لك بقية المواد حاضر .. لكن في البداية نريد نطبق على مادة الاجتماعيات .. كتب الله اجرك ..
عفرنس قام بنشر يوليو 25, 2020 الكاتب قام بنشر يوليو 25, 2020 في 25/7/2020 at 05:46, محمد أبوعبدالله said: تفضل اخي الكريم الحل موجود في الموضوع التالي تحياتي Expand لأسف أخي @محمد أبوعبدالله ليس هذا المراد .
jjafferr قام بنشر يوليو 25, 2020 قام بنشر يوليو 25, 2020 الاستاذ فايز 🙂 تقدر تعمل استعلام بالحقلين المطلوبين ، ثم تستعمل البرنامج الذي في الرابط ويعمل لك اللي تريده 🙂 جعفر 2
عفرنس قام بنشر يوليو 25, 2020 الكاتب قام بنشر يوليو 25, 2020 (معدل) في 25/7/2020 at 18:43, jjafferr said: الاستاذ فايز 🙂 تقدر تعمل استعلام بالحقلين المطلوبين ، ثم تستعمل البرنامج الذي في الرابط ويعمل لك اللي تريده 🙂 جعفر Expand اعملهم فين ؟؟ في نفس برنامجك والا برنامجي ؟؟ لأن لما اختار الخطوة الاولى والثانية ما يظهر لي غير الجدولين اللذين في برنامجك .. ايضا لما اجي للخطوة رقم 3 لا يظهر لي ملفي الذي اريد ارحل العمودين له .. المرفق موجود مسبقا ولك ان تجرب وتوافينا بالنتائج تم تعديل يوليو 25, 2020 بواسطه فايز..
Barna قام بنشر يوليو 25, 2020 قام بنشر يوليو 25, 2020 مشاركة مع حبايبنا الاساتذة .... استخدمن هذا الكود لتصدير العمودين وبعض البيانات لملف الاكسل ..... Dim db1 As DAO.Database Dim Rst1 As DAO.Recordset Set db1 = CurrentDb Dim objExcel As Object Dim objWorkbook As Object Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open(sXlsFile) Set Rst1 = db1.OpenRecordset("temp", dbOpenSnapshot) objWorkbook.Sheets(2).range("H1").Value = "اسماء طلاب الصف " & "(" & [Forms]![FORM2]![مربع_تحرير_وسرد8] & ")" & "الشعبة " & "(" & [Forms]![FORM2]![مربع_تحرير_وسرد12] & ")" With Rst1 If .RecordCount <> 0 Then .MoveFirst objWorkbook.Sheets(2).range("b5").CopyFromRecordset Rst1 objWorkbook.Sheets(2).range("b5").Select End If End With objExcel.DisplayAlerts = True objWorkbook.Close SaveChanges:=True Set objWorkbook = Nothing objExcel.Quit Set objExcel = Nothing Set Rst1 = Nothing Set db1 = Nothing VBA.Shell "Explorer.exe " & Chr(34) & sXlsFile & Chr(34), vbNormalFocus DoCmd.DeleteObject acTable, "temp" انظر النتيجة في ملف الاكسل .......... Ba_Deffi.rarFetching info... 3
jjafferr قام بنشر يوليو 25, 2020 قام بنشر يوليو 25, 2020 استاذ فايز ، في الرابط ، المادة 12 و 13 تقول : اقتباس 12و 13. لجعل هذا البرنامج يعمل على اي من برامجكم الحاليه ، يجب تصدير النموذج frm_Export_to_Excel و الوحدة النمطية fFolder_Dialog اليها. Expand يعني استورد هذه الكائنات الى برنامجك 🙂 وبعدين كل شيء يتم من برنامجك 🙂 جعفر
عفرنس قام بنشر يوليو 25, 2020 الكاتب قام بنشر يوليو 25, 2020 في 25/7/2020 at 19:04, Barna said: مشاركة مع حبايبنا الاساتذة .... استخدمن هذا الكود لتصدير العمودين وبعض البيانات لملف الاكسل ..... Dim db1 As DAO.Database Dim Rst1 As DAO.Recordset Set db1 = CurrentDb Dim objExcel As Object Dim objWorkbook As Object Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open(sXlsFile) Set Rst1 = db1.OpenRecordset("temp", dbOpenSnapshot) objWorkbook.Sheets(2).range("H1").Value = "اسماء طلاب الصف " & "(" & [Forms]![FORM2]![مربع_تحرير_وسرد8] & ")" & "الشعبة " & "(" & [Forms]![FORM2]![مربع_تحرير_وسرد12] & ")" With Rst1 If .RecordCount <> 0 Then .MoveFirst objWorkbook.Sheets(2).range("b5").CopyFromRecordset Rst1 objWorkbook.Sheets(2).range("b5").Select End If End With objExcel.DisplayAlerts = True objWorkbook.Close SaveChanges:=True Set objWorkbook = Nothing objExcel.Quit Set objExcel = Nothing Set Rst1 = Nothing Set db1 = Nothing VBA.Shell "Explorer.exe " & Chr(34) & sXlsFile & Chr(34), vbNormalFocus DoCmd.DeleteObject acTable, "temp" انظر النتيجة في ملف الاكسل .......... Ba_Deffi.rar 81.2 kB · 0 تنزيلات Expand جزاك الله خيرا @Barna ورزقك من حيث لاتحتسب .. هذا المطلوب مائة بالمائة .. لكن عندي بعض الملحوظات وهي : اذا عندي مادة اجتماعيات كمثال : للصف الأول الثانوي والصف يتكون من 5 شعب . وصدرت بيانات الشعبة رقم ( 1 ) في الملف يتم تصديرها تمام . ثم اذا أردت تصدير شعبة رقم ( 2 ) واخترت ملف الاكسل في المجلد لنفس المادة يحذف بيانات الشعبة رقم ( 1) ويضع هذه مكانها . كيف نحل المشكلة ذي ؟؟
Barna قام بنشر يوليو 25, 2020 قام بنشر يوليو 25, 2020 في 25/7/2020 at 20:55, فايز.. said: جزاك الله خيرا @Barna ورزقك من حيث لاتحتسب .. هذا المطلوب مائة بالمائة .. لكن عندي بعض الملحوظات وهي : اذا عندي مادة اجتماعيات كمثال : للصف الأول الثانوي والصف يتكون من 5 شعب . وصدرت بيانات الشعبة رقم ( 1 ) في الملف يتم تصديرها تمام . ثم اذا أردت تصدير شعبة رقم ( 2 ) واخترت ملف الاكسل في المجلد لنفس المادة يحذف بيانات الشعبة رقم ( 1) ويضع هذه مكانها . كيف نحل المشكلة ذي ؟؟ Expand حلها بارك الله في تحويل ملف الاكسل الى قالب ...... جرب واعلمنا بالنتيجة ....... اجتماعيات.rarFetching info... 1
عفرنس قام بنشر يوليو 25, 2020 الكاتب قام بنشر يوليو 25, 2020 (معدل) في 25/7/2020 at 21:41, Barna said: حلها بارك الله في تحويل ملف الاكسل الى قالب ...... جرب واعلمنا بالنتيجة ....... اجتماعيات.rar 131.25 kB · 2 تنزيلات Expand فكرة جميلة .. لكن لما احفظ الملف لا بد يكون بصيغة xlsm وإلا لم يكن لهذا الملف أي فائدة .. تسألني عن فائدته بهذه الصيغة .. لأجل ترحيل الدرجات فيما بعد الى نظام نور .. فلا بد ان يكون بصيغة الماكرو .. @@ هناك طريقة وهي : انني انسخ الملف الاصل على عدد الشعب لكل مادة ثم اصدر اسماء كل شعبة للملف الذي يخصها .. تم تعديل يوليو 25, 2020 بواسطه فايز..
Barna قام بنشر يوليو 25, 2020 قام بنشر يوليو 25, 2020 في 25/7/2020 at 22:19, فايز.. said: فكرة جميلة .. لكن لما احفظ الملف لا بد يكون بصيغة xlsm وإلا لم يكن لهذا الملف أي فائدة .. تسألني عن فائدته بهذه الصيغة .. لأجل ترحيل الدرجات فيما بعد الى نظام نور .. فلا بد ان يكون بصيغة الماكرو .. @@ هناك طريقة وهي : انني انسخ الملف الاصل على عدد الشعب لكل مادة ثم اصدر اسماء كل شعبة للملف الذي يخصها .. Expand طيب دقائق اعدل بعض الاشياء و نجعل البرنامج يحفظ مباشرة في ملف باسم الشعبة .....------------>>>>>>> 1
تمت الإجابة Barna قام بنشر يوليو 25, 2020 تمت الإجابة قام بنشر يوليو 25, 2020 انظر المرفق واعلمنا بالنتيجة ---------->>>>>> يقوم البرنامج بنسخ البيانات المطلوبة في ملف باسم الشعبة ويحفظ بجوار البرنامج مباشرة دون الحاجة للحفظ وفي نفس الوقت يحافظ على الملف الاساس للاكسل Ba1_Deffi.rarFetching info... 1 2
عفرنس قام بنشر يوليو 26, 2020 الكاتب قام بنشر يوليو 26, 2020 في 25/7/2020 at 23:22, Barna said: انظر المرفق واعلمنا بالنتيجة ---------->>>>>> يقوم البرنامج بنسخ البيانات المطلوبة في ملف باسم الشعبة ويحفظ بجوار البرنامج مباشرة دون الحاجة للحفظ وفي نفس الوقت يحافظ على الملف الاساس للاكسل Ba1_Deffi.rar 81.49 kB · 0 تنزيلات Expand شكر الله لك أخي محمد @Barna شي جميل وعمل رائع .. كفيت ووفيت .. ألف ألف شكر .. وفقك الله ويسر أمرك ..
عفرنس قام بنشر يوليو 26, 2020 الكاتب قام بنشر يوليو 26, 2020 (معدل) أخواني @Barna @kanory @jjafferrتحية طيبة لك .. في البرنامج أضفت جدول خاص بالمادة وأريد أن يتم تصفية الطلاب حسب المادة والشعبة ومن ثم يتم التصدير .. ( لأنه كما تعلم صف أول ثانوي الشعبة رقم 2 كمثال ليس كلهم يدرسون مادة اجتماعيات ) طبعا الأمور تمام لكن المشكلة التي واجهتني هي بعد ما أضغط زر التصدير لا أجد الرقم الأكاديمي ولا اسماء الطلاب في ملف الاكسل .. بصراحة خشمي صدع .. فريت الكود فر .. ولا طلعت بنتيجة . وهذا المرفق برنامج تصدير الطلاب الى السجل الإلكتروني33.rarFetching info... تم تعديل يوليو 26, 2020 بواسطه فايز..
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.