• اضافة إهداء
    (المعذره .. غير مسموح للزوار بإضافة الإهداءات, الرجاء التسجيل في المنتدى)


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





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

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



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

وشكرا

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

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





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




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

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

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





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

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


 







الساعة الآن 12:41 صباحا