أبو حنــــين

الملف به مشكل لا يفتح

هذا مثال على كل ما طلبت في ملف واحد مثال.rar

لتنسيق مربع النص بنمط معين نكتب التالي : TextBox1 = Format(TextBox1, "......") ثم مكان النقاط ".........." نكتب التنسيق الذي نريده مثلا للتاريخ يصبح شكل الكود كالآتي : TextBox1 = Format(TextBox1, "dd-mm-yyyy") و هكذا مع بقية انواع التنسيقات

حسب فهمي انك تريد نقل الكود الموجود في sheet3 الى الفورم اذا كان كذلك فيكون بالطريقة التالية في الزر الموجود في الفورم تكتب الكود التالي Private Sub CommandButton1_Click() Dim MyName As String MyName = TextBox1 If kh_Test_MyChr(MyName) = True Then Exit Sub Sheets("sheet1").Copy After:=Sheets(Sheets.Count) Cells.Worksheet.Name = MyName End Sub

السلام عليكم جرب هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("C2").Address Then With Range("C2").Font Select Case Range("C2").Value Case Is = 1: .Size = 14: .Name = "times newroman": .Bold = True Case Is = 2: .Size = 14: .Name = "Candara": .Bold = False End Select: End With: End If End Sub

السلام عليكم كل هذا ممكن : للإنتقال الى أول سطر في الليست بوكس نكتب : ListBox1.ListIndex = 0 للإنتقال الى آخر سطر في الليست بوكس نكتب : ListBox1.ListIndex = ListBox1.ListCount - 1 لحساب عدد الأسطر نكتب : TextBox1 = ListBox1.ListCount لجمع عمود معين و ليكن العمود الرابع مثلا مع العلم ان بداية حساب الاعمدة تبدأ من الصفر و ليس الواحد نكتب ما يلي : Dim i As Long TextBox1 = "" For i = 0 To ListBox1.ListCount - 1 TextBox1.Value = Val(TextBox1) + Val(ListBox1.List(i, 4)) Next

العفو اخي ناصر سعيد

السلام عليكم جرب المرفق Book3.rar

تم التعديل على ملف أخي ياسر العربي Book1.rar

جرب المرفق مرتبات البنك.rar

السلام عليكم لم انتبه للموضوع إلا هذا المساء و لقد قمت بما طلب اخي مهند الزبيدي الصادر و الوار-3.rar

كما يمكن عمل ذلك بالضغط على الزر MinimizeUserform.rar

السلام عليكم اخي طاهر محمد تم تعديل الملف مشتريات - جديد2.rar

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

تم جلب البيانات لكن ان تظهر البيانات على شكل جدول هذا ليس لي به علم مشتريات - جديد.rar لكن يمكن التحايل بهذه الطريقة لرسم الحدود الرأسية للجدول مشتريات - جديد2.rar

و عليكم السلام و رحمة الله و بركاته

لا ادري ما المشكلة لان الخطأ لا يظهر عندي لكن جرب ان تستبدل هذا السطر iDate2 = CDate(Cells(e, 5) & "-" & Cells(e, 6) & "-" & Cells(e, 7)) بهذا السطر iDate2 = VBA.DateValue(CDate(Cells(e, 5) & "-" & Cells(e, 6) & "-" & Cells(e, 7)))

تم التعديل على الملف حسب ما طلبت في المرفق حساب السن لرياض الاطفال والصف الاول2.rar

مرحبا اخي الدهشوري الخطأ لا يحدث عندي قم بتصوير مكان وقوع الخط أي عند ظهور الرسالة اضعط على Debug و صور مكان الخطأ

السلام عليكم هذه محاولة تفي بالغرض حضانة.rar

السلام عليكم في الواقع السؤال غير واضح نوعا ما لكنها محاولة Book1.rar

مرحبا جرب اخي الملف تعديل كود ترحيل123456.rar

جرب اخي المرفق دوال.rar

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

مرحبا جرب اخي المرفق Book1.rar