• 0
semsem407

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

سؤال

اعزائى مشرفى المنتدى الكرام

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

والمس فيكم سعه صدركم فى ردودكم على اسئله الاعضاء

ومشكلتى الان - اذا سمحتم لى هى

انا مبرمج فيجوال بيزك 6  وقاعده سيكوال سيرفر 2008 ار تو

ومصمم برنامج حسابات فيه حساب اجور موظفين

وطريقتى فى نظام المرتب يعتمد على جمع ايام الحضور والاجازه والغياب باذن والغياب بدون اذن كل على حده وعملت مربعات نصوص بعدد ايام الشهر 31 كرقم اكبر شهر

وجعلت رموز لكل حاله الحضور اكتب حرف   ح  والغياب حرف غ وهكذا

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

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

اما فى فيجوال فيمكننى جمع قيم مربعات نصوص الرقميه

text3.text = val(text1.text)+val(text2.text)

لكن لم استطع جمع مربعات نصوص بها رموز او حروف

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

تم تعديل بواسطه semsem407
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

8 إجابة على هذا السؤال .

  • 0

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

test.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

 

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

 

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

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

 

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

 

أولاً: اضبط الخاصية 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

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

 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

 

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

 

أولاً: اضبط الخاصية 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

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

 

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

 

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

 

أولاً: اضبط الخاصية 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

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

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

 

   

 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

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

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

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

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

test 2.rar

تم تعديل بواسطه semsem407
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .