logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
EM_ACC ali mohamed ali-- لا تميز خلال هذه الفترة YasserKhalil لا تميز خلال هذه الفترة اكسيل اسئله واجابات



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





26-05-2020 05:24 مساءً
السلام عليكم
تحياتي للجميع
من فضلكم هل يمكن اضافة رقم تسلسلي على شكل "1/20, 2/20, 3/20...." بمجرد اضافة سطر يضاف الرقم تلقائيا
لكن بشرط كل مصلحة لديها ارقام تسلسلية اي عند اختيار المصلحة A يعطى الرقم 1/20 و عند اختيار المصلحة B يعطي الرقم 1/20 و هكذا
شكرا لكم
GhKwC_Sans titre
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  الرقم التسلسلي.xlsm   تحميل xlsm مرات التحميل :(8)
الحجم :(23.894) KB





look/images/icons/i1.gif ترقيم تلقائيا لكن بشرط
  26-05-2020 06:10 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10457
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36399
الاعجاب : 66
وعليكم السلام
جرب الكود التالي عله يفي بالغرض
CODE
Option Explicit

Private Sub CommandButton1_Click()
    Dim s As String, lr As Long, x As Long
    With Worksheets("Feuil1")
        lr = .Range("B" & 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)
        If ComboBox1.Value <> "" Then
            Select Case ComboBox1.Value
                Case "A": s = "A"
                Case "B": s = "B"
            End Select
            x = Application.WorksheetFunction.CountIf(.Columns(5), s) + 1
            .Cells(lr, 1).Value = "'" & CStr(x) & "/20"
        End If
        .Cells(lr, 5).Value = ComboBox1.Value
        With .Range(.Cells(lr, 1), .Cells(lr, 5))
            .Borders.LineStyle = xlContinuous
        End With
    End With
    MsgBox "Done...", 64
    Call vide
End Sub

Private Sub UserForm_Initialize()
    TextBox3.Text = Format(Now, "dd/mm/yyyy")
    ComboBox1.List = Array("A", "B")
End Sub

أثارت هذه المشاركة إعجاب: ali mohamed ali، ANASS1، abouelhassan، noureddine70،



look/images/icons/i1.gif ترقيم تلقائيا لكن بشرط
  26-05-2020 08:06 مساءً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-04-2018
رقم العضوية : 5696
المشاركات : 48
الجنس :
تاريخ الميلاد : 22-1-1990
قوة السمعة : 46
الاعجاب : 0
تسلم الايادي استاذ ياسر خليل الحمد لله هو المطلوب شكرا جزيييلا
لقد اضفت هذا الكود لكي ابين الرقم و المصلحة في msgbox ؟
CODE
MsgBox "Done. number  " & x & "/20" & "  service  " & Cells(lr, 5).Value, 64 

أثارت هذه المشاركة إعجاب: YasserKhalil،



look/images/icons/i1.gif ترقيم تلقائيا لكن بشرط
  26-05-2020 08:13 مساءً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس :
تاريخ الميلاد : 1-5-1989
الدعوات : 1
قوة السمعة : 6609
الاعجاب : 1
جرب هذا الملف
 
 
  Working With User.xlsm   تحميل xlsm مرات التحميل :(6)
الحجم :(34.813) KB


أثارت هذه المشاركة إعجاب: YasserKhalil، ANASS1، abouelhassan، ashraf_hertlion،



look/images/icons/i1.gif ترقيم تلقائيا لكن بشرط
  26-05-2020 08:15 مساءً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10457
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36399
الاعجاب : 66
بارك الله فيك أخي الكريم
وعليك أن تتم ما نقص مني

أثارت هذه المشاركة إعجاب: salim، ANASS1،



look/images/icons/i1.gif ترقيم تلقائيا لكن بشرط
  26-05-2020 08:32 مساءً   [5]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-04-2018
