شوقي ربيع

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

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

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

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

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

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

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

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

جزاكم الله خيرا وبارك الله فيكم كل باسمه تحياتي للجميع

جزاكم الله خير وبارك الله فيكم تحياتي للجميع

تم ادراج مرفق 2003 في المشاكرة الاصلية

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

اكتب الصنف اضغط انتر ينتقل الى الكمية ادخل الكمية اضغط انتر يعود الى الصنف نموذج 2007.rar

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

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

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

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

رابط خارجي https://www.dropbox.com/s/gqm5lgkaqwq255o/Nour%20Commercial%20V%201.0.0.rar?dl=0 Nour Commercial V 1.0.0.rar

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

السلام عليكم هذا لانك لم تدرج كمبوبوكس في الشيت

السلام عليكم keys جمع key ومهناها مفاتيح السيغة العامة لتعبئة قاموس Scripting.Dictionary هي key, Item حيث key هو مفتاح السطر ان سحا التعبير كما هو الحال في ال ListView و جداول الاكسيس مثال لدينا اسماء اشخاص واعمارهم Sub Main() Dim keyArray, itemArray, element Dim dict As Object Set dict = CreateObject("Scripting.Dictionary") With dict .Add "rabie", 29 .Add "ali", 33 .Add "mohamed", 20 keyArray = .Keys For Each element In keyArray Debug.Print element Next itemArray = .Items For Each element In itemArray Debug.Print element Next End With Set dict = Nothing End Sub في هذا الجزء .Add "rabie", 29 .Add "ali", 33 .Add "mohamed", 20 ملئنا بيانات القموس باسماء الاشخاص وهو key و اعمارهم وهي Item لكي نملء المصفوفة بالمفاتيح مرة واحدة استخدمنا Keys وهو الذي تسال عنه keyArray = .Keys يعني Keys تسمح لنا نقل جميع Key الى مصفوفة او قائمة دفعة واحدة وهذا الشيئ الجميل فيها اذا اردنا جلب الاسماء الان نستخدم حلقة تكرارية للمصفوفة التي ملئنا بياناتها منذ قليل For Each element In keyArray Debug.Print element Next واذا اردنا جلب اعمارهم من القاموس نستخدم مصفوفة اخرى لاكن هذه المرة مع Items itemArray = .Items ونفس الشيئ لطباعت الاعمار نستخدم حلقة تكرارية For Each element In itemArray Debug.Print element Next لتفريغ القاموس نستعمل Set dict = Nothing ارجو ان تكون الفكرة من القواميس قد وصلت لك اخي الصقر لاتنسى ضغط Ctrl+G قبل او بعد تنفيذ الكود لروئية النتائج على محرر الاكواد تحياتي

السلام عليكم ان كنت تريد طباعة بطاقة كل الطلاب دفعة واحدة Sub test() Dim ws As Worksheet: Set ws = Sheets(1) Dim wsp As Worksheet: Set wsp = Sheets(2) Dim lrw As Long Dim i As Integer lrw = ws.Cells(Rows.Count, 1).End(xlUp).Row For i = 2 To lrw wsp.Range("D4") = ws.Range("A" & i) wsp.Range("C5") = ws.Range("B" & i) wsp.Range("D6") = ws.Range("C" & i) wsp.Range("Prnt").PrintOut Next End Sub المصنف1.rar

السلام عليكم 2015._2.zip

استاد ياسر جزاك الله خير اتفق معك فيما سبق دكره وخاصتا النقطة التي تقول فيها انه عند وجود خطاء اخر نستعمل On Error GoTo 0 لمعالجة الخطاء و عدم ترك On Error Resume Next تتخطى كل الاخطاء لاكن جرب هدا الكود واكتب اسم شيت موجود ولاحظ مدا يحدث Private Sub Worksheet_Change(ByVal Target As Excel.Range) Const sNAMECELL As String = "A1" Const sERROR As String = "Invalid Worksheet Name In Cell " Dim sSheetName As String With Target If Not Intersect(.Cells, Range(sNAMECELL)) Is Nothing Then sSheetName = Range(sNAMECELL).Value If Not sSheetName = "" Then On Error Resume Next Me.Name = sSheetName On Error GoTo 0 Me.Name = sSheetName 0 If Not sSheetName = Me.Name Then MsgBox sERROR & sNAMECELL End If End If End With End Sub من النضرة الاولى ستلاحظ انه طلبت من الكود تخطي الخطاء الثاني والدهاب مباشرة الى السطر If Not sSheetName = Me.Name Then MsgBox sERROR & sNAMECELL لاكنه يعطي خطاء وجرب هدا ايضا وشاهد انه صحيح ويشتغل عادي ويثبت صحت كلامك في الاول Private Sub Worksheet_Change(ByVal Target As Excel.Range) Const sNAMECELL As String = "A1" Const sERROR As String = "Invalid Worksheet Name In Cell " Dim sSheetName As String With Target If Not Intersect(.Cells, Range(sNAMECELL)) Is Nothing Then sSheetName = Range(sNAMECELL).Value If Not sSheetName = "" Then On Error Resume Next Me.Name = sSheetName On Error GoTo Err Me.Name = sSheetName Err: If Not sSheetName = Me.Name Then MsgBox sERROR & sNAMECELL End If End If End With End Sub ههههه فماحكاية الفيوجل هنا حلل وناقش تحياتي