كود ايجاد الخلايا المدمجة والغائها

[صباح حسين]

السلام عليكم . اود ان اعرف الكود الذي يجد الخلايا المدمجة في الشيت ضمن مدى معين . ومن ثم الكود الذي يقوم بالغاء دمج الخلايا .

علما بانه كان هنالك مشاركة لاحد الاخوان بهذا الخصوص مطروحة منذ فترة بعيدة وقد حاوت اجادها ولكن خاصية البحث بالمنتدى لاتظهر لي ولا اعرف السبب . وعلى ماذكر كان يتعلق بجدول الحصص للمدرسين . ولكم كل الشكر

وقد استعملت الكود الاتي ولم افلح

For j = 1 To 30

If Cells(i, j).Merge Then

Cells(i, j).UnMerge

End If

Next

Next

[بن علية حاجي]

السلام عليكم ورحمة الله

أخي الكريم جرب الكود التالي (الذي يقوم بإلغاء دمج الخلايا الموجودة في النطاق 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

[صباح حسين]

شكرا اخي سوف اجرب الكود . وفقكم الله وادامك عونا للجميع

[دغيدى]

الأخ الفاضل / بن علية

أفاض الله عليكم من العلم ما ينفع البشرية

تحياتى من مصر الحرية

** جمال دغيدى **

[صباح حسين]

السلام عليكم . اخي العزيز هل من الممكن نسخ القيمة الموجودة في الخلية المدمجة الى متغير معين فبل الغاء الدمج لاني سوف احتاجه لاحقا

وبخصوص خاصية البحث في المنتدى لماذا لاتظهر عندي لكي استفاد منه . واكرر شكري للجميع

[معتصم محمد]

استاذ / بن عليه شكراً على هذا الكود

ممكن اسال سؤال على هذا الكود بعد إذنك

كيف يفهم الإكسل ان cel هي خلية في حين اننا لم نقم بتعريفها بذلك

[صباح حسين]

للرفع

[طارق محمود]

استاذ / بن عليه شكراً على هذا الكود

ممكن اسال سؤال على هذا الكود بعد إذنك

كيف يفهم الإكسل ان cel هي خلية في حين اننا لم نقم بتعريفها بذلك

السلام عليكم

أخي المعتصم

بعد إذن أخي العزيز وأستاذنا : بن علية

cel حسب السطر

For Each cel In myRange

هي جزء من

myRange والذي تم تعريفه في أول الكود علي أنه مدي Range

وعناصر المدي Range لابد ان تكون خلايا

[طارق محمود]

السلام عليكم . اخي العزيز هل من الممكن نسخ القيمة الموجودة في الخلية المدمجة الى متغير معين فبل الغاء الدمج لاني سوف احتاجه لاحقا

وبخصوص خاصية البحث في المنتدى لماذا لاتظهر عندي لكي استفاد منه . واكرر شكري للجميع

السلام عليكم

أخي العزيز صباح

بعد إذن أخي العزيز وأستاذنا : بن علية

خاصية البحث في المنتدى لاتظهر ؟؟

سوف أراسل المهندس محمد طاهر مدير الموقع في هذا

وطبعا يمكن نسخ القيمة الموجودة في الخلية المدمجة الى متغير معين فبل الغاء الدمج

يمكنك حفظها في المتغير 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

[محمد طاهر عرفه]

السلام عليكم

الأخ صباح ، ما المقصود بخاصية البحث لا تظهر

هناك نوعان من البحث اعلي المنتدى ، الاول البحث فى المنتدى من خلال جوجل علي اليمين ، و محرك البحث الخاص بالموقع Search

برجاء التوضيح