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

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


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



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





ضبط الترحيل

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



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

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

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







08-10-2018 06:21 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6329
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 391
قوة السمعة : 17426
الاعجاب : 315
 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]
رمضان بكري
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 153
المشاركات : 358
الجنس : ذكر
تاريخ الميلاد : 9-7-1981
الدعوات : 4
يتابعهم : 5
يتابعونه : 32
قوة السمعة : 1314
الاعجاب : 12
 offline 
look/images/icons/i1.gif ضبط الترحيل
السلام عليكم 
بجد الفكرة جميلة كنت بجد بدور علي فكرة زي دي
اغير فقط رقم الاشتراك  
استاذ ياسر انا عاجز عن الشكر جزاك الله خيرا  
واللهي انا مش عارف  اقولك ايه   ربنا يعطيك العافية 
ياملك المصفوفات   والحلقات التكرارية 
 





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





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





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





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





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






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
ترحيل مرن وسريع وسهل ضبطه Yasser Elaraby
82 6411 Yasser Elaraby
ضبط كود جلب قيمة خلية بمجرد اختيار قيمة معينة من خلية اخرى مهند محسن
3 125 YasserKhalil
ضبط كود التعديل داخل الفورم مهند محسن
6 139 YasserKhalil
ضبط كود البحث فى تكست بوكس 20 فى الفورم للبحث فى عدة صفحات مهند محسن
19 467 YasserKhalil
ضبط مسافه النهايه Excelawy
15 401 Yasser Elaraby

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


 







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



الساعة الآن 12:50 مساء

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