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

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


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





بعض طرق ترحيل البيانات

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



21-08-2017 08:35 مساء
Yasser Elaraby
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1293
الجنس : ذكر
الدعوات : 13
يتابعهم : 2
يتابعونه : 724
قوة السمعة : 9894
موقعي : زيارة موقعي
عدد الإجابات: 9
 offline 

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

 Sub TRans()  
   Dim myArray() As Variant  
   myArray = Range("B5:J" & Cells(Rows.Count, 3).End(xlUp).Row)  
   Sheet2.Cells(Rows.Count, 2).End(xlUp)(2, 1).Resize(UBound(myArray, 1), UBound(myArray, 2)).Value = myArray  
   MsgBox "DONE....", 64  
 End Sub

اما الكود الثاني
فهو يقوم بتحديد نطاق البيانات ومن ثم يقوم بالنسخ
ويقوم بعمل لصق خاص (القيم فقط) اي البيانات بدون اي تنسيقات او
معادلات
وتستطيع تغيير طريقة لصق البيانات كما بالصورة
منها لصق التنسيقات او لصق الجميع او لصق القيم الخ

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


 Sub TRans1()  
   Application.ScreenUpdating = False  
   Range("B5:J" & Cells(Rows.Count, 3).End(xlUp).Row).Copy  
   Sheet2.Range("B" & Sheet2.Cells(Rows.Count, 2).End(xlUp).Row + 1).PasteSpecial (xlPasteValues)  
   Application.CutCopyMode = False  
   Application.ScreenUpdating = True  
   MsgBox "DONE....", 64  
 End Sub


الكود الثالث
يقوم بنسخ بطريقة الـ (Destination)
ويتم وضع المكان الهدف المراد النسخ له بجانب كود النسخ مباشرة
وهذا الكود يقوم بنسخ البيانات كما هي بتنسيقاتها معادلاتها
كما موضح
 Sub TRans2()  
   Application.ScreenUpdating = False  
   Range("B5:J" & Cells(Rows.Count, 3).End(xlUp).Row).Copy Sheet2.Range("B" & Sheet2.Cells(Rows.Count, 2).End(xlUp).Row + 1)  
   Application.ScreenUpdating = True  
   MsgBox "DONE....", 64  
 End Sub  


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

تحياتي

اعداد / ياسر العربي
توقيع :Yasser Elaraby
663013020


21-08-2017 08:40 مساء
مشاهدة مشاركة منفردة [1]
ناصر سعيد
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 9
المشاركات : 245
الجنس : ذكر
تاريخ الميلاد : 1-1-1985
الدعوات : 2
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 587
 offline 
look/images/icons/i1.gif بعض طرق ترحيل البيانات
جزاك الله الف الف خير يا استاذ ياسر العربي

توقيع :ناصر سعيد
جزاكم الله خيرا


21-08-2017 08:41 مساء
مشاهدة مشاركة منفردة [2]
ناصر سعيد
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 9
المشاركات : 245
الجنس : ذكر
تاريخ الميلاد : 1-1-1985
الدعوات : 2
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 587
 offline 
look/images/icons/i1.gif بعض طرق ترحيل البيانات
ماذا تعني 64 الموجوده بالكود ؟

توقيع :ناصر سعيد
جزاكم الله خيرا


21-08-2017 08:50 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif بعض طرق ترحيل البيانات
بارك الله فيك أخي الكريم ياسر العربي
أخي العزيز ناصر
الرقم 64 يشير إلى أيقونة vbInformation أي يمكنك أن تقوم بحذف الـ 64 واستخدام الكلمة .. وإليك تفصيل على هذا الرابط
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

21-08-2017 08:54 مساء
مشاهدة مشاركة منفردة [4]
Yasser Elaraby
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1293
الجنس : ذكر
الدعوات : 13
يتابعهم : 2
يتابعونه : 724
قوة السمعة : 9894
موقعي : زيارة موقعي
عدد الإجابات: 9
 offline 
look/images/icons/i1.gif بعض طرق ترحيل البيانات
جزاكم الله خيرا 
الرقم 64 هو تحديد نوع الرسالة من رسالة لمعلومات او انذار او تحذير وغيرها كما موضح ولك ان تجرب الارقام
NDczOTAzMQ8181msgboxtype
تحياتي
 
 

توقيع :Yasser Elaraby
663013020


21-08-2017 09:45 مساء
مشاهدة مشاركة منفردة [5]
ناصر سعيد
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 9
المشاركات : 245
الجنس : ذكر
تاريخ الميلاد : 1-1-1985
الدعوات : 2
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 587
 offline 
look/images/icons/i1.gif بعض طرق ترحيل البيانات
ربنا يحفظكم ويصونكم يارب .. باجتماع الياسرين سيكون افضل واقوى منتدى في الاوفيس
توقيع :ناصر سعيد
جزاكم الله خيرا


21-08-2017 10:34 مساء
مشاهدة مشاركة منفردة [6]
ناصر سعيد
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 9
المشاركات : 245
الجنس : ذكر
تاريخ الميلاد : 1-1-1985
الدعوات : 2
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 587
 offline 
look/images/icons/i1.gif بعض طرق ترحيل البيانات
عند الضغط على ترحيل 3 لاتاتي التواريخ مضبوطه
احنا بنرحل بيانات
هل معنى هذا اننا بنرحل صفحه كامله الى صفحه اخرى ؟
توقيع :ناصر سعيد
جزاكم الله خيرا





الكلمات الدلالية
لا يوجد كلمات دلالية ..


 










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

الساعة الآن 10:56 صباحا