حراثي تواتي قام بنشر مايو 18, 2020 مشاركة قام بنشر مايو 18, 2020 السلام عليكم ورحمة الله وبركاته اعضاء منتدانا الغالي اريد مساعدة في التعديل على كود الطباعة كما هو موضح في الصورة بحيث تكون قيمة الخلية D12 عدد فردي من 1 ، 2 ، 3 ، وهكذا وشكرا لكم مسبقا Dim iStart As Integer, iEnd As Integer, I As Integer iStart = Sheet1.Range("B1").Value iEnd = Sheet1.Range("C1").Value For I = iStart To iEnd Sheet1.Range("D12").Value = I Sheet1.PrintPreview Next I تواتي8.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر مايو 18, 2020 أفضل إجابة مشاركة قام بنشر مايو 18, 2020 هذا الكود Dim iStart As Integer, iEnd As Integer, I As Integer iStart = Sheet1.Range("B1").Value iEnd = Sheet1.Range("C1").Value For I = iStart To iEnd step 2 Sheet1.Range("D12").Value = I Sheets(1).PrintPreview Next I 1 رابط هذا التعليق شارك More sharing options...
حراثي تواتي قام بنشر مايو 18, 2020 الكاتب مشاركة قام بنشر مايو 18, 2020 وفيت وكفيت اخي سليم حاصبيا بارك الله فيك وفي جميع الساهرين على شؤون هذا المنتدى الرائع 1 رابط هذا التعليق شارك More sharing options...
أحمد يوسف قام بنشر مايو 18, 2020 مشاركة قام بنشر مايو 18, 2020 حراثي تواتي تمام وبما ان الإجابة اعجبتك ..فأين الضغط على الإعجاب لهذه الإجابة وهذا هو أقل ما يقدم لصاحب الفضل بعد ربنا فى حل مشكلتك ؟!!💙 رابط هذا التعليق شارك 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.