نجوم المشاركات

بسم الله الرحمن الرحيم بناء على طلب أخينا الكريم عبد الله المجرب (أبو أحمد) يتم هنا مناقشة دالة الرسائل التي تظهر لمدة محددة بالثواني ثم تختفي تلقائياً الصيغة العامة لها intButton = object.Popup(strText,[nSecondsToWait],[strTitle],[nType]) شرح البارامترات object : كائن wscript الذي تم إنشاؤه strText : نص الرسالة (مطلوب) nSecondsToWait : عدد ثواني بقاء الرسالة على الشاشة (اختياري) القيمة الافتراضية 0 وتعني عدم اختفاء الرسالة إلا بعد الضغط على زر فيها strTitle : عنوان الرسالة (اختياري) إذا لم يتم كتايته يظهر "Windows Script Host" nType : رقم يحدد الأزرار والأيقونات المستعملة في الرسالة (اختياري) وترجع الدالة رقم intButton الخاص برقم الأزرار التي ضغطها المستخدم حتى يخفي الرسالة ويهمنا في هذا المقام الأزرار والأيقونات وهي كالتالي وهي مثل دالة msgbox العادية في أنه يمكنك جمع قيمتين أو أكثر سواء بعلامة + أو بكتابة حاصل الجمع الفعلي فمثلا لعمل رسالة بها زر نعم أولا وأيقونة علامة الاستفهام نكتب 4+32 أو 36 نأتي الآن للقيمة التي ترجعها الدالة نأخذ مثالاً set WshShell = CreateObject("WScript.Shell") Result = WshShell.Popup("This is a popup box!", 10, "Title", 65) ويمكن تنفيذ الأمر بدون وضع القيمة الراجعة في متغير set WshShell = CreateObject("WScript.Shell") WshShell.Popup "This is a popup box!", 10, "Title", 65 ويمكنك استعمال هذه الدالة من تصميمي للتعامل مع popup Function msg(strText As String,nSecondsToWait as integer, strTitle As String, nType As Integer) CreateObject("WScript.Shell").Popup strText,nSecondsToWait,strTitle,nType End Function طريقة استعمالها Sub mas() msg "text", 2, "title", 4+256 End Sub .... وفي الأخير لا ينقصني سوى دعاؤكم وفقنا الله وإياكم لكل ما يحب ويرضى

السلام عليكم شاهدوا هذا العمل خطوة خطوة لو كانت عند احدكم صورة للاحرف على شكل صف بتساوي المسافات فيما بينها حيكون افضل وسيتم اختصار الكود Private Sub LabelABC_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Dim Lft!, i% i = Int(X / 14) Me.LabelABCD.Caption = Chr(i + 65) Lft = (i * 14) + Me.LabelABC.Left Select Case i: Case 10 To 12, 19 To 22: Lft = Lft - 2: End Select Me.LabelABCD.Left = Lft End Sub Dim Lft!, i% تعريف المتغيرات باختصار %=Integer !=Single x هو موقع الفارة من اليسار الى اليمين على العنصر وهي قيمة جاهزة من متغيرات الكود سؤال : الرقم 14 ؟ x / 14 اي هو الرقم 14 وليه نقسم الاكس في هذا الرقم منتظر الاجابة بحث بالاحرف.rar

السلام عليكم بالنسبة للرسالة تعتبر كشخه فقط ولا يهمك ياعم اكشخ براحتك هذا الكود Sub ALidroos_CP_S() Dim A_R As Range, ALI_R As Range CreateObject("Wscript.shell").Popup "إنتظر قليلاً حتى الإنتهاء من معالجة البيانات", 1, "إنتظار !!!!", vbExclamation Set ALI_R = Range("A2:A86") For Each A_R In ALI_R A_R = Trim(WorksheetFunction.Substitute(A_R, "-", "")) A_R = Trim(WorksheetFunction.Substitute(A_R, "_", "")) Next CreateObject("Wscript.shell").Popup "تمت معالجة البيانات بنجاح", 5, "تمت العملية والحمد لله ", vbInformation End Sub جرب وبلغنا بالنتائج تحياتي

بسم الله الرحمن الرحيم تكملة لمشوار الأساتذة وتجميعاً للجهود قمت بهذا العمل التجميعي وبعد إذن أخونا خبور خير تم تعديل الكود الخاص به كدالة mas_Max_Req1.rar