محمد الزريعي

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

حاولت احسب سنتر المخطط ما زبط معي . 

استعين بخبراتكم . 

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

منذ ساعه, أحمد الفلاحجى said:

الصنف بتاعى مش مضروف ولا حاجه متخافش

صنف ميه ميه معتبر

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

بالتوفيق اخى

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

وهذا الفرق الشاسع بين الطبقتين ،، يخلق مشاكل عدم التجانس الفكري،، 

الصنف الي واخذه الاخ احمد الفلاحي مضروب ،، 

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

بحيث الواحد لو جاء يبحث يبحث في القسم الذي يريدة ،، بكل بساطة ،،

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

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

حساب وتحليل العهدة.rar

زي كذا 

حساب وتحليل العهدة.rar

test.rar

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

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

عندي الملف TEST الموجود في مجلد التقرير على الجهاز رقم 100 ومسوي له مشاركة لجميع الاجهزة .

الملف TEST يعمل من الجهاز رقم 100 بشكل طبيعي  ( أي عندما أنقر على تجربة  ينقلني الرابط على ملف تجربة في القرص D ) كما هو موضح في الصورة

لكن لو رحت الي الجهاز رقم 103  أو 104 أو 106 او أي جهاز أخر ،، ثم نقرت على رابط تجربة  تظر رسالة كان المجلد غير موجود ،  ولا ينقلني الي المجلد المطلوب ..

------------------------------------

شرح اخر اخي الحبيب ياسر ،

عندي عملاء في التقرير ،، لكل عميل له ملف خاص يحتوي على أوراق العميل الخاصة ، في القرص دي ،

عندما انقر على العميل في ملف اكسل ينقلني الرابط الي ملفة في القرص دي وهذا من جهازي ،

 أذا اراد احد الموظفين  الموجودين على الشبكة  الاطلاع على ملف العميل ،، لا يقدر ،،

-------------------------------------

المطلوب هو أذا نقرت انا من جهازي أو من أي جهاز اخر على الشبكة ، ينتقل الي مجلد العميل .

وشكراً لك اخي الحبيب ياسر خليل

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

هذا ملف للتجربة علية ..

TEST.rar

وفيه شرح اكثر .