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

اعلن هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا

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




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





انشطار البيانات في عمود لعدة أوراق عمل باستخدام التصفية المتقدمة

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله قدمت في الآونة الأخيرة بعض الموضوعات التي تشجع على البحث والمحا ..



21-07-2018 04:45 مساء
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14752
الاعجاب : 5507
 offline 

السلام عليكم ورحمة الله وبركاته

إخواني وأحبابي في الله

قدمت في الآونة الأخيرة بعض الموضوعات التي تشجع على البحث والمحاولة ، والغرض هو خلق جيل قادر على التعامل مع البرمجة بسهولة ويسر وبدون تعقيد .. لذا أستكمل هذه الموضوعات علها يكون لها الأثر إن شاء الله في تطوير مستوانا في البرمجة بالـ VBA
 
قدمت موضوع يخص النطاق الحالي لرؤية الروابط والمرفقات عليك الرد على الموضوع
وموضوع يخص التصفية المتقدمة لرؤية الروابط والمرفقات عليك الرد على الموضوع
وموضوع يخص التأكد من وجود ورقة عمل من عدم وجودها لرؤية الروابط والمرفقات عليك الرد على الموضوع
وموضوع يشرح الحلقة التكرارية Do While Loop لرؤية الروابط والمرفقات عليك الرد على الموضوع

واليوم أقدم لكم الموضوع الحالي الذي سنستفيد من كل ماسبق من موضوعات في كتابة الكود الخاص بهذا الموضوع ...

نبدأ بالمعطيات كما تعودنا :: بفرض أن لدينا ورقة عمل Sheet1 وبها بيانات بالشكل التالي
SP6G2jncqdHbxNm

والمطلوب إنشاء أوراق عمل بالقيم الموجودة في العمود الثامن أي إنشاء ورقة عمل باسم "ناجح" وإنشاء ورقة عمل باسم "راسب" وإنشاء ورقة عمل باسم "غائب" ، وفي كل ورقة عمل سيتم ترحيل البيانات المرتبطة بكل بيان

استراتيجية العمل :
===========
>> نعلن عن ثلاثة متغيرات .. الأول باسم r ليحمل النطاق الحالي للخلية A1 ، والثاني باسم c ويشير إلى الخلية K1 بالاعتماد على عدد أعمدة النطاق الحالي + 2 ، والمتغير الثالث باسم s من النوع النصي ليحمل اسم ورقة العمل في كل حلقة تكرارية

>> نعين قيمة المتغير r ليساوي النطاق الحالي كما ذكرنا ، ونعين قيمة المتغير c ليشير إلى الخلية K1 ولكن بشكل غير مباشر باستخدام دالة الإزاحة كما شرحنا في موضوع سابق

>> استخراج القيم الغير مكررة في العمود الثامن وهي ثلاثة قيم "ناجح" و"راسب" و"غائب" .. وسيكون ذلك باستخدام التصفية المتقدمة ، حيث توضع القيم في النطاق c كبداية

>> عمل حلقة تكرارية باستخدام Do While يليها الشرط ألا تكون الخلية التالية للخلية c لا تساوي فراغ (راجع الموضوع)

>> داخل الحلقة التكرارية نعين قيمة للمتغير s بحيث تساوي اسم ورقة العمل وستكون موجود في الخلية التالية للخلية c (عمل إزاحة بمقدار واحد)

>> نختبر وجود ورقة العمل باستخدام دالة ISREF ودالة Evaluate فإذا لم تكن موجودة يتم إنشاء ورقة العمل في نهاية أوراق العمل بالمصنف

>> نستخدم التصفية المتقدمة مرة أخرى ولكن هنا سنقوم بنسخ النتائج لورقة العمل الهدف ، ولا ننسى أن هنا نطاق الشرط (يشمل العنوان K1 والخلية التي تليها وهي الخلية K2)
r.AdvancedFilter xlFilterCopy, c.Resize(2), Worksheets(s).Cells(1)

>> نقوم بحذف الخلية التالية استعداداً للتعامل مع ورقة العمل التي تليها باستخدام السطر التالي
c.Offset(1).Delete xlShiftUp

>> ثم أخيراً نغلق الحلقة التكرارية باستخدام كلمة Loop

>> أخيراً نقوم بمسح محتويات النطاق الحالي للنطاق c أي مسح محتويات العمود المساعد

شكل المخرجات ستكون بالشكل التالي
WC78b5HtdnQ2IN2

وفقني الله وإياكم لكل خير

