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

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




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


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


نتائج البحث عن ردود العضو :عبدالرحمن صبحى
عدد النتائج (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 مساء
Privacy Policy | سياسة الخصوصية

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