استفسار ؟؟

[memo7273]

السلام عليكم جميعا 

1- هل يمكن وضع عداد رقمي داخل خلية يزيد بمقار 1 مع كل امر طباعة 

1- هل يمكن وضع عداد رقمي داخل خلية يزيد فقط بمقار 1 اذا تغيرت فيمة خلبة رقمية اخري (يدخل بها ارقام عشوائية بقائمة منسدلة) 

ارجو الرد !!

[محمد هشام.]

بالنسبة للسؤال الأول نعم يمكنك ذلك عبر وضع زر به كود لطباعة مدى معين وبناءا عليه يتم إظهار عدد مرات طباعة المدى في خانة من إختيارك يزيد بمقدار +1 عند كل أمر بالطباعة

اما بالنسبة للاستفسار رقم2
يمكنك وضع هدا الكود في حدث ورقة العمل لديك

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Sheets("Sheet1").Range("A2"), Target) Is Nothing Then
    Range("B2").Value = Range("B2").Value + 1
  End If
End Sub

(يمكنك تعديل الكود على حسب موضع الخانات لديك)

لمزيد من الشرح
اليك اخي الفاضل الملف يتضمن العداد مع اضافة الارقام العشوائية بواسطة القائمة المنسدلة  
   

يتبع الطلب الأول.........

M-HICHAM.xlsm

[محمد هشام.]

بالنسبة للسؤال الأول نعم يمكنك ذلك عبر وضع زر به كود لطباعة مدى معين وبناءا عليه يتم إظهار عدد مرات طباعة المدى في خانة من إختيارك يزيد بمقدار +1 عند كل أمر بالطباعة

اليك مثال لدالك باسم منتدى اوفيسنا في الملف المرفق يمكنك فقط تعديل الكود حسب ما يناسبك.

واتمنى يكون هدا هو المطلوب🤔

مثال _حساب عدد مرات الطباعة.xlsm

[memo7273]

شكرا اخي الكريم "Mohamed Hicham" علي لمساعدة ولكن هناك خطاء يظهر عند عند الضغط علي مفتاح الطباعة  لم اتمكن من معالجته مرسل الملف 

انا محتاج رقم الطباغة يتغير اما عند الضغط علي زر الطباعة اوتغير رقم الجلوس  مع تأمين الملف (LOCK) وشكرا  لحضرتك

 

اضافة رقم الطباعة.xls

تم تعديل أغسطس 16, 2022 بواسطه memo7273

[محمد هشام.]

3 ساعات مضت, memo7273 said:

انا محتاج رقم الطباغة يتغير اما عند الضغط زر الطباعة اوتغير رقم الجلوس  مع تأمين الملف (LOCK)

كان لازم اخي  تضيف هذا الكود في حدث الشيت 😄

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect
  If Not Intersect(Sheets("Sheet1").Range("N9"), Target) Is Nothing Then
    Range("N24").Value = Range("N24").Value + 1
  End If
  ActiveSheet.Protect
End Sub

جرب اخي الكريم الملف المرفق

اضافة رقم الطباعة.xls

[memo7273]

               شكرا لك اخي الكريم  تمام كدا 🙂