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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil 2-طلب تحويل الكود من الحلقه التكراريه for الى array اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





سؤال فى المصفوفات

السلام عليكم ورحمة الله وبركاته عند استخدامى للمصفوفات فالبحث عن البيانات وعرضها فى الليست بوكس فبتعرض ليا صفوف فارغة فى ..



01-10-2019 05:04 مساء
عبدالرحمن صبحى
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-10-2018
رقم العضوية : 8466
المشاركات : 112
الجنس : ذكر
تاريخ الميلاد : 21-4-1996
الدعوات : 3
يتابعهم : 4
يتابعونه : 0
قوة السمعة : 138
الاعجاب : 42
 offline 

السلام عليكم ورحمة الله وبركاته
عند استخدامى للمصفوفات فالبحث عن البيانات وعرضها فى الليست بوكس فبتعرض ليا صفوف فارغة فى الليست بوكس مش عارف ليه 
مثال يعنى :لو عندى 1000صف فى ورقة العمل عباره عن قسمين( وارد ومنصرف) مثلا لما اجى استعلم  عن وارد بس الحلقة التكراريه العاديه هتعرض ليا 500 صف بس فى الليست بوكس بهم شرط العرض وهو الوارد اما المصفوف فبتعرض ليا 1000 صف  500 منهم فاضييين و500 التانيين مكتوب فيهم البيان اللى بستعلم عنه "طبعا حضرتك انا بتكلم 1000 صف بس متخيل بقى لو 100000 صف مثلا الليست بوكس بيبقى عامل ازاى "

مرفق ملف 
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  كود المصفوفات.xlsb   تحميل xlsb مرات التحميل :(3)
الحجم :(21.655) KB







03-10-2019 05:34 مساء
مشاهدة مشاركة منفردة [1]
عبدالرحمن صبحى
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-10-2018
رقم العضوية : 8466
المشاركات : 112
الجنس : ذكر
تاريخ الميلاد : 21-4-1996
الدعوات : 3
يتابعهم : 4
يتابعونه : 0
قوة السمعة : 138
الاعجاب : 42
 offline 
look/images/icons/i1.gif سؤال فى المصفوفات
بما انه لايوجد حل لهذه المشكلة او من الممكن ان يكون هذا الطلب ليس مشكلة فعندى سؤال اخر.

هل يمكن وضع (التاريخ من ) زى (التاريخ الى) كده بمعنى لو عندى بيانات وببحث بين تاريخين بحط  كود صغير كده عشان اقول للكود لو لقيت تاريخ اعمل حسابك تقف عنده بس لو ملقتش تاريخ كمل جيب باقى البيانات
 وده الكود اللى انا حطه

If TextBox4.Value <> "" Then
If myArray(x, 4) > CDate(TextBox4.Value) Then: Exit For
End If


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


ياريت الاقى رد ولو لأ حتى لأنى بنيت كود طويل جدا ونسيت ادخل فيه التاريخ من وشكرا مقدما

 





03-10-2019 05:38 مساء
مشاهدة مشاركة منفردة [2]
عبدالرحمن صبحى
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-10-2018
رقم العضوية : 8466
المشاركات : 112
الجنس : ذكر
تاريخ الميلاد : 21-4-1996
الدعوات : 3
يتابعهم : 4
يتابعونه : 0
قوة السمعة : 138
الاعجاب : 42
 offline 
look/images/icons/i1.gif سؤال فى المصفوفات
ولو مفيش الاقى حد من الخبراء يقدر يختصر ليا الكود الطويل ده

ده كود بيعتمد استخراج البيانات من زر واحد على حسب المعطيات اللى بيلاقىها 



Private Sub CommandButton1_Click()
Dim i               As Long
Dim myArray         As Variant
Dim x               As Long
Dim lr              As Long
Dim DATA           As Worksheet
On Error Resume Next
''''''''___________________________________________________________
    Set DATA = Worksheets("data")    'اسم شيت قاعدة البيانات
    lr = DATA.Cells(Rows.count, 4).End(xlUp).Row     'اخر صف به بيانات
    myArray = DATA.Range("A2:z" & lr)      'نطاق البحث
    ReDim Y(1 To lr, 1 To 15) ' انشاء مصفوفة جديده لحفظ البيانات بها
