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

السلام عليكم شاهد المرفق 2010 بحث بواسطة حرف اول.rar

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

بسم الله الرحمان الرحيم اقدم لكم اليوم طريقة تحويل تحويل ملف الاكسل الى exe ثم تغيير الايقونة ثم Setup نبدأ بالتحويل الى ملف تنفيذي تساعد هته العملية في حماية تشفيير الملف ويسعب بعدها اختراقه والعبث فيه لنقوم بهته العملية نحتاج الى برنامج يدعى XLtoEXE وهذا رابط تحميلة http://cpap.com.br/orlando/download2/XLtoEXE.zip البرنامج لا يحتاج لى تثبيت نقوم مباشرتا بفك الضغط عن الملف وفتح البرنامج اولا نختار الملف المراد تحويله كما في الصورة ثانيا الاعدادات الازمة في البرنامج ثم بعدها سيطلب منك مكان الحفظ اختر المكان ثم موافق ستلاحظ ان الملف حول الى ملف تنفيذي ولتتأكد من ذالك اعمل كليك يمين ثم خصائص وشاهد نوع الملف بعد فتحكم للملف اجري اي تغيرات و وافق على الحفط عند الخروج ستلاحظ ان الملف قد انشأ Backup اي انه صنع نسخة احتاطية لنفسه لاتقم بحذفها ملاحظة : يجب ان تكون تسمية الملف بالانجليزية لان التحويل لن ينجح اذا كانت بالعربية الأن نأتي الى تغيير ايقونت الملف الذي حولناه للقيام بذلك نحتاج الى برنامج Exe Icon Changer وهذا رابط تحميله http://www.mediafire...con_Changer.rar ملاحظة بخصوص برنامج تغيير الايقونات عليك بالغاء الحماية عند تثبيته بعد التثبيت اذهب الى التسجيل وادخل السريال المرفق مع الملف الذي حملته وهذا فيديو يشرح طريقة استعمال البرنامج http://www.youtube.c...h?v=NtZfTFVmGWc نأتي الى المرحلة الاخيرة وهي تحويل الملف الى برنامج Setup الفائدة من هذا البرنامج هي جمع جميع الاضافات التي تريدها مع الاكسل كالصور مثلا في ملف واحد وكذالك حماية الملف من الحذف حيث انه سيصبح لدينا راكورس للملف وهذا يحدث بعد التثبيت طبعا هذا رابط البرنامج http://www.jrsoftware.org/isdl.php بعد تثبيتك الى البرنامج نأتي الان الى طريقة العمل به وللقيام بذالك تابع الصور بالتوالي بعد الانتهاء ستجد عملك داخل الملف الذي اخترته على شكل Setup كأي برنامج عادي ولتشاهد ملف اجريت عليه كل ماسبق شاهد موضوعي برنامج خاص لاصحاب محلات بيع الموبيلات (شوقي ربيع) أكون الان قد انتهيت من شرحي المتواضع هذا ارجومن الله ان اكون قد وفقت فيه وأن تكون فائدته عامة على الجميع مع تحيات أخوكم شوقي ربيع

يوجد العمود الاول فيه القيم مطلوب ترتيب حسب الاكبر يوجد العمود الثاني فيه الرقم مطلوب ترتيب اكبر رقم على ان يتم الترتيب بشرط ان يتحقق اكبر قيمة واكبر رقم في الصف لظهر بشكل تلقائي في اعلى الاعمدة كلما تغيرت القيم يتم نقل الصف بالكامل الى الاعلى يعني لو كان القيمة + والرقم اكبر يكون بالاعلى وهكذا ترتيب بقيه الصفوف على ان يتغير الترتيب متى ما تغير القيمة و الرقم بعدما يتحقق الشرط وهو ( اكبر قيمة + اكبر رقم ) لانه احيانا تتساوي القيمة ولكن الرقم يتختلف فالمطلوب ان يكون القيمة اكبر وفي نفس الوقت الرقم اكبر منتظرين ابداع معلمينا في بيتنا اوفسينا zmzm.rar

