elsedik قام بنشر فبراير 1, 2013 مشاركة قام بنشر فبراير 1, 2013 كيف يتم تغيير اسم ورقة عمل بحيث يضم الاسم الجديد اكثر من خلية مرفق ملف تغيير .rar رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر فبراير 1, 2013 مشاركة قام بنشر فبراير 1, 2013 أخى الكريم تم تجميع ما بداخل الخلايا الثلاث فى الخلية F2 والتى على أساسها يتم تغيير اسم الصفحة تغيير .rar رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر فبراير 1, 2013 مشاركة قام بنشر فبراير 1, 2013 السلام عليكم أخي العزيز جرب الكود التالي Sub SH_names() On Error Resume Next For i = 1 To Sheets.Count With Sheets(i) .Name = .[B2] & "-" & .[D2] & "-" & .[B3] End With Next End Sub رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر فبراير 1, 2013 مشاركة قام بنشر فبراير 1, 2013 أخي الحبيب / دغيدي لم أر مشاركتك إلا بعدما أرسلت أخي / الصديق أنا فهمت أن المشكلة تتعلق بعدد من الشيتات لذلك ، فالكود الذي أرسلته لك سابقا يغير جميع ورقات الملف بالطريقة التي تريدها فإذا كنت مثلا لاتريد تغيير الشيت الأول فلتبدأ الحلقة من 2 أي For i = 2 To Sheets.Count مرفق الملف به الكود تغيير2.zip رابط هذا التعليق شارك More sharing options...
أبو إيمان قام بنشر فبراير 1, 2013 مشاركة قام بنشر فبراير 1, 2013 أخي الفاضل برجاء الإطلاع على الرابط http://www.officena.net/ib/index.php?showtopic=41520&hl= رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر فبراير 1, 2013 مشاركة قام بنشر فبراير 1, 2013 أخى الكريم الكود يوضع فى حدث الأوراق المطلوب اعادة تسميتها من خلال الخلايا التى حددتها لاحظ وجرب وقول رأيك تغيير 3.rar رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر فبراير 1, 2013 مشاركة قام بنشر فبراير 1, 2013 السلام عليكم الاستاذ / دغيدى الاستاذ / طارق محمود وفقكم الله لما يحبه ويرضاه وجعلكم الله عونا لتلاميذكم دائما جزاكم الله خيرا رابط هذا التعليق شارك 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.