هل يوجد معادلة لمسح محتوى خلية

[محمد الورفلي1]

 مفتاح التنفيذ
 شرح للعملية ارجو ان اكون واضح في طلب وسامحني لتعبك بالنسبة لهذة الخلية معمولة  علشان  ادخال ر قم معين تبدا بجلب بينات موظف فا المشكلة بعد ادخال الرقم وطباعة البيانات لست بحاجة الي ان تكون البيانات موجودة فا البيانات وحتي اخفي البيانات الطريقة الوحيدة هي  ادراج رقم صفر ( 0 )في المربع H6 حتي يتم احضار بيانات موظف اخر   فرضاً وهذا جدول توضيحي

 

مسح خلية.rar

[وليد فتحي]

السلام عليكم ورحمة الله وبركاته

الاستاذ الفاضل محمد الخازمي

على حسب ما فهمت من كلامك

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

مسح خلية_w.rar

[محمد ابو البـراء]

السلام عليكم ورحمة الله وبركاته

وبعد اذن الاخ الحبيب// وليد فتحي

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

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]

شكراً جزيلاً بارك اله فيكم هذا هو المطلوب احبائي  (( وليد فتحي  ، محمد أبو البراء ))

 

ابداع وثم تميز

[محمد ابو البـراء]

الاستاذ // محمد الخازمي

جزاكم الله خيرا على ذوقكم الرفيع

وحسن عبارتكم

والحمد لله الذي وفقنا للوصول للمطلوب

[محمد ابو البـراء]

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

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

[وليد فتحي]

 

السلام عليكم ورحمة الله وبركاته

وبعد اذن الاخ الحبيب// وليد فتحي

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

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

 

عليكم السلام ورحمة الله وبركاته

أخي وحبيبي في الله محمد أبو البراء

تسلم ايدك دائما لك لمساتك الجمالية والنهائية

جزاك الله كل خير وزادك من علمه

لك كل تحيه وتقدير

[وليد فتحي]

 

شكراً جزيلاً بارك اله فيكم هذا هو المطلوب احبائي  (( وليد فتحي  ، محمد أبو البراء ))

 

ابداع وثم تميز

 

 

الشكر لله أخي محمد انه اتم التوصل لطلبك

وجزاك الله كل خير لكلامك العطر

لك كل تحيه وتقدير

[محمد الورفلي1]

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

 

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 بواسطه محمد الخازمي

[صلاح الصغير]

اخوكم ليس له علاقة بالاكواد

و لكن ماذا لو اصبح هذا السطر هكذا            Range("h6").Activate

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