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

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


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


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





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

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



05-01-2018 09:54 مساء
malik
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 857
المشاركات : 284
الجنس : ذكر
تاريخ الميلاد : 4-7-1985
الدعوات : 5
قوة السمعة : 303
الاعجاب : 0
 offline 
السلام اخواني الاساتذة جزاكم الله كل خير 
عندي طلب حول ترحيل افقي وعمودي كما انا مبين  بالالوان على شيت مرفق 

وشكرا

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

 
 
 
  ترحيل افقي وعمودي حسب اسطر مبينة بالالون على شيت.rar   تحميل rar مرات التحميل :(9)
الحجم :(16.845) KB





07-01-2018 09:50 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8640
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25458
الاعجاب : 167
 offline 
look/images/icons/i1.gif اريد عمل كود ترحيل افقي وعمودي حسب اسطر الملونة فقط
وعليكم السلام جرب الكود التالي عله يفي بالغرض إن شاء الله
Private Sub CommandButton1_Click()
    Dim ws          As Worksheet
    Dim lr          As Long
    Dim i           As Long
    Dim x           As Long
    
    Set ws = Worksheets(1)
    lr = ws.Cells(Rows.Count, 1).End(xlUp).Row + 1

    For i = 1 To 8
        ws.Cells(lr, i).Value = Me.Controls("TextBox" & i).Value
    Next i

    x = 0
    For i = 8 To 19
        ws.Cells(lr + x, 8).Value = Me.Controls("TextBox" & i).Value
        x = x + 1
    Next i
    
    x = 0
    For i = 20 To 31
        ws.Cells(lr + x, 9).Value = Me.Controls("TextBox" & i).Value
        x = x + 1
    Next i
    
    x = 0
    For i = 32 To 43
        ws.Cells(lr + x, 10).Value = Me.Controls("TextBox" & i).Value
        x = x + 1
    Next i
    
    x = 0
    For i = 44 To 55
        ws.Cells(lr + x, 11).Value = Me.Controls("TextBox" & i).Value
        x = x + 1
    Next i
    
    x = 0
    For i = 56 To 67
        ws.Cells(lr + x, 12).Value = Me.Controls("TextBox" & i).Value
        x = x + 1
    Next i
    
    TextBox1.SetFocus
End Sub

Private Sub UserForm_Activate()
    TextBox1.SetFocus
End Sub




07-01-2018 10:21 مساء
مشاهدة مشاركة منفردة [2]
malik
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 857
المشاركات : 284
الجنس : ذكر
تاريخ الميلاد : 4-7-1985
الدعوات : 5
قوة السمعة : 303
الاعجاب : 0
 offline 
look/images/icons/i1.gif اريد عمل كود ترحيل افقي وعمودي حسب اسطر الملونة فقط
وعليكم السلام استاذ شكرا جزيلا على اهتمام بطلبي 
والله كود ممنتاز جزاك الله كل خير 
ننتظر اظافة كود التعديل  عليه ان شاء الله  
تقبل تحياتي 




07-01-2018 10:55 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8640
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25458
الاعجاب : 167
 offline 
look/images/icons/i1.gif اريد عمل كود ترحيل افقي وعمودي حسب اسطر الملونة فقط
وجزيت خيراً أخي الكريم
ماذا تقصد بكود التعديل ..؟

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






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
طلب كود التعديل على ترحيل الافقي والعمودي عند الخطأ malik
0 571 malik

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


 







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

الساعة الآن 02:14 مساء

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