السلام عليكم : في البداية كلما أفتح ملف إكسل وأقوم بالنقر على أحد الأزرار الخاصة بالملف يخرج لي مربع حوار يقول :يتعذر العثور على الماكرو......... قد لايكون الماكرو متوفرا في هذا المصنف أو تم تعطيل كافة وحدات الماكرو أرجو منكم إرشادي الى الطريقة السليمة لكي أقوم بالضغط على أحد المفاتيح الخاصة بالملف ولايضهر هذا المربع الحوار وشكرا نسخة من Xl0000019.rar

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

السلام عليكم ألاحظ بعض الأعظاء يكثرون من التعليق ليرفعوا من عدد المشاركات وهذا ليس مقياس وحيد للترقية بل كثرة التواجد في المنتدى وما يقدمه العضو من نصائح ومساعدة وما ينجزه من أعمال يحدد ترقية العضو

السلام عليكم كود الترحيل Sub kh_Start() Dim x Dim Cont As Integer, M As Integer, Z As Integer Dim r As Integer, rr As Integer, c As Integer, cc As Integer 1: x = InputBox("ادخل عدد الارقام . ") If x = Cancel Then Exit Sub x = Val(x) If x = 0 Then GoTo 1 Cont = Abs(Int(-x / 30)) M = x Mod 30 rr = 1 Z = 30 Sheets("02").UsedRange.ClearContents For r = 1 To x Step 30 c = c + 1 cc = cc + 1 If cc = Cont Then If M Then Z = M Sheets("02").Cells(rr, c).Resize(Z, 1).Value = Sheets("01").Cells(r, 1).Resize(Z, 1).Value If c = 7 Then c = 0: rr = rr + 30 Next End Sub كود المسح Sub kh_Clear() Sheets("02").UsedRange.ClearContents End Sub شاهد المرفق 2010 ترحيل الى جدول.rar

الاخ قنديل مشكورا على المشاركه الفعاله واسمح لى ان اقدم التطبيق العملى وهو للاستاذ الكبير الحسامى بارك الله فيه واطال فى عمره ونفعنا بعلمه الخلايا..كامل ...hosami.rar

اخى العزيز قمت بتجربة الملف على جهازي ويعمل بصورة صحيحة واليك الملف مرة اخرى + صورة من داخل الملف توضيح.rar

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

السلام عليكم إخوتي الاحبه أعضاء وأساتذة منتدانا الغالي أقدم كود يقوم بالبحث في سلسلة نصيه ويستخرج ( الكلمات العربيه - والكلمات الانجليزي - والأرقام ) وكل سلسلة في عمود المدى الإفتراضي عمود "A" أرجو التجربه إن وجدت اي ملاحظات أو أخطاء Public Sub Cnvrt_Ali() Dim L_A&, i& On Error Resume Next ThisWorkbook.VBProject.References.AddFromFile "C:\Windows\System32\vbscript.dll\3" On Error GoTo 0 With ActiveSheet L_A = .Cells(.Rows.Count, "A").End(xlUp).Row For i = 2 To L_A .Range("B" & i).Resize(1, 3).Value = S_Nm_Ali(.Range("A" & i).Value) Next i End With End Sub Private Function S_Nm_Ali(ByVal Nms As String) Dim E$, A$, Nm$ Dim V_r As Object Set V_r = CreateObject("VBScript.Regexp") On Error Resume Next With V_r .Global = True .IgnoreCase = True .Pattern = "\w|\n|\-|\(|\)|\&|\." A = Trim(.Replace(Nms, "")) .Pattern = "\D+" E = Trim(.Replace(Nms, "")) .Pattern = "[-?\d+(\.\d+)?|\u0600-\u06FF]" Nm = Trim(.Replace(Nms, "")) End With S_Nm_Ali = Array(A, E, Nm) Set V_r = Nothing End Function Ali_String.rar