For x = 1 To lr - 1 ' البحث داخل المصفوفة من الصف الاول حتى اخر صف
'_____________________________________________________________________________________________________________________________________________________________________
If myArray(x, 13) = "1" And myArray(x, 16) <> "" Then '"كود نوع الفاتورة والمقصود هنا فاتورة البيع"
'_____________________________________________________________________________________________________________________________________________________________________
If TextBox1.Value <> "" And TextBox2.Value = "" And ComboBox6.Value = "" _
And ComboBox7.Value = "" And myArray(x, 6) = TextBox1.Value Then  '""مبيعات الاسم""
            rw = rw + 1
            Y(rw, 1) = rw '"المسلسل"
            Y(rw, 2) = Format(myArray(x, 4), "dddd") '"اليوم"
            Y(rw, 3) = Format(myArray(x, 4), "dd-mm-yyyy") '"التاريخ"
            Y(rw, 4) = Format(myArray(x, 14), "hh:mm:ss AM/PM") '"الساعة"
            Y(rw, 5) = myArray(x, 5) '"المدخل"
            Y(rw, 6) = myArray(x, 6) '"الاسم"
            Y(rw, 7) = myArray(x, 10) '"كود الفاتوره"
            Y(rw, 8) = myArray(x, 11) '"رقم الفاتوره"
            Y(rw, 9) = myArray(x, 12) '"نوع الفاتورة"
            Y(rw, 10) = myArray(x, 1) '"المخزن"
            Y(rw, 11) = myArray(x, 17) '"نوع الصنف"
            Y(rw, 12) = myArray(x, 16) '"اسم الصنف"
            Y(rw, 13) = myArray(x, 18) '"الكميه"
            Y(rw, 14) = myArray(x, 19) '"السعر"
            Y(rw, 15) = myArray(x, 20) '"االقيمه"
ElseIf TextBox2.Value <> "" And TextBox1.Value = "" And ComboBox6.Value = "" _
And ComboBox7.Value = "" And myArray(x, 16) = TextBox2.Value Then    '""مبيعات الصنف"
            rw = rw + 1
            Y(rw, 1) = rw '"المسلسل"
            Y(rw, 2) = Format(myArray(x, 4), "dddd") '"اليوم"
            Y(rw, 3) = Format(myArray(x, 4), "dd-mm-yyyy") '"التاريخ"
            Y(rw, 4) = Format(myArray(x, 14), "hh:mm:ss AM/PM") '"الساعة"
            Y(rw, 5) = myArray(x, 5) '"المدخل"
            Y(rw, 6) = myArray(x, 6) '"الاسم"
            Y(rw, 7) = myArray(x, 10) '"كود الفاتوره"
            Y(rw, 8) = myArray(x, 11) '"رقم الفاتوره"
            Y(rw, 9) = myArray(x, 12) '"نوع الفاتورة"
            Y(rw, 10) = myArray(x, 1) '"المخزن"
            Y(rw, 11) = myArray(x, 17) '"نوع الصنف"
            Y(rw, 12) = myArray(x, 16) '"اسم الصنف"
            Y(rw, 13) = myArray(x, 18) '"الكميه"
            Y(rw, 14) = myArray(x, 19) '"السعر"
            Y(rw, 15) = myArray(x, 20) '"االقيمه"
ElseIf TextBox2.Value <> "" And TextBox1.Value <> "" And ComboBox6.Value = "" _
And ComboBox7.Value = "" And myArray(x, 16) = TextBox2.Value And myArray(x, 6) = TextBox1.Value Then '""مبيعات الصنف والاسم"
            rw = rw + 1
            Y(rw, 1) = rw '"المسلسل"
            Y(rw, 2) = Format(myArray(x, 4), "dddd") '"اليوم"
            Y(rw, 3) = Format(myArray(x, 4), "dd-mm-yyyy") '"التاريخ"
            Y(rw, 4) = Format(myArray(x, 14), "hh:mm:ss AM/PM") '"الساعة"
            Y(rw, 5) = myArray(x, 5) '"المدخل"
            Y(rw, 6) = myArray(x, 6) '"الاسم"
            Y(rw, 7) = myArray(x, 10) '"كود الفاتوره"
            Y(rw, 8) = myArray(x, 11) '"رقم الفاتوره"
            Y(rw, 9) = myArray(x, 12) '"نوع الفاتورة"
            Y(rw, 10) = myArray(x, 1) '"المخزن"
            Y(rw, 11) = myArray(x, 17) '"نوع الصنف"
            Y(rw, 12) = myArray(x, 16) '"اسم الصنف"
            Y(rw, 13) = myArray(x, 18) '"الكميه"
            Y(rw, 14) = myArray(x, 19) '"السعر"
            Y(rw, 15) = myArray(x, 20) '"االقيمه"
