نجوم المشاركات

استخدم هذا الفانك بدون الحاجة لتغيير اعدادات الويندوز ............. Public Function dyNm(txtDate As Date) Dim tx As String Select Case Weekday(txtDate) Case 1: tx = "الأحد" Case 2: tx = "الإثنين" Case 3: tx = "الثلاثاء" Case 4: tx = "الأربعاء" Case 5: tx = "الخميس" Case 6: tx = "الجمعة" Case 7: tx = "السبت" End Select dyNm = tx End Function استدعيه بهذه الطريقة .......... =dyNm([day_date])

وعليكم السلام ورحمة الله تعالى وبركاته Sub Merger() Dim srcWS As Variant, _ WS As Worksheet, _ I As Long, nCount As Integer Const rCrit As String = "دمج" Const P As String = "%" nCount = 4 Set WS = Sheets("dmg1"): srcWS = Array("1", "2", "3") Application.ScreenUpdating = False WS.Range("b4:f" & WS.Rows.Count).ClearContents For Each arr In Worksheets(srcWS) a = arr.Range("A2:G" & arr.Range("A" & arr.Rows.Count).End(xlUp).Row).Value tmp = arr.[C1] For I = 1 To UBound(a) If a(I, 2) > 0 And a(I, 5) = rCrit _ And a(I, 6) > 0 Then WS.Range("b" & nCount).Resize(1, 5).Value _ = Array((a(I, 1)), (a(I, 2)), (a(I, 6)), _ (a(I, 7) & P), tmp) nCount = nCount + 1 With WS.Range("B4:B" & WS.Cells(Rows.Count, "C").End(xlUp).Row) .Value = Evaluate("ROW(" & .Address & ")-3") End With End If Next Next arr Application.ScreenUpdating = True End Sub وفي حدث ورقة (dmg1) Private Sub Worksheet_Activate() Merger End Sub ahmed v2.xlsb

هل استبدلت هذا day_date باسم مربع النص الذي به التاريخ ؟؟؟؟؟؟؟؟؟؟؟؟؟

السلام عليكم ورحمة الله تعالى وبركاته اخوانى الكرام اساتذتى الاعزاء الموضوع ده بصراحة كان تحدى بينى وبين نفسي تعبت جدا فكرة الموضوع التقليدية هى التعامل بالارقام واسماء العناصر وكتابة الكثير والكثير من الاكواد والزحمة والحسابات و و وبلا بلا بلا بلا... وفى النهاية يبقى التعديل على العمل بالاضافة او التعديل شئ صعب جدا جدا جدا الا انه بفضل الله اقدم اليكم الفكرة الاتية للتجربة اعتمدت فى المقام الاول على ان تكون الاكواد ثابته بحيث يسهل استخدام الفكرة والطريقة ونقلها لاى قاعدة ولكن عجزت عن تحقيق كل شئ برمجيا وتوقفت وعجزت امام نقطة واحدة ووحيدة ولكن تم التغلب بالفهلوة على المشكلة اترك لكم التجربة وباب النقاش مفتوح بعد ذلك ومن يدرى فد اجد حل للمشكلة التى عجزت امامها معكم وعندكم expand and collapse button .accdb

اضبط تنسيق الوقت من إعدادات اللغة والوقت في الويندوز من الكنترول بانل

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

استاذ @الطيب عباس هل قرأت قواعد المشاركة بالمنتدى اليك المحظورلات . المحظورات 21. يُمنع منعا باتا الإجابة على سؤالك أو أي حوار فني على الخاص أو إلى بريدك الخاص، الفائدة يجب أن تعم. يجب عدم الاستجابة لأي طلب على الخاص. كما يمنع ذكر وسائل التواصل الخاص أو البريد الإليكتروني في المشاركات لتعم الفائدة. وسيتم حذف وسائل التواصل أو البريد حال إضافتها.

If IsNumeric(Me.Text6.Value) Then If Me.Text6.Value >= 2 And Me.Text6.Value <= 5 Then Me.Label9.BackColor = RGB(255, 255, 0) Else Me.Label9.BackColor = RGB(255, 255, 255) End If End If نعم هذا ماريد الف شكر استاذى

تفضل جرب .... New Microsoft Access Database (10).accdb

