عمل زر امر

[hussein arby]

السلام عليكم اخواني  الافاضل اعضاء ومشرفي المنتدي الكرام 

عندي برنامج جرد سنوي  مصصم علي الاكسل 

اريد عمل زر حفظ  يحفظ لي الملف في  / D

واريد عمل زر امر لتغيير العنوان في كل شيت المقصود بالعنون هو اسم الفرع ورقم اللجنة الموجود في الاعلي

واريد عمل زر امر لافراغ عمود / الكمية  / وعمود /.سعر البيع في كل شيت

لوسمحتو تساعدوني 

الجرد السنوى.rar

[الجموعي]

بالنسبة للحفظ على القرص D

قم بإنشاء موديل جديد

وضغط به الكود التالي

Sub save()
       ActiveWorkbook.SaveAs Filename:="D:\الجرد السنوى.xls", FileFormat:=xlExcel8 _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
End Sub

وعن طريق زر حفظ استدعي الأمر التالي

 

وبالنسبة لتعديل الإسم

نفس الطريقة السابقة

أضف الكود التالي في زر تسمية العنوان

ملاحظة هذا الكود يعمل على تغيير الإسم في جميع الصفحات

Sub Name()
Dim strName As String
strName = Application.InputBox("الرجاء إدخال إسم الفرع ورقم اللجنة")
Range("c6") = strName
End Sub

,بالنسبة لزر أمر هذا هو الكود

Sub Clear()
Sheets(1).Select
   Range("B12:C36").ClearContents
    Range("A1").Select
Sheets(2).Select
   Range("B12:C36").ClearContents
    Range("A1").Select

    Sheets(3).Select
   Range("B12:C36").ClearContents
    Range("A1").Select
   End Sub

[hussein arby]

شكر ا لك اخي الفاضل علي المجهود العظيم ولك جزيل الشكر وزادك الله من علمة 

اخي الفاضل انا جربت الاكواد 

كود الحفظ يعمل 010% . بس لو امكن  هل من الممكن ان احفظ  الملف باسم اكتبه انا  لانه يحفظ باسم واحد في ال D  وكلما عملت حفظ يقول لي الملف  موجود مسبقا  لان الكود يحفظ بنفس الاسم فمن الطبيعي عدم الحفظ بنفس الاسم  والاي فسوف يستبدل الملف وانا لا اريد ذلك .فهل من الممكن الحفظ باسم

 

كود تغيير العنون يعمل ولاكن لايغير العنوان في كل الصفحات بل يغير في الصفحة الاولي فقط .

 

كود  مسح البينات من مربع الكمية  والسعر يعمل 100% .

 طلب اخير اخي الفاضل لو امكن زر طباعة

تم تعديل يناير 6, 2015 بواسطه حسين العربي

[hussein arby]

اخي الفاضل تم التوصل الي حل نقطة الحفظ باسم

[الجموعي]

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

Sub Name()
Dim strName As String
Dim i As String
i = Application.InputBox("الرجاء إدخال رقم الورقة التي تريد تعديل إسم الفرع ورقم اللجنة")
Sheets(i).Select
strName = Application.InputBox("الرجاء إدخال إسم الفرع ورقم اللجنة")
Range("c6") = strName
End Sub

وتم التعديل أيضا على زر مسح البيانات وإختصاره بهذا الكود

Sub Clear()
Dim i As Integer
For i = 1 To Sheets.Count
Sheets(i).Select
   Range("B12:C36").ClearContents
    Range("A1").Select
Next
   End Sub

[hussein arby]

شكرا لك اخي الفاضل غلبتك معي

التعديل أيضا على زر مسح البيانات وإختصاره بهذا الكود ممتاز بارك الله فيك

اما التعديل علي علي كود تغيير العنون ليس هذا هو المطلوب . لاني ادخل العنون في 25  صفحة . عنوان موحد وليست كل صفحة له عنون غير .  يعيني مثلا  ( فرع السندباد لجنة رقم (12) تعمم علي كل الصفحات وليس صفحة واحدة  علشان ادخلها في كل الصفحات اضغط علي الزر 25 مره المستخدم يمل

[الجموعي]

شكرا لك اخي الفاضل غلبتك معي

التعديل أيضا على زر مسح البيانات وإختصاره بهذا الكود ممتاز بارك الله فيك

اما التعديل علي علي كود تغيير العنون ليس هذا هو المطلوب . لاني ادخل العنون في 25  صفحة . عنوان موحد وليست كل صفحة له عنون غير .  يعيني مثلا  ( فرع السندباد لجنة رقم (12) تعمم علي كل الصفحات وليس صفحة واحدة  علشان ادخلها في كل الصفحات اضغط علي الزر 25 مره المستخدم يمل

تم التعديل على كود تغيير العنوان

Sub Name()
Dim strName As String
Dim i As Integer
strName = Application.InputBox("الرجاء إدخال إسم الفرع ورقم اللجنة")
On Error Resume Next
For i = 1 To Sheets.Count
Sheets(i).Select
Range("c6") = strName
Next
Sheets(1).Select
End Sub

[عبدالباري البنا]

اخى العزيز 

الجموعى

بارك الله فيك وجزاك الله خير الجزاء

عمل رائع.. ومتقن... ومفيد  

تقبل تحياتى وتقديرى

[الجموعي]

 

اخى العزيز 

الجموعى

بارك الله فيك وجزاك الله خير الجزاء

عمل رائع.. ومتقن... ومفيد  

تقبل تحياتى وتقديرى

 

أستاذي الفاضل

شاكر مرورك بارك الله فيك

إن أمكن التعديل على هذالكود

Sub Name()
Dim strName As String
Dim i As Integer
strName = Application.InputBox("الرجاء إدخال إسم الفرع ورقم اللجنة")
On Error Resume Next
For i = 1 To Sheets.Count
Sheets(i).Select
Range("c6") = strName
Next
Sheets(1).Select
End Sub

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

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

[عبدالباري البنا]

 اخى الحبيب الجموعى

تفضل المرفق

اتمنى اكون فهمت طلبك صح

اى تعديل ... انت تؤمر

الجرد السنوى.rar

[الجموعي]

 

 اخى الحبيب الجموعى

تفضل المرفق

اتمنى اكون فهمت طلبك صح

اى تعديل ... انت تؤمر

الجرد السنوى.rar

 

 

أستاذي لم تفهم طلبي طلبي هو عكس ما قدمت بتعديله

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

وعند الضغط كذلك على زر الخروج او ألغاء الأمر تبقى البيانات في الخلية c6 في كامل الصفحات

[hussein arby]

شكرا لكم اخواني علي جهودكم العظيمة  وانا عاجز  عن الشكر جعله الله في ميزان حسناتكم