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



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







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
المشاركات : 10516
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36718
الاعجاب : 170
هل الاستدعاء سيكون لصف واحد فقط أم تريد الاستدعاء لكل الصفوف .. وما الغرض من الاستدعاء بهذا الشكل؟




look/images/icons/i1.gif كود استدعاء بيانات الى جدول بواسطة كتابة رقم المستند
  26-05-2020 04:01 مساءً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 26-05-2020
رقم العضوية : 19295
المشاركات : 184
الجنس :
قوة السمعة : 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




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



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
استدعاء بيانات ابوملك زكريا
4 107 ابوملك زكريا
اصلاح معادلات استدعاء بيانات ahmed moh
2 153 ahmed moh
المساعده فى استدعاء بيانات الطلاب saeyd11
13 3102 تاج الدين
طلب كود استدعاء بيانات فاتورة محمدعبدالسلام
2 999 محمدعبدالسلام
كود لترحيل المدين والدائن وتقرير استدعاء بيانات عن طريق اختيار بيانات التقريروتاريخ فترة zahraamohamed
11 1225 سعد عابد

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








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

الساعة الآن 05:18 PM.