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



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





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

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



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





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

وشكرا

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

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







07-01-2018 09:50 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 3572
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 11
يتابعهم : 0
يتابعونه : 282
قوة السمعة : 9890
الاعجاب : 3398
 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
المشاركات : 248
الجنس : ذكر
تاريخ الميلاد : 4-7-1985
الدعوات : 4
يتابعهم : 14
يتابعونه : 4
قوة السمعة : 217
الاعجاب : 72
 offline 
look/images/icons/i1.gif اريد عمل كود ترحيل افقي وعمودي حسب اسطر الملونة فقط
وعليكم السلام استاذ شكرا جزيلا على اهتمام بطلبي 
والله كود ممنتاز جزاك الله كل خير 
ننتظر اظافة كود التعديل  عليه ان شاء الله  
تقبل تحياتي 





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

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

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





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

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


 







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



الساعة الآن 11:47 صباحا

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