ElseIf TextBox2.Value = "" And TextBox1.Value <> "" And ComboBox6.Value = "" _
And myArray(x, 1) = ComboBox7.Value And myArray(x, 6) = TextBox1.Value Then  '""الاسم من  المخزن"
            rw = rw + 1
            Y(rw, 1) = rw '"المسلسل"
            Y(rw, 2) = Format(myArray(x, 4), "dddd") '"اليوم"
            Y(rw, 3) = Format(myArray(x, 4), "dd-mm-yyyy") '"التاريخ"
            Y(rw, 4) = Format(myArray(x, 14), "hh:mm:ss AM/PM") '"الساعة"
            Y(rw, 5) = myArray(x, 5) '"المدخل"
            Y(rw, 6) = myArray(x, 6) '"الاسم"
            Y(rw, 7) = myArray(x, 10) '"كود الفاتوره"
            Y(rw, 8) = myArray(x, 11) '"رقم الفاتوره"
            Y(rw, 9) = myArray(x, 12) '"نوع الفاتورة"
            Y(rw, 10) = myArray(x, 1) '"المخزن"
            Y(rw, 11) = myArray(x, 17) '"نوع الصنف"
            Y(rw, 12) = myArray(x, 16) '"اسم الصنف"
            Y(rw, 13) = myArray(x, 18) '"الكميه"
            Y(rw, 14) = myArray(x, 19) '"السعر"
            Y(rw, 15) = myArray(x, 20) '"االقيمه"
ElseIf TextBox2.Value = "" And TextBox1.Value <> "" And myArray(x, 17) = ComboBox6.Value And myArray(x, 6) = TextBox1.Value Then  '""الاسم من النوع"
            rw = rw + 1
            Y(rw, 1) = rw '"المسلسل"
            Y(rw, 2) = Format(myArray(x, 4), "dddd") '"اليوم"
            Y(rw, 3) = Format(myArray(x, 4), "dd-mm-yyyy") '"التاريخ"
            Y(rw, 4) = Format(myArray(x, 14), "hh:mm:ss AM/PM") '"الساعة"
            Y(rw, 5) = myArray(x, 5) '"المدخل"
            Y(rw, 6) = myArray(x, 6) '"الاسم"
            Y(rw, 7) = myArray(x, 10) '"كود الفاتوره"
            Y(rw, 8) = myArray(x, 11) '"رقم الفاتوره"
            Y(rw, 9) = myArray(x, 12) '"نوع الفاتورة"
            Y(rw, 10) = myArray(x, 1) '"المخزن"
            Y(rw, 11) = myArray(x, 17) '"نوع الصنف"
            Y(rw, 12) = myArray(x, 16) '"اسم الصنف"
            Y(rw, 13) = myArray(x, 18) '"الكميه"
            Y(rw, 14) = myArray(x, 19) '"السعر"
            Y(rw, 15) = myArray(x, 20) '"االقيمه"
ElseIf TextBox2.Value = "" And TextBox1.Value = "" And ComboBox6.Value <> "" _
And ComboBox7.Value <> "" And myArray(x, 1) = ComboBox7.Value And myArray(x, 17) = ComboBox6.Value Then  '"النوع والمخزن"
            rw = rw + 1
            Y(rw, 1) = rw '"المسلسل"
            Y(rw, 2) = Format(myArray(x, 4), "dddd") '"اليوم"
            Y(rw, 3) = Format(myArray(x, 4), "dd-mm-yyyy") '"التاريخ"
            Y(rw, 4) = Format(myArray(x, 14), "hh:mm:ss AM/PM") '"الساعة"
            Y(rw, 5) = myArray(x, 5) '"المدخل"
            Y(rw, 6) = myArray(x, 6) '"الاسم"
            Y(rw, 7) = myArray(x, 10) '"كود الفاتوره"
            Y(rw, 8) = myArray(x, 11) '"رقم الفاتوره"
            Y(rw, 9) = myArray(x, 12) '"نوع الفاتورة"
            Y(rw, 10) = myArray(x, 1) '"المخزن"
            Y(rw, 11) = myArray(x, 17) '"نوع الصنف"
            Y(rw, 12) = myArray(x, 16) '"اسم الصنف"
            Y(rw, 13) = myArray(x, 18) '"الكميه"
            Y(rw, 14) = myArray(x, 19) '"السعر"
            Y(rw, 15) = myArray(x, 20) '"االقيمه"
