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

[دروب مبرمج]

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

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

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

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

[عمر ضاحى]

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

[Moosak]

8 ساعات مضت, عمر ضاحى said:

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

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

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

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

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

[Moosak]

6 ساعات مضت, عماد الدين الغنامى said:

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

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

 

[ابو جودي]

7 ساعات مضت, عماد الدين الغنامى said:

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

فعلا انت صح

21 دقائق مضت, Moosak said:

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

ده كمان صح

21 دقائق مضت, Moosak said:

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

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

 

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

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

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

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

 

[Moosak]

9 دقائق مضت, ابو جودي said:

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

 

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

[ابو جودي]

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

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

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

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

[ابو جودي]

2 ساعات مضت, خالد عبد الغفار said:

فعلا غبى جدا

الله يسامحك 

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

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

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

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

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

[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