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

جرب هذا الملف استاذ يوسف ولا أنسى استاذي ومعلمي صاحب الأفكار السديدة ومحاولاته المستمرة في تعليمي ابومحمد جزاه الله عني خير الجزاء ورحم الله والديه واسكنهم الفردوس الأعلى من الجنة اللهم آمين. 002- ترحيل بيانات بثلاث شروط.xlsb

وعليكم السلام ورحمة الله وبركاته أخي @النجاشي 🙂 بالاستعانة بالـ ChatGPT .. يوجد هناك كود للتحويل من PDF إلى الأكسل .. ولكنه يحتاج لمكتبة وسيطة .. وهي مكتبة ال Adobe Acrobat API لذلك لازم يكون البرنامج منصب عندك في الجهاز لكي يعمل معاك الكود .. وهذا هو الكود (لم أجربه) : Sub ConvertPDFToExcel() Dim AcroApp As Object Dim AcroAVDoc As Object Dim AcroPDDoc As Object Dim ExcelApp As Object Dim ExcelWorkbook As Object Dim ExcelWorksheet As Object Dim PDFFilePath As String Dim ExcelFilePath As String ' Set the file paths for the PDF file and the Excel file PDFFilePath = "C:\Path\to\input.pdf" ExcelFilePath = "C:\Path\to\output.xlsx" ' Create an instance of the Acrobat application Set AcroApp = CreateObject("AcroExch.App") ' Open the PDF file Set AcroAVDoc = CreateObject("AcroExch.AVDoc") If AcroAVDoc.Open(PDFFilePath, "") Then Set AcroPDDoc = AcroAVDoc.GetPDDoc() ' Save the PDF as an Excel file AcroPDDoc.SaveAs ExcelFilePath, "com.adobe.acrobat.xlsx" ' Close the PDF document AcroPDDoc.Close End If ' Release the Acrobat objects Set AcroAVDoc = Nothing Set AcroPDDoc = Nothing AcroApp.Exit Set AcroApp = Nothing ' Open the Excel file Set ExcelApp = CreateObject("Excel.Application") Set ExcelWorkbook = ExcelApp.Workbooks.Open(ExcelFilePath) Set ExcelWorksheet = ExcelWorkbook.Sheets(1) ' Manipulate the Excel data as needed ' ... your code here ... ' Close and save the Excel file ExcelWorkbook.Close SaveChanges:=True ExcelApp.Quit ' Release the Excel objects Set ExcelWorksheet = Nothing Set ExcelWorkbook = Nothing Set ExcelApp = Nothing End Sub ملاحظة من ChatGPT : لاستخدام Adobe Acrobat API ، تحتاج إلى تثبيت Adobe Acrobat على جهازك ، وقد تحتاج إلى إضافة المكتبة "Adobe Acrobat" أو "Adobe Acrobat xx.0 Type Library" في برنامجك. بالإضافة إلى ذلك ، تحتاج إلى التأكد من أن إصدار Adobe Acrobat المثبت على جهازك يدعم استدعاءات ال API . يرجى الرجوع إلى وثائق Adobe Acrobat API للحصول على مزيد من المعلومات حول الطرق المتاحة والإصدارات المدعومة.

ما شاء الله تبارك الرحمن ابداع استاذنا الاستاذ حسونة

وعليكم السلام ورحمه الله وبركاته تفضل هذا التعديل CommandButton1_Click من اجل LastRow1 CommandButton2_Click من اجل LastRow2 Private Sub CommandButton1_Click() Dim LR As Long, X If TextBox1.Value <> "" Then LR = Sheet2.Range("a" & Rows.Count).End(xlUp).Row X = Application.Match("List2", Sheet2.Range("A2:A" & LR), 0) + 1 LR = WorksheetFunction.CountA(Sheet2.Range("A1:A" & X)) If LR = X Then Sheet2.Rows(X).Resize(1).EntireRow.Insert ' Resize(1) عندما تمتلئ القائمه الاولي يضيف العدد بين الاقواس Sheet2.Range("a" & LR).Value = TextBox1.Value TextBox1.Value = "" Else MsgBox ("من فضلك تأكد من ادخال البيانات") End If TextBox1.SetFocus End Sub Private Sub CommandButton2_Click() Dim LR As Long If TextBox1.Value <> "" Then 'And TextBox3.Value <> "" And TextBox4.Value <> "" Then LR = Sheet2.Range("A" & Rows.Count).End(xlUp).Row Sheet2.Range("a" & LR + 1).Value = TextBox1.Value TextBox1.Value = "" Else MsgBox ("من فضلك تأكد من ادخال البيانات") End If End Sub

رجاء كل طلب في موضوع مستقل تفضل Option Explicit Sub Test() Dim WSData As Worksheet, WSResult As Worksheet, Arr, Ar1, Ar2 Dim I As Long, J As Long, P As Long Application.ScreenUpdating = False Application.EnableEvents = False Set WSData = Worksheets("Sheet1") Set WSResult = Worksheets("Sheet2") Arr = WSData.Range("C10:Z" & WSData.Cells(Rows.Count, 3).End(xlUp).Row).Value ReDim temp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2)) Ar1 = Array("سكر", "أرز", "بطاطس", "عنب") Ar2 = Array("زيادة", "ناقص", "بكثرة", "محتاج") Dim x For I = 1 To UBound(Arr, 1) P = P + 1 For J = 1 To UBound(Arr, 2) If J < 13 Or J > 22 Then temp(P, J) = Arr(I, J) Else x = Application.Match(Arr(I, J + 1), Ar1, 0) If Not IsError(x) Then temp(P, J) = Ar2(x - 1) temp(P, J + 1) = Arr(I, J + 1) Else temp(P, J) = "مخزن" temp(P, J + 1) = Arr(I, J + 1) End If J = J + 1 End If Next J Next I If P > 0 Then WSResult.Range("C10").Resize(P, UBound(temp, 2)).Value = temp Application.EnableEvents = True Application.ScreenUpdating = True End Sub

