check box المساعده في عمل مايكرو لتسطير الشيك مربوط ب

[m.o.a.a.z]

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

تقبل الله منا ومنكم صالح لا

ارجو   المساعده في عمل مايكرو لتسطير الشيك مربوط ب 

check box

كما هو موضح في الملف المرفق

تحياتي

تسطير الشيك.xlsm

[ابراهيم الحداد]

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

الكود الاول لاظهار واخفاء الخطين و يربط بالشيكبوكس الاول

Sub AddStright()
If Sheet1.Shapes("Check Box 3").OLEFormat.Object.Value = 1 Then
Sheet1.Shapes("Straight Connector 3").Visible = msoTrue
Sheet1.Shapes("Straight Connector 2").Visible = msoTrue
Else
Sheet1.Shapes("Straight Connector 3").Visible = msoFalse
Sheet1.Shapes("Straight Connector 2").Visible = msoFalse
End If
End Sub

الكود الثانى للاثنين الباقيين و يربط بهما الواحد تلو الاخر

Sub AddWords()
Dim Frst As String, ForB As String
Frst = " للمستفيد الأول"
ForB = "يصرف لحامله"
If Sheet1.Shapes("Check Box 1").OLEFormat.Object.Value = 1 Then
Sheet1.Shapes("TextBox 7").TextEffect.Text = Frst
ElseIf Sheet1.Shapes("Check Box 2").OLEFormat.Object.Value = 1 Then
Sheet1.Shapes("TextBox 7").TextEffect.Text = ForB
Else
Sheet1.Shapes("TextBox 7").TextEffect.Text = ""
End If
End Sub

 

[m.o.a.a.z]

جميل جدا وهو المطلوب .. جزاك الله خيرا

استفسار صغير ... لو كان الشيك بوكس في شيت والتسطير في شيت اخر كيف الطريقة

هثلا كان هناك شيت لكتابة البيانات وشيت اخر للطباعة

[ابراهيم الحداد]

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

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

مثلا Sheet1.Shapes("Check Box 1")  تصبح  Sheet2.Shapes("Check Box 1")  وهكذا

[m.o.a.a.z]

شكرا جزيلا لك