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

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




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


الرئيسية
نتائج البحث


نتائج البحث عن ردود العضو :عبدالرحمن صبحى
عدد النتائج (77) نتيجة
16-11-2019 04:46 مساء
icon كود بسيط لمعرفة 43 معلومه عن جهازك - حسام خطاب | الكاتب :عبدالرحمن صبحى |المنتدى: اكسيل شروحات ودروس
 تمام الله ينور وجزاك الله خيرا
05-10-2019 04:13 مساء
icon وضع علامة مائية بالاكسل عند الطباعة Insert Watermark In Excel | الكاتب :عبدالرحمن صبحى |المنتدى: اكسيل شروحات ودروس
 جزاكم الله خيرا .
 
04-10-2019 10:19 صباحا
icon 002 - تنصيب الجافا Install Java | الكاتب :عبدالرحمن صبحى |المنتدى: قسم لغة Java
 جزاكم الله خيرا استاذ ياسر .
ان شاء الله انا ناوى اتعلم لغة الجافا ومنتظر من حضرتك دروس جديده عن هذه اللغة 
04-10-2019 10:06 صباحا
icon سؤال فى المصفوفات | الكاتب :عبدالرحمن صبحى |المنتدى: اكسيل اسئله واجابات
 استاذ ياسر جزاك الله خيرا .
تمام الكود اللى انا عامله ده عشان  التاريخ الى  طب التاريخ من بقى انا .
حضرتك الكلام الى حضرتك بتقولة ده يعنى هنسخ الكود الطويل اللى انا كاتبة فى الرد التانى على طول فى الموضوع وهيبقى الكود عامل كده بالظبط

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



 
04-10-2019 09:25 صباحا
icon سؤال فى المصفوفات | الكاتب :عبدالرحمن صبحى |المنتدى: اكسيل اسئله واجابات
 
المشاركة الأصلية كتبت بواسطة: عبدالرحمن صبحى
بما انه لايوجد حل لهذه المشكلة او من الممكن ان يكون هذا الطلب ليس مشكلة فعندى سؤال اخر.

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

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


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


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

 




مش عارف انا عملت اقتباس للرد الأول فى الموضوع ده .
وعملته كمان مره اهو 
03-10-2019 05:47 مساء
icon سؤال فى المصفوفات | الكاتب :عبدالرحمن صبحى |المنتدى: اكسيل اسئله واجابات
 



ممكن حضرتك تساعدنى فى الطلب ده
03-10-2019 05:38 مساء
icon سؤال فى المصفوفات | الكاتب :عبدالرحمن صبحى |المنتدى: اكسيل اسئله واجابات
 ولو مفيش الاقى حد من الخبراء يقدر يختصر ليا الكود الطويل ده

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



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:34 مساء
icon سؤال فى المصفوفات | الكاتب :عبدالرحمن صبحى |المنتدى: اكسيل اسئله واجابات
 بما انه لايوجد حل لهذه المشكلة او من الممكن ان يكون هذا الطلب ليس مشكلة فعندى سؤال اخر.

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

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


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


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

 
30-09-2019 01:26 مساء
icon العلامة المائيه فى الطباعه | الكاتب :عبدالرحمن صبحى |المنتدى: اكسيل اسئله واجابات
 جزاك الله خيرا استاذ ياسر
انا بس كنت عايز اعرف ازاى هيا مخفيه كده من صفحة العمل لانى عملت كده فعلا بس الصورة ظاهره كخلفية للصفحة ومضيقانى جدا ومشوشة عليا

 
30-09-2019 12:36 مساء
icon ترتيب التاريخ من الاصغر للأكبر وعرضها فى الليست بوكس | الكاتب :عبدالرحمن صبحى |المنتدى: اكسيل اسئله واجابات
 كان عندى سؤال  ليس فى هذا الموضوع ولا يحتاج الى فتح موضوع جديد :
وانما هو فى كود المصفوفه نفسة اذا تم استخدام الترحيل الى الليست بوكس كما هو موضح فى الكود
    If rw > 0 Then
        ListBox1.AddItem
        ListBox1.List = y()
    End If


يظهر فى الليست بوكس صفوف فارغة بعدد الصفوف الموجوده بصفحة العمل فهل من حل 

 
28-09-2019 11:56 صباحا
icon دالة لتحويل التاريخ الميلادي إلى تاريخ هجري Gregorian Hijri Converter UDF | الكاتب :عبدالرحمن صبحى |المنتدى: موضوعات ياسر خليل أبو البراء
 جزاك الله خيرا استاذ ياسر الموضوع جميل
ولكن حاولت اعمل تنسيق الخليه صاحبة التاريخ الهجرى تنسيق يظهر الشهر مكتوب عربى وليس ارقام فوجدت الخليه لاتقبل وهذا هو التنسيق  dd_mmmm_yyyy مع العلم استخدام هذا التنسيق فى التاريخ الميلادى شغال تمام 
24-09-2019 12:07 صباحا
icon البحث عن سعر بيع الصنف بأكثر من طريقة vba | الكاتب :عبدالرحمن صبحى |المنتدى: اكسيل اسئله واجابات
 جزاك الله خيرا أخى الكريم على .
ماشاء الله الكود جميل جدا ومشكور على إهتمامك بالطلب ،جعله الله فى ميزان حسناتك 💖

الصفحة 1 من 7 < 1 2 3 4 7 > الأخيرة »





الساعة الآن 08:44 مساء

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