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

السلام عليكم ورحمة الله وبركاته إخواني الأحباب في المنتدى المحبب إلى قلوبنا .. أقدم لكم اليوم شرح فيديو ، لكيفية عمل تصفية متقدمة Advanced Filter بالأكواد .. . والشرح مقدم في عدد 2 فيديو .. الأول لكيفية إدراج موديول وكتابة الأسطر الخاصة بتنفيذ التصفية المتقدمة ، والفيديو الثاني لكيفية تنفيذ الكود بدون أزرار بمجرد التغير في ورقة العمل أو التغير في شروط التصفية .. رابط الفيديو الأول : التصفية المتقدمة بالأكواد رابط الفيديو الثاني ومرفق لكم ملفين ..الملف الأول Advanced Filter VBA خاص بالفيديو الأول ، والملف المسمى Advanced Filter Worksheet_Change خاص بالفيديو الثاني أرجو أن ينال الدرس إعجابكم ، وتستفيدوا منه ولا أنتظر منكم سوى دعوة بظهر الغيب ، وادعوا الله لي أن يجعل أعمالنا صالحة ولوجهه خالصة ، وأن يجعل أعمالنا في ميزان حسناتنا يوم القيامة ، إنه ولي ذلك والقادر عليه كان معكم أخوكم أبو البراء من منتدى أوفيسنا (دي القفلة بتاعتي لو تلاحظوا .. مش شعبان عبد الرحيم بس اللي عنده القفلة !) حمل الملف من هنا

