صباح حسين قام بنشر فبراير 18, 2011 مشاركة قام بنشر فبراير 18, 2011 السلام عليكم . اود ان اعرف الكود الذي يجد الخلايا المدمجة في الشيت ضمن مدى معين . ومن ثم الكود الذي يقوم بالغاء دمج الخلايا . علما بانه كان هنالك مشاركة لاحد الاخوان بهذا الخصوص مطروحة منذ فترة بعيدة وقد حاوت اجادها ولكن خاصية البحث بالمنتدى لاتظهر لي ولا اعرف السبب . وعلى ماذكر كان يتعلق بجدول الحصص للمدرسين . ولكم كل الشكر وقد استعملت الكود الاتي ولم افلح For j = 1 To 30 If Cells(i, j).Merge Then Cells(i, j).UnMerge End If Next Next رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر فبراير 18, 2011 مشاركة قام بنشر فبراير 18, 2011 (معدل) السلام عليكم ورحمة الله أخي الكريم جرب الكود التالي (الذي يقوم بإلغاء دمج الخلايا الموجودة في النطاق A1:M30 في ورقة Sheet1) : Sub Unmerge() Dim myRange As Range Set myRange = Worksheets("Sheet1").Range("A1:M30") For Each cel In myRange cel.Unmerge Next Range("A1").Select End Sub أخوك بن علية تم تعديل فبراير 18, 2011 بواسطه hben رابط هذا التعليق شارك More sharing options...
صباح حسين قام بنشر فبراير 18, 2011 الكاتب مشاركة قام بنشر فبراير 18, 2011 شكرا اخي سوف اجرب الكود . وفقكم الله وادامك عونا للجميع رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر فبراير 18, 2011 مشاركة قام بنشر فبراير 18, 2011 الأخ الفاضل / بن علية أفاض الله عليكم من العلم ما ينفع البشرية تحياتى من مصر الحرية ** جمال دغيدى ** رابط هذا التعليق شارك More sharing options...
صباح حسين قام بنشر فبراير 18, 2011 الكاتب مشاركة قام بنشر فبراير 18, 2011 السلام عليكم . اخي العزيز هل من الممكن نسخ القيمة الموجودة في الخلية المدمجة الى متغير معين فبل الغاء الدمج لاني سوف احتاجه لاحقا وبخصوص خاصية البحث في المنتدى لماذا لاتظهر عندي لكي استفاد منه . واكرر شكري للجميع رابط هذا التعليق شارك More sharing options...
معتصم محمد قام بنشر فبراير 18, 2011 مشاركة قام بنشر فبراير 18, 2011 استاذ / بن عليه شكراً على هذا الكود ممكن اسال سؤال على هذا الكود بعد إذنك كيف يفهم الإكسل ان cel هي خلية في حين اننا لم نقم بتعريفها بذلك رابط هذا التعليق شارك More sharing options...
صباح حسين قام بنشر فبراير 19, 2011 الكاتب مشاركة قام بنشر فبراير 19, 2011 للرفع رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر فبراير 22, 2011 مشاركة قام بنشر فبراير 22, 2011 استاذ / بن عليه شكراً على هذا الكود ممكن اسال سؤال على هذا الكود بعد إذنك كيف يفهم الإكسل ان cel هي خلية في حين اننا لم نقم بتعريفها بذلك السلام عليكم أخي المعتصم بعد إذن أخي العزيز وأستاذنا : بن علية cel حسب السطر For Each cel In myRange هي جزء من myRange والذي تم تعريفه في أول الكود علي أنه مدي Range وعناصر المدي Range لابد ان تكون خلايا رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر فبراير 22, 2011 مشاركة قام بنشر فبراير 22, 2011 (معدل) السلام عليكم . اخي العزيز هل من الممكن نسخ القيمة الموجودة في الخلية المدمجة الى متغير معين فبل الغاء الدمج لاني سوف احتاجه لاحقا وبخصوص خاصية البحث في المنتدى لماذا لاتظهر عندي لكي استفاد منه . واكرر شكري للجميع السلام عليكم أخي العزيز صباح بعد إذن أخي العزيز وأستاذنا : بن علية خاصية البحث في المنتدى لاتظهر ؟؟ سوف أراسل المهندس محمد طاهر مدير الموقع في هذا وطبعا يمكن نسخ القيمة الموجودة في الخلية المدمجة الى متغير معين فبل الغاء الدمج يمكنك حفظها في المتغير x والذي سيحتفظ بالقيمة ورقم السطر ورقم العمود غير الكود كالتالي Sub Unmerge() Dim myRange As Range Set myRange = Worksheets("Sheet1").Range("A1:M30") Dim x(30, 13) As Variant For Each cel In myRange r = cel.Row c = cel.Column x(r, c) = cel.Value cel.Unmerge Next Range("A1").Select End Sub تم تعديل فبراير 22, 2011 بواسطه TareQ M رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر فبراير 22, 2011 مشاركة قام بنشر فبراير 22, 2011 السلام عليكم الأخ صباح ، ما المقصود بخاصية البحث لا تظهر هناك نوعان من البحث اعلي المنتدى ، الاول البحث فى المنتدى من خلال جوجل علي اليمين ، و محرك البحث الخاص بالموقع Search برجاء التوضيح رابط هذا التعليق شارك 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.