أناناس قام بنشر فبراير 11, 2016 مشاركة قام بنشر فبراير 11, 2016 Sub MAN()} Dim I As Integer For I = Range("V9") To Range("V10") Range("T9") = I If I <= Range("V10") Then ActiveWorkbook.calculate ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End If Next I End Sub { السلام عليكم ورحمة الله الكود أعلاه يقوم بكتابة الأرقام ما بين الخليتين"V9" V10" فى الخلية t9 فهل بالإمكان جعله ينط كل مرة رقمين 2 4 6 8 وهكذا رابط هذا التعليق شارك More sharing options...
رجب جاويش قام بنشر فبراير 11, 2016 مشاركة قام بنشر فبراير 11, 2016 أخى الفاضل استبدل هذا السطر For I = Range("V9") To Range("V10") بهذا For I = Range("V9") To Range("V10") Step 2 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر فبراير 11, 2016 مشاركة قام بنشر فبراير 11, 2016 بارك الله فيك أخي الحبيب رجب جاويش وجزيت خير الجزاء على مساهماتك القيمة جداً أخي الكريم أناناس يرجى وضع الأكواد بين أقواس أكواد ..كما يرجى إرفاق الملف لتسهيل العمل على إخوانك فالكود بدون ملف مرفق يجعل من يريد تقديم المساعدة ينشيء ملف ويضع بيانات تتناسب مع النطاقات الموجودة في الكود ليستطيع حل المسألة ، فلما لا تقوم بإرفاق الملف بحيث يكون العمل أسرع وتقديم المساعدة يكون بشكل أدق .. بالنسبة لسؤالك ذكرت أنك تريد القفز 2 4 6 8 ... فيمكن أن يفهم الكلام على منطقين الأول كما قدمه أستاذنا الكبير رجب وهو أن يتم القفز بخطوات ثابتة أي 2 في كل مرة (وأرجو أن يكون المطلوب) والمنطق الثاني هو أنه في كل مرة يتزايد أي يتضاعف مرات القفز ( ورغم أنه احتمال بعيد ولكنه يظل احتمال قائم والملف المرفق يوضخ المطلوب أكثر) تقبلوا تحياتي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان