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

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


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





كود نسخ الرقم من خليه في ورقة ١ الى خليه D5 في اي صفحه يتم الدخول عليها من خلال الفورم في الصفحات

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



15-07-2020 12:37 مساء
ابو طيبه
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 233
الجنس : ذكر
يتابعهم : 7
يتابعونه : 1
قوة السمعة : 290
 offline 

 السلام عليكم اساتذتنا الكرام
محتاج كود يقوم بنسخ الرقم من خليه في ورقة١ الى خليه D5 في اي ورقه يتم الدخول عليها من خلال الفورم الموجود في صفحات الملف 
مع الشكر لجهود الجميع 
 
 
  نموذج الملف.xls   تحميل xls مرات التحميل :(2)
الحجم :(76.288) KB


15-07-2020 01:49 مساء
مشاهدة مشاركة منفردة [1]
محمد الدسوقى
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 827
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 79
يتابعهم : 9
يتابعونه : 766
قوة السمعة : 8651
عدد الإجابات: 8
 offline 
look/images/icons/i1.gif كود نسخ الرقم من خليه في ورقة ١ الى خليه D5 في اي صفحه يتم الدخول عليها من خلال الفورم في الصفحات
اتفضل أستاذى الكود التالى حسب ما فهمت من طلبكم يفى بالغرض إن شاء الله
قمت بإضافة سطر على الكود الموجود بالملف ويقوم  بنسخ الرقم من خليه F1  في ورقة١
الى خليه D5 في اي ورقه يتم الدخول عليها من خلال النقر عليها فى  Listbox
الكود
Private Sub ListBox1_Click()
  If ListBox1.ListIndex >= 0 Then
       Sheets(ListBox1.Value).Activate
          ActiveSheet.Range("D5").Value = Sheets("ورقة1").Range("F1").Value
  End If
End Sub

15-07-2020 04:33 مساء
مشاهدة مشاركة منفردة [2]
ابو طيبه
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 233
الجنس : ذكر
يتابعهم : 7
يتابعونه : 1
قوة السمعة : 290
 offline 
look/images/icons/i1.gif كود نسخ الرقم من خليه في ورقة ١ الى خليه D5 في اي صفحه يتم الدخول عليها من خلال الفورم في الصفحات
شكرا جزيلا لك استاذ محمد العزيز الكود تمام
كيف نستثني صفحة ٢ وصفحة٣ من نسخ الرقم اليها

وياريت ان تكون الخليه النشطه( مرجع الخليه) عند الدخول لاي ورقه من خلال الفورم  هي الخليه D5 ايضا وبارك الله بيك على جهودك المبذول 

15-07-2020 10:37 مساء
مشاهدة مشاركة منفردة [3]
محمد الدسوقى
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 827
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 79
يتابعهم : 9
يتابعونه : 766
قوة السمعة : 8651
عدد الإجابات: 8
 offline 
look/images/icons/i1.gif كود نسخ الرقم من خليه في ورقة ١ الى خليه D5 في اي صفحه يتم الدخول عليها من خلال الفورم في الصفحات
اتفضل التعديلات المطلوبة
تم التعديل على الكود الخاص بتهيئة الفورم  باضافة أوراق العمل إلى Listbox1  لاستثناء ورقة 2 وورقة 3  كما طلبتم
وتم التعديل على الكود الخاص بنسخ الخلية  المرجع D5 وجعلها نشطة عند الانتقال من ورقة عمل
الكود الأول
Private Sub UserForm_Initialize()
Dim ws As Worksheet
  With ListBox1
             .Clear
       For Each ws In ActiveWorkbook.Worksheets
          If ws.Name <> Sheets("ورقة2").Name And ws.Name <> Sheets("ورقة3").Name Then
               ListBox1.AddItem ws.Name
          End If
       
    Next ws
 End With
End Sub

الكود اللثانى
Private Sub ListBox1_Click()
Dim ws As Worksheet
      For Each ws In Worksheets
          If ListBox1.ListIndex >= 0 Then
                Sheets(ListBox1.Value).Activate
                ActiveSheet.Range("D5").Activate
                 ActiveSheet.Range("D5").Value = Sheets("ورقة1").Range("F1").Value
          End If
     Next ws
End Sub


 
 
 
  نموذج الملف MD.xls   تحميل xls مرات التحميل :(4)
الحجم :(87.04) KB


16-07-2020 10:06 صباحا
مشاهدة مشاركة منفردة [4]
ابو طيبه
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 233
الجنس : ذكر
يتابعهم : 7
يتابعونه : 1
قوة السمعة : 290
 offline 
look/images/icons/i1.gif كود نسخ الرقم من خليه في ورقة ١ الى خليه D5 في اي صفحه يتم الدخول عليها من خلال الفورم في الصفحات
شكرا جزيلا وعاشت الايادي استاذنا العزيز محمد 
كان قصدي ابقاء الصفحتين تظهر في اليست بوك.
 ولاكن لامشكله. فكيف يكون الكود في حال كانت الورقتين ورقه ٢ و ورقه ٣ لاتظهر 
وعند الدخول إلى ورقة ٤ وورقه ٥ لايقوم الكود بنسخ الرقم الى الخليه D5 فقط في هذه الورقتين ( دمج الكودين واستثناء نسخ الرقم الى الورقه ٤ و ورقه ٥  ) بدون امر عليك استاذنا العزيز  وعذرا لم اقدر اشرح الكود المطلوب من البداية 
تحياتي لحضرتك
 

16-07-2020 05:00 مساء
مشاهدة مشاركة منفردة [5]
محمد الدسوقى
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 827
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 79
يتابعهم : 9
يتابعونه : 766
قوة السمعة : 8651
عدد الإجابات: 8
 offline 
look/images/icons/i1.gif كود نسخ الرقم من خليه في ورقة ١ الى خليه D5 في اي صفحه يتم الدخول عليها من خلال الفورم في الصفحات
اتفضل استاذ / ابو طيبه
تعديل الكود الثانى كم طلبتم
لاستثناء ورقة 4 وورقة 5 من نسخ الخلية بهما
Private Sub ListBox1_Click()
Dim ws As Worksheet
      For Each ws In Worksheets
          If ListBox1.ListIndex >= 0 Then
                Sheets(ListBox1.Value).Activate
                    ActiveSheet.Range("D5").Activate
                    If ws.Name <> Sheets("ورقة4").Name And ws.Name <> Sheets("ورقة5").Name Then
                 ws.Range("D5").Value = Sheets("ورقة1").Range("F1").Value
                    End If
          End If
     Next ws
End Sub

16-07-2020 11:45 مساء
مشاهدة مشاركة منفردة [6]
ابو طيبه
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 233
الجنس : ذكر
يتابعهم : 7
يتابعونه : 1
قوة السمعة : 290
 offline 
look/images/icons/i1.gif كود نسخ الرقم من خليه في ورقة ١ الى خليه D5 في اي صفحه يتم الدخول عليها من خلال الفورم في الصفحات
شكرا لك استاذ محمد المبدع سوف اقوم بتجربة الكود غدا لعدم توفر  الحاسبه حاليا.  تحياتي لحضرتك 




الكلمات الدلالية
صفحه ، خليه ، ورقة ، خليه ، الرقم ، الدخول ، عليها ، خلال ، الفورم ، الصفحات ،


 










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

الساعة الآن 08:34 مساء