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



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





ضبط الترحيل

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



08-10-2018 04:09 مساء
رمضان بكري
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 153
المشاركات : 295
الجنس : ذكر
تاريخ الميلاد : 9-7-1981
الدعوات : 3
يتابعهم : 5
يتابعونه : 20
قوة السمعة : 715
الاعجاب : 207
 offline 

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

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







08-10-2018 06:21 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 4651
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 318
قوة السمعة : 13379
الاعجاب : 4951
 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
المشاركات : 295
الجنس : ذكر
تاريخ الميلاد : 9-7-1981
الدعوات : 3
يتابعهم : 5
يتابعونه : 20
قوة السمعة : 715
الاعجاب : 207
 offline 
look/images/icons/i1.gif ضبط الترحيل
السلام عليكم 
بجد الفكرة جميلة كنت بجد بدور علي فكرة زي دي
اغير فقط رقم الاشتراك  
استاذ ياسر انا عاجز عن الشكر جزاك الله خيرا  
واللهي انا مش عارف  اقولك ايه   ربنا يعطيك العافية 
ياملك المصفوفات   والحلقات التكرارية 
 

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




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





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





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





09-10-2018 02:16 مساء
مشاهدة مشاركة منفردة [6]
رمضان بكري
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 153
المشاركات : 295
الجنس : ذكر
تاريخ الميلاد : 9-7-1981
الدعوات : 3
يتابعهم : 5
يتابعونه : 20
قوة السمعة : 715
الاعجاب : 207
 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
المشاركات : 4651
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 318
قوة السمعة : 13379
الاعجاب : 4951
 offline 
look/images/icons/i1.gif ضبط الترحيل
كمجرد فكرة يمكن العمل عليها أقترح تغيير مسميات أدوات التحكم لديك إلى اسم مشابه مع تغيير رقم كل أداة تحكم بهذا الشكل مثلاً
TB1 و TB2 و TB3 ليسهل عليك ترتيب عملية الترحيل والتعامل مع الحقول الموجودة






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
ضبط كود السلاسل الرقمية مالك ماريه
7 71 ابونور
ضبط كود البحث والتعديل ashraf_hertlion
4 78 مهند محسن
ضبط كود الحذف داخل الفورم هانى على
9 97 هانى على
ضبط كود التعديل داخل الفورم هانى على
8 83 YasserKhalil
ضبط كود الترحيل من صفحة الى عدة صفحات أحمد يوسف
5 101 YasserKhalil

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


 







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



الساعة الآن 06:44 مساء

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