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

اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا

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




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





ضبط الترحيل

السلام عليكم تحياتي للجميع استاذتي الكرام لدي في الفورم اكثر من رقم الاشتراك وان باقي البيانات ثابتة واريد عند ا ..



08-10-2018 04:09 مساء
رمضان بكري
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 153
المشاركات : 306
الجنس : ذكر
تاريخ الميلاد : 9-7-1981
الدعوات : 4
يتابعهم : 5
يتابعونه : 22
قوة السمعة : 881
الاعجاب : 243
 offline 

السلام عليكم 
تحياتي للجميع 
استاذتي الكرام 
لدي في الفورم اكثر من رقم الاشتراك   وان  باقي البيانات ثابتة   واريد عند الترحيل  يرحل نفس البيانات مع اضافة رقم الاشتراك الجديد الذي اضفت في الفريم  مع مراعاة  الترحيل التكست بوكس بها بينات فقط   من الفريم   لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

نتائج المتوقعة  في حالة اكثر من رقم الاشتراك  بالالوان في الشيت 
 
 
  ترحيل باقي التكست بوكس المطلوب.rar   تحميل rar مرات التحميل :(7)
الحجم :(19.649) KB







08-10-2018 06:21 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5039
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 14
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14708
الاعجاب : 5488
 offline 
look/images/icons/i1.gif ضبط الترحيل
وعليكم السلام أخي الكريم رمضان
كالعادة المطلوب غير واضح بنسبة كبيرة ، ولكن حسب ما فهمت جرب الكود التالي .. وإذا لم يعطيك نتائج صحيحة فقد أعطيتك الفكرة ،ويمكنك التعديل عليها لتلائم ملفك كما ترغب حيث أنني تهت في الحقول الموجودة ولا أدري لما لا تجعل عناوين الحقول في الفورم مطابقة للعناوين في ورقة العمل ليسهل فهم المطلوب بشكل أكبر
سامحك الله 
Private Sub CommandButton1_Click()
    Dim lastrow As Integer
    Dim i As Byte

    Sheet1.Activate
    lastrow = [C100000].End(xlUp).Row + 1

    For i = 1 To 4
        If Me.Controls("TextBox" & i) = "" Then
            Cells(lastrow, i).Value = Cells(lastrow - 1, i).Value
        Else
            Cells(lastrow, i).Value = Me.Controls("TextBox" & i).Value
        End If
    Next i

    If Me.ComboBox1.Value = "" Then
        Cells(lastrow, 5).Value = Cells(lastrow - 1, 5).Value
    Else
        Cells(lastrow, 5).Value = Me.ComboBox1.Value
    End If

    For i = 9 To 12
        If Me.Controls("TextBox" & i - 3).Value = "" Then
            Cells(lastrow, i).Value = Cells(lastrow - 1, i).Value
        Else
            Cells(lastrow, i).Value = Me.Controls("TextBox" & i - 3).Value
        End If
    Next i

    MsgBox "تم اضافة البيانات"
    TextBox1.Value = ""
    TextBox2.Value = ""
    TextBox3.Value = ""
    TextBox4.Value = ""

    TextBox2.SetFocus
End Sub





09-10-2018 09:06 صباحا
مشاهدة مشاركة منفردة [2]
رمضان بكري
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 153
المشاركات : 306
الجنس : ذكر
تاريخ الميلاد : 9-7-1981
الدعوات : 4
يتابعهم : 5
يتابعونه : 22
قوة السمعة : 881
الاعجاب : 243
 offline 
look/images/icons/i1.gif ضبط الترحيل
السلام عليكم 
بجد الفكرة جميلة كنت بجد بدور علي فكرة زي دي
اغير فقط رقم الاشتراك  
استاذ ياسر انا عاجز عن الشكر جزاك الله خيرا  
واللهي انا مش عارف  اقولك ايه   ربنا يعطيك العافية 
ياملك المصفوفات   والحلقات التكرارية 
 

أثارت هذه المشاركة إعجاب: YasserKhalil،




09-10-2018 09:08 صباحا
مشاهدة مشاركة منفردة [3]
رمضان بكري
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 153
المشاركات : 306
الجنس : ذكر
تاريخ الميلاد : 9-7-1981
الدعوات : 4
يتابعهم : 5
يتابعونه : 22
قوة السمعة : 881
الاعجاب : 243
 offline 
look/images/icons/i1.gif ضبط الترحيل
سيدي الفاضل  الرجاء شرح الكود 
عشان بجد عايز اتعلم   
أفهمه ايضا 
بارك الله فيك 
 





09-10-2018 09:21 صباحا
مشاهدة مشاركة منفردة [4]
رمضان بكري
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 153
المشاركات : 306
الجنس : ذكر
تاريخ الميلاد : 9-7-1981
الدعوات : 4
يتابعهم : 5
يتابعونه : 22
قوة السمعة : 881
الاعجاب : 243
 offline 
look/images/icons/i1.gif ضبط الترحيل
سيدي الفاضل  الرجاء شرح الكود 
عشان بجد عايز اتعلم   
أفهمه ايضا 
بارك الله فيك 
 





09-10-2018 02:14 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5039
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 14
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14708
الاعجاب : 5488
 offline 
look/images/icons/i1.gif ضبط الترحيل
بارك الله فيك أخي الكريم رمضان
الكود لا يحتاج لشرح ..أعتقد أنه واضح .. حيث يوجد جملة شرط تختبر إذا كان الحقل فارغ أو لا .. فإذا كان فارغ فإن قيمة الخلية ستكون مثل الخلية التي تسبقها ، وإن لم تكن فارغة فإن القيمة المرحلة ستكون هي القيمة الموجودة في الحقل
والحلقات التكرارية لتقليل عدد أسطر الكود 





09-10-2018 02:16 مساء
مشاهدة مشاركة منفردة [6]
رمضان بكري
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 153
المشاركات : 306
الجنس : ذكر
تاريخ الميلاد : 9-7-1981
الدعوات : 4
يتابعهم : 5
يتابعونه : 22
قوة السمعة : 881
الاعجاب : 243
 offline 
look/images/icons/i1.gif ضبط الترحيل
استاذ ياسر 
من فضلك  عند توسيع النطاق  من 9 : 32 
يعطني خطأ في معادلة   If Me.Controls("TextBox" & i - 3).Value = "" Then
ما هو العمل في ذلك 
اذا كان لدي اكثر من  ComboBox1  
 
 





09-10-2018 02:18 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5039
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 14
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14708
الاعجاب : 5488
 offline 
look/images/icons/i1.gif ضبط الترحيل
كمجرد فكرة يمكن العمل عليها أقترح تغيير مسميات أدوات التحكم لديك إلى اسم مشابه مع تغيير رقم كل أداة تحكم بهذا الشكل مثلاً
TB1 و TB2 و TB3 ليسهل عليك ترتيب عملية الترحيل والتعامل مع الحقول الموجودة






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
طلب ضبط كودعند تعديل على البيانات في شيت يتم تعديل حتى في شيت الأخر ابااسماعيل
1 17 ابااسماعيل
ضبط وتعديل كود البحث فى الكمبوبوكس وكود التعديل هانى على
2 30 هانى على
ضبط التنسيق بلغة واحدة Eslam Abdullah
10 266 kby
ترحيل مرن وسريع وسهل ضبطه Yasser Elaraby
67 4698 ناصر سعيد
اصلاح وضبط كود ترحيل القيد هانى على
5 73 Eslam Abdullah

الكلمات الدلالية
الترحيل ،


 







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



الساعة الآن 08:55 مساء

أعلن هنا
أعلن هنا
أعلن هنا