ElseIf TextBox2.Value = "" And TextBox1.Value = "" And ComboBox6.Value = "" _
And ComboBox7.Value <> "" And myArray(x, 1) = ComboBox7.Value Then  '""مبيعات من المخزن"
            rw = rw + 1
            Y(rw, 1) = rw '"المسلسل"
            Y(rw, 2) = Format(myArray(x, 4), "dddd") '"اليوم"
            Y(rw, 3) = Format(myArray(x, 4), "dd-mm-yyyy") '"التاريخ"
            Y(rw, 4) = Format(myArray(x, 14), "hh:mm:ss AM/PM") '"الساعة"
            Y(rw, 5) = myArray(x, 5) '"المدخل"
            Y(rw, 6) = myArray(x, 6) '"الاسم"
            Y(rw, 7) = myArray(x, 10) '"كود الفاتوره"
            Y(rw, 8) = myArray(x, 11) '"رقم الفاتوره"
            Y(rw, 9) = myArray(x, 12) '"نوع الفاتورة"
            Y(rw, 10) = myArray(x, 1) '"المخزن"
            Y(rw, 11) = myArray(x, 17) '"نوع الصنف"
            Y(rw, 12) = myArray(x, 16) '"اسم الصنف"
            Y(rw, 13) = myArray(x, 18) '"الكميه"
            Y(rw, 14) = myArray(x, 19) '"السعر"
            Y(rw, 15) = myArray(x, 20) '"االقيمه"
ElseIf TextBox2.Value <> "" And TextBox1.Value = "" And ComboBox6.Value = "" And ComboBox7.Value <> "" _
And myArray(x, 16) = TextBox2.Value And myArray(x, 1) = ComboBox7.Value Then  '""مبيعات الصنف من المخزن"
            rw = rw + 1
            Y(rw, 1) = rw '"المسلسل"
            Y(rw, 2) = Format(myArray(x, 4), "dddd") '"اليوم"
            Y(rw, 3) = Format(myArray(x, 4), "dd-mm-yyyy") '"التاريخ"
            Y(rw, 4) = Format(myArray(x, 14), "hh:mm:ss AM/PM") '"الساعة"
            Y(rw, 5) = myArray(x, 5) '"المدخل"
            Y(rw, 6) = myArray(x, 6) '"الاسم"
            Y(rw, 7) = myArray(x, 10) '"كود الفاتوره"
            Y(rw, 8) = myArray(x, 11) '"رقم الفاتوره"
            Y(rw, 9) = myArray(x, 12) '"نوع الفاتورة"
            Y(rw, 10) = myArray(x, 1) '"المخزن"
            Y(rw, 11) = myArray(x, 17) '"نوع الصنف"
            Y(rw, 12) = myArray(x, 16) '"اسم الصنف"
            Y(rw, 13) = myArray(x, 18) '"الكميه"
            Y(rw, 14) = myArray(x, 19) '"السعر"
            Y(rw, 15) = myArray(x, 20) '"االقيمه"
ElseIf myArray(x, 17) = ComboBox6.Value And TextBox2.Value = "" And TextBox1.Value = "" _
And ComboBox6.Value <> "" And ComboBox7.Value = "" Then     '""مبيعات النوع"
            rw = rw + 1
            Y(rw, 1) = rw '"المسلسل"
            Y(rw, 2) = Format(myArray(x, 4), "dddd") '"اليوم"
            Y(rw, 3) = Format(myArray(x, 4), "dd-mm-yyyy") '"التاريخ"
            Y(rw, 4) = Format(myArray(x, 14), "hh:mm:ss AM/PM") '"الساعة"
            Y(rw, 5) = myArray(x, 5) '"المدخل"
            Y(rw, 6) = myArray(x, 6) '"الاسم"
            Y(rw, 7) = myArray(x, 10) '"كود الفاتوره"
            Y(rw, 8) = myArray(x, 11) '"رقم الفاتوره"
            Y(rw, 9) = myArray(x, 12) '"نوع الفاتورة"
            Y(rw, 10) = myArray(x, 1) '"المخزن"
            Y(rw, 11) = myArray(x, 17) '"نوع الصنف"
            Y(rw, 12) = myArray(x, 16) '"اسم الصنف"
            Y(rw, 13) = myArray(x, 18) '"الكميه"
            Y(rw, 14) = myArray(x, 19) '"السعر"
            Y(rw, 15) = myArray(x, 20) '"االقيمه"