كان معكم أخوكم في الله / ياسر خليل أبو البراء




لرؤية الروابط والمرفقات عليك الرد على الموضوع


أثارت هذه المشاركة إعجاب: Eslam Abdullah، الصقر، عبدالجيد، مالك ماريه،





21-07-2018 09:45 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14752
الاعجاب : 5507
 offline 
look/images/icons/i1.gif انشطار البيانات في عمود لعدة أوراق عمل باستخدام التصفية المتقدمة
مر بعض الوقت والتحميل مرة واحدة فقط ولا مشاركات ولا تفاعل .. هذا أمر مشجع للغاية ، أليس كذلك؟

أثارت هذه المشاركة إعجاب: Eslam Abdullah، عبدالجيد،




22-07-2018 12:03 صباحا
مشاهدة مشاركة منفردة [2]
Eslam Abdullah
menu_open
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1288
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 3
يتابعهم : 3
يتابعونه : 63
قوة السمعة : 7787
الاعجاب : 2218
 offline 
look/images/icons/i1.gif انشطار البيانات في عمود لعدة أوراق عمل باستخدام التصفية المتقدمة
يعنى اكتب البيانات بايدى كلها وفى الاخر اكتشف انك رافع ملف بيها blink
اتفضل الهووم وورك امستر 
biggrin2
Sub M_Yasser()
Dim S$, r, c As Range
Set r = [A1].CurrentRegion
Set c = r(r.Columns.Count).Offset(, 3)
'.....................................
r.Columns(r.Columns.Count).AdvancedFilter 2, , c, 1

    Do While c.Offset(1).Value <> ""
        S = c.Offset(1).Value
        If Not CStr(Evaluate("ISREF('" & S & "'!A1)")) = True Then
        Worksheets.Add(, Sheets(Sheets.Count)).Name = S
1:        r.AdvancedFilter 2, c.Resize(2), Worksheets(S).Cells(1)
        c.Offset(1).Delete 2
        Else: GoTo 1
        End If
    Loop
    c.Resize(2).ClearContents
End Sub

ملف عمل الهووم وورك 63




لرؤية الروابط والمرفقات عليك الرد على الموضوع


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




22-07-2018 01:08 صباحا
مشاهدة مشاركة منفردة [3]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 238
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 8
قوة السمعة : 2373
الاعجاب : 533
 offline 
look/images/icons/i1.gif انشطار البيانات في عمود لعدة أوراق عمل باستخدام التصفية المتقدمة
هل ينفع هذا الكود

Option Explicit
Sub transfer()
 Application.ScreenUpdating = False
Dim x%
Dim arr()
Dim My_String$: My_String = Sheets("Sheet1").Range("h1")
arr = Array("ناجح", "راسب", "غائب")
On Error Resume Next
Application.DisplayAlerts = False
 For x = 0 To 2
   Sheets(arr(x)).Delete
 Next
Application.DisplayAlerts = True
 On Error GoTo 0
For x = 0 To 2

  Sheets.Add(after:=Sheets(Sheets.Count)).Name = arr(x)
  Sheets("Sheet1").Cells.Copy Destination:=Sheets(arr(x)).Range("a1")
   
   With Sheets(arr(x))
    .Range("M1") = My_String
    .Range("M2") = Sheets(arr(x)).Name
    .Range("a1").CurrentRegion.AdvancedFilter Action:=1, _
     CriteriaRange:=.Range("M1:M2")
    .Range("M1:M2") = vbNullString
  End With
  Next
  Erase arr
  Sheets("Sheet1").Select
   Application.ScreenUpdating = True
End Sub






لرؤية الروابط والمرفقات عليك الرد على الموضوع


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




22-07-2018 08:58 صباحا
مشاهدة مشاركة منفردة [4]
الصقر
menu_open عضوية موثقة
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1495
الجنس : ذكر
الدعوات : 13
يتابعهم : 0
يتابعونه : 403
قوة السمعة : 12859
الاعجاب : 3143
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif انشطار البيانات في عمود لعدة أوراق عمل باستخدام التصفية المتقدمة

الله ينور يا رجاله حلول وابتكارات رائعه 142



زادكم الله علما ونفع بكم



أثارت هذه المشاركة إعجاب: YasserKhalil، Eslam Abdullah، عبدالجيد، salim،


توقيع :الصقر

اخى العضو الكريم
اذا كنت ترى ان المنتدى مفيد لك
فكن سفيرا لنا بدعوة الاخرين للانضمام معنا
فالدال على الخير كفاعله