السلام عليكم ورحمة الله وبركاته اليوم باذن الله نبدأ بأول مثال لنا داخل الفيجوال دوت نت ومثل ما قمنا بعمل تصميم لبرنامج آله حاسبة داخل بيئة الفيجوال 6 سنقوم بعمل نفس البرنامج ولكن افضل طبعا من السابق يعني احنا بنتقدم ونعمل نفس القديم لا لازم يكون في احساس بأن فيه جديدوفي تغيير للافضل يلا الكل معايا يمسك الورقة والقلم( الماوس والكيبورد والبرنامج) طبعا هنفتح مشروع جديد عادي خالص مكونات الادوات على الفورم 17 زر button 1 تكست بوكس 1 ليبل لزوم كلمة اوفيسنا بس والقائمة Menustrip الجديد هنا موضوع القائمة دا كيفية عملها بعد وضع الاداة يظهر لنا ثلاث مستطيلات للكتابة داخلهم وهي اول مستطيل وهو اسم اول القائمة وهو فايل مثلا والثاني لجانبها الايمن وهو لاضافة قائمة بجانبها كما في about والثالث اسفل القائمة لاضافة عناصر داخل القائمة نفسها وكل هذا يتم اضافته بطريقة سهله مجرد تحديد المستطيل والكتابة داخله فقط اما موضوع كيفية وضع لكل عنصر كود برمجي فهو كالتالي يتم الضغط مرتين على اي عنصر لوضوع الكود داخل هذا العنصر مثله مثل ا اداة عادي هنا وضعنا كود لنسخ التكست في copy وكود خروج من البرنامج في Exit وكود رسالة في About طريقة عمل الآله الحاسبة واكوادها Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 'هذا الكود داخل الزر رقم واحد وهو لكتابة رقم واحد داخل التكست ويتم تطبيق نفس الكود على باقي الارقام والعلامات TextBox1.Text = TextBox1.Text & "1" End Sub Private Sub AboutToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AboutToolStripMenuItem.Click 'في التبويب about وضعنا هذه الرسالة فقط MsgBox("تصميم وبرمجة أوفيسنا مصطبة الحبايب -_-") End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click TextBox1.Text = TextBox1.Text & "2" End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click TextBox1.Text = TextBox1.Text & "3" End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click TextBox1.Text = TextBox1.Text & "4" End Sub Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click TextBox1.Text = TextBox1.Text & "5" End Sub Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click TextBox1.Text = TextBox1.Text & "6" End Sub Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click TextBox1.Text = TextBox1.Text & "7" End Sub Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click TextBox1.Text = TextBox1.Text & "8" End Sub Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click TextBox1.Text = TextBox1.Text & "9" End Sub Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click TextBox1.Text = TextBox1.Text & "0" End Sub Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click TextBox1.Text = TextBox1.Text & "." End Sub Private Sub CopyToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CopyToolStripMenuItem.Click 'في التبويب نسخ وضعنا كود تحديد ما بداخل التكست ونسخها TextBox1.SelectAll() TextBox1.Copy() End Sub Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click TextBox1.Text = TextBox1.Text & "/" End Sub Private Sub Button16_Click(sender As Object, e As EventArgs) Handles Button16.Click 'هنا وضعنا متغير من نوع اوبجكت وهو سكربت كنترول وهو لتحويل العمليات الحسابية داخل التكست الى ناتج لا اعلم هل سيعمل مع كافة انظمة التشغيل .. Dim Y As Object = CreateObject("ScriptControl") Y.Language = "VBScript" TextBox1.Text = Y.Eval(TextBox1.Text) Y = Nothing End Sub Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click TextBox1.Text = TextBox1.Text & "*" End Sub Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click TextBox1.Text = TextBox1.Text & "-" End Sub Private Sub Button15_Click(sender As Object, e As EventArgs) Handles Button15.Click TextBox1.Text = TextBox1.Text & "+" End Sub Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitToolStripMenuItem.Click 'انهاء البرنامج End End Sub Private Sub Button17_Click(sender As Object, e As EventArgs) Handles Button17.Click ' لمسح محتوي التكست لعملية جديدة TextBox1.Text = "" End Sub End Class الكود سهل ولكن انظرو ماذا قمنا بانهائه وبشكل جميل وبرنامج ويعتمد عليه عكس تصميماتنا القديمة ومن الممكن وضع اضافات لاختصارات كتير ولكن نبدأ بالسهل ثم الاصعب اظن كدا دا انتاج محلى بقي المفروض نعتمد عليها ونسيب الآله الحاسبة بتاعه الويندوز ونشجع المنتج بتاعنا نشغل البرنامج بتاعنا ونشوف شكله ايه أي استفسارات طبعا موضوع الردود موجود ياريت نشوف الابداع انا عملت آله حاسبة انا عايز كيبورد مش آله حاسبة بس انا بقول كدا عشان عارف انكم عندكوا لمسات كويسة طبعا مرفق البرنامج عشان الجماعة اللي بيكسلوا يصمموا من الاول والسلام عليكم تقبلوا تحياتي ياسر العربي يتبع Calculator Yasser.rar Calculator Yasser.rar

أخي الغالي " ياسر العربي" .. اتفقنا عليك ...فما أنت فاعل؟!. أخي الحبيب" عبد العزيز البسكري " ..من عجائب القدر رجعت للتحميل الآن وإذ تحميل البارحة يكاد يصل إلى 97.25% ولا أدري هل أقوم بتسطيبه أم به مشاكل كما ذكرت.. "سبحان من يحيي العظام وهي رميم" والسلام عليكم.

اتفضلوا اخوانى الكرام سوف اضع رابط رابط بعد تحميله لكى تحملوه عما يترفع الاخر إضغط هنا للتحميل 2 تقبلوا تحياتى

انا جهازى نضفته امبارح وفحصته بعد ما قمت برستارت للجهاز بعدالفحص الاول وازالة الفيروسات ولم اجد اى شىء اخر اذا كنتم عاوزين انزل نسخه تانيه مش مشكله المهم ندخل على الشغل اعمل فولدر وقم بتنزيل السبع ملفات مع بعض ثم بعد التحميل للملفات 7 قم بفك الضغط وسطب البرنامج ومرفق معه السريل وبنفس الطريقه اللى قلنا عليها من الهلب ثم ريجيسترى مرفق روابط ملفين والبقيه بحملها لان النت مساعدنيش طفحنى الدم نت زباله وشركات زباله اضغط هنا للتحميل 1 إضغط هنا للتحميل 7 والى لقاء مع باقى الملفات بعد رفعها ان شاء الله تعالى تقبلو تحياتى واعذرونى لسوء الانترنت وجزاكم الله خيرا