في الحقيقة هذا تجديد لموضوع قديم مطروح في المنتدى وأضفت إليه بعض التعديلات البسيطة.. ويتميز بالقراءة الديناميكية لآخر سطر تم إدخاله وعرضه في شريط أخبار متحرك.. للرجوع للموضوع الأصلى الرجاء زيارة الرابط التالي: http://www.officena.net/ib/index.php?showtopic=39755 وتقبلوا تحياتي مع المرفق التالي كلام متحرك.rar

السلام عليكم تم المطلوب في المرفق عند تعبئة اسم الصنف والتاريخ والمنصرف في ورقة تسجيل يومي يرحل القيم لجدول الصنف في الهرمون يتفعل الكود بعد كتابة المنصرف ارصدة الرئيسي_A.rar

السلام عليكم اسعد الله وقاتكم زيادة في الخير هذه طريقة اخرى تحياتي filldown+.rar

موضوع المشاركه مخالف لقواعد المشاركة بالمنتدى يغلق

السلام عليكم هذا ملف خاص للموظفين اتمنى ان ينال رضاك وهو لاحد الاعضاء في المنتدى الموظفين.rar

الوصلة المختصرة للموضوع : bit.ly/3B8lXSU هذا الموضوع سيحوي فهرس المواضيع التي سيتم نشرها تباعا باذن الله تعالي منهج الدورة سنبدأ الدورة باذن الله تعالي بالأشياء العملية التي تحدث فرق فى القراءة ثم نتوقف لحلقة واحدة عند الظروف المناسبة للقراءة و بعدها نبدأ بإذن الله تعالى فى المنهجيات و الاستراتيجيات الخاصة بالقراءة الفعالة 1- الحلقة الأولي - المقدمة 2 فبراير 2009-اضغط هنـــــا الأشياء العملية التى تُحدث فرق فى سرعة و كفائة القراءة 2- الحلقة الثانية - التلفظ - 2 فبراير 2009-اضغط هنـــا 3-الحلقة الثالثة - حركة العين - 4 فبراير 2009- اضغط هنــــا 4- الحلقة الرابعة- دليل توجيه العين - 7 فبراير 2009- اضغط هنــــا 5- الحلقة الخامسة - تدوين الملاحظات - 7 فبراير 2009- اضغط هنا 6-الحلقة السادسة - الخرائط الذهنية - 11فبراير 2009 - اضغط هنا 7-الحلقة السابعة - تهيئة الظروف المناسبة للقراءة - 15 فبراير 2009 - اضغط هنا بداية حلقات استرتيجية القراءة الصحيحة (فيلبس ميندل) 8-الحلقة الثامنة - المسح و التصفح - 20 فبراير 2009 - اضغط هنا 9-الحلقة التاسعة - القراءة التمهيدية - التركيب - 28 فبراير 2009 - اضغط هنا 10-الحلقة العاشرة - القراءة التمهيدية -الفكرة الرئيسية - 8 مارس 2009 -اضغط هنا 11-الحلقة الحادية عشرة - القراءة التمهيدية - المواضيع - 8 مارس 2009 - اضغط هنا استراتيجيات و تكنيكات أخري للقراءة: 12-الحلقة الثانية عشرة - SQ3R , SARGE, MyStrategy 20 مارس 2009 - اضغط هنا 13-الحلقة الثالثة عشرة KWL KWL ماذا نعرف و ماذا نريد ان نعرف و ماذا عرفنا؟ 29 مارس 2009 - اضغط هنا 14-الحلقة الأخيرة الذاكرة و أساليب الحفظ و التذكر - 28-مايو 2009 اضغط هنا المراجع: كتاب مهارات القراءة السريعة المؤلف : جوبيس تيرلي كتاب القراءة السريعة المؤلف توني بوزان كتاب القراءة الصحيحة المؤلف : فيليبس ميندل دورة تدريبية حضرتها فى القراءة السريعة مقتطفات من عدة مواقع على الانترنت