elsedik قام بنشر فبراير 1, 2013 قام بنشر فبراير 1, 2013 كيف يتم تغيير اسم ورقة عمل بحيث يضم الاسم الجديد اكثر من خلية مرفق ملف تغيير .rar
دغيدى قام بنشر فبراير 1, 2013 قام بنشر فبراير 1, 2013 أخى الكريم تم تجميع ما بداخل الخلايا الثلاث فى الخلية F2 والتى على أساسها يتم تغيير اسم الصفحة تغيير .rar
طارق محمود قام بنشر فبراير 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
طارق محمود قام بنشر فبراير 1, 2013 قام بنشر فبراير 1, 2013 أخي الحبيب / دغيدي لم أر مشاركتك إلا بعدما أرسلت أخي / الصديق أنا فهمت أن المشكلة تتعلق بعدد من الشيتات لذلك ، فالكود الذي أرسلته لك سابقا يغير جميع ورقات الملف بالطريقة التي تريدها فإذا كنت مثلا لاتريد تغيير الشيت الأول فلتبدأ الحلقة من 2 أي For i = 2 To Sheets.Count مرفق الملف به الكود تغيير2.zip
أبو إيمان قام بنشر فبراير 1, 2013 قام بنشر فبراير 1, 2013 أخي الفاضل برجاء الإطلاع على الرابط http://www.officena.net/ib/index.php?showtopic=41520&hl=
دغيدى قام بنشر فبراير 1, 2013 قام بنشر فبراير 1, 2013 أخى الكريم الكود يوضع فى حدث الأوراق المطلوب اعادة تسميتها من خلال الخلايا التى حددتها لاحظ وجرب وقول رأيك تغيير 3.rar
حمادة عمر قام بنشر فبراير 1, 2013 قام بنشر فبراير 1, 2013 السلام عليكم الاستاذ / دغيدى الاستاذ / طارق محمود وفقكم الله لما يحبه ويرضاه وجعلكم الله عونا لتلاميذكم دائما جزاكم الله خيرا
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.