22-07-2018 09:17 صباحا
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14752
الاعجاب : 5507
 offline 
look/images/icons/i1.gif انشطار البيانات في عمود لعدة أوراق عمل باستخدام التصفية المتقدمة
بارك الله فيكم إخواني وأحبابي في الله
حلول رائعة ومميزة ، ولا يكفي التشجيع يا حسام .. عايزين منك مشاركات فعالة لإنك خبرة بردو وعايزين نستفيد من خبراتك

أثارت هذه المشاركة إعجاب: الصقر، Eslam Abdullah، عبدالجيد، salim،




22-07-2018 09:21 صباحا
مشاهدة مشاركة منفردة [6]
الصقر
menu_open عضوية موثقة
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1495
الجنس : ذكر
الدعوات : 13
يتابعهم : 0
يتابعونه : 403
قوة السمعة : 12859
الاعجاب : 3143
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif انشطار البيانات في عمود لعدة أوراق عمل باستخدام التصفية المتقدمة
المشاركة الأصلية كتبت بواسطة: YasserKhalil »
بارك الله فيكم إخواني وأحبابي في الله
حلول رائعة ومميزة ، ولا يكفي التشجيع يا حسام .. عايزين منك مشاركات فعالة لإنك خبرة بردو وعايزين نستفيد من خبراتك

مشغول شويه والله بجهز فى موضوع ماتريل شرح والبركة فى الشباب ما شاء الله حلولهم عبقريه 

أثارت هذه المشاركة إعجاب: Eslam Abdullah، عبدالجيد،


توقيع :الصقر

اخى العضو الكريم
اذا كنت ترى ان المنتدى مفيد لك
فكن سفيرا لنا بدعوة الاخرين للانضمام معنا
فالدال على الخير كفاعله



22-07-2018 09:28 صباحا
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14752
الاعجاب : 5507
 offline 
look/images/icons/i1.gif انشطار البيانات في عمود لعدة أوراق عمل باستخدام التصفية المتقدمة
أخي العزيز سليم
لي عدة تحفظات في الكود .. 
التحفظ الأول : المفترض أن القيم في العمود الثامن غير معروفة مسبقاً لذا لا يجوز استخدام مصفوفة لتخزين القيم بشكل مسبق
التحفظ الثاني أنك تقوم بنسخ كامل البيانات للورقة الهدف ثم عمل فلترة وترك بقية البيانات موجودة 
فالهدف هو تنقيح البيانات وفصلها بشكل كامل

تقبل تحياتي

أثارت هذه المشاركة إعجاب: Eslam Abdullah، عبدالجيد،




22-07-2018 10:49 صباحا
مشاهدة مشاركة منفردة [8]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 238
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 8
قوة السمعة : 2373
الاعجاب : 533
 offline 
look/images/icons/i1.gif انشطار البيانات في عمود لعدة أوراق عمل باستخدام التصفية المتقدمة
المشاركة الأصلية كتبت بواسطة: YasserKhalil »
أخي العزيز سليم
لي عدة تحفظات في الكود .. 
التحفظ الأول : المفترض أن القيم في العمود الثامن غير معروفة مسبقاً لذا لا يجوز استخدام مصفوفة لتخزين القيم بشكل مسبق
التحفظ الثاني أنك تقوم بنسخ كامل البيانات للورقة الهدف ثم عمل فلترة وترك بقية البيانات موجودة 
فالهدف هو تنقيح البيانات وفصلها بشكل كامل

تقبل تحياتي

تم التعديل كما تريد (لم أفهم ما المقصود بمحتويات العامود الثامن) وهل يوجد حل رابع 
ممكن يكون مكمل   أو غيرها يمكن اضافتها الى المصفوفة شرط تغيير جملة :For x = 0 To 2  إلى 
​For x=Lbound(arr) to  Ubound(arr) 

Option Explicit
Sub transfer1()
 Application.ScreenUpdating = False
Dim x%
Dim arr()
Dim last_row%
last_row = Sheets("Sheet1").Cells(Rows.Count, 1).End(3).Row
Dim FLT_rg As Range
Set FLT_rg = Sheets("Sheet1").Range("A1:H" & last_row)
Dim My_String$: My_String = Sheets("Sheet1").Range("h1")
arr = Array("ناجح", "راسب", "غائب")
On Error Resume Next
Application.DisplayAlerts = False
 For x = 0 To 2
   Sheets(arr(x)).Delete
 Next
