عبدالله المجرب

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

السلام عليكم اخي فضل تفضل المرفق بعد التعديل Sub OFFICNA() Set myrng = Range("rng") For Each cl In myrng If Mid(cl, 1, 1) = "ح" Then cl.Value = "إحتياطي" Else cl.Value = "لجنة" End If Next cl Set myrng = Nothing End Sub ابواحمد لجنة واحتياطى.rar

السلام عليكم الجزء الثاني Private Sub CommandButton2_Click() Application.ScreenUpdating = False On Error Resume Next If ComboBox1 = "" Then MsgBox "YOU HAVE TO CHOSE ITEME CODE FROM LIST FIRST", vbExclamation, "WRONG STEP" ComboBox1.DropDown ElseIf TextBox2 = "" Or TextBox3 = "" Or TextBox4 = "" Then MsgBox "YOU SHOULD FILL ALL FIELDS", vbExclamation, "EMPTY FIELDS" Else Beep If MsgBox("YOU ASKED TO MODIFY :" & vbNewLine & "" & vbNewLine & "CODE : " & ComboBox1 _ & vbNewLine & "" & vbNewLine & "NAME : " & TextBox2 & vbNewLine & "" & vbNewLine & "PRICE : " & TextBox3 & vbNewLine & "" & vbNewLine & "QU : " & TextBox4 & vbNewLine & "" _ & vbNewLine & "YOU WANT TO CONTINUE ?", vbYesNo + vbQuestion, "ENTRY CONFIRMATION") = vbYes Then Sheets("Sheet1").Select ActiveCell.Offset(0, 1).Value = TextBox2.Text ActiveCell.Offset(0, 2).Value = TextBox3.Text ActiveCell.Offset(0, 3).Value = TextBox4.Text Me.TextBox2.Text = "" Me.TextBox3.Text = "" Me.TextBox4.Text = "" Me.ComboBox1.Text = "" Me.Hide MsgBox "DATA HAS BEEN MODIFIED SUCCESSFULLY", vbInformation, "DONE" End If End If Application.ScreenUpdating = True End Sub 1. حدث الضغط على الزر وايقاف اهتزاز الشاشة والانتقال الى التالي عند الخطاء Private Sub CommandButton2_Click() Application.ScreenUpdating = False On Error Resume Next 2. شرط خلو ComboBox1 من البيانات (تظهر رسالة ) ويتم انزال القائمة المنسدلة If ComboBox1 = "" Then MsgBox "YOU HAVE TO CHOSE ITEME CODE FROM LIST FIRST", vbExclamation, "WRONG STEP" ComboBox1.DropDown 3. تنبيه خلو التيكست بوكس من القيم تظهر رسالة تنبيه ElseIf TextBox2 = "" Or TextBox3 = "" Or TextBox4 = "" Then MsgBox "YOU SHOULD FILL ALL FIELDS", vbExclamation, "EMPTY FIELDS" 4. في حالة عدم تحقق شرط خلو من البيانات تظهر رسالة من عدة أسطر وفيها خيار YES & NO Else Beep If MsgBox("YOU ASKED TO MODIFY :" & vbNewLine & "" & vbNewLine & "CODE : " & ComboBox1 _ & vbNewLine & "" & vbNewLine & "NAME : " & TextBox2 & vbNewLine & "" & vbNewLine & "PRICE : " & TextBox3 & vbNewLine & "" & vbNewLine & "QU : " & TextBox4 & vbNewLine & "" _ & vbNewLine & "YOU WANT TO CONTINUE ?", vbYesNo + vbQuestion, "ENTRY CONFIRMATION") = vbYes Then 5. عند إختيار YES وضع قيمة TextBox2 في نفس صف الخلية النشطة والعمود الاول بعدها و قيمة TextBox3 في نفس صف الخلية النشطة والعمود الثاني بعدها و قيمة TextBox4 في نفس صف الخلية النشطة والعمود الثالت بعدها Sheets("Sheet1").Select ActiveCell.Offset(0, 1).Value = TextBox2.Text ActiveCell.Offset(0, 2).Value = TextBox3.Text ActiveCell.Offset(0, 3).Value = TextBox4.Text ثم مسح قيم الموحودة في مربعات النص Me.TextBox2.Text = "" Me.TextBox3.Text = "" Me.TextBox4.Text = "" Me.ComboBox1.Text = "" وإخفاء الفورم وظهور رسالة تنبيهية بإتمام التعديل Me.Hide MsgBox "DATA HAS BEEN MODIFIED SUCCESSFULLY", vbInformation, "DONE" ان شاء الله اكون وفقت في الشرح ابواحمد

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

اخي الفاضل جرب المرفق نموذج 1.rar

بعد إذن اخي جمال (واشكره على هذا العمل الذي قام به) تفضل الملف فيه شرح للطريقة ابواحمد الشرح.rar

اخي الفاضل المرفق بعد ان تم عمل الطلبات التي تريد بخصوص الطلب الاول (حفظ البيانات) ارجو ان توضح الية الحفظ ابواحمد نموذج.rar

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

