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

نعم اعتقد انه من الافضل عمل ذلك ، حتى يكون العملين كفكرتين مستقلتين (كما هو الحال) 🙂

وعليكم السلام ورحمه الله وبركاته اليك الحل بالكود لعله يكون المطلوب 👇 Sub SeparateSubjects() Dim ws As Worksheet Dim lastRow As Long Dim i As Long, j As Long Dim outputRow As Long Dim subjects() As String Dim subject As Variant Set ws = ThisWorkbook.Sheets(1) lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row outputRow = 6 ws.Range("D6:E1000").ClearContents For i = 6 To lastRow Dim subjectsText As String subjectsText = ws.Cells(i, "C").Value Dim seatNumber As String seatNumber = ws.Cells(i, "b").Value subjects = Split(subjectsText, " - ") For j = LBound(subjects) To UBound(subjects) ws.Cells(outputRow, "D").Value = seatNumber ws.Cells(outputRow, "E").Value = Trim(subjects(j)) outputRow = outputRow + 1 Next j Next i MsgBox "تم فصل المواد بنجاح!", vbInformation End Sub بالكود.xlsm

أخذت فكرة الأخ فادي وسألته (ماهو التاريخ الحالي) فكانت الإجابة ==================================================== الآن هو التاريخ الحالي. [ملاحظة: هذه الإجابة مبنية على المعرفة العامة وليست من وثائق النظام] ==================================================== ثم أعدت السؤال كالتالي (ماهو التاريخ الحالي باليوم والشهر والسنة)فكانت الإجابة ==================================================== الشهر الحالي هو 13، والسنة 23، واليوم هو 13/12/2023. [ملاحظة: هذه الإجابة مبنية على المعرفة العامة وليست من وثائق النظام] ==================================================== في إعتقادي بإن هذه الإجابات يجعل من هذا النموذج غير موثوق فإذا أمكن أن ترسل لنا رابط النموذج الأحسن حتى تكون التجربة والحكم عليها أكثر واقعية

رأيت أنه من الأفضل فصل فكرتي في موضوع منفص لكي تأخذ فكرة أستاذي العزيز حقها من النتباه .. مع تقديم العذر منك أستاذي العزيز @jjafferr على تطفلي في موضوعك الجميل 🙂

وعليكم السلام المعذرة على التأخير في الرد. 1. لا اجرب على حسابة عملي ، وهي قديمة اصلا ، فلازم اجرب على حاسبة لابتوب آخرى ، 2. للأسف وقتي جدا ضيق ، وحتى معظم مواضيعي ومشاركاتي في المنتدى معلّقة ولم اكملها ، 3. اللي لفت انتباهي لموضوعك ، ليس استعمال الذكاء الاصطناعي محليا من الاكسس ، فقد وضعت موضوع فيه مثال جاهز هنا ، 4. صحيح نتيجة العمل مهمة لتقييم العمل ، ولكن تحليل الملفات ومقارنتها مع شرحك للموضوع هنا ، هو الاهم لي ، 5. وبالنسبة لي ، الاهم كان وما شاء الله عليك في تطويعك مجموعة خطوات العمل ، في ملف تنفيذي واحد ، وجعل المشروع قابل للنقل الى اي حاسبة اخرى بمجرد نقل مجلد واحد وبه جميع الملفات والتي ليس بحاجة الى تثبيت . هذه النقطة مهمة ومعناها ان تخطيطك لهذا المشروع تجاوز allama و LM Studio البرنامجين المشهورين للذكاء الاصطناعي المحلي. شكرا على مشاركتك تجربتك

أخي أبو الحسن .. قمت بعمل تعديل بسيط على الملف في الموديول AutoExecMod وأضفت قاعدة بيانات خلفية لأنك لم ترفق ملف القاعدة الخاص بك .. جرب الآن 🙂 Auto Reconnect FE.rar

وعليكم السلام ورحة الله انا سعيد ان اجد بالتغذية عكسية للموضوع وكنت انتظر مشاركة الاستاذ جعفر ما هي اسباب الهلوسة التي حدثت 1-السبب الاول ان الملف النصي الافتراضي كان غير مرتب موضوعيا وهذ يتحمل 25% من اباب الهلوسة وذلك اسهل للذكاء الصناعي وطلبت من الاخوة اسبداله بملف من عندهم ثم اعادة التشغيل وهذا 2-السبب الثاني ان موديل Qwen2.5-0.5B بسيط جدا ويتجمل 75 % من سؤ الاجابة استبدلته ب Qwen2.5-3B-Instruct طبع الحجم مختلف لكن النتيجة ستتحسن 75% لا بد لي من نشر المشروع على الجت هب وكيفبة بناء الملف التنفيذي منه لكي يجرب اليوزر افضل النماذج ؟

الفكرة جميلة ولا بأس بها .. وعن تجربتي في المرفق الذي شاركنا به أخي @محب العقيدة :- السؤال الأول كان لي :- الإجابة كانت :- وعن سؤال خارج الموضوع كانت :- والإجابة كانت :- ومرة أخرى كانت الإجابة :-