هل هذا طلبك ؟؟ New Microsoft Access Database.accdb يبدو أنني قد فهمت الموضوع بشكل خاطئ ، تفضل أخي الكريم New Microsoft Access Database.accdb

وعليكم السلام ورحمة الله هل الالوان كثيرة في التنسيق الشرطي .... لماذا لا تعملها بالاكواد ؟؟؟؟

مرفق طريقة اخرى Date.rar

معلمى الخبير الفاضل المبدع احسنت لك خالص الشكر

تفضل استاذ @زيد يحي تم التعديل استبدال التكستبوكس بكمبوبكس به كل الأرقام كل ماعليك اختيار الرقم . وأي استفسار أنا حاضر . اليك المرفق والشرح . Staff custody -1.rar

جرب هل هدا ما تقصده smr (1)v2.xlsm

أستاذ @jo_2010 Public Function Jo_2010 () Forms("YourFormName").Controls("P_Day").SourceObject = "NewPU" Forms("YourFormName").Controls("P_Day").Form.Controls("TN").Caption = "Urine" Dim myfilter As String myfilter = "[TName]='" & "Urine" & "'" Forms("YourFormName").Controls("P_Day").Form.Filter = myfilter Forms("YourFormName").Controls("P_Day").Form.FilterOn = True Forms("YourFormName").Controls("JO") = 3 Forms("YourFormName").Controls("U_OK").Requery End Function قم بتغيير YourFormName باسم النموذج المراد العمل عليه أو Public Function Jo_2010 () Dim frm As Form Set frm = Screen.ActiveForm ' النموذج الحالي If Not frm Is Nothing Then frm.Controls("P_Day").SourceObject = "NewPU" frm.Controls("P_Day").Form.Controls("TN").Caption = "Urine" Dim myfilter As String myfilter = "[TName]='" & "Urine" & "'" frm.Controls("P_Day").Form.Filter = myfilter frm.Controls("P_Day").Form.FilterOn = True frm.Controls("JO") = 3 frm.Controls("U_OK").Requery Else MsgBox "No active form found.", vbExclamation End If End Function مفترض أن يعلم النموذج الذى سيتم العمل علية لم أقوم بالتجريب لانه لا يوجد مرفق

test.xlsx السلام عليكم جرب الملف ده وخلي خصائص الخلية زي الصورة المرفقة واتمني ان يكون هذا هو المطلوب

اهاااااا والان حضر الوحش صاحب المكتبة العامرة الاستاذ @Moosak اراه الان بعد ان اضاف المرفق الى مكتبته العامرة يتفحص ويمحص ترى هل يجد الثغرة ويتغلب عليها ؟!

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاتة اهلا بكم اعضاء المنتدى الكرام اعتذر جدا للغياب الطويل عن المنتدى ولكن اشتقت اليكم فقولت ارجع بكود ممكن يفيد البعض فى عملة يعتبر البحث عن البيانات من الامور التى يبحث عنها كل مستخدمى الاكسل حيث انها تسهل عليهم اعمالهم وتحليل البيانات لديهم ولكن اذا كان لديك بيانات كثيرة جدا فى شيت الاكسل فالامر هنا يكون شاق ومرهق ومن هنا قررنا انشاء كود بحث من خلال اليوزرفورم يقوم بالبحث عن البيانات وتلوين واظهار نتائج البحث يتم وضع الكود فى حدث التكست بوكس Dim Itemsaerch As String Dim rng As Range Dim cell As Range Dim lr As Long Sheet1.Cells.Interior.Pattern = xlNone Itemsaerch = Me.TextBox1.Value lr = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row Set rng = Sheet1.Range("a2:a" & lr) For Each cell In rng If InStr(1, cell.Value, Itemsaerch) > 0 Then cell.Interior.Color = vbGreen End If Next cell If Me.TextBox1.Value = "" Then Sheet1.Cells.Interior.Pattern = xlNone ملف العمل فورم بحث جديد وتلوين نتائج البحث.xlsm

السلام عليكم كنت ابحث عن برنامج على جهازي الكمبيوتر بالصدفة وجدت هذا الملف الرائع احببت المشاركة معكم للفائدة اكواد كسس مهمة.rar

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