logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
صلاح الصغير لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة Yasser Elaraby نظام ادارة شؤون الموظفين اعداد ياسر العربي اكسيل اسئله واجابات



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





26-05-2020 11:41 صباحاً
الاساتذة الافاضل بهذا المنتدى الرائع
ارجوا التكرم بالمساعدة فى كود استدعاء للبيانات لجدول من صفحات الملف من خلال كتاب رقم المستند
كل الشكر والتقدير
 
 
  ترحيل واستدعاء.xlsx   تحميل xlsx مرات التحميل :(3)
الحجم :(17.589) KB





look/images/icons/i1.gif كود استدعاء بيانات الى جدول بواسطة كتابة رقم المستند
  26-05-2020 03:06 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10536
رصيد العضو : 5
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36792
الاعجاب : 201
هل الاستدعاء سيكون لصف واحد فقط أم تريد الاستدعاء لكل الصفوف .. وما الغرض من الاستدعاء بهذا الشكل؟




look/images/icons/i1.gif كود استدعاء بيانات الى جدول بواسطة كتابة رقم المستند
  26-05-2020 04:01 مساءً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 26-05-2020
رقم العضوية : 19295
المشاركات : 184
رصيد العضو : 0
الجنس :
قوة السمعة : 423
الاعجاب : 3
استاذنا اشكر حضرتك
الاستدعاء بيكون للمراجعة فى حالة الخطا وبيكون استدعاء من كل الصفحات التى تحمل نفس رقم المستند الذى لايتكرر
بيكون لكل البيانات التى سبق ترحيلها
بمعنى لو الصف الاول رحلنا للصفحة الاولى برقم مستند 1
والصف الثانى رحلنا للصفحة 10 بتنفس رقم المستند
والصف الثالث رحلنا للصفحة 12 بنفس المستند
الاستدعاء يحصر هذه البيانات لمراجعتها اذا تم توجيهها صح او غلط مع الشكر
انا عندى كود يعمل على فورم يؤدى هذه المهمة بيستدعى البيانات للفورم من الصفحات هل ارسله لحضرتك للاطلاع
عموما ها هو
CODE
Private Sub CommandButton6_Click()
On Error Resume Next

If TextBox101.Value = "" Then MsgBox " aktp rkm almstand", vbOKOnly, "stop": Exit Sub
x = TextBox101.Value + 0

For y = 1 To 15
 Me.Controls("ComboBox" & y).Value = ""
 Me.Controls("TextBox" & y).Value = ""
Next y
Me.Controls("TextBox12000").Value = ""
Me.Controls("ComboBox17").Value = ""

y = 0
                
LR = Sheets("ÊÑÍíá").[C1000].End(xlUp).Row
For Each ce In Sheets("tarhel").Range("C1:C" & LR)

    With Sheets(ce.Value)
        sht_LR = .[C20000].End(xlUp).Row
        For rr = 5 To sht_LR
        AY = WorksheetFunction.Sum(.Range("e" & rr & ":i" & rr))
            If .Cells(rr, "C").Value = x Then
                y = y + 1
                If y = 1 Then
                    Me.Controls("TextBox12000").Value = ""
                    x_Loc = WorksheetFunction.Match(AY, .Range("e" & rr & ":i" & rr), 0)
                    Select Case x_Loc
                        Case 1: zz = "m1"
                        Case 2: zz = "m2"
                        Case 3: zz = "m3"
                        Case 4: zz = "m4"
                        Case 5: zz = "m5"
                    End Select

                     Me.Controls("ComboBox1") = zz
                     Me.Controls("ComboBox17").Value = .Cells(rr, "B")


                End If
                  If y > 15 Then MsgBox "shetts akbar mk 15" & Chr(11) & "": Exit Sub
                Me.Controls("ComboBox" & y + 1).Value = ce.Value
                Me.Controls("TextBox" & y + 1).Value = AY
            End If
        Next
    End With
Next

End Sub




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



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
استدعاء بيانات من نطاق عرضي صلاح الصغير
0 66 صلاح الصغير
استدعاء بيانات ابوملك زكريا
4 228 ابوملك زكريا
اصلاح معادلات استدعاء بيانات ahmed moh
2 354 ahmed moh
المساعده فى استدعاء بيانات الطلاب saeyd11
13 3215 تاج الدين
طلب كود استدعاء بيانات فاتورة محمدعبدالسلام
2 1156 محمدعبدالسلام

الكلمات الدلالية
استدعاء ، بيانات ، جدول ، بواسطة ، كتابة ، المستند ،









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

الساعة الآن 09:44 PM