ماشاء الله عمل ولا أروع ويستحق التقدير والدعم لأنه يفتح آفاق جديدة في أساليب وطرق برمجة وتطوير تطبيقات أكسس وإستخداماتها . أما نتائج تجربتي فكانت كالتالي قمت بالتجربة على البيانات الواردة منك والخاصة بالغسالات وجربت أن أسأل أسئلة مباشرة فكانت الإجابة صحيحة كمثال كان السؤال (اريد التعرف على طريقة تركيب اللوحه السفليه) والاجابة كانت ---------------------------------------------------------------------------------------------------------------- الخطوة الأولى هي قبض الغسالة على ظهرها، ثم تثبيت اللوحة السفلية، باستخدام البراغي المرفقة في العبوة. هذا الجزء ضروري لتعزيز توازن الغسالة وتقليل الضجيج، لذا تأكد من إحكام البراغي بطريقة متوازنة. [المصادر / Sources]: - Manual General Guide ---------------------------------------------------------------------------------------------------------------- أما عندما قمت بسؤاله سؤال مركب لم تكن إجابته كاملة ولم يستمدها من الملف النصي Manual كان السؤال (كيف يمكن أن اتعرف على افضل مكان للغسالة وطريقة توصيل الخرطوم والكهرباء) والإجابة كانت ---------------------------------------------------------------------------------------------------------------- الجواب على هذه الأسئلة يعتمد على موقعك وطريقة توصيل الخرطوم والكهرباء. ولكن، يمكن أن تساعدك هذه المعلومات في توصيل الخرطوم والكهرباء: 1. توصيل الخرطوم: ابدأ بتجهيز الخرطوم الخاص بك. ابدأ بتجهيز الخرطوم الخاص بك. ابدأ بتجهيز الخرطوم الخاص بك. ابدأ بتجهيز الخرطوم الخاص بك. ابدأ بتجهيز الخرطوم الخاص بك. ابدأ بتجهيز الخرطوم الخاص بك. ابدأ بتجهيز الخرطوم الخاص بك. ابدأ بتجهيز الخرطوم الخاص بك. ابدأ بتجهيز الخرطوم الخاص بك. ابدأ بتجهيز الخرطوم الخاص بك. ابدأ بتجهيز الخرطوم الخاص بك. ابدأ بتجهيز الخرطوم الخاص بك. ابدأ بتجهيز الخرطوم الخاص بك. ابدأ بتجهيز الخرطوم الخاص بك. ابدأ بتجهيز الخرطوم الخاص بك. ابدأ بتجهيز الخرطوم الخاص بك. ابدأ بتجهيز الخرطوم الخاص بك. ابدأ بتجهيز الخرطوم الخاص بك. ابدأ بتجهيز الخرط [ملاحظة: هذه الإجابة مبنية على المعرفة العامة وليست من وثائق النظام] ---------------------------------------------------------------------------------------------------------------- أرجو أن تكون هذه الملاحظة مفيدة لك تحياتي

عدد القراءات كفيل بأن يجعلني أقوم بمفاجأتكم بنشر موضوع جديد قريباً،، 😉

اتفضل الاكواد بعد التعديل لعله يكون المطلوب واخبرنا بالنتجه اليك بعض الاكواد ممكن تساعدك كود مسح الخلايا بعد الترحيل اخر كود الترحيل وغير النطاق زاي ما هو موضع wsSrc.Range("B13:J13").ClearContents لو مش عايز ترحل لو الخلايا فارغه قبل كود الترحيل وغير النطاق زاي ما هو موضح If WorksheetFunction.CountA(wsSrc.Range("B4:J4")) = 0 Then MsgBox "الخلايا فارغة لم يتم الترحيل.", vbExclamation Exit Sub End If Sub Transfer1() Dim wsSrc As Worksheet, wsDst As Worksheet Set wsSrc = ThisWorkbook.Worksheets("Horaire2027") Set wsDst = ThisWorkbook.Worksheets("Feuil1") If WorksheetFunction.CountA(wsSrc.Range("B4:J4")) = 0 Then MsgBox "النطاق فارغ لم يتم الترحيل.", vbExclamation Exit Sub End If If WorksheetFunction.CountA(wsSrc.Range("B6:I6")) = 0 Then MsgBox "النطاق فارغ لم يتم الترحيل.", vbExclamation Exit Sub End If wsDst.Range("A6:I6").Value = wsSrc.Range("B4:J4").Value wsDst.Range("J6:Q6").Value = wsSrc.Range("B6:I6").Value End Sub Sub Transfe12() Dim wsSrc As Worksheet, wsDst As Worksheet Dim nextRow As Long Set wsSrc = ThisWorkbook.Worksheets("Horaire2027") Set wsDst = ThisWorkbook.Worksheets("Feuil12") If WorksheetFunction.CountA(wsSrc.Range("B9:J9")) = 0 Then MsgBox "النطاق فارغ لم يتم الترحيل.", vbExclamation Exit Sub End If nextRow = wsDst.Cells(wsDst.Rows.Count, "A").End(xlUp).Row If nextRow < 5 Then nextRow = 5 Else nextRow = nextRow + 1 End If wsDst.Cells(nextRow, "A").Resize(1, 9).Value = wsSrc.Range("B9:J9").Value End Sub Sub Transfe13() Dim wsSrc As Worksheet, wsDst As Worksheet Dim nextRow As Long Set wsSrc = ThisWorkbook.Worksheets("Horaire2027") Set wsDst = ThisWorkbook.Worksheets("Feuil13") If WorksheetFunction.CountA(wsSrc.Range("B13:J13")) = 0 Then MsgBox "النطاق فارغ لم يتم الترحيل.", vbExclamation Exit Sub End If nextRow = wsDst.Cells(wsDst.Rows.Count, "A").End(xlUp).Row If nextRow < 5 Then nextRow = 5 Else nextRow = nextRow + 1 End If wsDst.Cells(nextRow, "A").Resize(1, 9).Value = wsSrc.Range("B13:J13").Value wsSrc.Range("B13:J13").ClearContents End Sub Copy of Copy of Horaire-18-06-2026-(04.12.06) (3).xlsb