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

بسم الله الرحمن الرحيم الجزء العملي من الفصل الرابع (الكائنات objects ) ويبقى جزء بسيط قريباً إن شاء الله ولا ينقصني سوى دعاؤكم

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

السلام عليكم اذا تسمحوا لي ... هذه مساهمة مني للموضوع Sub DropDown1_Change() sh_list Sheets(Sheets(1).Shapes("Drop1").ControlFormat.Value).Select End Sub Private Sub Workbook_SheetActivate(ByVal Sh As Object) sh_list End Sub Sub sh_list() Sheets(1).[a2:a100] = Empty Dim Sh1 As Worksheet For Each Sh1 In ActiveWorkbook.Sheets Sheets(1).Range("a5000").End(xlUp).Offset(1, 0) = Sh1.Name Next Sh1 End Sub sheeet.rar

السلام عليكم عندما بدأت فى رفع هذا الفديو - بعد أن اقتصصت منه بضع دقائق - كى لا يزيد عن 15 دقيقة هى المدة المسموح بها فى موقع يوتيوب و عندما بدأت الرفع جاءتنى رسالة تهنئة من الموقع بأن حسابى قد تم اختياره ليتمكن من رفع فديوهات بأى طول أكثر من 15 دقيقة يبدو أن هذا للمستخدمين الذين يتبعون تعليمات يوتيوب و قواعدهم بدقة الحمد لله يعنى يمكننا مثلا رفع فديو ساعة نشرح فيها عظيم جدا ترحيل البيانات أمر مهم جدا فى عالم الأكواد الترحيل بطريقة حلقات التكرار يسبب بطء الكود لأنك تتفحص الشرط فى كل خلية قبل أن تقر هل ترحل هذا الصف أم لا و ذلك مثلا عند ترحيل الناجحين الطريقة الجديدة - الجديدة على طبعا - توفر سرعة لا تقل عن 80% وتلاحظون ذلك فى الملف المرفق الآن إلى الفديو سنتعلم أيضا كيف نجمع بين الماكرو المسجل والماكرو المكتوب يدويا وهذه مهارة ضرورية جدا للمبرمج إلى الفديو الترحيل بالفلترة.zip

اعتذر أخي حسين .... وشكرا على الملاحظات سوء تقدير مني