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

الفيديو العاشر - من سلسلة تعلم اكسس معي - من الصفر نبدأ - الاستاذ محمد جابر

الفيديو التاسع - من سلسلة تعلم اكسس معي - من الصفر نبدأ - الاستاذ محمد جابر

الفيديو الثامن - من سلسلة تعلم اكسس معي - من الصفر نبدأ- الاستاذ محمد جابر

الفيديو السابع - من سلسلة تعلم اكسس معي - من الصفر نبدأ - الاستاذ - محمد جابر

الفيديو السادس - من سلسلة تعلم اكسس معي - من الصفر نبدأ - الاستاذ محمد جابر

الفيديو الخامس - من سلسلة تعلم اكسس معي - من الصفر نبدأ - الاستاذ محمد جابر

الفيديو الرابع - من سلسلة تعلم اكسس معي - من الصفر نبدأ - الاستاذ محمد جابر

الفيديو الثالث - من سلسلة تعلم اكسس معي - من الصفر نبدأ - الاستاذ محمد جابر

الفيديو الثاني - من سلسلة تعلم اكسس معي من الصفر نبدأ - الاستاذ محمد جابر

الفيديو الاول - من سلسلة تعلم اكسس معي - من الصفر نبدأ - الاستاذ محمد جابر

آخر المشاركات

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

الرئيسية

نتائج البحث

نتائج البحث عن ردود العضو :عبدالرحمن صبحى

عدد النتائج (76) نتيجة

06-12-2020 09:26 صباحا

ترتيب البيانات على الليست بوكس من الاكبر الى الاصغر | الكاتب :عبدالرحمن صبحى |المنتدى: اكسيل اسئله واجابات

 جزاك الله خيرا اخى سليم 
 

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

وشكرا

16-11-2019 04:46 مساء

كود بسيط لمعرفة 43 معلومه عن جهازك - حسام خطاب | الكاتب :عبدالرحمن صبحى |المنتدى: اكسيل شروحات ودروس

 تمام الله ينور وجزاك الله خيرا

05-10-2019 04:13 مساء

وضع علامة مائية بالاكسل عند الطباعة Insert Watermark In Excel | الكاتب :عبدالرحمن صبحى |المنتدى: اكسيل شروحات ودروس

 جزاكم الله خيرا .

04-10-2019 10:19 صباحا

002 - تنصيب الجافا Install Java | الكاتب :عبدالرحمن صبحى |المنتدى: قسم لغة Java

 جزاكم الله خيرا استاذ ياسر .

ان شاء الله انا ناوى اتعلم لغة الجافا ومنتظر من حضرتك دروس جديده عن هذه اللغة

04-10-2019 10:06 صباحا

سؤال فى المصفوفات | الكاتب :عبدالرحمن صبحى |المنتدى: اكسيل اسئله واجابات

 استاذ ياسر جزاك الله خيرا .

تمام الكود اللى انا عامله ده عشان  التاريخ الى  طب التاريخ من بقى انا .

حضرتك الكلام الى حضرتك بتقولة ده يعنى هنسخ الكود الطويل اللى انا كاتبة فى الرد التانى على طول فى الموضوع وهيبقى الكود عامل كده بالظبط
 

if textbox1.value<>"" and d>textbox1 then

"الكود الطويل"

else

"الكود الطويل مره اخرى"

end if

   حضرتك وضحت الفكرة اللى انا عايز اوصلها ليك بس يعنى

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

04-10-2019 09:25 صباحا

سؤال فى المصفوفات | الكاتب :عبدالرحمن صبحى |المنتدى: اكسيل اسئله واجابات

 المشاركة الأصلية كتبت بواسطة: عبدالرحمن صبحى
بما انه لايوجد حل لهذه المشكلة او من الممكن ان يكون هذا الطلب ليس مشكلة فعندى سؤال اخر.
 

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

 وده الكود اللى انا حطه



If TextBox4.Value <> "" Then

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

End If


 

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

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

 
 
 
 
 

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

وعملته كمان مره اهو

03-10-2019 05:47 مساء

سؤال فى المصفوفات | الكاتب :عبدالرحمن صبحى |المنتدى: اكسيل اسئله واجابات

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

03-10-2019 05:38 مساء

سؤال فى المصفوفات | الكاتب :عبدالرحمن صبحى |المنتدى: اكسيل اسئله واجابات

 ولو مفيش الاقى حد من الخبراء يقدر يختصر ليا الكود الطويل ده
 

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



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 مساء

سؤال فى المصفوفات | الكاتب :عبدالرحمن صبحى |المنتدى: اكسيل اسئله واجابات

 بما انه لايوجد حل لهذه المشكلة او من الممكن ان يكون هذا الطلب ليس مشكلة فعندى سؤال اخر.
 

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

 وده الكود اللى انا حطه



If TextBox4.Value <> "" Then

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

End If


 

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

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

30-09-2019 01:26 مساء

العلامة المائيه فى الطباعه | الكاتب :عبدالرحمن صبحى |المنتدى: اكسيل اسئله واجابات

 جزاك الله خيرا استاذ ياسر

انا بس كنت عايز اعرف ازاى هيا مخفيه كده من صفحة العمل لانى عملت كده فعلا بس الصورة ظاهره كخلفية للصفحة ومضيقانى جدا ومشوشة عليا

30-09-2019 12:36 مساء

ترتيب التاريخ من الاصغر للأكبر وعرضها فى الليست بوكس | الكاتب :عبدالرحمن صبحى |المنتدى: اكسيل اسئله واجابات

 كان عندى سؤال  ليس فى هذا الموضوع ولا يحتاج الى فتح موضوع جديد :

وانما هو فى كود المصفوفه نفسة اذا تم استخدام الترحيل الى الليست بوكس كما هو موضح فى الكود     If rw > 0 Then

        ListBox1.AddItem

        ListBox1.List = y()

    End If

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

28-09-2019 11:56 صباحا

دالة لتحويل التاريخ الميلادي إلى تاريخ هجري Gregorian Hijri Converter UDF | الكاتب :عبدالرحمن صبحى |المنتدى: موضوعات ياسر خليل أبو البراء

 جزاك الله خيرا استاذ ياسر الموضوع جميل

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

الصفحة 1 من 7

الأخيرة »

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