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

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




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

Preview

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


نتائج البحث عن ردود العضو :noureddine70
عدد النتائج (23) نتيجة
21-06-2020 10:40 صباحا
icon كود تحديث المعلومات | الكاتب :noureddine70 |المنتدى: اكسيل اسئله واجابات
 بارك الله فيك و جزاك الله خيرا 
فعلا كود سهل و بسيط و رائع استاذ تستهل ملايير الاعجاب
حفظك الله اخي ياسر
اما عن صورة البروفايل ان شاءالله ساغيرها
15-06-2020 07:12 مساء
icon حل مشكلة غلق اليوزرفورم مع كل ملفات الاكسل | الكاتب :noureddine70 |المنتدى: اكسيل اسئله واجابات
 بارك الله فيكم و جزاكم الله خيرا 
لقد حلت المشكلة 
الحمد لله رب العالمين و الشكر موصول لكم جميعا
08-06-2020 11:42 صباحا
icon كود حساب عدد الخلايا غير الفارغة بعد الفلترة | الكاتب :noureddine70 |المنتدى: اكسيل اسئله واجابات
 صحيح أخي بارك الله فيك في هذه الحالة يحسب كل الخلايا سواءا كانت فارغة أو لا
لأني لما جربت الرقم 4 لا ينفذ الكود 
و جزاكم الله خيرا


بارك الله فيك اخي ياسر و كود عمل معي تمام 100/100 غير أني غيرت Range("B13").Value   ب Range("B14").Value حتى يستفيد الاخرين
يعني هذا الكود اضفته الى الكود السابق الذي فيه creteria
و حفظ الله الجميع  
 
07-06-2020 08:02 مساء
icon كود حساب عدد الخلايا غير الفارغة بعد الفلترة | الكاتب :noureddine70 |المنتدى: اكسيل اسئله واجابات
 بارك الله فيكم و جزاكم الله خيرا 
كما اود ان اعلمكم اني قمت بتغيير في الكود السابق هذا السطر  y = .AutoFilter.Range.Columns(2).SpecialCells(4).Count
بهذا السطر  y = .AutoFilter.Range.Columns(2).SpecialCells(11).Count
اي غيرت الرقم 4 برقم 11 و قد حلت المشكلة
جزيل الشكر لكم و جعلها الله في ميزات حسناتكم
07-06-2020 01:02 مساء
icon التكست بوكس لا تقبل الا ادخال التاريخ فقط | الكاتب :noureddine70 |المنتدى: اكسيل اسئله واجابات
 بارك الله فيكم
لقد قمت بارفاق معه الملف و كذلك صورة
07-06-2020 12:38 مساء
icon حل مشكلة غلق اليوزرفورم مع كل ملفات الاكسل | الكاتب :noureddine70 |المنتدى: اكسيل اسئله واجابات
 السلام عليكم و رحمة الله و بركاته
معذرة على الخطأ الذي وقع مني في طرح السؤال انا قصدي الملف و ليس الشيت
و اعطي مثالا على ذلك:
انا فاتح ملف اسمه  A 
فعندما افتح ملف اخر اسمه  B  والذي  فيه اليوزرفورم عندما اريد غلق اليوزرفورم ينغلق الملف A معه فانا اريد ان ينغلق B فقط
و كذلك عند فتح B  أريد من اليوزرفورم ان يقرا من الملف B  و لا يقرأ من الملف A
و جزاكم الله خيرا
اظن ان هذا السؤال لا يتطلب رفع ملف بارك الله فيكم
مفيش مشاركة لا تتطلب رفع ملف ... والا ستتجاهل من قبل الأساتذة ولا يتم الرد عليها ولا الإستجابة لها
07-06-2020 12:02 مساء
icon كود حساب عدد الخلايا غير الفارغة بعد الفلترة | الكاتب :noureddine70 |المنتدى: اكسيل اسئله واجابات
 بارك الله فيكم و جزاكم الله خيرا 
