الرجاء المساعده فى جمع مربعات نصوص بها حروف

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

test.rar

هل تم حل المشكله ام لا ؟

wael abed كتب:

هل تم حل المشكله ام لا ؟

للاسف لم يجبنى احد وانا فى الانتظار

تفضل اخي  شوف برنامجك بعد  التعديل 

اتمنى انه  يكون  المطلوب 

AGASHE كتب:

تفضل اخي  شوف برنامجك بعد  التعديل 

 

اتمنى انه  يكون  المطلوب 

شكرا اخى على الاهتمام  لكن فين البرنامج

السلام عليكم...

هذه إحدى الطرق:

أولاً: اضبط الخاصية Tag لكل مربعات النص التي ستحسبها (التي تحتوي على رموز الحضور و الغياب) على نص مشترك. الكود التالي يفترض أن الخاصية Tag لتلك المربعات مضبوطة على كلمة STATUS .

الكود لا يعتمد على عدد و لا ترتيب مربعات النص، أي يمكنك وضع أي عدد منها و بأي ترتيب. المهم أن تضبط الخاصية Tag لها على نفس النص و تختبر وجود ذلك النص نفسه في الكود:

Private Sub Command1_Click()
    Dim Ctrl As Control
    Dim Presence As Long    ' الحضور - ح
    Dim Leaves As Long      ' الإجازة - ج
    Dim Absence As Long     ' الغياب - غ
    Dim Permission As Long  ' الغياب بإذن - ذ
    
    Presence = 0
    Leaves = 0
    Absence = 0
    Permission = 0
    
    For Each Ctrl In Me.Controls
        If TypeOf Ctrl Is TextBox Then
            If Ctrl.Tag = "STATUS" Then
                Select Case Ctrl.Text
                    Case "ح"
                        Presence = Presence + 1
                    Case "ج"
                        Leaves = Leaves + 1
                    Case "غ"
                        Absence = Absence + 1
                    Case "ذ"
                        Permission = Permission + 1
                End Select
            End If
        End If
    Next
    
    Text10.Text = CStr(Presence)
    Text11.Text = CStr(Leaves)
    Text12.Text = CStr(Absence)
    Text13.Text = CStr(Permission)
End Sub

نرجو الاستفادة و السلام.

najy_zl كتب:

السلام عليكم...

 

هذه إحدى الطرق:

 

أولاً: اضبط الخاصية Tag لكل مربعات النص التي ستحسبها (التي تحتوي على رموز الحضور و الغياب) على نص مشترك. الكود التالي يفترض أن الخاصية Tag لتلك المربعات مضبوطة على كلمة STATUS .

 

الكود لا يعتمد على عدد و لا ترتيب مربعات النص، أي يمكنك وضع أي عدد منها و بأي ترتيب. المهم أن تضبط الخاصية Tag لها على نفس النص و تختبر وجود ذلك النص نفسه في الكود:

Private Sub Command1_Click()
    Dim Ctrl As Control
    Dim Presence As Long    ' الحضور - ح
    Dim Leaves As Long      ' الإجازة - ج
    Dim Absence As Long     ' الغياب - غ
    Dim Permission As Long  ' الغياب بإذن - ذ
    
    Presence = 0
    Leaves = 0
    Absence = 0
    Permission = 0
    
    For Each Ctrl In Me.Controls
        If TypeOf Ctrl Is TextBox Then
            If Ctrl.Tag = "STATUS" Then
                Select Case Ctrl.Text
                    Case "ح"
                        Presence = Presence + 1
                    Case "ج"
                        Leaves = Leaves + 1
                    Case "غ"
                        Absence = Absence + 1
                    Case "ذ"
                        Permission = Permission + 1
                End Select
            End If
        End If
    Next
    
    Text10.Text = CStr(Presence)
    Text11.Text = CStr(Leaves)
    Text12.Text = CStr(Absence)
    Text13.Text = CStr(Permission)
End Sub

نرجو الاستفادة و السلام.

najy_zl كتب:

السلام عليكم...

 

هذه إحدى الطرق:

 

أولاً: اضبط الخاصية Tag لكل مربعات النص التي ستحسبها (التي تحتوي على رموز الحضور و الغياب) على نص مشترك. الكود التالي يفترض أن الخاصية Tag لتلك المربعات مضبوطة على كلمة STATUS .

 

الكود لا يعتمد على عدد و لا ترتيب مربعات النص، أي يمكنك وضع أي عدد منها و بأي ترتيب. المهم أن تضبط الخاصية Tag لها على نفس النص و تختبر وجود ذلك النص نفسه في الكود:

Private Sub Command1_Click()
    Dim Ctrl As Control
    Dim Presence As Long    ' الحضور - ح
    Dim Leaves As Long      ' الإجازة - ج
    Dim Absence As Long     ' الغياب - غ
    Dim Permission As Long  ' الغياب بإذن - ذ
    
    Presence = 0
    Leaves = 0
    Absence = 0
    Permission = 0
    
    For Each Ctrl In Me.Controls
        If TypeOf Ctrl Is TextBox Then
            If Ctrl.Tag = "STATUS" Then
                Select Case Ctrl.Text
                    Case "ح"
                        Presence = Presence + 1
                    Case "ج"
                        Leaves = Leaves + 1
                    Case "غ"
                        Absence = Absence + 1
                    Case "ذ"
                        Permission = Permission + 1
                End Select
            End If
        End If
    Next
    
    Text10.Text = CStr(Presence)
    Text11.Text = CStr(Leaves)
    Text12.Text = CStr(Absence)
    Text13.Text = CStr(Permission)
End Sub

نرجو الاستفادة و السلام.

مشكور مشكور مشكور اخى  ناجى  وده كان عشمى فى هذا المنتدى الرائع  الذى اجد فيه ضالتى دائما

 

   

 

مشكووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووور

مشكووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووور

مشكووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووووور

طول عمره منتدى رائع واكثر من رائع بالتوفيق والشكر للجميع

واليكم البرنامج بعد التعديل لتعم الفائده على الجميع

test 2.rar