عبدالله باقشير

جزاك الله خيرا تقبل تحياتي وشكري

جزاك الله خيرا وبارك فيك تقبل تحياتي وشكري

جزاك الله خيرا تقبل تحياتي وشكري

نورت المنتدى اخي قصي حفظك الله ورعاك تقبل تحياتي وشكري

السلام عليكم ضع هذه الاكواد في الفورم UserForm2 Dim sPath As String Private Sub CommandButton1_Click() On Error GoTo 1 If Val(Application.Version) > 11 Then Workbooks.Open Filename:=sPath & "1.xlsx" End If 1: End Sub Private Sub CommandButton2_Click() On Error GoTo 1 If Val(Application.Version) > 11 Then Workbooks.Open Filename:=sPath & "2.xlsx" End If 1: End Sub Private Sub CommandButton3_Click() On Error GoTo 1 If Val(Application.Version) > 11 Then Workbooks.Open Filename:=sPath & "3.xlsx" End If 1: End Sub Private Sub CommandButton4_Click() On Error GoTo 1 If Val(Application.Version) > 11 Then Workbooks.Open Filename:=sPath & "4.xlsx" End If 1: End Sub Private Sub UserForm_Activate() sPath = ThisWorkbook.Path If Right(sPath, 1) <> Application.PathSeparator Then sPath = sPath & Application.PathSeparator End If ''''''''''''''''''''''' End Sub

ضع هذا السطر بداية الكود If Target.Cells.Count <> 1 Then Exit Sub

السلام عليكم اخي ابو انصار حفظكم الله واكرمكم وبارك فيكم تقبلوا تحياتي وشكري

السلام عليكم اخي ابو لميس نجح كودكم في الحذف جزاكم الله خيرا CN.Execute "DELETE FROM kh" بدون dbFailonerror لانها اختيارية لكن اريد اعرف المقصود منها ؟ لاني لما استخدمتها ظهر خطا

جاري التجربة وسنوافيكم بالنتيجة تقبل تحياتي وشكري

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

السلام عليكم دالة الصفيف kh_MatchArray لارجاع ارقام صفوف سجلات حسب شروط الوسائط: عبارة عن صفيف يحقق (شرط / شروط) في عمود معين من قاعدة البيانات ادخل الشروط التي تريدها من 1 الى 30 الاستخدام : كشوفات الحساب التقارير بانواعها الميزة : لا ترهق الجهاز في المثال المرفق استخدمتها لقاعدة بيانات عدد سجلاتها اكثر من 15000 سجل والسبب انها معادلة وحدة نتائجها صفيف لهذا توضع على اكثر من خلية ولكن مكان تعديلها الخلية الاولى لوضعها مع تحديد باقي الصفوف الموضوعة فيها . اضغط F2 لتحرير الصيغة ثم اضغط CTRL+SHIFT+ENTER اذا حاولت تعدل اي خلية موضوعه فيها الدالة (جزء من صفيف الدالة) تظهر لك رسالة ( لا يمكنك تعديل جزء من صفيف) استخدم حينها ESC لانهاء تحرير الدالة . طبعا نتائجها ارقام الصفوف التي تحقق الشرط اعلى نطاق الدالة والاخرى رقم صفر بمعنى لا يحقق الشرط وهي اسفل النطاق تضعها في عمود يمين او يسار الكشف المتبقي علينا نستخدم دالة INDEX لاظهار الاعمدة الت نريدها من قاعدة البيانات كود الدالة: Option Explicit '============================================= '============================================= Function kh_MatchArray(ParamArray Array1() As Variant) Dim Ar() As Long Dim x As Integer, xx As Integer, xxx As Integer Dim iCont As Long, i As Long, ii As Long xx = UBound(Array1) If xx = -1 Then GoTo kh_Err iCont = UBound(Array1(0), 1) ReDim Ar(1 To iCont, 1 To 1) For i = 1 To iCont xxx = 1 For x = 0 To xx xxx = xxx * IIf(CBool(Array1(x)(i, 1)), 1, 0) Next If xxx Then ii = ii + 1: Ar(ii, 1) = i Next kh_MatchArray = Ar kh_Err: Erase Ar End Function المرفق 2003-2007 kh_MatchArray.rar

السلام عليكم اخي الفاضل ابو خليل -----------حفظه الله هذا نموذج من الملف الذي اعمل عليه بالنسبة لكود الحذف يمشي الحال بالموجود حاليا الى ان اجد كود اسرع بالنسبة للملف الذي ما زلت اعمل عليه بكود استيراد آخر استوردت فيه اكثر من 20000 سجل ولكن لازم يقابله كود للتصدير بنفس السرعه والمعضلة وجدتها في كود الحذف الحل الذي استنتجدته الى حد الان انه ممكن تحذف الجدول كامل من اساسه وتعيد اضافة جدول بنفس الاعمدة جاري التعلم والتواصل المرفق اكسس 2003 اكسل 2003 استيراد وتصدير.rar تقبلوا تحياتي وشكري

الاخ الفاضل بارك الله فيك الرجاء قراءه قواعد المشاركه في المنتدى و الالتزام بها http://www.officena....s/Questions.htm الموضوع مخالف بسبب العنوان وقد تم تعديل العنوان نظرا للردود الموجودة

اتعبتك معي اخي الفاضل ابو خليل DoCmd استعلام يعني ما فيش امر من خصائص الجدول للحذف جاري التجربة

للعلم اسم الجدول kh

السلام عليكم انا عندي تعريف الاكسس بداية الكود Private CN As New ADODB.Connection Private RS As New ADODB.Recordset لا اجد الغرض RunSQL من ضمن احدهم المعنى هذا ما هو DoCmd

الله يكرمك اخي ابوخليل ------------------- نعم في الاكسس حسب ما اوردت اناملك جزاك الله خيرا وبارك فيك ساجرب الكود وساوافيك بالرد تقبل تحياتي وشكري

السلام عليكم ورحمة الله وبركاته اريد ان احذف جميع سجلات (صفوف) جدول من خلال كود فرعي من ملف اكسل انا استخدم الكود التالي للحذف طبعا بعد فتح الاكسس والجدول Sub kh_AllDelete() ''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''' With RS If .RecordCount Then .MoveFirst While Not .EOF .Delete .MoveNext Wend End If End With ''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''' End Sub الا يوجد كود مختصر للحذف بدلا من استخدام الدواره بحثت في المنتدى ولم اجد طلبي بالكود فتهت وعفوا للازعاج عبدالله باقشير

يتم إدخال الصيغة كصيغة صفيف اضغط F2، لتحرير الصيغة ثم اضغط CTRL+SHIFT+ENTER

بارك الله فيكم الجمع المبارك تقبلوا تحياتي وشكري

السلام عليكم الشكر واصل لاخواني ابو حنين - ياسر خليل جرب هذا : Sub kh_Calculate() Dim cl As Range Dim d As Double, v As Double ''''''''''''''''''''''''' d = Val(Range("A1")) ''''''''''''''''''''''''' For Each cl In Range("C3:G3") v = Val(cl) If d <> 0 Then If d > v Then d = d - v: v = 0 Else v = v - d: d = 0 End If End If cl.Value = v Next End Sub في امان الله

السلام عليكم هذا الفورم ينفع معاك اما الذي ملفك اصدار قديم New i-Tech softwear.rar

السلام عليكم ضع كود اظهر الفورم في حدث تنشط الورقة بمعنى الدخول الى الورقة Worksheet_Activate كود: Private Sub Worksheet_Activate() UserForm1.Show End Sub في امان الله

السلام عليكم احسنت واحسن الله اليك وجزاك خيرا وبارك فيك تقبل تحياتي وشكري

السلام عليكم الاخ admbrk هو لا يشتغل اطلاقا عند تعطيل الماكرو وانما الاقفال هذا حدث عندما اغلقت الملف آخر مرة والماكرو ممكن هذه الخاصية للنافذه تبقى ملازمة لنفس الملف ولا تؤثر في الملفات الاخرى لهذ اذا اردت تامين الملف قدر المستطاع اعملها وانت خارج من الملف وفي الاشياء التي تتعلق بالملف مثلا اخفاء الاوراق , الذهاب الى ورقة فاضية واخفاء اعمدتها ....الخ ان شاء الله وصلت الفكرة ودمتم