اخي الغالي ابو يوسف سيبك الان من النسخة 2012 الموجودة حاليا لحيين رفع اخرى اما بالنسبة ل2010 شوف الفيديو دا اول ملف اشرت اليه دا ملف المشروع وبيشتغل منه والملف الاخر هو الملف التنفيذي وجاهز للعمل قم بتجربته ؟؟؟؟ تم حذف الملف للتأكد منه اولا

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

توضيح شكل محرر الاكواد

الأسف الشديد ، الاكسس لا يعطيك امكانية مثل الاكسل والورد ، فكل الذي استطعت البحث والوصول اليه: . عن طريق الكود التالي ، للنموذج الرئيسي: Private Sub Report_Page() Me.DrawStyle = 0 '0-4 Me.DrawWidth = 20 '11 ' Draw a border around the page. Me.Line (0, 0)-(Me.ScaleWidth, Me.ScaleHeight), , B End Sub جعفر 338.1.برنامج الفواتير.mdb.zip

اخوانى الكرام ابوالبراء وعبدالعزيز وابانا الغالى ان شاء الله عند عودتى من العمل سيكون قد اكتمل رفع vb2012 مجزؤ على ٧ مرات وان شاء الله يتم التحميل معكم على خير ومافيش مشاكل فى النسخه دى ومرفق معها السريل طبتم واهتديتم

أخي الغالي " محمّد حسن المحمّد " بالنسبة لي أنا شخصيًّا النسخة 2012 .. بعد عناء التّحميل واجهت بها مشاكل مثلما ذكرته و شرحته بالمشاركات أعلاه .. قلت بنفسي لا يمكن أبقى مكتوف اليديْن .. قمت بتحميل نسخة 2010 .. شكلها لا يسرّ النّاظرين و يبشّر باليأس .. لكن قلت أجرّب بها فقط .. لحين ميسرة و اكتمال تحميل نسخة أخرى .. و هذا ما قمت بتجربته على 2010 .. الملف المرفق .. إحتراماتي عبد العزيز البسكري.rar

وعليكم السلام تفضل ، استعمل هذا الكود (نفس كودك ، بس عملت فيه نسخة من حدث تدقيق9_AfterUpdate): Option Compare Database Private Sub all_AfterUpdate() Me.Refresh Dim Rs As DAO.Recordset Set Rs = Form.RecordsetClone Rs.MoveFirst Do While Not Rs.EOF Rs.Edit Rs!bbb = all Rs.Update Rs.MoveNext Loop Set Rs = Nothing DoCmd.SetWarnings False DoCmd.OpenQuery "qu" DoCmd.SetWarnings True End Sub Private Sub تدقيق9_AfterUpdate() DoCmd.SetWarnings False DoCmd.OpenQuery "qu" DoCmd.SetWarnings True End Sub جعفر

السلام عليكم ورحمة الله وبركاته إخواني الكرام في المنتدى وأحبابي في الله أقدم لكم اليوم ملف به أكواد ..تقوم الأكواد بالشعور في حالة فك حماية محرر الأكواد .. فإذا تم الفك يقوم الكود بمسح الأكواد الموجودة وكأن شيئاً لم يكن .. فتضيع الأكواد بسبب فك الحماية لمحرر الأكواد الطريقة أيضاً لها حل ويمكن الإطلاع على الأكواد ... ولكن ستفيد الطريقة بشكل كبير مع فئة كبيرة من الناس خصوصاُ من ليس لديهم خبرة في التهكير .. كلمة السر لمحرر الأكواد 123 أقدم لكم الملف للتجربة وأرجو أن ينال إعجابكم بعد التجربة سأقوم بوضع الأكواد المستخدمة تقبلوا وافر تقديري واحترامي الملف من هنا

