هل يوجد حل لزيادة او نقصان عمود يحتوى على مرتبات 50 % لكل العمود مثلا او كل الورقة بخطوة واحدة ؟؟؟

[heshamo]

السلامو عليكم

ارغب فى زيادة المرتبات بواقع 50%

والعمود يمتلىء بالمرتبات اريد زيادة المرتبات او انقاصها مثلا جميعها بخطوة واحدة مثلا زيادة خمسين بالمائة يعنى اضرب المرتب فى خمسين بالمائة لكل العمود او للصفحة كاملة

هل هناك ما يمكننى ان افعله ليقم بها الاكسيل فى خطوة واحدة ؟؟؟

مرفق مثال

Book1.rar

[الـعيدروس]

السلام عليكم

تفضل هذا الكود

يعمل الكود على عمود M اللي هوا المرتب الأساسي

وتقدر تغير الى اي مدى تحب موضح على الكود

Public Sub ALI()

Dim A_1 As Range, A_2 As Range

Set A_2 = Range("M4:M30") 'غير المدى الذي تريد إضافة 50% عليه

For Each A_1 In A_2

If A_1.Value <> Empty Then

If IsNumeric(A_1) Then

A_1.Value = A_1 / 100 * 50 + A_1

End If

End If

Next A_1

End Sub

جرب واخبرني النتيجة

تم تعديل ديسمبر 21, 2011 بواسطه alidroos

[heshamo]

شكرا لك اخى الفاضل لاستجابتك لكن كيف اضع الكود ؟؟

اعذرنى انا جديد فى عالم الاكسيل انا اسمع عن الكود ولا اعرف كيف استخدمه

[الـعيدروس]

السلام عليكم

اولاً اتبع هذا الشرح

الشرح المرفق الأول

والملف وبه الكود المرفق الثاني

SH_ALI.rar

زيادة 50 % _ALI.rar

[heshamo]

شكرا لك اخى ساتعلم القليل عن الماكرو واضافة الاكواد فى البداية واشكرك على الكود

[heshamo]

ممكن يا اخى طلب اخير كيف اعكسها يعنى انقص خمسين بالمائة من المرتب الاساسى بحيث يكون النصف

ثانيا كيف يكون الشكل لو هطبق على عدة اعمدة كيف يتم وضعهم بجابن بعض وشكرا لك اخى على علمك الغزير

[الـعيدروس]

السلام عليكم

هل هكذا تقصد

جرب واخبرني النتيجة

زيادة 50 % _ALI_1.rar

[عبدالله المجرب]

الاستاذ الفاضل ابو نصار

عمل جميل جداً ومحترف

[heshamo]

فعلا عمل احترافى شكرا لك اخى الفاضل على انجازاتك ربنا يكرمك

[الـعيدروس]

السلام عليكم

استاذي الحبيب عبدالله المجرب

اشكر مرورك العطر وتشجيعك لنا المستمر

الاخ هشام ان شاء الله يكون تم المطلوب

والسلام عليكم

[abouelhassan]

ولا اروع استاذنا ابو نصار

شكر وتقدير وكل الاحترام