رقم العضوية : 5696
المشاركات : 48
الجنس :
تاريخ الميلاد : 22-1-1990
قوة السمعة : 46
الاعجاب : 0
شكرا كبير لك الاستاذ salim</b> و الاستاذ YasserKhalil</b>
رزقكم الله الصحة والعافية

أثارت هذه المشاركة إعجاب: YasserKhalil،



look/images/icons/i1.gif ترقيم تلقائيا لكن بشرط
  26-05-2020 09:18 مساءً   [6]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10457
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36399
الاعجاب : 66
بارك الله فيك أخي الكريم والحمد لله الذي بنعمته تتم الصالحات

أثارت هذه المشاركة إعجاب: salim، ANASS1،



look/images/icons/i1.gif ترقيم تلقائيا لكن بشرط
  28-05-2020 01:23 مساءً   [7]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-04-2018
رقم العضوية : 5696
المشاركات : 48
الجنس :
تاريخ الميلاد : 22-1-1990
قوة السمعة : 46
الاعجاب : 0
السلام عليكم
واجهتني مشكلة اردت ادراج نوع الزائر لكي اعطي لمرافق الزائر رقم تسلسلي خاص به انطلاقا من رقم الزائر لكن عند ادخال الزائر التالي من نفس المصلحة يزيد الرقم ب 1
اسف على الازعاج
CODE
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
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  الرقم التسلسلي.xlsm   تحميل xlsm مرات التحميل :(2)
الحجم :(26.961) KB





look/images/icons/i1.gif ترقيم تلقائيا لكن بشرط
  28-05-2020 03:37 مساءً   [8]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10457
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36399
الاعجاب : 66
هل تقصد أن تقوم بوضع شرط آخر غير شرط اسم المصلحة ..؟
حاول توضيح المطلوب بأمثلة لكي نفهم ..
إذا كان الأمر في عدة شروط يمكنك استخدام CountIfs ووضع أكثر من شرط ..




look/images/icons/i1.gif ترقيم تلقائيا لكن بشرط
  28-05-2020 05:03 مساءً   [9]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-04-2018
رقم العضوية : 5696
المشاركات : 48
الجنس :
تاريخ الميلاد : 22-1-1990
قوة السمعة : 46
الاعجاب : 0
نعم استاذ ياسر اريد شرط اخر
في الشرط القديم نحصل على الرقم التساسلي للزائر انطلاقا من المصلحة A B
لكن في حالة ما كان للزائر مرافق نريد اعطائه رقم خاص به نضيف "ACC" لرقم الزائر مثلا رقم الزائر 1/A رقم المرافق سيكون ACC'1/A
q8wPm_11
 
 


أثارت هذه المشاركة إعجاب: YasserKhalil،



look/images/icons/i1.gif ترقيم تلقائيا لكن بشرط
  28-05-2020 08:05 مساءً   [10]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10457
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36399
الاعجاب : 66
غير متاح تقديم حلول في الوقت الحالي ولكن كما أخبرتك في مشاركتي السابقة استخدم الدالة CountIfs للعد بأكثر من شرط وأدرج الشرط الذي تريده ...

أثارت هذه المشاركة إعجاب: ANASS1،



اضافة رد جديد اضافة موضوع جديد



المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
استخراج اليوم من التاريخ المعطى تلقائيا بطريقه إحترافيه الساحر NeT
5 1311 محمود محمود احمد
طلب كود إنشاء نسخة من ملف إكسيل تلقائيا عند غلق الملف محمدعبدالسلام
7 1238 hassona229
حساب العهدة تلقائيا بواسطة الاكسل الساحر NeT
2 1160 محمد حما
ربط ملف اكسل بمستند وورد _ لصق خاص وتحديث البيانات تلقائياً Ambiguooous
3 972 hassona229
مساعدة في تعديل كود ادراج صف اجمالي تلقائيا بمجرد نقل البيانات من شيت لاخر المبتدأ
9 1086 YasserKhalil

الكلمات الدلالية
ترقيم ، تلقائيا ، بشرط ،









اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 09:16 AM