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

محمد الزريعي

03 عضو مميز
  • Posts

    192
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

28 Excellent

عن العضو محمد الزريعي

  • تاريخ الميلاد 20 فبر, 1989

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    طالب

اخر الزوار

1,803 زياره للملف الشخصي
  1. اولا اخ ميدو شكرا على مشاركتك . وحبيت اقلك ان الكود لم يعمل معي يفضل كتابة الكود داخل الملف واعاده رفعة عشان يتضح لنا . ثانياً : الاخ محمد عبدالسميع . (انا اقصد بانني سويت اكواد ) هي اكواد عادية وعمليات حسابية داخل ملف ، وهذه العمليات الحسابية تخص منتجات التمويل . فلا نريد ان يتسرب هذا الملف يستخدمة كثير من الموظفين الخاصين بالشركة ، فأذا قام احد الموظفين بفك هذا الملف يقوم الملف بمسح العمليات الحسابية فقط ويرجع اكسل عادي . على سبيل مثال : التمويل = القسط الشهري * مدة التقسيط بالاشهر . فهذه معادلة واحدة من مجموعة معادلات ، فأنا عندما كتبت هذه المعادلات كتبتها اكواد ولا نريد احد الموظفين التعديل على هذه المعادلات الاساسية . واذا جاء فتح محرر الاكواد يشتغل الكود الخاص بمسح جميع المديولات التي فيها اكواد . اذا عندك كود لهذا يرجى التفضل منك بوضعه داخل ملف اكسل ورفع وشكرا
  2. باسورد محرر الاكواد اوضح الصورة اكثر : انا عندي كذا مديول تعبت في عملهم ، سويت حماية للاكواد بحيث محد يقدر يدخل يعدل في الاكواد . لكن هذه الحماية ممكن كسرها . لذا قررت اعمل لها كود في حال كسر كلمة المرور واصبح محرر الاكواد مفتوحا ، يقوم البرنامج بمسح جميع المديولات وعمل حفظ للملف واغلاقه ماعدا المديول رقم 1 عندها اي واحد يكسر الحماية ، راح يفتح الملف و ماراح يجد المديولات غير المديول رقم 1 اي زي القنبلة الموقوته
  3. السلام عليكم الاخوة الكرام ، مرفق لكم ملف ، فيه جزئية مفقودة ، وهي 1- تحسس كلمة المرور اذا تم فتح التطبيق بطريقة غير شرعية ومن جهة غير معروفة ، يقوم بحذف جميع المديولات . 2- علما ان الباسورد لهذا الملف هو الرقم 1 حذف جميع الموديولات.xlsm
  4. hip.xlsm كيف أقوم بفتح URL معين بمتصفح كروم ، ثم أقوم بكتابة اسم المستخدم وكلمة المرور وفتح الصفحة بضغطة زر . دون تأخير وقت أو أي أخطاء أخرى . التوضيح اكثر موجود داخل الملف المرفق .
  5. اولاًَ الله يعطيك العافية على الرد ، ثانياً المطلوب كود وليس مصفوفة .. لانه عندي برنامج اكواد vba ثالثاً : اوضحها اكثر لك انني لا اريد الاسماء ،، اريده يقوم بترتيب المدة الاقرب للانتهاء ، ثم الكمية التي سوف تنتهي فقط بدون اسماء .
  6. السلام عليكم ورحمة الله وبركاته الاخوة الاعزاء .. اتمنى ان اجد كود يقوم بجمع الكميات وترتيب الاصناف حسب المدة كما هو مرفق ، كود فقط . كود جمع الكميات وترتيب الاصناف حسب المدة على الانتهاء.xlsx
  7. رسالة الطباعة أخي ياسر خليل أبو البراء بارك الله فيك استاذي الغالي .. بمعنى أخر : عندما تقوم بعمل طباعة من ملف ورد او اكسل أو اي ملف خارجي بدون مايكرو او .. عندما تظغط على امر طباعة تظهر رسالة أمر الطباعة ( انك قمت بتنفيذ امر طباعة وتختفي ) ، اي انه تم تنفيذ الامر . اريد ايقاف هذه الرسالة .. هل بالامكان او لا .. ----------------- الرسالة التي تظهر بعد تنفيذ امر الطباعة وقبل تخزين ورقة الطباعة في ذاكرة الطابعة .. اي ريدة يرسل امر الطباعة : بدون ما تظهر رسالة على الكمبيوتر لا حس والا خبر .. بس مجرد ما اضغط على موافق تشتغل الطابعة .
  8. طبعاً اليوم أردت اطبع ( نموذج عدة صفحات ) بحيث تكون كل صفحة ليوم واحد فقط . اي انني اكتب فيها التاريخ وصعب جداً انني اغير في النموذج التاريخ لمدة شهرين . فقمت بعمل الكود التالي ليقوم بطباعة النموذج مع تغيير التاريخ تلقائياً مع استثناء يوم الجمعة والسبت : أولاً : قم بأنشاء فورم ثانياً : قم بأنشاء تكست بوكس وزر داخل الفورم ثالثاً : ضع هذا الكود داخل الزر . Private Sub CommandButton1_Click() Application.ScreenUpdating = False 'كود لايقاف اهتزاز الشاشة Application.DisplayAlerts = False 'كود منع الرسائل التحذيرية Application.EnableEvents = False Application.Calculation = xlCalculationManual r = TextBox1.Value If Not IsNumeric(r) Then TextBox1.Value = "" GoTo neha End If dat = Date For i = 1 To r ActiveSheet.Range("D2").Value = dat xx = Weekday(dat) If xx = 6 Or xx = 7 Then egaza = egaza + 1 Else ActiveSheet.PrintOut End If dat = dat + 1 Next i Unload Me neha: Application.ScreenUpdating = True Application.DisplayAlerts = True Application.EnableEvents = True Application.Calculation = xlAutomatic End Sub يستفاد من هذا الكود لمن يريد طباعة صفحات بأرقام متسسلسة زي الفواتير وما شابها مع تحديد مكان الخلية . هذا الكود مشاركة فقط . في حاجة بسيطة وهي .. عندما اطبع تظهر رسالة ( امر الطباعة كل مرة يتغير فيها الرقم ) تطبع طبيعي ولكن الرسالة مزعجتني شوي . اتمنى من لدية فكرة في اخفاء هذه الرسالة . يشاركني الموضوع وشكراً . تقرير الاتصالات.rar
  9. السلام عليكم ورحمة الله وبركاته عيدكم مبارك وكل عام وانتم بخير . لاول مرة اعرف ان خانات اكسل لها عدد محدود للأرقام اي طول الاعداد فقط 15 رقم وبعد كذا اي رقم بعد 15 رقم يعتبرة صفر ملف اكسل . وهذه مشكلة ، عندي . هل بالامكان وضع الكود التالي لحل هذه المشكلة هو : اذا كان اقل من 16 رقم يخزنه كرقم واذا كان اكبر من 15 رقم يخزنة كنص .. كما هو في الصورة ياليتكم تساعدوني في حل هذه المشكلة وشكراً . المطلوب كود يقوم بحفظ الارقام اذا كان اقل او يساوي 15 خانة رقم يحفظة كرقم . واذا كان اكثر من ذالك يحفظة كنص .. ويقوم بتسيق الخلية نصية ، اي لها علامة خظراء على اليمين .
  10. هذا الكود يقوم بتحويل الفقرات الموجودة داخل الخلية الواحدة ، الي فقرة ( سطر ) واحد فقط . لكي يتنسق معك الصفوف بشكل جميل . بدل ما يكون عندك سطر ارتفاعة كثير لوجود فقرات فية . كما هو في الصورة المرفقة . Sub RemoveCarriageReturns() Dim MyRange As Range Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For Each MyRange In ActiveSheet.UsedRange If 0 < InStr(MyRange, Chr(10)) Then MyRange = Replace(MyRange, Chr(10), "") End If Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub هذا الكود للفائدة . فقط .. وخلاصة الكود ( داخل الشرط If ) . الكود منسوخ من موقع غير عربي .
  11. حاضر اساتذتي الكرام .. هذا الكود // للمعذرة ماكنت اعرف هذه الطريقة Sub ConvertTextNumberToNumber() For Each WS In Sheets On Error Resume Next For Each r In WS.UsedRange.SpecialCells(xlCellTypeConstants) If IsNumeric(r) Then r.Value = Val(r.Value) Next Next End Sub
  12. بالامس قمت بتصدير ملف اكسل من برنامج خارجي . لكنه صدر لي الارقام بطريقة تكست . ( رقم بس يقراه الكمبيوتر نص ) . ولازم تقوم تعمل تنسيق الخلايا رقم . بحثت على الكود الخاص بهذه المشكلة فوجت الكود التالي . وحبيت اطرحة لمن يريد الاستفادة . Sub ConvertTextNumberToNumber() For Each WS In Sheets On Error Resume Next For Each r In WS.UsedRange.SpecialCells(xlCellTypeConstants) If IsNumeric(r) Then r.Value = Val(r.Value) Next Next End Sub
×
×
  • اضف...

Important Information