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

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


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



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





ترحيل الاشكال من ورقة عمل الى اخرى

السلام عليكم باختصار اريد كود ترحيل الاشكال من ورقة 1 الى ورقة 2 بنفس التنسيق



14-05-2019 12:39 مساء
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 140
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 114
الاعجاب : 34
 offline 

السلام عليكم 
باختصار اريد كود ترحيل الاشكال من ورقة 1 الى ورقة 2 بنفس التنسيق
 
 
  ورقة عمل Microsoft Excel جديد ‫(3)‬.xlsx   تحميل xlsx مرات التحميل :(7)
الحجم :(10.087) KB







14-05-2019 09:57 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6678
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 407
قوة السمعة : 18614
الاعجاب : 782
 offline 
look/images/icons/i1.gif ترحيل الاشكال من ورقة عمل الى اخرى
وعليكم السلام
جرب الكود التالي
Sub Test()
    Dim ws As Worksheet, sh As Worksheet, shp1 As Shape, shp2 As Shape, sName As String

    Set ws = Sheet1
    Set sh = Sheet2

    For Each shp1 In ws.Shapes
            sName = shp1.Name
            shp1.Copy: sh.Paste
            
            Set shp2 = sh.Shapes(sh.Shapes.Count)
            shp2.Name = sName
            shp2.Top = shp1.Top: shp2.Left = shp1.Left
    Next shp1
End Sub

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




15-05-2019 12:17 صباحا
مشاهدة مشاركة منفردة [2]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1103
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 51
قوة السمعة : 4704
الاعجاب : 333
 offline 
look/images/icons/i1.gif ترحيل الاشكال من ورقة عمل الى اخرى
أحسنت استاذ ياسر كود ممتاز وحسب الغرض المطلوب
جعله الله فى ميزان حسناتك وزادك الله من فضله

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


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


15-05-2019 09:43 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6678
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 407
قوة السمعة : 18614
الاعجاب : 782
 offline 
look/images/icons/i1.gif ترحيل الاشكال من ورقة عمل الى اخرى
بارك الله فيك أخي العزيز علي ومشكور على دعمك وتشجيعك المستمر
وكل عام وأنت بخير





15-05-2019 10:16 صباحا
مشاهدة مشاركة منفردة [4]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 140
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 114
الاعجاب : 34
 offline 
look/images/icons/i1.gif ترحيل الاشكال من ورقة عمل الى اخرى
شكرا اخي على الكود يعمل تماما  ولكن هناك مشكلة  اريد في كل مرة اقوم بعملية الترحيل يتم ترحيله اكثر من مرة وليس مرة واحدة كما عندما اقوم بوضع زر ماكرو لتشغيله يتم ترحيل زر الماكرو ايضا  واعتدر عن تاخري للرد  نتيجة لمشكلة فنية في الانترنت 





15-05-2019 10:26 صباحا
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6678
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 407
قوة السمعة : 18614
الاعجاب : 782
 offline 
look/images/icons/i1.gif ترحيل الاشكال من ورقة عمل الى اخرى
يمكن إضافة أسطر تقوم بحذف الأشكال من ورقة العمل قبل الترحيل إليها ...
أو جرب التعديل التالي
Sub Test()
Dim ws As Worksheet, sh As Worksheet, shp1 As Shape, shp2 As Shape, sName As String

Set ws = Sheet1
Set sh = Sheet2

For Each shp1 In ws.Shapes
sName = shp1.Name
If shapeExists(sName, sh) Then GoTo Skipper
shp1.Copy: sh.Paste

Set shp2 = sh.Shapes(sh.Shapes.Count)
shp2.Name = sName
shp2.Top = shp1.Top: shp2.Left = shp1.Left
Skipper:
Next shp1
End Sub

Function shapeExists(shapeName As String, sh As Worksheet) As Boolean
Dim shp As Shape

For Each shp In sh.Shapes
If shp.Name = shapeName Then shapeExists = True
Next shp
End Function





15-05-2019 10:29 صباحا
مشاهدة مشاركة منفردة [6]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 140
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 114
الاعجاب : 34
 offline 
look/images/icons/i1.gif ترحيل الاشكال من ورقة عمل الى اخرى
سؤال اخير هل يوجد طريقة  لدمج الشكل داخل الخلية باعتبار الشكل خلية ويتم الترحيل على اساس ان الشكل خلية   ونتخلص من مشكلة ترحيل الشكل وقيم الخلايا بشكل منفصل 





15-05-2019 10:38 صباحا
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6678
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 407
قوة السمعة : 18614
الاعجاب : 782
 offline 
look/images/icons/i1.gif ترحيل الاشكال من ورقة عمل الى اخرى
لم أفهم النقطة الأخيرة التي تتحدث عنها .. قمت بالتعديل في المشاركة السابقة لتجنب تكرار عملية النسخ للأشكال





15-05-2019 11:13 صباحا
مشاهدة مشاركة منفردة [8]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 140
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 114
الاعجاب : 34
 offline 
look/images/icons/i1.gif ترحيل الاشكال من ورقة عمل الى اخرى
 بالنسبة للنقطة الاخيرة  هنا  عندما ادرج  شكل في الخلية a1  وليكن الشكل مكتوب بداخله اسم العميل  وفي الخلية  a2   مثلا محمد  هنا اريد ترحيل كافة البيانات دفعة واحدة من غير ان اضطر ان اضع  2 ماكرو واحد لترحيل الاشكال والثاني لترحيل البيانات  ارجو اكون قد اوضحت الصورة 





15-05-2019 11:21 صباحا
مشاهدة مشاركة منفردة [9]
المبتدأ
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 28-01-2018
رقم العضوية : 4055
المشاركات : 140
الجنس : ذكر
تاريخ الميلاد : 17-8-1981
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 114
الاعجاب : 34
 offline 
look/images/icons/i1.gif ترحيل الاشكال من ورقة عمل الى اخرى
بالنسبة للكود  لا زالت المشكلة نفسها  يقوم بترحيل زر الماكرو من ورقة1 الى ورقة2 ارفق لك ملف للتوضيح
 
 
  bb.rar   تحميل rar مرات التحميل :(1)
الحجم :(18.372) KB






15-05-2019 12:01 مساء
مشاهدة مشاركة منفردة [10]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 6678
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 407
قوة السمعة : 18614
الاعجاب : 782
 offline 
look/images/icons/i1.gif ترحيل الاشكال من ورقة عمل الى اخرى
سأحاول الإطلاع على الملف في أقرب وقت .. حينما يتيسر لي بعض الوقت






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
كود لحذف جميع الصور والاشكال من شيت الاكسيل الصقر
11 1314 elsedik

الكلمات الدلالية
ورقة ، اخرى ، الاشكال ، ترحيل ،


 







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



الساعة الآن 02:18 صباحا

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