استاذنا / ياسر دئما للتميز عنوان دمت ودام ابداعك تقديري

السلام عليكم.. ابو البراء اول مرة اشارك في هذا القسم جذبني عنوان الموضوع كل ما اريد قوله بارك الله فيك

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

أخوي حسين ايش رايك نطلع مثل ما يقولون Out of the Box ، وننظر للموضوع بشكل ابعد من الاكسس فقط ايش رايك بهذا البرواز: . وهكذا عملته: بحثت في الانترنت عن برواز ، وانزلته ، وكان عرضة اطول من طوله ، فاستعملت برنامج رسومات وادرته 90 درجة وحفظته ، ضيّقت الكائنات في التقرير ، علشان البرواز يبين من كل الجهات ، وبس : . وعلشان حجم البرنامج لا يكبر بسبب الصورة ، احفظ الصورة في مجلد البرنامج واربط الصورة ، بدل ان تجعلها مضمنه جعفر 338.2.برنامج الفواتير.mdb.zip

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

السلام عليكم لا أدري ما المشكلة حتى لم تعمل بشكل صحيح تقبل تحياتي موعدنا غداً إن شاء الله تعالى

أخي الحبيب ياسر العربي يبدو أن جهازم مصاب بفيروس ..يرجى فحص الملفات قبل رفعها ..!

شكرا جزيلا لك أخي حسين العصلوجى

هل جربت البرنامج أخي الكريم صلاح ؟؟؟ يا ريت يكون جاب نتيجة معاك .. هل من الممكن أن تذكر لنا كل الكلمات التي تستخدمها في كلمات السر سواء حروف أو أرقام أو رموز .. أحاول تقديم المساعدة قدر الإمكان تقبل تحياتي

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

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

السّلام عليكم و رحمة الله و بركاته أخي الغالي " محمّد حسن المحمّد " .. و الله جد آسف لما حصل و للجهود الذّاهبة سُدًى .. أنا كذلك كل شيء متلخبط عندي .. و لم أستقر على نسخة لحد الآن .. جرّبت هذه .. حذفت الأخرى .. عدّلت من هنا .. تلخبطت من هناك .. لم أعد تسطيب الوينداوز لحين إستقراري على نسخة جيّدة .. سأحاول مع جميع الإخوة الأكارم إيجاد نسخة مع إمكانيّة تقسيم أجزائها للتّحميل سنرمي الكرة بمرمى أخانا أبو قلب حنون و صدر رحب " ياسر العربي " فائق إحتراماتي

هل هذا هو المطلوب Aziz.rar

السلام عليكم

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

اخى الكريم / محمد سلامة. أولاً اعتذر على التأخير فى الرد لأن الانترنت المنزلى معطل واتابع فترة عملى فقط. ثانيا إذا كنت تقصد بالروابط (أى العمل السابق) فقد كنت اتمنى ذلك ولكن للأسف صاحب العمل قد أخذ على عهدا ألا أنشر عمله حفاظا على مجهوده وهذا ما جعلنى أشرع في عمل البرنامج من البداية وبرؤية أوسع وأشمل. لك منى جزيل الشكر على الاهتمام والرد والمتابعة

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

اضبط اعدادات المنطقة واللغة في وندوز على اللغة التي تستخدمها في الاحداث اذا لم يصلح الحال : احذف اوفيس ثم اعد تنصيبه

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

تم عمل البحث في العمودين (ليست في A ) (ليست في N ) أما العمود الثالث في حاجة غريبة في الطلب رقم الحاوية التي ليست في A وليست في Nنهائيا كيف سيعرفها البرنامج ؟ لا بد من كتابة أرقام الحاويات كلها في عمود ثم نقول للبرنامج فتش عن هذه الأرقام فإذا كانت ليست في A وليست في N نهائيا قم بوضعها في عمود مستقل جرب المرفق البحث و الفرز1.rar

