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

In worksheet module put the following code (but it is better to depend on another cell in the first two columns a way from S2) Private Sub Worksheet_Change(ByVal Target As Range) Dim myMonth, c As Long If Target.Address = "$S$2" Then Application.ScreenUpdating = False myMonth = Target.Value Columns("C:KX").Hidden = True For c = 3 To 310 With Cells(5, c) If .Value2 <> "" And Month(.Value2) = myMonth Then .EntireColumn.Hidden = False End If End With Next c Application.ScreenUpdating = True End If End Sub

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

مرحبا بالأخوة هل يمكن إيجاد حل مع معادلة sumifs بحيث يتم الجمع عند ادخال أكثر من رقم ليظهر إجمالي تكلفتهما. للتوضيح أكثر في الملف المرفق. التكلفة.xlsx

جزاك الله خيرا وجعله في ميزان حسناتك. استاذ ( ازهر عبدالعزيز )

ربط 2 مربح و تحرير وسرد.accdb

ربط 2 مربح و تحرير وسرد.accdb

@مجاهد2013 افضل اجابة يتم اختيارها ل lionheart وليس ردك الاخير

Right-click worksheet name and select View Code and paste the code I posted Back to the worksheet, type any month number (say 10) in cell S2 and press Enter key

You are allowed to type yes or no only

الآن أعيد تثبيت الوندوز ثم بعدها الأوفيس، لعل المشكل يحل بإذن الله

