محمد الورفلي1 قام بنشر مارس 26, 2014 مشاركة قام بنشر مارس 26, 2014 مفتاح التنفيذ شرح للعملية ارجو ان اكون واضح في طلب وسامحني لتعبك بالنسبة لهذة الخلية معمولة علشان ادخال ر قم معين تبدا بجلب بينات موظف فا المشكلة بعد ادخال الرقم وطباعة البيانات لست بحاجة الي ان تكون البيانات موجودة فا البيانات وحتي اخفي البيانات الطريقة الوحيدة هي ادراج رقم صفر ( 0 )في المربع H6 حتي يتم احضار بيانات موظف اخر فرضاً وهذا جدول توضيحي مسح خلية.rar رابط هذا التعليق شارك More sharing options...
وليد فتحي قام بنشر مارس 27, 2014 مشاركة قام بنشر مارس 27, 2014 السلام عليكم ورحمة الله وبركاته الاستاذ الفاضل محمد الخازمي على حسب ما فهمت من كلامك اتفضل الملف عند الضغط على نفذ سوف تصبح قيمة الخلية H6 بتساوي صفر مسح خلية_w.rar رابط هذا التعليق شارك More sharing options...
محمد ابو البـراء قام بنشر مارس 27, 2014 مشاركة قام بنشر مارس 27, 2014 السلام عليكم ورحمة الله وبركاته وبعد اذن الاخ الحبيب// وليد فتحي هذا عبارة عن دمج كود الاستاذ وليد مع كود معاينة الطباعة والطباعة Private Sub CommandButton1_Click() ActiveWindow.SelectedSheets.PrintPreview A = MsgBox("هل تود الطباعة بعد المعاينة؟", vbYesNo + vbQuestion, "طباعة") If A = vbYes Then With ActiveSheet .PrintOut End With End If Range("A1").Activate Range("h6").Value = 0 End Sub مسح خلية_w1.rar 1 رابط هذا التعليق شارك More sharing options...
محمد الورفلي1 قام بنشر مارس 27, 2014 الكاتب مشاركة قام بنشر مارس 27, 2014 شكراً جزيلاً بارك اله فيكم هذا هو المطلوب احبائي (( وليد فتحي ، محمد أبو البراء )) ابداع وثم تميز 2 رابط هذا التعليق شارك More sharing options...
محمد ابو البـراء قام بنشر مارس 27, 2014 مشاركة قام بنشر مارس 27, 2014 الاستاذ // محمد الخازمي جزاكم الله خيرا على ذوقكم الرفيع وحسن عبارتكم والحمد لله الذي وفقنا للوصول للمطلوب رابط هذا التعليق شارك More sharing options...
محمد ابو البـراء قام بنشر مارس 27, 2014 مشاركة قام بنشر مارس 27, 2014 وهذا تعديل بسيط على الكود ليجعل الخلية فارغة بدلا من الصفر Private Sub CommandButton1_Click() ActiveWindow.SelectedSheets.PrintPreview A = MsgBox("هل تود الطباعة بعد المعاينة؟", vbYesNo + vbQuestion, "طباعة") If A = vbYes Then With ActiveSheet .PrintOut End With End If Range("A1").Activate Range("h6").Value = "" End Sub مسح خلية_w2.rar رابط هذا التعليق شارك More sharing options...
وليد فتحي قام بنشر مارس 27, 2014 مشاركة قام بنشر مارس 27, 2014 السلام عليكم ورحمة الله وبركاته وبعد اذن الاخ الحبيب// وليد فتحي هذا عبارة عن دمج كود الاستاذ وليد مع كود معاينة الطباعة والطباعة Private Sub CommandButton1_Click() ActiveWindow.SelectedSheets.PrintPreview A = MsgBox("هل تود الطباعة بعد المعاينة؟", vbYesNo + vbQuestion, "طباعة") If A = vbYes Then With ActiveSheet .PrintOut End With End If Range("A1").Activate Range("h6").Value = 0 End Sub عليكم السلام ورحمة الله وبركاته أخي وحبيبي في الله محمد أبو البراء تسلم ايدك دائما لك لمساتك الجمالية والنهائية جزاك الله كل خير وزادك من علمه لك كل تحيه وتقدير رابط هذا التعليق شارك More sharing options...
وليد فتحي قام بنشر مارس 27, 2014 مشاركة قام بنشر مارس 27, 2014 شكراً جزيلاً بارك اله فيكم هذا هو المطلوب احبائي (( وليد فتحي ، محمد أبو البراء )) ابداع وثم تميز الشكر لله أخي محمد انه اتم التوصل لطلبك وجزاك الله كل خير لكلامك العطر لك كل تحيه وتقدير رابط هذا التعليق شارك More sharing options...
محمد الورفلي1 قام بنشر مارس 27, 2014 الكاتب مشاركة قام بنشر مارس 27, 2014 (معدل) شكراَ جزيلاً هذا هو الكود الذي تماشى معي فالخلية حتي يتم المسح لبد من ادخال صفر شكراً بارك الله فيكم تعلمت منكم انشاء الله في ميزان حسناتكم جميع وكل من يساعد الناس في هذا المنتدي ولقد سميت هذا المنتدي جامعة الاوفيس المفتوحة Private Sub CommandButton1_Click() ActiveWindow.SelectedSheets.PrintPreview A = MsgBox("åá ÊæÏ ÇáØÈÇÚÉ ÈÚÏ ÇáãÚÇíäÉ¿", vbYesNo + vbQuestion, "ØÈÇÚÉ") If A = vbYes Then With ActiveSheet .PrintOut End With End If Range("A1").Activate Range("h6").Value = 0 End Sub تم تعديل مارس 27, 2014 بواسطه محمد الخازمي رابط هذا التعليق شارك More sharing options...
صلاح الصغير قام بنشر أبريل 1, 2014 مشاركة قام بنشر أبريل 1, 2014 اخوكم ليس له علاقة بالاكواد و لكن ماذا لو اصبح هذا السطر هكذا Range("h6").Activate لقد جربته و اصبح بعد التنفيذ يقف على نفس الخليه رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.