ده شرح فيديو ارجو ان يكون به الفائده ان شاء الله لحين رفع البرنامج فانتم تعلمون سوء الانترنت اضغط هنا للتحميل تقبلوا تحياتى

أخي العزيز صلاح الدين تفضل البرنامج Passware Password Recovery Kit Professional 11.1.4 ومعه السيريال ويا رب يساهم في حل مشكلتك .. أخبرنا بالنتائج بعد التجربة كلمة السر لفك الضغط officena حمل البرنامج من هنا

أخي الحبيب ياسر العربي بارك الله فيك وجزيت خيراً عايزين نفكر في طريقة نقدر بيها نجبر المستخدم على تمكين الماكرو وإلا ميقدرش يفتح المصنف ..! أهذا سيظل حلم يرادونا؟

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

حياك الله اخي الكريم اعتذر منك اولا ... تفضل Me.fr = Me.Transfer.Column(1) Me.to = Me.Transfer.Column(2) Me.val = Me.Transfer.Column(3) بالتوفيق

أخي الكريم ناصر إليك شرح الكود الأخير لتتمكن من تطويعه لخدمة ملفك Sub KH_Copy() 'الإعلان عن المتغيرات Dim Last As Long, A As Long Dim Count As Integer 'سطر لتفادي حدوث خطأ في حالة أن الخلايا التي سيتم مسحها أي الخلايا الثابتة كانت فارغة On Error Resume Next 'تعيين قيمة للمتغير ليساوي 1 Count = 1 '[F10] تعيين قيمة للمتغير ليساوي قيمة الخلية Count = Sheets("KHBOOR").Range("F10").Value 'بدء التعامل مع ورقة العمل النشطة With ActiveSheet 'تعيين رقم الصف الذي يمثل أول صف فارغ بعد آخر صف به بيانات A = .Cells(1, 1).End(xlDown).Offset(2, 0).Row 'حذف صفوف النطاق بداية من الصف رقم 13 .Range(Cells(A, 1), Cells(Rows.Count, 5)).EntireRow.Delete 'تعيين آخر صف به بيانات وهو الصف رقم 12 والذي يعتبر أول صف به المعادلات المطلوب نسخها Last = .Range("A" & .Rows.Count).End(xlUp).Row 'نسخ الصف الهدف بامتداد قيمة المتغير أي بالعدد المحدد أو العدد المطلوب .Rows(Last).Copy .Rows(Last).Resize(Count) 'مسح الثوابت والإبقاء على المعادلات .Rows(Last).Resize(Count).SpecialCells(xlConstants).ClearContents End With On Error GoTo 0 End Sub ها هو الشرح طالما أن الأخوة يعجزون عن تقديم حل للموضوع .. تقبل تحياتي

بارك الله فيكم إخواني على التشجيع وأعتذر عن عدم المتابعة من باكر حيث كنت منشغل قليلاً بالنسبة للحماية الكاملة أنا ذكرت في أول الموضوع إنه سهل يتم كشف الأكواد ولكن فكرة الملف تعتبر بداية قوية للحماية .. وعندي ملف آخر سأقوم بإدراجه في موضوع منفصل إن شاء الله يجبر المستخدم على تمكين الماكرو في المصنف قبل الدخول عليه بالتالي يمكن الدمج بينهما للحصول على حماية أكبر تقبلوا وافر تقديري واحترامي

السلام عليكم أخي الزباري جزاكم الله خيراً...أتعبتكم معي نجاح 100% للملف الأخير..شكرأ على سعة صدركم والسلام عليكم ورحمة الله وبركاته

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

افتح راس وتذييل الصفحة ـ ادراج مربع نص في راس وتذييل الصفحة يعني اعلى الصفحة على الهامش ــ ادراج حقل من زر الامر الاجزاء السريعة ــ اختر من الحقول Page ــ اختر تنسيق الصفحة الذي تريده ــ ثم انقر على موافق في مربع الحوار حقل ــ الآن انقل مربع النص الى اي مكان في الصفحة الذي تريده وهذا مثال والسلام عليكم تجربة.rar

