اذهب الي المحتوي
أوفيسنا

أ / محمد صالح

أوفيسنا
  • Posts

    4,444
  • تاريخ الانضمام

  • Days Won

    192

كل منشورات العضو أ / محمد صالح

  1. السلام عليكم أحبتي في الله عذرا أخي ياسر كنت أظن أن تحويل الدالة لكود أمر سهل وخاصة بعد ما عرضت الفكرة وعلى العموم هذا الملف بعد تحويل الدالة لكود حتى تعم الفائدة Mas_Translator2.rar
  2. شكرا لجميع الإخوة على المرور الكريم والكلمات العطرة
  3. قي السطر الذي يحتوي على الشروط السطر رقم 15 عدل c.Value = "دون المستوى" إلى c.Offset(1, 0).Value = "دون المستوى" وهي لعمل دايرة على الدرجة إذا كان في الصف التالي لها دون المستوى
  4. بارك الله فيك أخي عبد الله ولإثراء الموضوع ضع هذه المعادلة في الخلية G3 =IF($B3<>"",DATE(YEAR($C3)+COLUMN(A$1)*5,MONTH($C3),+DAY($C3)),"") وانسخ المعادلة أفقيا ورأسيا كما تريد
  5. لا يوجد مشكلة نسخة الأوفيس لديك 2003 يمكنك الغاء تثبيتها وتثبيت اوفيس 2013
  6. في توضيحك ذكرت حالة واحدة أين باقي الشروط؟ متى يتم اختيار دائري 1 و 1.5 ومربع 1.2 و 1.5 و 2 ؟؟!!
  7. عدد الصفوف والأعمدة في إكسل مرتبط بالإصدار فنسخة إكسل 2003 وما قبلها: عدد الأعمدة 256 عمود وعدد الصفوف 65536 صف ونسخة إكسل 2007 وما بعدها: عدد الأعمدة 16384 عمود وعدد الصفوف 1048576 صف لذا أنصح باستعمال أحدث نسخة من الأوفيس حاليا 2013 ويوجد نسخة 2016 ولكن ما زالت تجريبية
  8. تفضل أخي الكريم تم إضافة شرط جديد لمن يكتب له في العمود التالي دورثان30% الدوائر الحمراء2.rar
  9. شكرا لمرورك أخي الصقر نفعنا الله وإياكم بما علمنا وعلمنا ما ينفعنا
  10. أنت الأجمل أخي إبراهيم وفقنا الله وإياكم لكل ما يحب ويرضى
  11. يمكنك نسخ أو نقل الكود الموجود في حدث form_activate إلى حدث form_open
  12. وعليك يا غالي مرورك على موضوعي شرف لي يا أبا آلاء
  13. فعلا مفيش مستحيل مع ياسر خليل سعيد بمرورك حبيبي أستاذ ياسر .............. بالنسبة لموضوع تلوين الكود موجود في فيديو سابق https://youtu.be/0yZ6w6p7Yts?t=14m44s
  14. بعض ما عندكم بشمهندس ياسر تقبل هزاري؟!! ميزان بالزاي وليست بالذال حبيبي يا هندسة أنا كل ميولي كانت للهندسة بس مكنتش أعرف إن مفيش هندسة في (الأدبي)
  15. وإياكم أخي الكريم حمادة وهذا فيديو لشرح استخدام التطبيق وبانتظار رأي الأحباب ممن حملوه وجربوه وفقنا الله وإياكم لكل خير
  16. أحبابي في الله زوار وأعضاء ومشرفي وإدارة أوفيسنا يسعدني أن أقدم لأحبابي فيديو جديد ومفيد بإذن الله لعمل نسخ احتياطي لبرنامجك ولكن الجديد أن الملف مضغوط بدون برامج ضغط باستعمال الويندوز ولا ينقصني سوى دعاؤكم لي بالخير ومشاركة أحبابكم هذا الفيديو فزكاة العلم نشره
  17. شكرا استاذ محمد بكذا حتى لوفتح الشفت من الخارج كلما فتح البرنامج يرجع القفل ولكن انت نسيت ترفق الــ SetProperties : Function ؟ شكرا لمرورك أخي الكريم أبو خليل يبدو أنني نسيت فعلا تضمين كود دالة setproperties هذا هو Public Function SetProperties(strPropName As String, _ varPropType As Variant, varPropValue As Variant) As Integer On Error GoTo Err_SetProperties Dim DB As DAO.Database, prp As DAO.Property Set DB = CurrentDb DB.Properties(strPropName) = varPropValue SetProperties = True Set DB = Nothing Exit_SetProperties: Exit Function Err_SetProperties: If Err = 3270 Then 'Property not found Set prp = DB.CreateProperty(strPropName, varPropType, varPropValue) DB.Properties.Append prp Resume Next Else SetProperties = False MsgBox "SetProperties", Err.Number, Err.Description Resume Exit_SetProperties End If End Function
  18. جزاك الله خيرا أخي .Azhar ولإثراء الموضوع لإلغاء زر الشيفت في قاعدة البيانات يوضع هذا الكود في حدث عند التحميل form_load للنموذج الذي تفتح عليه قاعدة البيانات SetProperties "AllowBypassKey", dbBoolean, 0 وفقنا الله وإياكم لكل خير
  19. أنا أول واحد قال: البشمهندس ياسر له مستقبل باهر في برمجة الإكسل ربنا يوفقك للخير يا بشمهندس أطالب بترقية البشمهندس إن استمر على هذه الفاعلية والنشاط
  20. شكرا لك أخي ياسر نفعنا الله وإياكم بما علمنا وعلمنا ما ينفعنا
×
×
  • اضف...

Important Information