أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
هانى على لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة YasserKhalil الترقيم بشرط معين اكسيل اسئله واجابات


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





الانتقال للسطر التالي ومعادله حسابيه

مساء الخير هذا المنتدي له فضل كبير جدا علي في انها ملفات مهمه جدا خاصه بعملي مرفق لكم ملف بسيط المطلوب الانتقال الي ا ..


موضوع مغلق

الصفحة 1 من 2 < 1 2 > الأخيرة »


02-10-2021 11:37 مساء
asd2000
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 04-03-2020
رقم العضوية : 18379
المشاركات : 36
الجنس : ذكر
تاريخ الميلاد : 19-1-1980
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 18
 offline 

مساء الخير
هذا المنتدي  له فضل كبير جدا علي في انها ملفات مهمه جدا  خاصه بعملي
مرفق لكم ملف بسيط 
المطلوب الانتقال الي السطر الثاني بعد تسجيل  خلابا معينه  ليتم تسجيل بيانات جديده 

الطلب الثاني وهو خاص بالتكلفه والكميه وخصم الكميه المباعه واظهر الكميه الجديده وتكلفتها

موضح بالمرفق لكم 
شاكر لكم
 
 
 
  حل.xlsx   تحميل xlsx مرات التحميل :(7)
الحجم :(12.425) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
أخي الكريم أكرر أنه لابد من تعلم الأساسيات وعند شرح الموضوع لابد من ذكر التفاصيل المرتبطة بالنقطة التي تسأل عنها فأنا لا أحب التخمين ولا العمل على التخمين
وسأعتبر هذا استثناء في الموضوع
أعتقد أنك تريد ترحيل البيانات التي يتم إدخالها في النطاق من A3 إلى D3 إلى أول سطر فارغ في نهاية الجدول رقم 1
أولاً قبل وضع الكود قم بحذف الصفوف بدايةً من الصف رقم 14 ثم ضع الكود التالي في حدث ورقة العمل (كليك يمين على اسم ورقة العمل ثم View Code ثم الصق الكود من المشاركة)
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim m As Long
    If Target.Row = 3 And Target.Column >= 1 And Target.Column <= 4 Then
        Target.Offset(, 1).Select
        If Target.Column = 4 Then
            Cells(Target.Row, 1).Select
            m = Cells(Rows.Count, 1).End(xlUp).Row + 1
            Cells(m, 1).Resize(1, 4).Value = Cells(3, 1).Resize(1, 4).Value
            Cells(m, 5).Formula = "=C" & m & "*D" & m
            Application.EnableEvents = False
                Range("A3:D3").ClearContents
            Application.EnableEvents = True
        End If
    End If
End Sub


عمل الكود: ستقوم بتحديد A3 وتدخل بيانك ثم تضغط إنتر فينتقل بك الكود للخلية المجاورة B3 بشكل تلقائي وهكذا حتى الخلية D3 .. بعد الضغط على إنتر في الخلية D3 أي بعد انتهاء إدخال البيانات ستتم عندها عملية ترحيل البيانات ومسح النطاق A3 إلى D3 وكذلك يتم وضع المعادلة تلقائياً في الصف الذي تم فيه الترحيل
عرض الإجابة




03-10-2021 07:27 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif الانتقال للسطر التالي ومعادله حسابيه
أخي الكريم
لا يلتفت الكثير من الأعضاء ومنهم -العبد لله- إلى الموضوعات ذات الطلبات المتعددة. ركز في سؤالك على نقطة واحدة فقط واشرح كافة التفاصيل المرتبطة بهذه النقطة مع وضع بعض النتائج المتوقعة ليسهل على الأعضاء فهم المشكلة ، حيث أن فهم المشكلة يمثل أكثر من 90% من الحل.

03-10-2021 12:54 مساء
مشاهدة مشاركة منفردة [2]
asd2000
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 04-03-2020
رقم العضوية : 18379
المشاركات : 36
الجنس : ذكر
تاريخ الميلاد : 19-1-1980
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 18
 offline 
look/images/icons/i1.gif الانتقال للسطر التالي ومعادله حسابيه
جميل جدا
احتاج كود يجعل الانتتقال للبيانات الي الصف الاسفل ومسح البيانات المدخله ليتم ادخال بيانات جديده

03-10-2021 07:23 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif الانتقال للسطر التالي ومعادله حسابيه
جرب الكود التالي رغم أنني طلبت تفاصيل أكثر ولم تبدي أية تفاصيل جديدة (عله يكون المطلوب إن شاء الله)
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column >= 1 And Target.Column <= 5 Then
        Target.Offset(, 1).Select
        If Target.Column = 5 Then Cells(Target.Row, 1).Select
    End If
End Sub

03-10-2021 07:31 مساء
مشاهدة مشاركة منفردة [4]
asd2000
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 04-03-2020
رقم العضوية : 18379
المشاركات : 36
الجنس : ذكر
تاريخ الميلاد : 19-1-1980
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 18
 offline 
look/images/icons/i1.gif الانتقال للسطر التالي ومعادله حسابيه
اشكرك اخوي ياسر
انا خجلان منك لاني وضعت الكود ولم يعمل
وضعته في  module
اذا كان خطا اتمني تفيدني كيف اضيفه في الورقه 
واكرر انني والله خجلان منك

المطلوب بعد ادخال البيانات تنتقل الي الخانات السفليه لكي ادخل بيانات جديده
 

03-10-2021 07:59 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif الانتقال للسطر التالي ومعادله حسابيه
الكود لا يوضع في موديول عادي بل يوضع في موديول ورقة العمل (لابد من تعلم الأساسيات اخي الكريم)
كليك يمين على اسم ورقة العمل ثم View Code ثم الصق الكود
الكود سيقوم بالانتقال في نفس الصف الثالث وإذا أردت للانتقال للصف التالي زود القيمة في الـ Target.Row زائد 1
If Target.Column = 5 Then Cells(Target.Row + 1, 1).Select

03-10-2021 08:24 مساء
مشاهدة مشاركة منفردة [6]
asd2000
عضو مشارك
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 04-03-2020
رقم العضوية : 18379
المشاركات : 36
الجنس : ذكر
تاريخ الميلاد : 19-1-1980
يتابعهم : 2
يتابعونه : 0
قوة السمعة : 18
 offline 
look/images/icons/i1.gif الانتقال للسطر التالي ومعادله حسابيه
اشكر جهدك
لكن الظاهر اني ماقدرت اوصل فكرتي
انا احتاج صف رقم 3  يكون خاص بادخال المعلومات وبعدها تنتقل للاسفل ويتم تفريغ صف رقم 3 لاستقبال بيانات جديده
يعني باختصار يكون فقط لادخال بيانات جديده 
الغلط مني في عدم قدرتي علي التوضيح اذا فيه مجال تخدمني اكون شاكر لك
واشكرك مقدما فانت قد خدمتني كثير جدا 


الصفحة 1 من 2 < 1 2 > الأخيرة »


الكلمات الدلالية
حسابيه ، ومعادله ، التالي ، للسطر ، الانتقال ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 07:21 صباحا