MsTaNs قام بنشر يوليو 22, 2013 قام بنشر يوليو 22, 2013 السلام عليك ورحمة الله وبركانة مسائكم مبارك اريد طريق يتم من خلالها ترتيب الصفحات بحيث لو كان لدي ملف فيه الصفحة رقم A1 ثم C1 ثم B1 ثم A2 اريد الترتيب يصبح كالاتي A1 ثم A2 ثم B1 ثم C1 وجزاكم الله خيرا يوجد ملف في المرفقات A1.rar 1
بن علية حاجي قام بنشر يوليو 22, 2013 قام بنشر يوليو 22, 2013 السلام عليكم ورحمة الله أخي الكريم، تم المطلوب باستعمال كود لفرز الشيتات أبجديا... أخوك بن علية الملف المرفق (من نسختين) : A1.rar 1
MsTaNs قام بنشر يوليو 23, 2013 الكاتب قام بنشر يوليو 23, 2013 رائع ومبدع الله يرزقك من حيث لا تحتسب اريد عمل ما كروا يقوم بإضافة صفحة ويسميها (LIST) ويضع فيها اسماء الصفحات في العامود A هل يمكن ذلك
بن علية حاجي قام بنشر يوليو 23, 2013 قام بنشر يوليو 23, 2013 السلام عليكم ورحمة الله أخي الكريم، طلبك ممكن وعلى عيني وراسي، تم التعديل على الكود (نفس كود الفرز) ليقوم أولا بحذف الشيت LIST إن كان موجودا ثم يقوم بفرز الشيتات أبجديا ثم يقوم بإنشاء الشيت LIST في نهاية الترتيب ويكتب فيه قائمة الشيتات في العمود A بداية من السطر الثاني دون الشيت LIST (هذا الشيت غير موجود في القائمة) وإذا أردت أن يُدرج هذا الاسم في القائمة عليك حذف - 1 من السطر For K = 1 To Sheets.Count - 1 ليصيح من الشكل For K = 1 To Sheets.Count ... أرجو أن يفي هذا بالمطلوب... أخوك بن علية الملف المرفق (من نسختين دائما) : A1.rar
حمادة عمر قام بنشر يوليو 23, 2013 قام بنشر يوليو 23, 2013 رائع ومبدع الله يرزقك من حيث لا تحتسب اريد عمل ما كروا يقوم بإضافة صفحة ويسميها (LIST) ويضع فيها اسماء الصفحات في العامود A هل يمكن ذلك السلام عليكم وبعد اذن استاذي الكريم / بن عليه .. جزاه الله خيرا ولاثراء الموضوع ... وعلي حسب فهمي للطلب اقدم هذا الحل ايضا يقوم بعمل قائمة باسماء الشيتات ... ويتم ربطهم بارتباط تشعبي لسهوله الوصول اليهم مع اضافة زر رجوع للرئيسية في كل الصفحات ... ويتم تسمية الصفحة التي قمت بوضع الكود فيها باسم (LIST) كل ما عليك فقط اختيار الصفحة التي تريد ان تكون بها القائمة وتضع الكود في حدث هذه الصفحة Worksheet_Activate واليكم الكود مع ملف مرفق Private Sub Worksheet_Activate() Dim wSheet As Worksheet Dim l As Long l = 1 With Range("A:A") .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter End With With Me .Name = "LIST" .Columns(1).ClearContents .Cells(1, 1) = "قائمة الشيتات" .Cells(1, 1).Name = "Index" End With For Each wSheet In Worksheets If wSheet.Name <> Me.Name Then l = l + 1 With wSheet .Range("A1").Name = "Start" & wSheet.Index .Hyperlinks.Add Anchor:=.Range("A1"), Address:="", SubAddress:= _ "Index", TextToDisplay:=" الرئيسية" End With Me.Hyperlinks.Add Anchor:=Me.Cells(l, 1), Address:="", _ SubAddress:="Start" & wSheet.Index, TextToDisplay:=wSheet.Name End If Next wSheet End Sub جزاكم الله خيرا عمل قائمة باسماء الشيتات وربطها كازرار.rar
MsTaNs قام بنشر يوليو 23, 2013 الكاتب قام بنشر يوليو 23, 2013 جميل جدا ولكن هذا ليس ماكرو لاني فتحت الملف ولم اجد اي ماكرو
محمد ابو البـراء قام بنشر يوليو 23, 2013 قام بنشر يوليو 23, 2013 مبدع جزاكم الله خيرا وفيت أخي / بن علية حاجي ولي طلب لزيادة الابداع وهو عمل ارتباط تشعبي للصفحات الموجودة في قائمة (LIST)
حمادة عمر قام بنشر يوليو 23, 2013 قام بنشر يوليو 23, 2013 الأخوة الكرام الكود الموجود في المشاركة رقم 7 يقوم بعمل قائمة بالشيتات ويقوم بعمل ارتباط تشعبي للشيتات في شيت LIST فقط قم بوضع الكود في حدث الشيت المطلوب عمل القائمة به ارجو ان يفي بالغرض المطلوب جزاكم الله خيرا
محمد ابو البـراء قام بنشر يوليو 24, 2013 قام بنشر يوليو 24, 2013 (معدل) استاذي الحبيب / حمادة عمر معذرةً لم انتبه في البداية لمشاركتك رقم 7 وجــــــزاكــــــم الله خيرا تم تعديل يوليو 24, 2013 بواسطه محمد ابو البـراء
MsTaNs قام بنشر يوليو 25, 2013 الكاتب قام بنشر يوليو 25, 2013 الله يسعدك ما قصرت يا عزيزي انا جربت المثال وكان كل شي على ما يرام ولكن انا حاجتي في في الداله اني اضع الداله الى اعطيتني هي فوق في ملف وبعد ذلك اقوم باعطائة امر لفتح مجموعة ملفات كلها تحتوي على عدة صفحات بحيث يذهب للصفحة رقم 1 ويحدد فيها منطقة الطباعة ثم يذهب للصفحة رقم 2 ويحدد فيها منطقة الطباعة طبعا هذه الملفات تحتوي على اكثر من 3000 صفحة ويصعب علي عملها يدوياً يوجد مثال ثلاث ملفات من الملفات المراد تعديل منطقة العمل بها طبعا انا عملت مايكرو يفتح الملف الاول وينفذ به ما اريد ثم يفتح الملف الثاني والثالث وهكذا لكن يجب على قبل كل هذا اعطائ البرنامج الصفحات الموجوده في كل ملف لك BH.rar
زاكي بوشلاغم قام بنشر أغسطس 28, 2013 قام بنشر أغسطس 28, 2013 ممكن كود يرتب الألقاب والأسماء حسب ترتيب الحروف العربية لدي لقب وإسم 300 تلميذ اريد ترتيبهم حسب ابجد هوز اي حسب ترتيب الحروف العربية مرفق معا الملف يتم ترتب لقب واسم معا اي لقب و اسم تلميذ :بوشلاغم زاكي لقب واسم تلميذ اخر بوشلاغم احمد يأتي لقب واسم الأول: بوشلاغم احمد ثم التاني :بوشلاغم زاكي هكذا بوشلاغم أحمد بوشلاغم زاكي وهكذا ملفات مرفقة
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.