edkawy قام بنشر أبريل 7, 2012 قام بنشر أبريل 7, 2012 السلام عليكم و رحمة الله الرجتء من الاخوة التكرم بمساعدتى فى الملف المرفق ان امكن انا عندى قيمة ثابتة فى الخلية WPS و عاوز اضيف ( قيم متغيرة ) لنفس الخلية بدون مسح القيمة الموجودة اصلا فى الخلية قبل كدة جزاكم الله خير مقدما
أبو حنــــين قام بنشر أبريل 7, 2012 قام بنشر أبريل 7, 2012 السلام عليكم الأخ edkawy مرحبا ، أرجو أن يكون هذا هو المطلوب في ما يخص إضافة قيمة لخلية دون مسح القيمة الاصلية إضافة قيمة للخلية دون مسح القيمة الاصلية.rar
الـعيدروس قام بنشر أبريل 7, 2012 قام بنشر أبريل 7, 2012 السلام عليكم الاخ الفاضل عيد إذا تقصد خلية جمع المدخلات فيها فرضا أن الخلية المعنيه A2 جرب هكذا كود في حدث الورقة Private Sub Worksheet_Change(ByVal ALI As Excel.Range) Static ALI_S As Double With ALI If .Address(0, 0) = "A2" Then If Not IsEmpty(.Value) And IsNumeric(.Value) Then ALI_S = ALI_S + .Value Else ALI_S = 0 End If Application.EnableEvents = False .Value = ALI_S Application.EnableEvents = True End If End With End Sub وعندما يتم إقفال المصنف يتم تصفير القيمة في المتغير
edkawy قام بنشر أبريل 8, 2012 الكاتب قام بنشر أبريل 8, 2012 الاخوة الكرام , جزاكم الله خير على ردكم و اهتمامكم الملف مرفق المفروض ان العمود هيكون فية WPS ( او اى قيمة تانية ) وانا هكمل واضيف الرقم الخاص بيه يا رب اكون عرفت اوصل المطلوب جزاكم الله خير Book2.zip
طارق محمود قام بنشر أبريل 8, 2012 قام بنشر أبريل 8, 2012 السلام عليكم أخي العزيز المرفق به زر ، بالضغط عليه سيمر علي خلايا العمود C إذا كان أولها لايبدأ بما هو في مقابلها بالعمود B فسيتم إضافتها له وأما إذا كان أولها يبدأ بما هو في مقابلها بالعمود B فسيحذفها عنها أي أنه يصلح للدمج والفصل أيضا تفضل المرفق link_release.rar
أبو حنــــين قام بنشر أبريل 8, 2012 قام بنشر أبريل 8, 2012 السلام عليكم جرب هذا عسى ان يفي بالغرض إضافة قيمة للخلية دون مسح القيمة الاصلية.rar
edkawy قام بنشر أبريل 9, 2012 الكاتب قام بنشر أبريل 9, 2012 الاساتذة الكرام جزاكم الله على مجهودكم , انا حاولت اوضح طلبى اكتر فى الملف المرفق برجاء المساعدة ان امكن محمد سعد Book3.zip
عبدالله المجرب قام بنشر أبريل 9, 2012 قام بنشر أبريل 9, 2012 ضع هذا الكود في حدث الورقة ثم جرب كتابة اي كلمة في خلايا العمود C وسيتم اضافة القيمة السابقة الى ما قمت بادخاله Dim OldValue Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub With Application .ScreenUpdating = False .EnableEvents = False End With If Not Intersect(Target, [C5:C23]) Is Nothing Then Target = Target & " " & OldValue End If OldValue = vbNullString With Application .ScreenUpdating = True .EnableEvents = True End With End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) OldValue = Target End Sub
edkawy قام بنشر أبريل 10, 2012 الكاتب قام بنشر أبريل 10, 2012 الاخوة الكرام جزاكم الله على مجهودكم بس للاسف الحلول دى مسهلتش الشغل زى ما كنت اتمنى انا هستمر فى الطريقة اللى شغال بيها بارك الله فيكم مرة اخرى على مجهودكم و اسف انى تعبتكم معايا فى الموضوع دة محمد سعد
طارق محمود قام بنشر أبريل 10, 2012 قام بنشر أبريل 10, 2012 السلام عليكم أخي العزيز الكود الذي قدمه أخونا أبوأحمد (حفظه الله) شغال وليس به شيء قد تكون أنت لم تستطع نقله بعد إذنك أبوأحمد (غيرت تغييرات طفيفة : عمود التغيير B وليس C وكذلك محتوي الخلية القديم قبل الجديد) تفضل الملف المرفق وبه الكود يعمل كما تريد حاول الكتابة علي أي من الخلايا الصفراء وحتي لو كررت الكتابة ، سيتراكم المكتوب القديم والجديد Book3.rar
edkawy قام بنشر أبريل 11, 2012 الكاتب قام بنشر أبريل 11, 2012 وعليكم السلام و رحمة الله الاستاذ الكريم / طارق شكرا على اهتمامك بالموضوع وانا شايف انك معاك حق بخصوص نقل الكود الخاص بالاستاذ / عبد الله ابو احمد جزاه الله خير , يا ريت يعذرنى على قلة فهمى للكود التعديل اللى قى الملف اللى حضرتك عملتة اكتر من ممتاز و هو المطلوب بالظبط فى الكود اللى حضرتك عاملة العمود بياخد رقم , بمعنى عمود A هو رقم 1 , و عمود B هو رقم 2 , وهكذا ...... يعنى انا ممكن اعمل كوبى للكود فى الملف بتاعى و اغير فى رقم العمود اللى انا محتاجة مفيش مشكلة . سؤالى لحضرتك ان امكن هو : ازاى اقدر احدد مدى معين للصفوف , مثلا من الصف رقم 10 الى الصف رقم 5000 , مش للعمود كلة , وهل ممكن تنى اضيف رقم عمود تانى فى نفس الكود ؟؟ جزاكم الله خير عى مجهودكم
طارق محمود قام بنشر أبريل 11, 2012 قام بنشر أبريل 11, 2012 السلام عليكم أخي العزيز لابأس ، المهم تصل لما تريد ، هذا هدفنا جميعا تفضل الكود بعد التعديل كما تريد وبه تلميح باللغة العربية لأماكن التعديل Dim OldValue Private Sub Worksheet_Change(ByVal Target As Range) 'في السطر التالي تم إضافة العمودين رقم 3 ، 4 للعمود رقم 2 If Target.Count > 1 Or Target.Column < 2 Or Target.Column > 4 Then Exit Sub 'وفي السطر التالي يتم تحديد الصفوف من 10 إلي 5000 If Target.Row < 10 Or Target.Row > 5000 Then Exit Sub Application.ScreenUpdating = False Application.EnableEvents = False Target = OldValue & Target OldValue = vbNullString Application.ScreenUpdating = True Application.EnableEvents = True End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) OldValue = Target End Sub 1
edkawy قام بنشر أبريل 12, 2012 الكاتب قام بنشر أبريل 12, 2012 بارك الله فيك يا استاذ طارق وفى جميع من اهتم ورد على الموضوع وجعلة فى ميزان حسناتكم مش محتاج اى حاجة تانية بارك الله فيك مرة اخرى محمد سعد
عبدالله المجرب قام بنشر أبريل 13, 2012 قام بنشر أبريل 13, 2012 السلام عليكم أخي العزيز الكود الذي قدمه أخونا أبوأحمد (حفظه الله) شغال وليس به شيء قد تكون أنت لم تستطع نقله بعد إذنك أبوأحمد (غيرت تغييرات طفيفة : عمود التغيير B وليس C وكذلك محتوي الخلية القديم قبل الجديد) حياك الله استاذ طارق كفييت ووفيت 1
mahmoud mabrouk قام بنشر نوفمبر 21, 2017 قام بنشر نوفمبر 21, 2017 السلام عليكم ورحمه الله وبركاته الاخوه الاعزاء ارجوا المساعده فى هذا العمل .. وسؤالى هو كيف اجعل قيم d2 الى d8 وقيمi2 الى i8 الى شخص واحد فقط كل مره من هذه الاسماء فى العمود b A B C D E F G H I J التاريخ الدفعات التاريخ السحب تنزيل دفعه ثانيه سحب دفعه ثانيه تنزيل دفعه ثالثه سحب دفعه ثالثه تنزيل دفعه رابعه سحب دفعه رابعه تنزيل دفعه خامسه سحب دفعه خامسه تنزيل دفعه سادسه سحب دفعه سادسه تنزيل دفعه سابعه سحب دفعه سابعه تنزيل دفعه ثامنه سحب دفعه ثامنه 0 تاريخ اليوم اسم المدين عنوانه تليفونه المبلغ المستحق دفع تبقى سحب تنزيل من الحساب 0 0 0 0 1 محمود 0 0 0 0 2 محمد 0 0 0 0 3 احمد 0 0 0 0
Abu Taha قام بنشر يونيو 15 قام بنشر يونيو 15 في 8/4/2012 at 20:35, أبو حنــــين said: السلام عليكم جرب هذا عسى ان يفي بالغرض إضافة قيمة للخلية دون مسح القيمة الاصلية.rar الأخ أبو حنين أفادني ملفك جداً جزاك الله خير الجزاء هل يمكن إضافة عدم مسح الرقم المدخل حتى يتم تعديله من قبل المستخدم
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.