ElseIf TextBox1.Value <> "" And TextBox2.Value = "" And ComboBox6.Value <> "" And ComboBox7.Value <> "" _
And myArray(x, 6) = TextBox1.Value And myArray(x, 17) = ComboBox6.Value And myArray(x, 1) = ComboBox7.Value Then '""الاسم والنوع من المخزن "
            rw = rw + 1
            Y(rw, 1) = rw '"المسلسل"
            Y(rw, 2) = Format(myArray(x, 4), "dddd") '"اليوم"
            Y(rw, 3) = Format(myArray(x, 4), "dd-mm-yyyy") '"التاريخ"
            Y(rw, 4) = Format(myArray(x, 14), "hh:mm:ss AM/PM") '"الساعة"
            Y(rw, 5) = myArray(x, 5) '"المدخل"
            Y(rw, 6) = myArray(x, 6) '"الاسم"
            Y(rw, 7) = myArray(x, 10) '"كود الفاتوره"
            Y(rw, 8) = myArray(x, 11) '"رقم الفاتوره"
            Y(rw, 9) = myArray(x, 12) '"نوع الفاتورة"
            Y(rw, 10) = myArray(x, 1) '"المخزن"
            Y(rw, 11) = myArray(x, 17) '"نوع الصنف"
            Y(rw, 12) = myArray(x, 16) '"اسم الصنف"
            Y(rw, 13) = myArray(x, 18) '"الكميه"
            Y(rw, 14) = myArray(x, 19) '"السعر"
            Y(rw, 15) = myArray(x, 20) '"االقيمه"
ElseIf TextBox1.Value <> "" And TextBox2.Value <> "" And ComboBox6.Value = "" And ComboBox7.Value <> "" _
And myArray(x, 1) = ComboBox7.Value And myArray(x, 16) = TextBox2.Value And myArray(x, 6) = TextBox1.Value Then '""الاسم والصنف من المخزن "
            rw = rw + 1
            Y(rw, 1) = rw '"المسلسل"
            Y(rw, 2) = Format(myArray(x, 4), "dddd") '"اليوم"
            Y(rw, 3) = Format(myArray(x, 4), "dd-mm-yyyy") '"التاريخ"
            Y(rw, 4) = Format(myArray(x, 14), "hh:mm:ss AM/PM") '"الساعة"
            Y(rw, 5) = myArray(x, 5) '"المدخل"
            Y(rw, 6) = myArray(x, 6) '"الاسم"
            Y(rw, 7) = myArray(x, 10) '"كود الفاتوره"
            Y(rw, 8) = myArray(x, 11) '"رقم الفاتوره"
            Y(rw, 9) = myArray(x, 12) '"نوع الفاتورة"
            Y(rw, 10) = myArray(x, 1) '"المخزن"
            Y(rw, 11) = myArray(x, 17) '"نوع الصنف"
            Y(rw, 12) = myArray(x, 16) '"اسم الصنف"
            Y(rw, 13) = myArray(x, 18) '"الكميه"
            Y(rw, 14) = myArray(x, 19) '"السعر"
            Y(rw, 15) = myArray(x, 20) '"االقيمه"
ElseIf TextBox1.Value = "" And TextBox2.Value = "" And ComboBox6.Value = "" And ComboBox7.Value = "" Then  '""المبيعات "
            rw = rw + 1
            Y(rw, 1) = rw '"المسلسل"
            Y(rw, 2) = Format(myArray(x, 4), "dddd") '"اليوم"
            Y(rw, 3) = Format(myArray(x, 4), "dd-mm-yyyy") '"التاريخ"
            Y(rw, 4) = Format(myArray(x, 14), "hh:mm:ss AM/PM") '"الساعة"
            Y(rw, 5) = myArray(x, 5) '"المدخل"
            Y(rw, 6) = myArray(x, 6) '"الاسم"
            Y(rw, 7) = myArray(x, 10) '"كود الفاتوره"
            Y(rw, 8) = myArray(x, 11) '"رقم الفاتوره"
            Y(rw, 9) = myArray(x, 12) '"نوع الفاتورة"
            Y(rw, 10) = myArray(x, 1) '"المخزن"
            Y(rw, 11) = myArray(x, 17) '"نوع الصنف"
            Y(rw, 12) = myArray(x, 16) '"اسم الصنف"
            Y(rw, 13) = myArray(x, 18) '"الكميه"
            Y(rw, 14) = myArray(x, 19) '"السعر"
            Y(rw, 15) = myArray(x, 20) '"االقيمه"
