أبو حنــــين

اخي عباس لقد وضعت دالة جيدية في موديل و هي كالتالي Function Nember(Ch) Select Case Ch Case Is = "0": Ch = "صفر" Case Is = 1: Ch = "واحد" Case Is = 2: Ch = "اثنان" Case Is = 3: Ch = "ثلاثة" Case Is = 4: Ch = "أربعة" Case Is = 5: Ch = "خمسة" Case Is = 6: Ch = "ستة" Case Is = 7: Ch = "سبعة" Case Is = 8: Ch = "ثمانية" Case Is = 9: Ch = "تسعة" Case Is = 10: Ch = "عشرة" Case Is = 11: Ch = "احدى عشر" Case Is = 12: Ch = "اثنى عشر" Case Is = 13: Ch = "ثلاثة عشر" Case Is = 14: Ch = "اربعة عشر" Case Is = 15: Ch = "خمسة عشر" Case Is = 16: Ch = "ستة عشر" Case Is = 17: Ch = "سبعة عشر" Case Is = 18: Ch = "ثمانية عشر" Case Is = 19: Ch = "تسعة عشر" Case Is = 20: Ch = "عشرةن" Case Else: Ch = "" End Select Nember = Ch End Function ثم تكتب في خلية ما مثلا =Nember(F1) حيث F1 تحتوي على عدد

بالنسبة اخي للبحث بالاسم إن لم تكتب الاسم كاملا كما هو موجود في البيانات فلا يمكنك الوصول اليه فهناك مثلا فرق بين الحرف ( أ ) و الحرف ( ا ) و فرق بين ( محمد ) و ( مــــــحمد ) و لذلك يجب ان يكون تطابق تام

بعد اذن اخي محمود هذه طريقة اخري مثال.rar

السلام عليكم يمكنك نقل الناجح او الراسب نقل بفورمات جديد.rar

هو عبارة عن فورم يحتوي على مجموعة مربعات نصوص مجموعة ازرار و في المحرر هناك الكود الذي يؤدي مهمة البحث او الحفظ هذه صورة تبين كيفية الدخول الى الفورم و الاكواد 1.rar

السلام عليكم هذا هو الملف بعد التعديل عليه يرجى قراءة صفحة : طريقة العمل دعم المشتقات جمعية التضامن 2222ياسين.rar

أنعمت مساءا أخي يوسف تمام أخي يوسف الكود الذي ذكرته في مشاركتك رقم 16 هو الذي يعمل مع كل اوراق العمل

شكرا للأخ الحبيب : الأستاذ محمود على هذا الشعور النبيل شكرا للأخ الحبيب : الأستاذ أبو ردينة على هذ الشعور الطيب أيضا و الله لقد اخجلتموني بهذا الثناء و لكن ليعلم كل منا أننا إخوة و هذا هو الأساس

جزاك الله خيرا اخي احمد

السلام عليكم المرفق يحتوي على ما طلبت دعم المشتقات جمعية التضامن ياسين.rar

هذا المثال لادخال المعلومات بدون فورم فهو من ورقة اسمها الواجهة Q1.rar

هل الفورم يقوم بادخال البيانات في الصفحة NT او الصفحة Info و لو ممكن ترسل ملف توضح فيك المطلوب و تبين فيه كيف تريد ان يكون شكل الفورم

اخي يوسف الكود يعمل عندي بشكل طبيعي و انا استعمل اوفيس 2003 اما النسخ التي بعد 2003 فلا ادي هل الكود يعمل عليها او لا

الحمد لله

فقط قم بتغيير C مكان B كما يلي =B3 & " " & C3

العفو اخي

تذهب الى اي خلية و لتكن مثلا الخلية H3 و تنسخ المعادلة التالية ثم تقوم بسحبها للاسفل =C3 & " " & B3

ـ 1 ) قم بتغيير الخاصية Visible للزر الى القيمة False ثم انسخ هذا الكود مكان الكود السابق Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("G13").Address Then If Target.Text = "01" Then Menu.Show CommandButton1.Visible = False End If '--------------------------------------------------------------------------------------------------------- If Target.Text = "02" Then CommandButton1.Visible = True End If '--------------------------------------------------------------------------------------------------------- If Target.Text = "03" Then ThisWorkbook.Application.DisplayAlerts = False RR = MsgBox("åá ÊÑíÏ ÍÝÙ ÇáÊÛííÑÇÊ ÇáÊí ÇÌÑíÊåÇ Úáì ÇáÈÑäÇãÌ ", vbInformation + vbYesNoCancel, "ÎÑæÌ") CommandButton1.Visible = False If RR = vbCancel Then Exit Sub Else If RR = vbNo Then Application.Quit Else If RR = vbYes Then ThisWorkbook.Save Application.Quit End If: End If: End If: End If End Sub

جرب اخي المرفق اعتقد انه يعمل اضافه تعديل.rar

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

هل تريده بهذه الطريقة prog.rar

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

استعمل هذا Sub Macro1() Dim dd As Range If Range("E1") = 1 Then Set dd = Range("A5:A10") Else Set dd = Range("B5:B10") End If dd.Copy Range("C5").PasteSpecial xlPasteValues Application.CutCopyMode = False End Sub

أو استخدم هذا لعدم التكرار Private Sub ComboBox1_Click() LastRow = Cells(Rows.Count, "c").End(xlUp).Row + 1: For s = 1 To LastRow If ComboBox1.Text = Cells(s + 1, 3).Value Then ComboBox1.ListIndex = -1 Else: Cells(LastRow, 3).Value = ComboBox1.Text End If: Next: ComboBox1.ListIndex = -1 End Sub

اخي الكود يعمل في اوفيس 2003 كما طلبت عند الضغط مرتين على اي اسم من الاسماء الموجودة في العمود K يقوم بتسجيله مرتين في العمود C 001.rar