Application.DisplayAlerts = True
 On Error GoTo 0
For x = 0 To 2

  Sheets.Add(after:=Sheets(Sheets.Count)).Name = arr(x)
  Sheets("Sheet1").Cells.Copy Destination:=Sheets(arr(x)).Range("a1")
   
   With Sheets(arr(x))
    .Range("M1") = My_String
    .Range("M2") = Sheets(arr(x)).Name
    FLT_rg.AdvancedFilter Action:=2, _
     CriteriaRange:=.Range("M1:M2"), copyTorange:=.Range("A1:H1")
  .Shapes.Range(Array("Button 1")).Delete
    .Range("M1:M2") = vbNullString
  End With
  Next
  Erase arr
  Sheets("Sheet1").Select
   Application.ScreenUpdating = True
End Sub

 




لرؤية الروابط والمرفقات عليك الرد على الموضوع


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




22-07-2018 02:57 مساء
مشاهدة مشاركة منفردة [9]
الصقر
menu_open عضوية موثقة
مدير المنتدى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 2
المشاركات : 1495
الجنس : ذكر
الدعوات : 13
يتابعهم : 0
يتابعونه : 403
قوة السمعة : 12859
الاعجاب : 3143
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif انشطار البيانات في عمود لعدة أوراق عمل باستخدام التصفية المتقدمة

اخى الحبيب ياسر
دا كود بالمصفوفات ان شاء الله ينال اعجابك ويفيد الجميع

Sub Alsqr_split()
Application.ScreenUpdating = False
Dim range As Variant: Dim arr As Variant: Dim arr2 As Variant: Dim arr3 As Variant
Dim lr As Long: Dim a As Long: Dim c As Long: Dim d As Long: Dim b As Long: Dim x As Long: Dim y As Long: Dim i As Long
arrr = Array("راسب", "غائب", "ناجح")
On Error Resume Next
Application.DisplayAlerts = False
For x = 0 To 2
Sheets(arrr(x)).Delete
Next
Application.DisplayAlerts = True
lr = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
range = Sheet1.range("A1:h" & lr).Value
a = 1: c = 1: d = 1
ReDim arr(1 To UBound(range, 1), 1 To UBound(range, 2))
ReDim arr2(1 To UBound(range, 1), 1 To UBound(range, 2))
ReDim arr3(1 To UBound(range, 1), 1 To UBound(range, 2))
For i = LBound(range, 1) To UBound(range, 1)
If range(i, 8) = "راسب" Then
For b = 1 To 8
arr(a, b) = range(i, b)
Next
a = a + 1
End If
If range(i, 8) = "غائب" Then
For b = 1 To 8
arr2(c, b) = range(i, b)
Next
c = c + 1
End If
If range(i, 8) = "ناجح" Then
For b = 1 To 8
arr3(d, b) = range(i, b)
Next
d = d + 1
End If
Next
For x = 0 To 2
Sheets.Add(after:=Sheets(Sheets.Count)).Name = arrr(x)
Next
Sheets(arrr(0)).range("a1").Resize(a - 1, UBound(arr, 2)).Value = arr
Sheets(arrr(1)).range("a1").Resize(c - 1, UBound(arr2, 2)).Value = arr2
Sheets(arrr(2)).range("a1").Resize(d - 1, UBound(arr3, 2)).Value = arr3
Application.ScreenUpdating = True
End Sub

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


توقيع :الصقر

اخى العضو الكريم
اذا كنت ترى ان المنتدى مفيد لك
فكن سفيرا لنا بدعوة الاخرين للانضمام معنا
فالدال على الخير كفاعله



22-07-2018 04:12 مساء
مشاهدة مشاركة منفردة [10]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 238
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 8
قوة السمعة : 2373
الاعجاب : 533
 offline 
look/images/icons/i1.gif انشطار البيانات في عمود لعدة أوراق عمل باستخدام التصفية المتقدمة
المشاركة الأصلية كتبت بواسطة: الصقر »

اخى الحبيب ياسر
دا كود بالمصفوفات ان شاء الله ينال اعجابك ويفيد الجميع