End If
'__________________________________________________________________________________________________________________________________________________________________________________________
If TextBox4.Value <> "" Then
If myArray(x, 4) > CDate(TextBox4.Value) Then: Exit For
End If

End If
'__________________________________________________________________________________________________________________________________________________________________________________________
Next x

If rw > 0 Then
listfind.AddItem
listfind.list = Y()
rw = 0
End If
End Sub





03-10-2019 05:44 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7800
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 418
قوة السمعة : 22567
الاعجاب : 2020
 Online 
look/images/icons/i1.gif سؤال فى المصفوفات
صراحة تهت في الموضوع ولا أعرف ما هي المشكلة بالضبط

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





03-10-2019 05:47 مساء
مشاهدة مشاركة منفردة [4]
عبدالرحمن صبحى
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-10-2018
رقم العضوية : 8466
المشاركات : 112
الجنس : ذكر
تاريخ الميلاد : 21-4-1996
الدعوات : 3
يتابعهم : 4
يتابعونه : 0
قوة السمعة : 138
الاعجاب : 42
 offline 
look/images/icons/i1.gif سؤال فى المصفوفات




ممكن حضرتك تساعدنى فى الطلب ده





03-10-2019 06:17 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7800
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 418
قوة السمعة : 22567
الاعجاب : 2020
 Online 
look/images/icons/i1.gif سؤال فى المصفوفات
أي طلب ...
هل قرأت مشاركتي السابقة؟؟

بقولك تايه في الموضوع ومش عارف مشكلتك فين بالظبط؟! smile

أثارت هذه المشاركة إعجاب: عبدالرحمن صبحى،




04-10-2019 09:25 صباحا
مشاهدة مشاركة منفردة [6]
عبدالرحمن صبحى
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-10-2018
رقم العضوية : 8466
المشاركات : 112
الجنس : ذكر
تاريخ الميلاد : 21-4-1996
الدعوات : 3
يتابعهم : 4
يتابعونه : 0
قوة السمعة : 138
الاعجاب : 42
 offline 
look/images/icons/i1.gif سؤال فى المصفوفات
المشاركة الأصلية كتبت بواسطة: عبدالرحمن صبحى
بما انه لايوجد حل لهذه المشكلة او من الممكن ان يكون هذا الطلب ليس مشكلة فعندى سؤال اخر.

هل يمكن وضع (التاريخ من ) زى (التاريخ الى) كده بمعنى لو عندى بيانات وببحث بين تاريخين بحط  كود صغير كده عشان اقول للكود لو لقيت تاريخ اعمل حسابك تقف عنده بس لو ملقتش تاريخ كمل جيب باقى البيانات
 وده الكود اللى انا حطه

If TextBox4.Value <> "" Then
If myArray(x, 4) > CDate(TextBox4.Value) Then: Exit For
End If


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


ياريت الاقى رد ولو لأ حتى لأنى بنيت كود طويل جدا ونسيت ادخل فيه التاريخ من وشكرا مقدما

 




مش عارف انا عملت اقتباس للرد الأول فى الموضوع ده .
وعملته كمان مره اهو 





04-10-2019 09:51 صباحا
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7800
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 418
قوة السمعة : 22567
الاعجاب : 2020
 Online 
look/images/icons/i1.gif سؤال فى المصفوفات
أنا شايف في الكود إنك عملت بالفعل جملة شرطية لو التكست بوكس لا يساوي فراغ تعمل كذا ..
ضيف جملة Else بحيث لو التكست بوكس فيه تاريخ تنفذ اللي إنت عايزة

ما قصدته بردي أن تقوم بالتوضيح بالصور لأن المشكلة ليست واضحة بما فيه الكفاية بالنسبة لي ، وأعتذر إذا لم أشارك ، فعدم مشاركتي تعني عدم فهمي للمشكلة

