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

السلام عليكم أخي العزيز جرب المرفق مجلد به ملف اكسل وزر وفي نفس المجلد به ملف تيكست إسمه alburag.txt وبه أكثر من 200,000 رقم والكود بالإكسل بسيط يمكنك تعديله Sub nnn() On Error Resume Next pt = ActiveWorkbook.Path myFile = pt & "\alburag.txt" Open myFile For Input As #1 Do While Not EOF(1) Input #1, x i = i + 1 Cells(i, 2) = "'" & x Loop Close #1 End Sub أولا فك ضغط الملفين في مجلد واحد ثم افتح الإكسل وجرب تضغط الزر Al_Burg.rar

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

السلام عليكم عندي نموذج وفيه أسماء الموظفين ما هي ألطريقه لجعل الأسماء تكون بالأبجدية

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

السلام عليكم و رحمة الله و بركاته اخي الحبيب الاستاذ / ابو محمد اشرف يمكن لحضرتك استخدام برنامج DriverPack Solution و هو يحتوي على جميع التعريفات و مساحته كبيره جدا 3.5 جيجا تعريفات لمختلف الاجهزه و ان لم تصل لحل ابلغني و ان شاء الله نجد حل بعون الله و الله المستعان و السلام عليكم و رحمة الله و بركاته

السلام عليكم الاخ /احمد عبد الناصر ...الف مليون مبروك على الترقية التى تستحقها ، فبصماتك واضحة فى المنتدى ، الى الامام دائما. الاخ/عمرو.....بارك الله فيك ، ونفع بك ، ترقية مستحقه اعمالك كلها جميله فالف الف مبروك

استبدل الكود بالتالي Sub mm() c = [B1] * 5 - 3 Sheet1.Activate x = WorksheetFunction.CountA(Range(Cells(5, c + 1), Cells(200, c + 3))) If x > 0 Then MsgBox "يوجد بيانات في هذا اليوم من قبل" & Chr(10) & "لن يتم الترحيل": Exit Sub Sheet2.[B4:F200].Copy Cells(4, c) End Sub

السلام عليكم أخي الكريم تفضل ماطلبت بالمرفق اجمالي شهري تغذية.rar

الف مليووووووووووووووووووون شكر على هذا الفيديو الايضاحى الجميل وجزاك الله كل خيررررررررررر

السلام عليكم الأخت الفاضلة بالمرفق وضعت أسماء تجريبية لعدد من الموظفين وفرضت أوقات الحضور للعمل علي أساس الموعد الرسمي الساعة 8:00 ووضعت شهر كامل (إفتراضي) جربي وأخبريني تأخيرات الموظفين.rar

الاخ محسن المحترم ياريت لو ترفق الملف الي انت شغال عليه عشان يكون عندنا فكره عن المطلوب ولو البيانات سريه ممكن انك تستبدلها باي بيانات وهميه وان شاء الله نقدر نساعدك وشكراً ،،،،،،

فى word 2007 بالضغط على زر الاوفيس (دائرة الاوفيس أعلى صفحة ال word شمال) ثم الضغط على زر word option الموجود فى نهاية القائمة المنسدلة والضغط على تبويب advanced ثم من الجزء الخاص ب display نختار وحدة الاطوال التى نريدها من المستطيل الذى بجوار جملة show measurements in units of فى word 2003 من قائمة أدوات ننقر فوق خيارات ثم علامة التبويب عام من مربع وحدات القياس ننقر فوق الخيار المطلوب