تفضل أخي . 1-القيمه بالمدين يساوى الدائن.accdb

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

المحترم @كريم نظيم تحياتى لسعيك الكريم بالفعل النتائج مختلفه اشكرك مع وافر الشكر لارداره الموقع وكل عام وانتم بخير 💜💜💜

يمكنك استخدام لغة البرمجة التي تفضلها لتطوير البرنامج وتحقيق المتطلبات المذكورة. سأقدم لك فكرة عامة عن الأكواد المحتملة لتحقيق هذه المتطلبات: - لتوزيع الإحتياطيين يدويًا، يمكن إضافة واجهة مستخدم تسمح للمستخدم بإدخال أسماء الملاحظين الإحتياطيين وتحديدهم للجان. - لتمكين دخول 3 ملاحظين سويًا في نفس القاعة، يمكن تعديل كود توزيع اللجان بحيث يتحقق من عدد الملاحظين الموجودين في القاعة قبل إضافة ملاحظ جديد. - لتطبيق نظام محدد لتوزيع الملاحظين يمنع تكرار اللجان، يمكن استخدام خوارزمية مثل خوارزمية الحمام السفيني لتوزيع الملاحظين. يمكن تعديل الخوارزمية لتضمن أنه لن يحدث تكرار في اللجان إلا في حالات محددة، مثل عدم وجود لجان كافية لتوزيع الملاحظين بدون تكرار. بالنسبة لرسم الجداول، يمكن استخدام مكتبات رسومية في اللغة التي تستخدمها للبرمجة، مثل Matplotlib في Python أو Chart.js في JavaScript. كما يمكن استخدام تقنيات الطباعة المناسبة للحصول على تنسيق جميل للجداول.

استاذ @حسنى سامى محمد اعذرني لجهلي بمفهوم عمل دالهFORECAST في المشاركه السابقه ان شاء الله تكون هذه معادله صحيحه تقبل تحياتي. =FORECAST(AL$3,$B5:$AK5,$B$3:$AK$3) TEST.xlsx

عند تصميم الماكرو يوجد خيار اظهار كافة الاجراءات

محاوله بمرفق فحص قيمتين لاسم رباعي ورقم الهويه بعض تعقيبات المتوقعه @متقاعد البعض يعتقد ان مشروع ذكاء الاصطناعي يكفي في بحث عن تحديثات وتطويرها واستكمالها والبعد عن المشاركات لبحثها بطرح جديد وعند فترة تطوير ذكاء الاصطناعي وقت تغير وتوجيه بالمخططات بما ي ليق بمستوى آخر سيكون بعد وقت اكثر طرح اكواد فقط لتصحيح بدل من طرح اجزاء اخرى يعتقد ان تكون فنية البعض لا يجاري هذا تطوير في سابقه ويعتقد ان ساعة قائمة والحقيبه وتذكره زاهبه والعنان الى طريق آخر لم اقصد احد كل على هواه ويعطيك تحميل مرفق https://www.mediafire.com/file/c1nx02n70gcjm25/student_%28Chack_X2_For_AddNew%29.rar/file

محاولة بسيطة test2023_1.rar

استاذ @يوسف عطا انظر علي هذه الصورة الصف رقم 24 طالب بنين - منقول - ونتيجه الطالب ( له دور ثاني فى : /انجليزى//////المجموع///////) وفي عامود معيار الترحيل مكتوب ناجح هل هذا صحيح ام ماذا

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

اخي @Ahmed_J ماهي الرسالة التى تصدر عند سحبك للفيدر ؟؟؟ والبرنامج المدرج من الاخ @Eng.Qassim يعمل .

الكود شغال لتحويل PDF الى Img. jpg من غير جدول بدل المسار لقراءة عدد اجمالي الصور في الفولدر i بقائمة غير منظم يحفظ الاخراج PDF باسم Scan\ ولسكان كان المسحوب في مسار \tamp\ اما الآخر ورقه بورقتين امامي وخلفي اجمع الاوراق حزمه الاماميه يبدأ برقم 1( Button for 1+2 next حزمه الخلفية يبدا برقم 2( Button for 2+2 بنفس مسار الحفظ والاسم بترقيم واظن انه للكتب اذا كان كتاب فكه

استاذ @Ahmed_J..هل جربت هذا المرفق بصراحة لم اجربه لان ليس عندي سكانر يعمل بالفيدر ..الرجل عمله بالفيديو وهو شغال تمام 08 MS access (VBA)scan and attach documents سحب سكان من الفيدر.rar

مرفق الحل . طبقا للتسعير بطريقة الوارد اولا يصرف اولا ورقة.xlsx

عزيزي ارفقت الملف سابقا وسارفق الملف بصيغة xlsx st.xlsx

اصبح يعطى هذه الرساله