عبدالله المجرب

اليك المرفق تدقيق الاسماء.rar

اليك هذه الدالة المعرفة Function MyFunTest(MyVal1 As Range, MyVal2 As Range) As String For Each C In Split(MyVal2, " ") Y = Y + 1 For Each C1 In Split(MyVal1, " ") E = E + 1 If C = C1 Then R = R + 1: K = K & C & " و " Next Next E = E / Y Select Case E Case Is = R MyFunTest = "متطابق 100%" Case Else MyFunTest = "متطابق في " & Left(K, Len(K) - 2) End Select End Function

السلام عليكم في اكواد الفورم استبدل الكود السابق بهذا Private Sub TabStrip1_MouseMove(ByVal Index As Long, ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) On Error Resume Next Dim NN As Integer, S As Integer, R As Integer Dim MM As Integer, SS As Integer 'If TabStrip1.Value = 1 Then GoTo 1 NN = 0 TextBox43.Text = "" MM = 2 For SS = 1 To 20 If Me.Controls.Item(MM).Text <> "" Then Me.Controls.Item(MM + 2).Value = Val(Me.Controls.Item(MM).Text) * Val(Me.Controls.Item(MM + 1).Text) TextBox43 = Val(TextBox43) + Val(Me.Controls.Item(MM + 2)) End If MM = MM + 5 Next Label22.Caption = "" & NoToTxt2(Val(TextBox43), "دولار", "سنت") TextBox43 = Format(TextBox43, "#,##0.00") On Error GoTo 0 1 End Sub طبعاً هو حذف لعدد من الاسطر الخاصة بالسعر

السلام عليكم اليك هذا الرابط http://www.officena.net/ib/index.php?showtopic=40007&hl= فيه ما تطلب ان شاء الله

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

عمل موفق استاذ رجب اسلوب راقي في ايصال المعلومة والشرح للاستاذ عبدالله باقشير نور الموضوع اخونا احمد البحيري (غائب من زمان) == ملاحظة الاخوة الذين لديهم طلبات الافضل وضعها في مواضيع منفصلة كطلبات للفائدة وسهولة البحث

بارك الله فيك اخي ابو حنين

تم حذف المواضيع المكررة هل ممكن ترفق مثال

حياكم الله اخواني الكرام وان شاء الله ان يتيسر الامر واكمال السلسلة

السلام عليكم وماهو DTPicker1

بصراحة اذا اردت معرفة عمل frame تابع اعمال الاستاذ عبدالله باقشير (خبور خير)

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

احسنت استاذ هاني

نورت المنتدى استاذ هشام

اعتقد بطلبك لا يوجد

سلمت يمينك ابا علي

عمل مميز من محترف يتقن اعماله كل سنة وانت طيب

احسنت اخي توكل ويمكن استخدام هذه المعادلة ="00972"&B2 وسحبها الى الاسفل

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

جرب هذا التعديل Sub Protect() ActiveCell.Offset(-1, 0).Locked = True ActiveSheet.Protect Password:="123", UserInterfaceOnly:=True End Sub

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

جرب هذا التعديل Sub Protect() ActiveCell.Offset(-1, 0).Locked = True ActiveSheet.Protect Password:="123", UserInterfaceOnly:=True End Sub

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

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

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