أثارت هذه المشاركة إعجاب: عبدالرحمن صبحى،




04-10-2019 10:06 صباحا
مشاهدة مشاركة منفردة [8]
عبدالرحمن صبحى
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-10-2018
رقم العضوية : 8466
المشاركات : 112
الجنس : ذكر
تاريخ الميلاد : 21-4-1996
الدعوات : 3
يتابعهم : 4
يتابعونه : 0
قوة السمعة : 138
الاعجاب : 42
 offline 
look/images/icons/i1.gif سؤال فى المصفوفات
استاذ ياسر جزاك الله خيرا .
تمام الكود اللى انا عامله ده عشان  التاريخ الى  طب التاريخ من بقى انا .
حضرتك الكلام الى حضرتك بتقولة ده يعنى هنسخ الكود الطويل اللى انا كاتبة فى الرد التانى على طول فى الموضوع وهيبقى الكود عامل كده بالظبط

if textbox1.value<>"" and d>textbox1 then
"الكود الطويل"
else
"الكود الطويل مره اخرى"
end if
   حضرتك وضحت الفكرة اللى انا عايز اوصلها ليك بس يعنى
فكان سؤالى هل هناك طريقه مختصرة شويه عن الطريقة دى لأنى الكود هيبقى طويل جامد جدا



 





04-10-2019 10:57 صباحا
مشاهدة مشاركة منفردة [9]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7800
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 418
قوة السمعة : 22567
الاعجاب : 2020
 Online 
look/images/icons/i1.gif سؤال فى المصفوفات
بصرف النظر عن الأكواد الموجودة .. ما هو الهدف من الكود؟ اشرح الأداوت المستخدمة على الفورم لكي تتضح صورة طلبك وإن شاء الله ألقي نظرة على الملف بعد صلاة الجمعة





07-10-2019 07:21 مساء
مشاهدة مشاركة منفردة [10]
سعد عابد
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 12
المشاركات : 74
الجنس : ذكر
تاريخ الميلاد : 17-1-1968
يتابعهم : 4
يتابعونه : 1
قوة السمعة : 90
الاعجاب : 11
 offline 
look/images/icons/i1.gif سؤال فى المصفوفات
اخى الكريم
هذه محاولة وقد تم تجربتها على الملف فى المشاركة الاولى
للبحث بثلاث متغيرات او بمتغير بين تاريخين
وفقكم الله


Private Sub CommandButton1_Click()
ListBox1.Clear
If ComboBox1.Value = "" Then: ComboBox1.SetFocus: Exit Sub
Dim i               As Long
Dim myArray         As Variant
Dim x               As Long
Dim lr              As Long
Dim DATA           As Worksheet
'On Error Resume Next
''''''''___________________________________________________________
    Set DATA = Worksheets("data")
    lr = DATA.Cells(Rows.Count, 2).End(xlUp).Row
    myArray = DATA.Range("b2:d" & lr)
    ReDim Y(1 To lr, 1 To 3)
For x = 1 To lr - 1
'_________________________________________________________________________________________________________________________________
If ComboBox1.Value = "" Then GoTo a1
If myArray(x, 2) = ComboBox1.Value Then
a1: If ComboBox2.Value = "" Then GoTo a2
If myArray(x, 1) >= CDate(ComboBox2.Text) Then
a2: If ComboBox3.Value = "" Then GoTo a3
If myArray(x, 1) <= CDate(ComboBox3.Text) Then
'_________________________________________________________________________________________________________________________________
a3:         rw = rw + 1
'            Y(rw, 1) = rw
            Y(rw, 1) = Format(myArray(x, 1), "yyyy/mm/dd")
            Y(rw, 2) = myArray(x, 2)
            Y(rw, 3) = myArray(x, 3)
End If
End If
End If
Next x
If rw > 0 Then
ListBox1.AddItem
ListBox1.List = Y()
rw = 0
End If

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





المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
مسابقات دينية سؤال وجواب مجدى يونس
2 207 مجدى يونس
سؤال في اكسل فائز
5 257 محمود ابو الدهب
سؤال في معادلات اكسل yasser2018
2 246 takydeen
سؤال فى IF VBA Omar2
3 220 ابونور
سؤال فى الطباعة صلاح الصغير
13 454 صلاح الصغير

الكلمات الدلالية
سؤال ، المصفوفات ،


 







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



الساعة الآن 01:52 مساء

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