الذكاء الإصطناعي chatGPT في انشاء اكواد VBA

[دروب مبرمج]

اصبح الذكاء الإصطناعي ايقونة هذا العصر

الآن اصبح بالإمكان الاستفادة من الذكاء الاصطناعي في انشاء اكود VBA  الخاصة بمحرر اكواد الاكسس

فقط اطلب من الربوت ما تريد و سيقوم بدوره بإنشاء كود سهل الاستخدام

اضغط هنا لتجربة الذكاء الاصطناعي ChatGPT

[عمر ضاحى]

ينفع تعمل لي حساب عليه 
لان دولتى غير متاح لفتح حساب عليه 

[Moosak]

  في 11‏/8‏/2023 at 22:30, عمر ضاحى said:

ينفع تعمل لي حساب عليه 
لان دولتى غير متاح لفتح حساب عليه

Expand  

أخي عمر جرب تنزيل هذا التطبيق في هاتفك الأندرويد .. يقوم بنفس العمل 🙂 

https://play.google.com/store/apps/details?id=com.poe.android&pli=1

[عماد الدين الغنامى]

أخونا الفاضل أنا جربته بنسبة 90% يعطيك معلومات خاطئة 

[Moosak]

  في 7‏/1‏/2024 at 11:21, عماد الدين الغنامى said:

أخونا الفاضل أنا جربته بنسبة 90% يعطيك معلومات خاطئة

Expand  

ليس دائما .. في أغلب الأحيان النتيجة تعتمد على كيفية كتابتك للسؤال أو الطلب .. وأحيانا بسبب أن الموضوع معقد بالنسبة للأكسس أو يعتمد على مكتبات خارجية ..
وفي كثير من الأحيان يعطيك أكواد متقنة 🙂 

 

[ابو جودي]

  في 7‏/1‏/2024 at 11:21, عماد الدين الغنامى said:

أخونا الفاضل أنا جربته بنسبة 90% يعطيك معلومات خاطئة 

Expand  

فعلا انت صح

  في 7‏/1‏/2024 at 18:22, Moosak said:

الموضوع معقد بالنسبة للأكسس

Expand  

ده كمان صح

  في 7‏/1‏/2024 at 18:22, Moosak said:

وفي كثير من الأحيان يعطيك أكواد متقنة 🙂 

Expand  

لما تكون طلبات صريحة وبسيطة بس

 

هو سوف يظل دائما عاجزا و يفتقر للخيال ويفتقر للابداع

وصدقنى لو اعتمدت عليه انت رايح فى داهيه لانه غبى هو حافظ مش فاهم  

كانت التجربه سيئة جدا جدا جدا ودرب من الغباء 

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

 

[Moosak]

  في 7‏/1‏/2024 at 18:47, ابو جودي said:

لما تكون طلبات صريحة وبسيطة بس

 

Expand  

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

[ابو جودي]

انا جربته مره من باب الفضول لما انت قلت لى عليه بصراحة لم تكت تجربة ممتعة بالمرة 

احسست وقتها انه سوف يصيبنى بالانفعال الشديد من نتائجه الغبية والمغلوطه 

[خالد عبد الغفار]

فعلا غبى جدا حاولت اخلية يكتب كود توزيع رؤساء لجان ومراقبين اوائل على مستوى عام ( الجمهورية ) وكانت النتائج مخيبه للامال

[ابو جودي]

  في 7‏/1‏/2024 at 21:17, خالد عبد الغفار said:

فعلا غبى جدا

Expand  

الله يسامحك 

انا بالنسبة لى كان متخلف وغبى جدا جدا جدا 

ثلاثه جدا مش واخدة بس

اقولكم لك على حاجة

مفيش اجمل من ان الواحد يسرح فى بنات افكاره وجمالهم ويتأمل فيهم ويحلم معاهم ويحقق بيهم حلمه

صدقونى الطبيعى طبيعى مش تقولوا  لى اصطناعى

[Moosak]

الثورة الحالية هي في كيفية كتابة ال Prompt ( الطلب ) بشكل سليم للتعامل مع أدوات الذكاء الاصطناعي ، وهناك الآن مواقع مخصصة تساعدك على كتابته بشكل مناسب، فكلما كان توصيف الطلب بشكل سليم كانت النتائج أدق 🙂 

شخصيا استفدت كثيرا من هذه الأدوات في كتابة العديد من الأكواد ( البسيطة أو المعقدة ) ، ولا غنى بالذكاء عن تعلم الأساسيات .. 🙂 

[خالد عبد الغفار]

نتيجة محاوله دامت لاكثر من ساعتين ونصف بشرح مفصل 

