محمد الزريعي

لقد حاولت بهذا الكود لكن الاشكال تتحرك داخل المخطط بطريقة غير صحيحة . حاولت احسب سنتر المخطط ما زبط معي . استعين بخبراتكم . 5.xlsm

مشكور : حسونة حسين على مشاركتك

اولا اخ ميدو شكرا على مشاركتك . وحبيت اقلك ان الكود لم يعمل معي يفضل كتابة الكود داخل الملف واعاده رفعة عشان يتضح لنا . ثانياً : الاخ محمد عبدالسميع . (انا اقصد بانني سويت اكواد ) هي اكواد عادية وعمليات حسابية داخل ملف ، وهذه العمليات الحسابية تخص منتجات التمويل . فلا نريد ان يتسرب هذا الملف يستخدمة كثير من الموظفين الخاصين بالشركة ، فأذا قام احد الموظفين بفك هذا الملف يقوم الملف بمسح العمليات الحسابية فقط ويرجع اكسل عادي . على سبيل مثال : التمويل = القسط الشهري * مدة التقسيط بالاشهر . فهذه معادلة واحدة من مجموعة معادلات ، فأنا عندما كتبت هذه المعادلات كتبتها اكواد ولا نريد احد الموظفين التعديل على هذه المعادلات الاساسية . واذا جاء فتح محرر الاكواد يشتغل الكود الخاص بمسح جميع المديولات التي فيها اكواد . اذا عندك كود لهذا يرجى التفضل منك بوضعه داخل ملف اكسل ورفع وشكرا

باسورد محرر الاكواد اوضح الصورة اكثر : انا عندي كذا مديول تعبت في عملهم ، سويت حماية للاكواد بحيث محد يقدر يدخل يعدل في الاكواد . لكن هذه الحماية ممكن كسرها . لذا قررت اعمل لها كود في حال كسر كلمة المرور واصبح محرر الاكواد مفتوحا ، يقوم البرنامج بمسح جميع المديولات وعمل حفظ للملف واغلاقه ماعدا المديول رقم 1 عندها اي واحد يكسر الحماية ، راح يفتح الملف و ماراح يجد المديولات غير المديول رقم 1 اي زي القنبلة الموقوته

مافي اي جواب على الموضوع ؟🙂

السلام عليكم الاخوة الكرام ، مرفق لكم ملف ، فيه جزئية مفقودة ، وهي 1- تحسس كلمة المرور اذا تم فتح التطبيق بطريقة غير شرعية ومن جهة غير معروفة ، يقوم بحذف جميع المديولات . 2- علما ان الباسورد لهذا الملف هو الرقم 1 حذف جميع الموديولات.xlsm

hip.xlsm كيف أقوم بفتح URL معين بمتصفح كروم ، ثم أقوم بكتابة اسم المستخدم وكلمة المرور وفتح الصفحة بضغطة زر . دون تأخير وقت أو أي أخطاء أخرى . التوضيح اكثر موجود داخل الملف المرفق .

مافي رد الله يكون في العون

اولاًَ الله يعطيك العافية على الرد ، ثانياً المطلوب كود وليس مصفوفة .. لانه عندي برنامج اكواد vba ثالثاً : اوضحها اكثر لك انني لا اريد الاسماء ،، اريده يقوم بترتيب المدة الاقرب للانتهاء ، ثم الكمية التي سوف تنتهي فقط بدون اسماء .

السلام عليكم ورحمة الله وبركاته الاخوة الاعزاء .. اتمنى ان اجد كود يقوم بجمع الكميات وترتيب الاصناف حسب المدة كما هو مرفق ، كود فقط . كود جمع الكميات وترتيب الاصناف حسب المدة على الانتهاء.xlsx

رسالة الطباعة أخي ياسر خليل أبو البراء بارك الله فيك استاذي الغالي .. بمعنى أخر : عندما تقوم بعمل طباعة من ملف ورد او اكسل أو اي ملف خارجي بدون مايكرو او .. عندما تظغط على امر طباعة تظهر رسالة أمر الطباعة ( انك قمت بتنفيذ امر طباعة وتختفي ) ، اي انه تم تنفيذ الامر . اريد ايقاف هذه الرسالة .. هل بالامكان او لا .. ----------------- الرسالة التي تظهر بعد تنفيذ امر الطباعة وقبل تخزين ورقة الطباعة في ذاكرة الطابعة .. اي ريدة يرسل امر الطباعة : بدون ما تظهر رسالة على الكمبيوتر لا حس والا خبر .. بس مجرد ما اضغط على موافق تشتغل الطابعة .

طبعاً اليوم أردت اطبع ( نموذج عدة صفحات ) بحيث تكون كل صفحة ليوم واحد فقط . اي انني اكتب فيها التاريخ وصعب جداً انني اغير في النموذج التاريخ لمدة شهرين . فقمت بعمل الكود التالي ليقوم بطباعة النموذج مع تغيير التاريخ تلقائياً مع استثناء يوم الجمعة والسبت : أولاً : قم بأنشاء فورم ثانياً : قم بأنشاء تكست بوكس وزر داخل الفورم ثالثاً : ضع هذا الكود داخل الزر . 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