هذا كأنه خط يدي 🙂 اللي اعتقده مفروض يصير: Option Compare Database Option Explicit Dim rst_fy As DAO.Recordset Dim rst_n As Integer ' Private Sub namebook_Click() 'take the Recordset one time, use it many times If rst_n = 0 Then Set rst_fy = Forms!freadermain!finfo.Form.RecordsetClone rst_n = 1 End If 'j rst_fy.OpenRecordset rst_fy.FindFirst "namebook='" & Me.namebook & "'" If rst_fy.NoMatch Then rst_fy.AddNew rst_fy!namebook = Me.namebook rst_fy!Serialnamebook = Me.Serialnamebook 'j Me.Parent!finfo.SetFocus 'j DoCmd.GoToRecord , , acNewRec '''''!!!!!! ??? 'j Me.Parent!finfo!namebook = Me.namebook ''''''!!!!!! ??? 'j Me.Parent!finfo!Serialnamebook = Me.Serialnamebook ''''''!!!!!! ??? 'j DoCmd.GoToRecord , , acNewRec ''''''!!!!!! ??? rst_fy.Update Else 'j Me.Parent!finfo.Form.Bookmark = rst_fy.Bookmark Me.Parent!finfo.SetFocus Me.Parent!finfo.Form.Bookmark = rst_fy.Bookmark + 1 'j Me.Parent!finfo!numberreadbook = Me.Parent!finfo!numberreadbook + 1 ''''''!!!!!! ??? End If rst_fy.Close End Sub جعفر

ماكرو لتسمية الاوراق Option Explicit Sub renamesheets() Dim sheetsold() Dim sheetsnew() Dim lngSht As Long Dim ws As Worksheet 'الاسماء الجديدة sheetsnew = Array("selling1", "selling2") 'الاسماء القديمة sheetsold = Array("SH1", "SH3") On Error Resume Next For lngSht = LBound(sheetsold) To UBound(sheetsold) Set ws = Nothing Set ws = Sheets(sheetsold(lngSht)) If Not ws Is Nothing Then ws.Name = sheetsnew(lngSht) Next lngSht End sub

اخي الصادق ـ ح السلام عليكم يجب عليك اتباع الاتي خلي الذكر علي حد واحد وخلي الانثى علي حد واحد وعلي العموم جرب اكتب كلمة (طباعة) امام الشيت المراد طباعته وضفط الزر طباعة بشرط الملفالبطاقة المدرسية officena.xlsm

أنا عندي ويندوز 11، وتعمل دون مشكلة وقام أكثر من شخص بتثبيتها على ويندوز 11 ولم يخبرني أحد بمثل هذه المشكلة

جرب التثبيت من خلال ملف Albayan.vsto أو جرب تشغيل ملف التنصيب كمسؤول

تم بالفعل جزاكم الله كل خير

اخي زياد 🙂 هذا البرنامج مقفل ، وكذلك الكود مقفل ، مما يعني ان صاحبه اقفله لأسباب معينة ، وقوانين المنتدى : 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية جعفر

ما المشكلة التي واجهتك أثناء التنصيب؟

وعليكم السلام 🙂 اذا عندكم كم كبير من البيانات اللي تريد تستعملها في معيار ، فالافضل ان تعمل لهم جدول خاص ، مثل : . ثم في الاستعلام ، في المعيار ، نقول له اننا ما نريد اي من البيانات اعلاه تظهر في المعيار (Not In) : . وبعدين نقول له ، كذلك في الحقل Grde ، اذا من اليسار (اول الكلمة) ، اول 17 حرف = "ممارس متخصص مساعد" ، اذن هاي كذلك لا تظهرهم 🙂 جعفر 1476.Database28.accdb.zip

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

عمل استعلام يضم الجدولين وبعد ذلك عمل نموذج رئسي مصدره هذا الاستعلام وتضيف فيه جميع الحقول المجوده في جدول Item last وبعد ذلك عمل نموذج فرعي داخل النموذج الرئسي ومصدره الاستعلام وتضيف فيه جميع الحقول الي في جدول Item Barcodوبكده يبقي انت باقي معاك البتون زر للحفظ وزر للحذف وزر للتحديث وهكذا والي تعجز عن عمله اطرحه في الموضوع وسوف نساعدك انشاء الله في عمله

شكرا وبارك الله فيك وزادك الله علما

في هذا الفيديو ستجد كل التفاصيل: يمكنك التواصل معي عبر موقع خمسات قبل الشراء

The request is weird a little and using data validation list is better than using the code in worksheet module Generally here's the code (In Worksheet Module) Private Sub Worksheet_Change(ByVal Target As Range) Call Worksheet_SelectionChange(Target) End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) With Target If .Cells.CountLarge > 1 Then Exit Sub If .Row > 1 And .Column = 2 Then If LCase(.Value) = "yes" Or LCase(.Value) = "no" Then Application.EnableEvents = False .Value = StrConv(.Value, vbProperCase) .Font.ColorIndex = xlAutomatic Application.EnableEvents = True Exit Sub Else Application.EnableEvents = False .Value = Empty Application.EnableEvents = True End If If .Value = "" And .Offset(, -1).Value <> "" Then Application.EnableEvents = False .Value = "Type 'Yes' to accept - Type 'No' to reject" With .Font .Name = "Calibri" .FontStyle = "Regular" .Size = 9 .Color = RGB(217, 217, 217) End With Application.EnableEvents = True End If End If End With End Sub

تفضل جرب الملف المرفق OK غياب.zip

أهلا بك @أبو عبدالله الحلوانى هذا شيء جيد ومبهج صراحة أن تقوم بمعالجة الأخطاء بنفسك! قم فقط باستبدال childNodes بــ children أجريت بعض التعديل على الشفرة وجعلتها تقوم بتحديث جدول البيانات TestCheckBoxOnHtml.accdb

يمكن وضع الرقم الثاني في h4 واستعمال هذه المعادلة =SUMIF($C:$C,G4,$D:$D)+SUMIF($C:$C,H4,$D:$D) أو هذه =SUMPRODUCT(SUMIF(C:C, G4:H4, D:D)) بالتوفيق

السلام عليكم 🙂 عندي مداخلة في التنسيق فقط 🙂 بما ان شجرة حساباتك بالعربي ، ايش رايك نخليها من اليمين الى اليسار ، هكذا : . وهذه هي الطريقة : . جعفر Database3 (1).zip