اخي الفاضل تم إضافة كود الاستاذ طارق الى ملفك المرفق جرب المرفق إن شاء الله يكون هذا هو ما تقصده ابواحمد خط أحمر 2.rar

اخي حسن تم تستبدال المرفق السابق (اعذرني فلم انتبه لاني لم اجرب) بخصوص الدالة INDIRECT فقد حصلت على الرد الشافي من الاستاذ بن عليه حفظه الله فأنتظر التجربة والنتأئج ((المرفق فيه تم التخلص من التعريفات واستعملت الدالة INDIRECT )) جرب وشاهد النتائج ابو احمد الحركة للتعديل 1.rar

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

اخي حسن تم عمل تقرير يتم طباعته للإجارات كمرحلة أولى جرب المرفق إختر الحالة التي تريد طباعة تقرير لها إضغط على زر طباعة الإجارات ولاحظ النتيجة الحركة للتعديل 1.rar

أخي حسن انا بإنتظار رد على سؤال بخصوص هذه الدالة من الاستاذ بن عليه فمنه ومن الاستاذ يحيى تعلمنا استعمالها وكان هناك استفسار بهذا الخصوص. فنتظر الرد ابواحمد

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

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

اخي طاهر سنبداء معاً شرح الكود جزء جزء وسننتقل من الجزء الى الاخر بعد فهم الجزء الاول إتفقنا الجزء الاول Private Sub ComboBox1_Change() Application.ScreenUpdating = False Sheets("Sheet1").Select For i = 2 To Sheets("Sheet1").ER If ComboBox1.Text <> Sheets("Sheet1").Cells(i, "A").Text Then TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" Else TextBox2.Text = Sheets("Sheet1").Cells(i, "B").Text TextBox3.Text = Sheets("Sheet1").Cells(i, "C").Text TextBox4.Text = Sheets("Sheet1").Cells(i, "D").Text Sheets("Sheet1").Select Sheets("Sheet1").Cells(i, "A").Select Exit For End If Next Application.ScreenUpdating = True End Sub أولاً هذا بخصوص التغير في ال ComboBox1 Private Sub ComboBox1_Change() 2. لمنع اهتزاز الشاشة Application.ScreenUpdating = False 3. إختيار ورقة العمل وهنا اسمها Sheet1 Sheets("Sheet1").Select 4. المتغير (وهنا يتم اعتماد تغير الصفوف ) ويبتدي من 2 وينتهي ب ER وER معرف لعد الصفوف المستخدمة في العمود A وستجده في كود Sheet1 For i = 2 To Sheets("Sheet1").ER 5. الشرط ويعني اذا كانت قيمة ComboBox1 لا تساوي اي قيمة في صفوف العمود A If ComboBox1.Text <> Sheets("Sheet1").Cells(i, "A").Text Then وينقسم الى حالتين أ. إذا تحقق الشرط يقوم بمسح القيم من TextBox3 و TextBox4 TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" ب. إذا لم يتحقق الشرط Else ينفذ التالي TextBox2.Text = Sheets("Sheet1").Cells(i, "B").Text TextBox3.Text = Sheets("Sheet1").Cells(i, "C").Text TextBox4.Text = Sheets("Sheet1").Cells(i, "D").Text Sheets("Sheet1").Select Sheets("Sheet1").Cells(i, "A").Select قيمة TextBox2 تساوي قيمة الخلية الموجوة في العمود B والصف (i) المتغير وهكذا بالنسبة TextBox3 والعمود C و TextBox4 و العمود D ثم إخيار ورقة العمل Sheet1 ثم اختيار الخلية (i, "A") 6. الخروج من For وانهاء الشرط وإعادة اهتزاز الشاشة Exit For End If Next Application.ScreenUpdating = True End Sub بإنتظار ردك على الشرح ابواحمد

اخي الفاضل بعد إذن الفاضل الاستاذ طارق محمود جرب المرفق بعد التعديل (لا يسمى هذا تعديلاً لاني جربت ايقاف عمل السطر هذا واصبح الكود يعمل واظن هذه الصفة تعمل في 2007 ولا تعمل في 2003 والله اعلم) ان شاء الله اكون وفقت ابواحمد خط احمر.rar

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

خي الفاضل احمد فضيله سبقوني الاخوة فقالوا كلاماً لا اجدني اقوى على الجود بمثله وأقول كما قال اخي ابو الحارث ابواحمد

​اخي حسن تم عمل اللازم في مشاركتك الجديدة على الرابط http://www.officena.net/ib/index.php?showtopic=38478

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

اخي حسن اليست هذه الخانه موجودة!! شاهد الصورة

لا تستعجل اخي حسن ان شاء الله ستجد من يمد يد العون فأنت في أوفيسنا فلا تيأس وسترى ابواحمد

اخي حسن من قائمة Tools ثم اتبع ما في الصورة ابواحمد

اخي ابو ريان تفضل المرفق بعد التعديل يمكنك الآن حذف هذه التعريفات (AA BB AAA BBB .... الخ ) جرب واعلمني بالنتيجة ابواحمد الحركة للتعديل.rar