السلام عليكم بعد اذن الاستاذ الكبير ياسر خليل اليك اخى الكريم الملف المخزون.rar

أخى فى الله وبعد إذن إخوانى فى الله أساتذتى الكرام الأستاذ القدير // ياسر خليل الأستاذ القدير ومن جعلنى أعشق الفورم // شوقى ربيع الأمر ليس معقدا وليس سهلا هل عندما تعلمنا اللغة العربية تعلمنا فى البداية استخدام الفواصل أو متى توضع علامه الاستفهام أو الفاصله أو النقطه بل تعلمنا شكل الحرف ومن ثم تجميع الحروف ومن ثم قراءة الكلمه ومن ثم قراءة جمله صغيرة ومن ثم قراءة فقرة وفى كل مرحله نكتبها عده مرات لكى نحفظها ونتعرف على شكلها وكيف نستخدمها ومن ثم تعرفنا على الفواصل والنقط .... الخ فالأمر لا يؤخذ من النهاية الى البداية فبكل بساطه عند قرائتك للكود البرمجى فى عالم الفيجوال بيسك بمختلف استخداماته تجد كلمات ذات لون أزرق غامق وكلمات ذات لون أسود فالكامات ذات اللون الأزرق هى كلمات خاصه للكود البرمجى أى تم تخصيصها لا تستطيع أن تستخدمها فى أى شىء آخر غير الهدف منها فقط مثل كلمه DIM وهى الإعلان عن متغير ويكتب فى سطر مستقل وقد نكتب عده متغيرات فى سطر واحد نستخدم هنا الفاصله (( , )) التى بين الأقواس لكى نفهم البرنامج أن هناك عده متغيرات لكى يقوم الجهاز بتخزينها أيضا نريد تحديد مدى معين أى عده خلايا نضعها بين القوسين ( ) والقوسين تجدها دائما تستخدم فى اول سطر فى الكود العادى فعند كتابة كلمه SUB ثم اسم للكود تنتهى تلك الجمله بالقوسين ( ) أطرح على نفسى سؤال هام جدا هل أنا بتلك الإجابه السابقة فهمت ماذا تعنيه تلك العلامات ؟ لو أنا لست قارىء أو مستخدم جديد لتلك الأكواد وصريح مع نفسى ستكون الإجابه بالقطع لا لأنه بكل بساطه عندما تريد بناء بيت هل تبدأ بالديكورات أم بالأساسات أولا ؟ نبدأ بالأساسات أى القواعد ومن ثم الأعمده ومن ثم السقف ومن ثم الطوب الى أن تقوم بالتشطيب النهائى للبيت فالنصيحة أخى الكريم إبدأ بتبسيط الأمر على نفسك ولا تستعجل الأمور وهذا ما طلبه منى من تعلمت على ايديهم وإن لم يكن هذا الطلب مباشرا وموجها لى ولكن ما دام كتب ونشر على صفحات المنتدى فهو موجه للجميع وأدعو الله عز وجل لهم جميعا ولكل من تعلمت منه شيئا ولو يسيرا أن يحفظه بسر حفظه لكتابه الحكيم من شرور خلقه أجمعين وباب تحصيل العلم هو السؤال عن الذى لا أعرفه بشرط أن أكون صبورا ولا أستعجل الأمر حتى لا أستصعب الأمر فيما بعد وأترك الأمر كله وأعتذر للجميع على الإطاله وتقبلوا منى جميعا وافر الإحترام والتقدير

