هل كودات الاكسل تعمل على الاكسس ؟

[حيدر البكري]

السلام عليكم ورحمة الله وبركاته 

اخواني هل كودات الاكسل تعمل على الاكسس ؟ 

وهل كودات الاكسس تعمل على الاكسل ؟ 

شكراً جزيلاً لكم 

[Eng.Qassim]

وعليكم السلام...

على الرغم من أن اللغتين تشتركان في بعض أوجه التشابه ، إلا أن بناء الجملة وهيكل الكود يختلفان.

ستحتاج إلى إجراء تعديلات على الكود لجعله يعمل في كل تطبيق.

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

كمثال بسيط  لتجميع حقلين في حقل واحد في اكسس

Dim strConcat As String
strConcat = Me.field1 & " " & Me.field2

بينما في اكسل

Dim strConcat As String
strConcat = Range("A1").Value & " " & Range("B1").Value

 

تم تعديل فبراير 17, 2023 بواسطه Eng.Qassim

[حيدر البكري]

احسنت استاذ للاجابة الرائعة

[Eng.Qassim]

احسن الله اليك استاذ حيدر ...

بصراحة كنت سابقا لا أستغني عن الاكسل في مشاريعي الانشائية من حساب كميات المواد على مختلف انواعها او حساب حجم الانجاز.. للمرونة الكبيرة في استخدام الخلايا 

لكن من فترة ليست بالبعيدة بالنسبة لكبر سني ..عشقت الاكسس كثيرا وبت لا استغني عنه

لكن بالنسبة لك ..ومن الواضح بأنك في ريعان الشباب ..وربي يحفظك

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

بالتوفيق يارب

[Moosak]

من تجربتي الشخصية ..

هذه أحد الطرق لاستدعاء أحد أكواد الأكسل إلى الأكسس وهي دالة RandBetween  :

Public Function RandBetween2Num(Num1 As Double, Num2 As Double) As Double
Dim Ex As Object
Set Ex = Excel.WorksheetFunction
RandBetween2Num = Ex.RandBetween(Num1, Num2)
End Function

هذه الدالة مستدعاه من دوال الأكسل ، لذلك يجب إضافة مكتبة الأكسل .. Microsoft Excel 16.0 Object Library
في السطر التالي  Ex.RandBetween(Num1, Num2) ممكن تختار دالة من دوال الأكسل لاستخدامها في الأكسس..

بس بعضها تشتغل وبعضها لا ..

[ابو جودي]

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