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

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




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

Preview

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


نتائج البحث عن ردود العضو :ANASS1
عدد النتائج (28) نتيجة
19-10-2020 12:53 مساء
icon كود اخفاء الملف و اظهار الفورم فقط | الكاتب :ANASS1 |المنتدى: اكسيل اسئله واجابات
 السلام عليكم
شكرا جزيلا استاذ  hassona229  على الاهتمام 
واجهني مشكلتين في حالة فتح الملف وحده اي لا يوجد ملف اخر مفتوح 
الاولى في النافذة التي تظهر وراء اليوزرفورم و الثانية لايمكن فتح اي ملف اخر بعد فتح  الفروم وحده 
جزاك الله خيرا استاذ
QLCsL_Sans titre
24-06-2020 12:44 مساء
icon مشكل في الدالة COUNTIFS | الكاتب :ANASS1 |المنتدى: اكسيل اسئله واجابات
 شكرا جزيلا استاذ علي محمد علي على المساعدة
اردت ان استفسر هل ليس لديها حل بالطريقة التي وضعتها 
مثلا كاضافة  DateValue  او CDate...
وفقك الله

 
17-06-2020 11:07 مساء
icon تحديد الورقة بالكمبوبوكس و اظهار المحتوى في الليستبوكس | الكاتب :ANASS1 |المنتدى: اكسيل اسئله واجابات
 شكرا كبير لك استاذ سليم 
تحياتي لكم
16-06-2020 07:54 مساء
icon تحديد تاريخ ب textbox | الكاتب :ANASS1 |المنتدى: اكسيل اسئله واجابات
 السلام عليكم
شكرا لأساتذتي الكرام 
جعل الله عملكم و معاملتكم الطيبة في ميزان حسناتكم
اردت استخدام هذه الطريقة في ملف استخدمت فيه الدالة nb.si.ens في جميع ايام السنة فاصبح الملف بطيء جدا عند ادخال معلومات جديدة
لقد طلبت المساعدة في موضوع سابق   لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب  لكن لم اتلقى ردود يبدو انني لم اقم البشرح الكافي 
فاردت اكمال العمل بادخال التاريخ فترة بعد فترة ربما اتجنب حدوث مشكل
اذا كان لكم رأي اخر فأنا ممتن لكم جدا 
شكرا لكم 
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
15-06-2020 07:05 مساء
icon تحديد تاريخ ب textbox | الكاتب :ANASS1 |المنتدى: اكسيل اسئله واجابات
 kSoaT_5 PRdFF_6
15-06-2020 07:03 مساء
icon تحديد تاريخ ب textbox | الكاتب :ANASS1 |المنتدى: اكسيل اسئله واجابات
 شكرا على الاهتمام استاذ خليل
طلبي ان كان بالامكان هو كتابة تاريخ البداية في textbox1 و تاريخ النهاية في textbox2 بعد ذلك تظهر النتيجة اي كل التواريخ المحصورة بين التاريخ 1 و 2 

 
12-06-2020 11:03 مساء
icon تطبيق الدالة على كل العمود | الكاتب :ANASS1 |المنتدى: اكسيل اسئله واجابات
 شكرا كبيرا لك استاذ سليم
جزاك الله خيرا
06-06-2020 12:08 صباحا
icon الفلتر بتحديد الوقت | الكاتب :ANASS1 |المنتدى: اكسيل اسئله واجابات
 السلام عليكم
اسف لقد اخطأت 
اريد البحث بتاريخ الدخول فقط
MPY1W_Sans titre
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
01-06-2020 04:48 مساء
icon التعديل من خلال الليست بوكس | الكاتب :ANASS1 |المنتدى: اكسيل اسئله واجابات
 لقد استخدمت هذا الكود من فضلكم هل سيعمل بفعالية
 
Dim Ligne As Long
 
    If ListBox1.ListIndex = -1 Then Exit Sub
    Ligne = ListBox1.ListIndex + 2
    
    Range("B" & Ligne) = TextBox1
    Range("C" & Ligne) = TextBox2
    Range("D" & Ligne) = TextBox3
    Range("E" & Ligne) = ComboBox1
    Range("F" & Ligne) = ComboBox2
    Call UserForm_Initialize
   

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
28-05-2020 05:03 مساء
icon ترقيم تلقائيا لكن بشرط | الكاتب :ANASS1 |المنتدى: اكسيل اسئله واجابات
 نعم استاذ ياسر اريد شرط اخر 
في الشرط القديم نحصل على الرقم التساسلي للزائر  انطلاقا من المصلحة A B
لكن في حالة ما كان للزائر مرافق نريد اعطائه رقم خاص به نضيف "ACC" لرقم الزائر مثلا رقم الزائر  1/A  رقم المرافق سيكون ACC'1/A
q8wPm_11

28-05-2020 01:23 مساء
icon ترقيم تلقائيا لكن بشرط | الكاتب :ANASS1 |المنتدى: اكسيل اسئله واجابات
 السلام عليكم 
واجهتني مشكلة اردت ادراج نوع الزائر لكي اعطي لمرافق الزائر رقم تسلسلي خاص به انطلاقا من رقم الزائر لكن عند ادخال الزائر التالي من نفس المصلحة  يزيد الرقم ب 1
اسف على الازعاج
Option Explicit

Private Sub ComboBox1_Change()
If ComboBox1.Value = "ãÑÇÝÞ ááÒÇÆÑ" Then
Label6.Visible = True
TextBox4.Visible = True
End If
End Sub

Private Sub CommandButton1_Click()
    Dim s As String, lr As Long, x As Long
    With Worksheets("Feuil1")
        lr = .Range("D" & Rows.Count).End(xlUp).Row + 1
        .Cells(lr, 2).Value = TextBox1.Value
        .Cells(lr, 3).Value = TextBox2.Value
        .Cells(lr, 4).Value = CDate(TextBox3.Value)
        .Cells(lr, 5).Value = ComboBox1.Value
        If ComboBox2.Value <> "" Then
            Select Case ComboBox2.Value
                Case "A": s = "A"
                Case "B": s = "B"
            End Select
            x = Application.WorksheetFunction.CountIf(.Columns(6), s) + 1
            .Cells(lr, 1).Value = CStr(x) & "/" & s
        End If
        .Cells(lr, 6).Value = ComboBox2.Value
        With .Range(.Cells(lr, 1), .Cells(lr, 6))
            .Borders.LineStyle = xlContinuous
        End With
    End With
    MsgBox "Done. number  " & x & "/" & s & "  service  " & Cells(lr, 6).Value, 64
    Call vide
End Sub
Private Sub UserForm_Initialize()
    TextBox3.Text = Format(Now, "dd/mm/yyyy")
    ComboBox1.List = Array("ÒíÇÑÉ ÚÇÏíÉ", "ÒíÇÑÉ ãÓÊÚÌáÉ", "ÒíÇÑÉ ÈÇáãæÚÏ", "ãÑÇÝÞ ááÒÇÆÑ")
    ComboBox2.List = Array("A", "B")
End Sub

1u5wd_Sans titre
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
26-05-2020 08:32 مساء
icon ترقيم تلقائيا لكن بشرط | الكاتب :ANASS1 |المنتدى: اكسيل اسئله واجابات
 شكرا كبير لك الاستاذ  salim  و الاستاذ  YasserKhalil
رزقكم الله الصحة والعافية

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





الساعة الآن 08:08 صباحا

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