اذهب الي المحتوي
أوفيسنا
magedeltayeb

لينك بين خلايا في مجموعة صفوف وبين خلايا في مجموعة أعمدة

Recommended Posts

تم فصل الطلب فى موضوع مستقل 

اخي الكريم ، رجاء توضيح الطلب ليستطيع الأخوة مساعدتك

  • Like 1

شارك هذه المشاركه


رابط المشاركه
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


  • محتوي مشابه

    • بواسطه kaseh
      السلام عليكم ورحمة الله وبركاته
      الإخوة الأغراء : لدي ملف أكسيل وأريد أن الون صفوفه بناء على القيم الموجودة به أي بمعنى:
      إذا كان العمر يساوي 40 سنة فأكثر وكيفية انتقال المرض من الجد أو الجدة أو كليهما وتحليل A1c يساوي 6 وهنالك صلة قرابة بين الأب والأم : يكون الصف باللون الأحمر.
      وإذا كان العمر ما بين 35 و 40 سنة وكيفية انتقال المرض من الأب أو الأم أو كليهما وتحليل A1c يساوي من 5 إلى 6 وهنالك صلة قرابة بين الأب والأم : يكون الصف باللون البرتقالي.
      وإذا كان العمر 35 سنة وكيفية الانتقال لا توجد يعني ( 0) وتحليل A1c  من 4 إلى 5 ولا توجد صلة قرابة : يكون الصف باللون الأخضر.
       
      ملاحظة :كيفية الانتقال أما من الجد أو الجدة أو كليهما أو من الأب أو الأم أو من كليهما....
      وشكراً جزيلا
      تم ارفاق الملف
      Test.xlsx
      Test.xlsx
    • بواسطه jjafferr
      السلام عليكم
       
      كان المفروض ان يكون هذا الموضوع كجواب للموضوع
       
      والمشكلة هي ان ارقام التسلسل بالعربي ، في كل من التقارير الفرعية ليست بالتسلسل المطلوب ، ولا السنه بالتسلسل الصحيح

      .
      نعرف اذا اردنا ان نعمل اكثر من عمود في التقرير ، فاننا نستعمل اعدادات الصفحة في التقرير

      .
      اذا التقرير بالانجليزي ، فكل شيء تمام وبالترتيب/التسلسل المطلوب ،
      ولكن للأسف لما نريد الاعمدة بالتسلسل العربي ، من اليمين الى اسفل ، ثم يُكمّل العمود الثاني من حيث انتهى الاول ، هكذا

      .
      فهنا يجب ان نقوم بمعالجة الموضوع بطريقتنا الخاصة
       
      استعنت بالبرنامج من الروابط اعلاه ، وعملت تجارب على عدة اعمدة: 2 الى 6 اعمدة ، وكتبت نتائجها في الاكسل ، لأرى النتائج بصورة مباشرة ،
      الحالي معناه ما يعطينا الاكسس ، والمفروض هو التسلسل الذي نسعى لعمله

      .
      وبعد التمعن في الارقام لعدة ايام ، توصلت الى ان هناك لوغاريثم معين يتماشى مع ارقام الاعمدة وتسلسلها ،
      وبعد تجربة عدة طرق توصلت لطريقة تعرض هذه الاعمدة بالطريقة التي نريدها
       
      1. سنحتاج الى حقلين اضافيين في الجدول (لكل تقرير فرعي) ، حقل تسلسل الاعمدة (وسيكون مخفي ، باللون البرتقالي في الصورة ادناه) والذي سيعتمد عليه التقرير في فرز البيانات ، rpt2_Seq مثلا، وحقل للتسلسل الذي سنراه في التقرير ، Seq2 مثلا (الحقل الآخر في التقرير) ،
      2. في التقرير ، هكذا نجعل فرز البيانات ، على اساس الحقل rpt2_Seq

      .
      وبما ان التقرير الرئيسي يحتوي على 3 تقارير فرعية (في برنامج الرابط اعلاه) ، 

      .
      فوضعت الكود على حدث "التنسيق" لرأس التقرير Page Header ،
      وهذا هو الكود ، والذي نراه انه ينادي الدالة ("Call Seq_Records(2, "rpt2_Seq", "Seq2") ، 
      لكل تقرير فرعي ، ويرسل عدد الاعمدة المطلوبة ، واسم حقلي التسلسل في الجدول للتقرير الفرعي:
      Option Compare Database Dim rst As DAO.Recordset Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer) 'Seq the subform Records 'rpt2 Set rst = CurrentDb.OpenRecordset("Select * From qry_2 Where nationalty=" & Me.nationalty) Call Seq_Records(2, "rpt2_Seq", "Seq2") 'rpt3 Set rst = CurrentDb.OpenRecordset("Select * From qry_3 Where nationalty=" & Me.nationalty) Call Seq_Records(2, "rpt3_Seq", "Seq3") 'rpt4 Set rst = CurrentDb.OpenRecordset("Select * From qry_4 Where nationalty=" & Me.nationalty) Call Seq_Records(2, "rpt4_Seq", "Seq4") End Sub .
      وهذا كود الدالة ، والتي يمكن إخراجها من التقرير وجعلها وحدة نمطية مستقلة) :
      Function Seq_Records(N As Integer, Seq_fName As String, Seq_n As String) On Error GoTo err_Seq_Records 'N = Number of columns 'Seq_fName = Seq Field Name 'Seq_n = Seq rst.MoveLast: rst.MoveFirst RC = rst.RecordCount c_Columns = N 'Number of columns in the report r_Records = RC 'Number of Records in the report j_First = c_Columns 'Start rtp_Seq with this number Counter = 0 'each time reduce c_Columns by this Counter For i = 1 To RC rst.Edit rst(Seq_fName) = j_First rst(Seq_n) = i 'Debug.Print "rtp_Seq=" & j_First & vbTab & "Seq=" & i rst.Update 'rtp_Seq j_First = j_First + c_Columns 'rpt_Seq cannot be > RC If j_First > RC Then 'start Counter Counter = Counter + 1 'rpt_Seq re-calculate j_First = c_Columns - Counter End If rst.MoveNext Next i Exit_Seq_Records: rst.Close: Set rst = Nothing Exit Function err_Seq_Records: If Err.Number = 3021 Then Resume Exit_Seq_Records Else MsgBox Err.Number & vbCrLf & Err.Description End If End Function .
      والنتيجة:

      .
      كما عملت تقرير للتجربة وبه 4 اعمدة ،
      والذي ينادي الدالة هكذا ("Call Seq_Records(4, "rpt2_Seq", "Seq2") ، 
      والنتيجة

      .
      جعفر
      680.4.الاجازات.accdb.zip
    • بواسطه mohasoli
      السلام عليكم ورحمة الله وبركاته
      سئوال لأهل الخبرة الكرام
      كيف أكرر مجموعة صفوف 4 أو 5 مرتبطين بصف واحد في شيت أخر في ورقة العمل بحيث 4 أو 5 صفوف التاليين يرتبطوا بالصف الثاني في الشيت الأخر
    • بواسطه جلال الجمال_ابو أدهم
      تم رفع هذا الكود فى مشاركة منفصله

      حتى لا ننسى هذه المشاركة     قطع جميع الاتبارطات بمصنف العمل !!
       
      تم ارفاق كود الحل من الفاضل/ زياد علي
       
       
      و لا تنسونا من صالح الدعاء
      تحياتى
      قطع جميع الارتباطات (2).rar
    • بواسطه أنس دروبي
      السلام عليكم ورحمة الله 
      صباح الخير والبركة والسعادة والنشاط لجميع أساتذتنا
      أساتذتي وعلمائنا الكرام ....... في هذا الصرح العملاق والمتميز
      أنتم أملنا الوحيد بعد الله عزوجل في أيجاد حلول لمشاكلنا الكبيرة بالنسبة لنا والصغيرة بالنسبة لعلمكم وخبرتكم الكبيرة والمتقدمة زادكم الله من علمه ونوره 
      المطلوب أخواني كما هو مبين وواضح من عنوان الموضوع
      (نسخ أكثر من عامود بناء على خانات اختيار في فورم ولصقهم بعد ذلك في ورقة بيانات)
      الشرح بالمطلوب بالتفصيل موجود في المرفق 
      أتمنى أن يكون طلبي واضح وبسيط لكي لايأخذ من وقتكم الكثير
      نسخ اعمدة متعددة بناء على خانة اختيار.rar
      أعتذر عن رفع الملف في بداية الموضوع لا أعرف يوجد مشكلة في المتصفح 
  • المتواجدين الان   0 اعضاء متواجدين الان

    لايوجد اعضاء مسجلون يتصفحون هذه الصفحه

×
×
  • اضف...