و الله اني لاعلم انكم تتعبون حتى تعطونا الحلول على طبق من ذهب فأنا ان لم اسجل اعجابي فهذا من جهلي لانني اول مرة اتعامل مع منتدى بالرغم من مشاركتي القليلة ما زلت لحد الان اتعلم منكم فارجو منكم السماح و من قال جزاكم الله خيرا فقد اجزل في الشكر فأنا كل من قدم لي خدمة حتى بكلمة فاني اقدم له الشكر بعد قراءة رده  ولكن سأضع أعجابي ان شاء الله 
ان الكود الذي وضعه الأخ سليم حدث لي مشكلة في السطر 
y = .AutoFilter.Range.Columns(2).SpecialCells(4).Count
و عليه اجدد طلبي بوضع ملف مع هذا الرد و الذي اريده ان يكون مجموع عدد الخلايا الفارغة في ثاني سطر فارغ في العامود B و في هذا الملف في الخلية B13
حتى افهم الكود جيدا و اعرف كيف اتعامل معه اريد اسنفسار عن معنى (SpecialCells(4 والرقم 4
و بارك الله فيكم و جزاكم الله خيرا
29-05-2020 12:05 مساء
icon كود البحث بحرف من كلمة | الكاتب :noureddine70 |المنتدى: اكسيل اسئله واجابات
 بارك الله فيك و جزاك الله خيرا نعم نجحت 
29-05-2020 11:55 صباحا
icon تحويل الملف الى PDF ثم طباعته | الكاتب :noureddine70 |المنتدى: اكسيل اسئله واجابات
 بارك الله فيك و جزاك الله خيرا
28-05-2020 08:58 مساء
icon كود البحث بحرف من كلمة | الكاتب :noureddine70 |المنتدى: اكسيل اسئله واجابات
 بارك الله فيك أخي هذا هو الكود
Private Sub CHERCHE_Change()
Application.ScreenUpdating = False
On Error Resume Next
ListeAffaire.ColumnCount = 5
ListeAffaire.ColumnWidths = "40;80;80;100;80"

If CHERCHE.Value = "" Then ListeAffaire.Clear: Exit Sub

    k = 0
       
        lr = Cells(Rows.Count, 4).End(xlUp).Row
        For Each c In Range("d3:d" & lr)
            b = InStr(c, CHERCHE)
            If b > 0 Then
                ListeAffaire.AddItem
                ListeAffaire.List(k, 0) = Cells(c.Row, 1).Value
                ListeAffaire.List(k, 1) = Cells(c.Row, 2).Value
                ListeAffaire.List(k, 2) = Cells(c.Row, 3).Value
                ListeAffaire.List(k, 3) = Cells(c.Row, 4).Value
                ListeAffaire.List(k, 4) = Cells(c.Row, 5).Value
                
                k = k + 1
            End If
        Next c
Application.ScreenUpdating = True
End Sub

 
28-05-2020 08:54 مساء
icon تحويل الملف الى PDF ثم طباعته | الكاتب :noureddine70 |المنتدى: اكسيل اسئله واجابات
 هذا هو الكود الذي استعملته الذي اشعر انه كثير جدا

Private Sub IMPRIMER_Click()
Application.ScreenUpdating = False
On Error Resume Next
Set ws = ThisWorkbook.Worksheets("TEST")
ws.Activate
If Me.TextBox1.Text = "EXCELLENT" Or Me.TextBox1.Value = "TRES BIEN" Then
ws.Range("B2") = Me.TextBox1.Text
ws.Select
    ws.Copy Before:=Sheets(2)
    Rows("43:84").Select
    Selection.Delete Shift:=xlUp
    Range("A36").Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:UsersNoureddineDesktopCode Impression Page.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
    Sheets("TEST (2)").Select
    ActiveWindow.SelectedSheets.Delete
    ws.Select
    Range("B2").Select
    
ElseIf Me.TextBox1.Text = "MAUVAIS" Then
ws.Range("B2") = Me.TextBox1.Text

ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:UsersNoureddineDesktopCode Impression Page.pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True

End If

End Sub

ولكن تاتيني رسالة فأنا اريد ان اتفادها

 


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





الساعة الآن 12:57 صباحا

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