m.o.a.a.z قام بنشر مايو 6, 2021 مشاركة قام بنشر مايو 6, 2021 السلام عليكم ورحمه الله وبركاته تقبل الله منا ومنكم صالح لا ارجو المساعده في عمل مايكرو لتسطير الشيك مربوط ب check box كما هو موضح في الملف المرفق تحياتي تسطير الشيك.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابراهيم الحداد قام بنشر مايو 7, 2021 أفضل إجابة مشاركة قام بنشر مايو 7, 2021 السلام عليكم ورحمة الله الكود الاول لاظهار واخفاء الخطين و يربط بالشيكبوكس الاول 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 2 رابط هذا التعليق شارك More sharing options...
m.o.a.a.z قام بنشر مايو 8, 2021 الكاتب مشاركة قام بنشر مايو 8, 2021 جميل جدا وهو المطلوب .. جزاك الله خيرا استفسار صغير ... لو كان الشيك بوكس في شيت والتسطير في شيت اخر كيف الطريقة هثلا كان هناك شيت لكتابة البيانات وشيت اخر للطباعة رابط هذا التعليق شارك More sharing options...
ابراهيم الحداد قام بنشر مايو 8, 2021 مشاركة قام بنشر مايو 8, 2021 السلام عليكم ورحمة الله اخى الكريم قم فقط بتغيير ارقام الشيتات فى الكود لتتناسب مع رقم الشيت الموجود بها الشيكبوكس مثلا Sheet1.Shapes("Check Box 1") تصبح Sheet2.Shapes("Check Box 1") وهكذا 1 رابط هذا التعليق شارك More sharing options...
m.o.a.a.z قام بنشر مايو 8, 2021 الكاتب مشاركة قام بنشر مايو 8, 2021 شكرا جزيلا لك رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.