تجميعة اكواد متجدد ان شاء الله

[محمد مصطفى ابو حمزة]

كود لصناعة عد تنازلى فى شريط الحالة ممكن وضعه فى بداية كود طويل او عند التحديث فى ملف بطىء

Sub CountDown()

   Dim intCounter As Integer

   Dim bln As Boolean

   bln = Application.DisplayStatusBar

   Application.DisplayStatusBar = True

   For intCounter = 30 To 1 Step -1

	  Application.StatusBar = intCounter & " Seconds..."

	  Application.Wait Now + TimeSerial(0, 0, 1)

   Next intCounter

   Application.StatusBar = False

   Application.DisplayStatusBar = bln

End Sub

[محمد مصطفى ابو حمزة]

لعرض رسالة فى شريط الحالة لمدى معينة

Sub StatusBarExample()

    Application.ScreenUpdating = False

    ' turns off screen updating

    Application.DisplayStatusBar = True

    ' makes sure that the statusbar is visible

    Application.StatusBar = "انتظر قليلا منتدى اوفيسنا..."

    ' add some code for task 1 that replaces the next sentence

    Application.Wait Now + TimeValue("00:00:02")

    Application.StatusBar = " انتظر قليلا منتدى اوفيسنا....."

    ' add some code for task 2 that replaces the next sentence

    Application.Wait Now + TimeValue("00:00:02")

    Application.StatusBar = False

    ' gives control of the statusbar back to the programme

End Sub

[محمد مصطفى ابو حمزة]

كود حفظ نسخة احتياطية فى نفس الفولدر

نسخة.rar

[محمد مصطفى ابو حمزة]

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

نسخ تاريخ محدد الى صفحة جديدة.rar

[عبدالله المجرب]

^{أخى العزيز / محمد}

^{أشكرك على إفادتك القيمة ، وأعتذر عن التأخير فى الرد}

^{ولكن أخى العزيز الكود بوضعه الحالى يتحكم فى إجمالى أو فى كل ما يتم إدخاله بالخليه}

^{بمعنى أنه لايقبل أكثر من 5 أرقام بالخليه سواء قمت بإدخال 12345 أو 123.45}

^{وهو خلاف ما أقصده تماماً}

^{فما أقصده هو أن يتحكم الكود فقط فى ألا يزيد ما يتم إدخاله بعد العلامه العشريه}

^{ودون أن يتحكم مطلقاً فى عدد أرقام ماقبل العلامه}

^{بمعنى إن أردت أن أدخل 2597765.79 جنيه مصرى فيتم قبولها ودون حد أقصى للأرقام التى تدرج قبل العلامه.}

^{وبمعنى آخر أن يتحكم الكود فى الرقمان العشريان (القروش) فقط لاغير ، وألا يقبل أن يزيدا عن رقمان.}

^{أرجو ألا أكون قد أثقلت عليك}

^{فى إنتظار إفاداتك القيمه}

^{لك خالص شكرى وتقديرى}

^أخوك

^{عيد مصطفى}

اخي عيد اليك هذا الحل ارجو منك نجربته

Private Sub Worksheet_Change(ByVal Target As Range)

    For Each cell In UsedRange

If IsNumeric(cell) Then r = Mid(cell, (InStr(cell, ".") + 1), 10)

		  If Len(r) > 2 Then

		   MsgBox " عدد الاحرف أكثر من المسموح به"

    cell.Value = ""

   End If

    Next

End Sub

[محمد مصطفى ابو حمزة]

الله ينور اخى ابو عبدالله استخدام رائع للدوال فى الكود

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

Private Sub Worksheet_Change(ByVal Target As Range)

	For Each cell In UsedRange

If IsNumeric(cell) Then r = Mid(cell, (InStr(cell, ".") + 1), 10)

				  If Len(r) > 2 Then

				   MsgBox " عدد الاحرف اكثر من المسموح به"

	cell.Value = Int(cell.Value) + (Left(r, 2) / 100)

   End If

	Next

End Sub

[Eid Mostafa]

أخى العزيز / عبد الله

أشكرك على الإهتمام والرد ، وجارى تجربة الكود وسأعلمك بالنتيجة

مرة أخرى

حمد لله على السلامه

وعمرة مقبولة بإذن الله

وعقبال الحج لكم ولنا بإذن الله تعالى

أخوك

عيد مصطفى

[Eid Mostafa]

أخى العزيز / محمد مصطفى

لك أيضاً كل الشكر على الإهتمام والرد ، وجارى تجربة الكود وسأعلمك بالنتيجة

أخوك

عيد مصطفى

[hussein chechen]

مشكور بس ياريت لو في نماذج حية على الكودات نموذج يتم عمل الكود فيه لو في عليك غلبة

[abdunra]

اخي محمد احييك واثمن مجهودك واسأل الله العلي القدير ان يرفع درجاتك اميين يارب

[abdunra]

سؤال اخي محمد هل يمكن ان اقيم عملية حسابية في شيت 1 واجري نفس العملية في شيت 2 وكذلك في شيت 3

[محمد مصطفى ابو حمزة]

هل ممكن التوضيح اكثر ولو بمثال اخى الكريم

[m_aly]

السلام عليكم

هل يختلف ربط المكرو بزر عن ربط الموديل بزر ؟

وكيف

شكرآ

[رعد العزاني]

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

[رعد العزاني]

أشكركم أخوني جزيل الشكر

[حمادة عمر]

السلام عليكم

الاخ والاستاذ / محمد مصطفى ابو حمزة

 

موضوع جميل ومميز حقا

وكله روااائع

جزاك الله خيرا

وجعله في ميزان حسناتك

[ابن بنها]

جزاك الله خيرا
مجهود كبير بارك الله فيك

 

ولكن لو تم وضع ملف بعد كل كود

لاصبحت الدعوات الطيبه لكم اكثر

لان الملف كان سيساعد على الفهم والتطبيق

[ايمن ابو علام]

اعمال رائعة لكل الشكر والتقدير