Sub Alsqr_split()
Application.ScreenUpdating = False
Dim range As Variant: Dim arr As Variant: Dim arr2 As Variant: Dim arr3 As Variant
Dim lr As Long: Dim a As Long: Dim c As Long: Dim d As Long: Dim b As Long: Dim x As Long: Dim y As Long: Dim i As Long
arrr = Array("راسب", "غائب", "ناجح")
On Error Resume Next
Application.DisplayAlerts = False
For x = 0 To 2
Sheets(arrr(x)).Delete
Next
Application.DisplayAlerts = True
lr = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
range = Sheet1.range("A1:h" & lr).Value
a = 1: c = 1: d = 1
ReDim arr(1 To UBound(range, 1), 1 To UBound(range, 2))
ReDim arr2(1 To UBound(range, 1), 1 To UBound(range, 2))
ReDim arr3(1 To UBound(range, 1), 1 To UBound(range, 2))
For i = LBound(range, 1) To UBound(range, 1)
If range(i, 8) = "راسب" Then
For b = 1 To 8
arr(a, b) = range(i, b)
Next
a = a + 1
End If
If range(i, 8) = "غائب" Then
For b = 1 To 8
arr2(c, b) = range(i, b)
Next
c = c + 1
End If
If range(i, 8) = "ناجح" Then
For b = 1 To 8
arr3(d, b) = range(i, b)
Next
d = d + 1
End If
Next
For x = 0 To 2
Sheets.Add(after:=Sheets(Sheets.Count)).Name = arrr(x)
Next
Sheets(arrr(0)).range("a1").Resize(a - 1, UBound(arr, 2)).Value = arr
Sheets(arrr(1)).range("a1").Resize(c - 1, UBound(arr2, 2)).Value = arr2
Sheets(arrr(2)).range("a1").Resize(d - 1, UBound(arr3, 2)).Value = arr3
Application.ScreenUpdating = True
End Sub
​كود جيد لكن طويل حبتين   مع اني لم اجربه
لكن اعتقد ان هناك خطأ في جملة   Dim range As Variant
حيث ان كلمة range هي كلمة محجوزة ضمن يرنامج Vba 
و لا يجوز تسمية اي متغير بهذا الاسم





22-07-2018 06:36 مساء
مشاهدة مشاركة منفردة [11]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 5060
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 15
يتابعهم : 0
يتابعونه : 331
قوة السمعة : 14752
الاعجاب : 5507
 offline 
look/images/icons/i1.gif انشطار البيانات في عمود لعدة أوراق عمل باستخدام التصفية المتقدمة
بارك الله فيك أخي الحبيب سليم
المقصود بمحتويات العمود الثامن هو "ناجح" و"راسب" وغائب" .. الكود من المفترض أن يقوم باستخراج تلك القيم بدون تخزينها بشكل يدوي داخل مصفوفة ..راجع كود الأخ إسلام (حيث أنه التزم بتعليمات الموضوع في التطبيق)

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

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

أرجو تقبل الملاحظات بصدر رحب .. وفقني الله وإياكم لكل خير

تقبلوا وافر تقديري واحترامي
 

أثارت هذه المشاركة إعجاب: Eslam Abdullah، salim، الصقر،




27-08-2018 04:49 مساء
مشاهدة مشاركة منفردة [12]
EM_ACC
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-08-2017
رقم العضوية : 84
المشاركات : 68
الجنس : ذكر
تاريخ الميلاد : 24-9-1981
الدعوات : 1
يتابعهم : 0
يتابعونه : 3
قوة السمعة : 92
الاعجاب : 36
 offline 
look/images/icons/i1.gif انشطار البيانات في عمود لعدة أوراق عمل باستخدام التصفية المتقدمة
الاخوه الافاضل
محاولات جميله
واكواد مفيده
ف انتظار كود الاخ ياسر
تقبلو تحياتى



توقيع :EM_ACC
إبراهيم أبوليله



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
شروحات الترحيل حصريا ترحيل البيانات الى داخل الجداول الجاهزة فى الاكسل من خلال اليوزرفورم emad ghazi
5 380 tahayneh
فورم ادخال البيانات ayoub2007
9 133 محمود ابو الدهب
تموذج ترحيل وبحث وتعديل على البيانات مالك ماريه
64 824 المقدم
تعديل على كود جلب البيانات بحيث يستثني الذي لم يكتمل ابوعلي الحبيب
14 109 ابوعلي الحبيب
تصدير بيانات الحكومة الالكترونية من ملف الاكسيل إلى قاعدة البيانات moslimway11
24 2195 محمد سعد صقر

الكلمات الدلالية
انشطار ، البيانات ، عمود ، لعدة ، أوراق ،


 







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



الساعة الآن 02:33 مساء

أعلن هنا
أعلن هنا
أعلن هنا