السلام عليكم ورحمة الله وبركاته عيدكم مبارك وكل عام وانتم بخير . لاول مرة اعرف ان خانات اكسل لها عدد محدود للأرقام اي طول الاعداد فقط 15 رقم وبعد كذا اي رقم بعد 15 رقم يعتبرة صفر ملف اكسل . وهذه مشكلة ، عندي . هل بالامكان وضع الكود التالي لحل هذه المشكلة هو : اذا كان اقل من 16 رقم يخزنه كرقم واذا كان اكبر من 15 رقم يخزنة كنص .. كما هو في الصورة ياليتكم تساعدوني في حل هذه المشكلة وشكراً . المطلوب كود يقوم بحفظ الارقام اذا كان اقل او يساوي 15 خانة رقم يحفظة كرقم . واذا كان اكثر من ذالك يحفظة كنص .. ويقوم بتسيق الخلية نصية ، اي لها علامة خظراء على اليمين .

هذا الكود يقوم بتحويل الفقرات الموجودة داخل الخلية الواحدة ، الي فقرة ( سطر ) واحد فقط . لكي يتنسق معك الصفوف بشكل جميل . بدل ما يكون عندك سطر ارتفاعة كثير لوجود فقرات فية . كما هو في الصورة المرفقة . 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 ) . الكود منسوخ من موقع غير عربي .

حاضر اساتذتي الكرام .. هذا الكود // للمعذرة ماكنت اعرف هذه الطريقة 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

بالامس قمت بتصدير ملف اكسل من برنامج خارجي . لكنه صدر لي الارقام بطريقة تكست . ( رقم بس يقراه الكمبيوتر نص ) . ولازم تقوم تعمل تنسيق الخلايا رقم . بحثت على الكود الخاص بهذه المشكلة فوجت الكود التالي . وحبيت اطرحة لمن يريد الاستفادة . 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

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

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

عندي هذا الملف يمكن يفيدك فقط غير اسماء الاصناف في الصفحة الاولى وراح يمشي معاك .. او خذ منه الطريقة التي قمت بها . حساب وتحليل العهدة.rar زي كذا حساب وتحليل العهدة.rar

الطريقة التي مشت معي هي نفس الطريقة التي قال فيها الاستاذ أبو عيد وهي 1 قمت بوضع مشاركة للمجلد الذي في القرص D ( وهو المجلد الذي نشير الية بالربط ) 2 ثم قمت بربط كلمة test الموجودة في الخلية b3 مع المجلد الذي اسمة test في القرص دي طريقة الربط موجودة في الكود بقية الشرح موجود في داخل الملف المرفق -------------------------------------------- شكراً لكم جميعاً استاتذي الكرام . ------------------------------------- أحمد الفلاحجى ياسر خليل أبو البراء ياسر العربى أبوعيد nasersaeed أبو قاسم --------------------------- test.rar

اسف جداً على عدم الرد السريع مني اخي أحمد الفلاحجي ، لسبب أنني تعبت يومين من تغيرات الجو والبرد ، الله يعافيكم ،، وسوف اقوم بتجربة الاستاذ ابو عيد ،

اخي ياسر العربي .. جربت هذا الكود ، ما اشتغل معي ،،

عندي الملف TEST الموجود في مجلد التقرير على الجهاز رقم 100 ومسوي له مشاركة لجميع الاجهزة . الملف TEST يعمل من الجهاز رقم 100 بشكل طبيعي ( أي عندما أنقر على تجربة ينقلني الرابط على ملف تجربة في القرص D ) كما هو موضح في الصورة لكن لو رحت الي الجهاز رقم 103 أو 104 أو 106 او أي جهاز أخر ،، ثم نقرت على رابط تجربة تظر رسالة كان المجلد غير موجود ، ولا ينقلني الي المجلد المطلوب .. ------------------------------------ شرح اخر اخي الحبيب ياسر ، عندي عملاء في التقرير ،، لكل عميل له ملف خاص يحتوي على أوراق العميل الخاصة ، في القرص دي ، عندما انقر على العميل في ملف اكسل ينقلني الرابط الي ملفة في القرص دي وهذا من جهازي ، أذا اراد احد الموظفين الموجودين على الشبكة الاطلاع على ملف العميل ،، لا يقدر ،، ------------------------------------- المطلوب هو أذا نقرت انا من جهازي أو من أي جهاز اخر على الشبكة ، ينتقل الي مجلد العميل . وشكراً لك اخي الحبيب ياسر خليل

اخي احمد الفلاحجي ،، مافي احد رد عالطلب ،، هل ارفعة مرة اخرى من جديد .. هل هذا مسموح في الموقع .. ؟؟؟

هذا ملف للتجربة علية .. TEST.rar وفيه شرح اكثر .