Sub DistributeCommitteeRoles()
    ' تعريف المتغيرات
    Dim wsTeachers As Worksheet
    Dim wsCommittees As Worksheet
    Dim lastRowTeachers As Long
    Dim lastRowCommittees As Long
    Dim teacherRow As Long
    Dim committeeRow As Long
    
    ' تعيين ورقة العمل "tb_tashkeel"
    Set wsTeachers = ThisWorkbook.Sheets("tb_tashkeel")
    
    ' تحديد آخر صف في ورقة العمل "tb_tashkeel"
    lastRowTeachers = wsTeachers.Cells(wsTeachers.Rows.Count, "A").End(xlUp).Row
    
    ' تعيين ورقة العمل "tb_lgan"
    Set wsCommittees = ThisWorkbook.Sheets("tb_lgan")
    
    ' تحديد آخر صف في ورقة العمل "tb_lgan"
    lastRowCommittees = wsCommittees.Cells(wsCommittees.Rows.Count, "A").End(xlUp).Row
    
    ' حلقة لتحديد اللجان وتوزيع الأدوار
    For teacherRow = 2 To lastRowTeachers ' نبدأ من الصف 2 لتجنب العناوين
        ' الشروط التي يجب تحقيقها لتوزيع الأدوار
        If wsTeachers.Cells(teacherRow, "work_cod").Value = 1 Then
            ' استدعاء دالة لتوزيع الأدوار
            DistributeRoles wsTeachers.Cells(teacherRow, "teach_cod").Value, wsTeachers.Cells(teacherRow, "gov_cod").Value
        End If
    Next teacherRow

    ' رسالة تأكيد عند الانتهاء
    MsgBox "تم توزيع الأدوار بنجاح!", vbInformation
End Sub

Sub DistributeRoles(teacherCode As Long, teacherGovCode As Long)
    ' يمكنك هنا تكميل الكود بتحديد وتوزيع الأدوار وفقًا لمتطلباتك
    ' يمكنك استخدام الأوامر SQL لاستعلام قواعد البيانات أو الشيتات المعنية
    ' على سبيل المثال: "SELECT * FROM tb_lgan WHERE gov_cod <> " & teacherGovCode
    
    ' يمكنك أيضًا تحديد الأفراد المؤهلين لتولي دور معين وتخزين رقم اللجنة في جدول tb_tashkeel
    ' يُفضل استخدام وظائف مساعدة لتحقيق ذلك بشكل فعّال
    ' يمكن أن يكون ذلك بمثابة نقطة بداية للتعديل وفقًا لاحتياجاتك الفعلية
End Sub
 

 

[Foksh]

في محاولة سابقة مني ، حاولت إنشاء قاعدة بيانات تحاكي ChatGPT بإن يتم طرح سؤال ، ويتم الرد على السؤال داخل النموذج 😅

لا أريد أن أشجع أو أحبط آمالي ؛ لكن المشروع كان ولا زال يحتاج عمل ومتابعة حتى يتم إنتاجه ..

سأحاول طرح الموضوع في موضوع مستقل ومشاركة الأساتذة خبراتهم للخروج بـ AccessGPT 😁

[محب العقيدة]

مع  احترامي للجميع والاستاذ موسى و ابو جودي 
اصبح chatgpt 
لا غنى عنه في شركات البرمجة فو نظرت 
الى vscode اصبح
Copilot 
اساسي للبرمجين في تكميل وكتابة الاكواد 
.وهو ليس مجاني بل اشتراكه 10دولارات
وانا شخصيا استخدمت الشات جي بي تي في بايثون وفلاتر وكان
مساعدا ممتازا حيث استطعت ان ابني تطبيق 
موبايل بسرعة وجودة عالية
ولعل اهم اسباب عدم الحصول على النتائج المطلوبة منه يعود اسباب
الاول عدم استخدام اللغة الانجليزية
الثاني عدم السؤال بطريقة الخوارزمية عند طلب كود برمجي فيكون السؤال كانك تبرمج ليس بالكود وانما بالكلام
اما صعوبة فيجوال بيسك فهذا ليس بصحيح فتصنيف اصعب لغات البرمجة ليس من ضمنها الفيجوال بيسك فهي باعتبار لغة متجه نحو الانقراض فلذلك استخدمت مايكروسوفت بايثون في اكسيل للاستفاد منه في تحليل البيانات والتنبؤ ومستقبلا في كشط البيانات من الانترنت فلو نظرة الى هذا المثال في كيفية استفادة المايكروسوفت اكسيل من بايثون
https://www.youtube.com/watch?v=2e0lVb0QbMA