logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
بكار للأبد لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة خطأ برمجي والماكرو لا يعمل run time error 438 اكسيل اسئله واجابات



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





08-05-2024 07:09 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 06-10-2018
رقم العضوية : 8264
المشاركات : 8
الجنس :
تاريخ الميلاد : 6-4-1978
قوة السمعة : 12
الاعجاب : 1
السلام عليكم ورحمة الله وبركاته
ارجو المساعدة فى كود استدعاء من اكثر من شيت 
ويتغير بتغير البيانات
وجزاكم الله خيرا
 
 
  ahmed.xlsb   تحميل xlsb مرات التحميل :(1)
الحجم :(16.519) KB





look/images/icons/i1.gif ارجو المساعدة فى كود استدعاء من اكثر من شيت
  08-05-2024 08:46 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10522
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36735
الاعجاب : 177
وعليكم السلام
ضع الكود التالي في حدث ورقة العمل ثم اضغط دبل كليك في الخلية B1 لتنفيذ الكود

CODE
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim ws As Worksheet, i As Long, r As Long, lr As Long, m As Long
    If Target.Address = "$B$1" Then
        Cancel = True
        m = 4
        With ActiveSheet
            .Range("B3").CurrentRegion.Offset(1).ClearContents
            For i = 1 To 3
                Set ws = ThisWorkbook.Worksheets(i)
                lr = ws.Cells(Rows.Count, "B").End(xlUp).Row
                For r = 11 To lr
                    If ws.Cells(r, "F").Value <> Empty Then
                        .Cells(m, 2).Value = m - 3
                        .Cells(m, 3).Value = ws.Cells(r, 2).Value
                        .Cells(m, 4).Value = ws.Cells(r, 6).Value
                        .Cells(m, 5).Value = ws.Cells(r, 7).Value / 100
                        .Cells(m, 6).Value = ws.Range("C1").Value
                        m = m + 1
                    End If
                Next r
            Next i
        End With
    End If
End Sub

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



look/images/icons/i1.gif ارجو المساعدة فى كود استدعاء من اكثر من شيت
  09-05-2024 08:05 مساءً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 06-10-2018
رقم العضوية : 8264
المشاركات : 8
الجنس :
تاريخ الميلاد : 6-4-1978
قوة السمعة : 12
الاعجاب : 1
بارك الله فيك أخى الحبيب
وأسأل الله لك الحسنى وزيادة
قمت بتعديل فى الكود لانى لا اريده فى حدث الصفحة
واريد منك اضافة تاريخ اخر استدعاء
وجزاكم الله خيرا
 
 
  ahmed.xlsb   تحميل xlsb مرات التحميل :(1)
الحجم :(27.367) KB





look/images/icons/i1.gif ارجو المساعدة فى كود استدعاء من اكثر من شيت
  09-05-2024 09:13 مساءً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10522
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36735
الاعجاب : 177
جرب السطر التالي
CODE
            Next i
            .Range("I4").Value = Format(Date, "yyyy/mm/dd")

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



look/images/icons/i1.gif ارجو المساعدة فى كود استدعاء من اكثر من شيت
  09-05-2024 10:26 مساءً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 06-10-2018
رقم العضوية : 8264
المشاركات : 8
الجنس :
تاريخ الميلاد : 6-4-1978
قوة السمعة : 12
الاعجاب : 1
المشاركة الأصلية كتبت بواسطة: YasserKhalil بتاريخ: 09-05-2024 09:13 مساءًجرب السطر التالي
CODE
            Next i
            .Range("I4").Value = Format(Date, "yyyy/mm/dd")
التاريخ ظبط كده معايا 
Next i
           
          With Range("i4")
          .NumberFormat = "yyyy/mm/dd"
        .Value = Date
         
        End With
وجزاكم الله خيرا اخى ياسر

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



look/images/icons/i1.gif ارجو المساعدة فى كود استدعاء من اكثر من شيت
  09-05-2024 10:57 مساءً   [5]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10522
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36735
الاعجاب : 177
وجزيت بمثل ما دعوت لي وزيادة




اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
المساعدة في إظهار شيت مخفية chardoneret
5 64 YasserKhalil
مطلوب ارسال رسالة نصية بالواتساب من الاكسيل امل المساعدة ابوعلي الحبيب
4 203 hassona229
امل المساعدة بحيث يظهر التاريخ بالخلية بالشكل الصحيح  لكي استطيع ارساله  ابوعلي الحبيب
3 158 YasserKhalil
المساعدة في تغيير ترتيب بيانات جدول اكسل oilman852
5 197 YasserKhalil
المساعدة في موضوع دمج المراسلات مع جدول بيانات اكسل oilman852
3 197 YasserKhalil

الكلمات الدلالية
ارجو ، المساعدة ، استدعاء ، اكثر ،









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

الساعة الآن 09:33 AM