السلام عليكم يتم الترحيل اوتوماتيكيا مرة واحدة في اليوم بعد الساعة الرابعة (حسب ساعة الجهاز لديك) ا و ذألك لجميع الاوراق التي ذكرتها في طلبك الاخير الى العمود الذي يليه ثم الى الذي يلي الذي يله وهكذا كل يوم ارجو ان يكون هو المطلوب الاكواد المستعملة Option Explicit Dim Sh As Worksheet, WrSh As Worksheet Sub Envoi() Dim Nm As Byte For Nm = 2 To 7 Set WrSh = ThisWorkbook.Sheets(Nm) Dim Lrw As Long: Lrw = WrSh.Cells(WrSh.Rows.Count, 1).End(xlUp).Row Dim Lcm As Long: Lcm = WrSh.Range("IV1").End(xlToLeft).Column + 1 Dim i As Integer If WrSh.Range("A1") = "" Then Lcm = Lcm - 1 WrSh.Cells(1, Lcm) = Date For i = 2 To Lrw WrSh.Cells(i, Lcm).Value = WrSh.Range("C" & i).Value Next Next End Sub Sub Verification() Dim Nm As Byte For Nm = 2 To 7 Set WrSh = ThisWorkbook.Sheets(Nm) Dim Lcm As Long: Lcm = WrSh.Range("IV1").End(xlToLeft).Column If WrSh.Cells(1, Lcm) = Date Then Exit Sub Next If Time > TimeValue("16:00") Then Envoi End Sub تحياتي للجميع zmzm اوفسينا.rar

السلام عليكم حسب مافهمت اخ زمزم ان الخلايا التي تتلقى بيانات من مصدر خارجي تريد نسخها الى العمود التالي بشرط مره فقط في اليوم وبشرط مابين الساعه الرابعة عصرا فقط استخدمنا كود الاخ محمود الشريف مع بعض الاضافات اليك الكود غير المدى في اول الكود Private Const FD = "yyyy/mm/dd" Private Const FT = "hh:mm:ss" ' الخلايا التي تتلقى قيمها من مصدر خارجي Private Const Are As String = "$A$2:$A$500" Dim Tim_t Dim Dn As Range Dim Tn As Range Dim Tim Private Sub Ali_Tim() Set Tn = [XF1] Set Dn = [XG1] Tim_t = Now + TimeValue("00:00:05") Application.OnTime Tim_t, "Trn_Dt", , True Dx = IIf(Dn = "", Val(Date) - 1, Val(Dn)) If Time > TimeValue("16:00") And Time < TimeValue("16:59") Then If Dn = "" Then Tim_Cod ElseIf Dn = Date And Hour(Tn) = Hour(Tim) Then ElseIf Not Dx = Val(Date) Then Tim_Cod End If End If End Sub Private Sub Tim_Cod() Dim Rng As Range Set Tn = [XF1] Set Dn = [XG1] '================================ For Each Rng In Range(Are) If Rng > Empty Then With Rng Lc = Cells(.Row, Columns.Count).End(xlToLeft).Offset(0, 1).Column Cells(.Row, Lc) = Rng End With End If Next '================================ Dn = Format(Now, FD) Tn = Format(Time, FT) Set Rng = Nothing Set Dn = Nothing: Set Tn = Nothing End Sub Private Sub Trn_Dt() Calculate Ali_Tim End Sub Sub auto_open() Ali_Tim End Sub Sub auto_close() On Error Resume Next Application.OnTime Tim_t, "Trn_Dt", , False End Sub

أخى فى الله الأستاذ الكريم // زمزم اليكم بالمرفقات تجربة لعملية النسخ كل دقيقة من الخلية B3 الى الخلية D3 اى محتوى بالخلية الأولى يتم نقله الى الخلية الثانية فى حال كون الملف مفتوح فقط وجرب بنفسك ( الملف اوفيس 2010 ) الى أن يقوم أحد الأساتذة بالتوصل كاملا لما تريد وتقبل منى وافر الاحترام والتقدير تجربة النسخ المكرر.rar

السلام عليكم كل عام وحضراتكم بخير وبعد حلول خبيرتنا الاستاذه ام عبدالله وملك المعادلات استاذى جمال عبدالسميع واثراء للموضوع هذا حل اخر بالمعادلات و.عيد اضحى سعيد date&time.rar

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