كيفية إزالة الجدول فى الاكسيل من اكثر من شيت فى وقت واحد

[اسلام سيد]

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

كيف يمكن ازالة  ال table من اكثر من ورقة عمل فى الاكسيل مره واحده

 

[ابو اياد ( الاسيوطى )]

الاخ العزيز

 

اولا عليك بتحديد كل شيتات التى بها هذا الجدول اى

 

اذا كانت الشيتات مرتبة ورا بعضها ( متسلسلة ) اختار الشيت الاول ثم زر SHIFT ثم اختار الشيت الاخير وانت ضاغط على SHIFT

 

بذلك انت عملت جروب شيت يعنى مجموعة  بمعنى اى شىء تفعلة فى اى شيت منهم سيتم تنفيذة فى باقى الشيتات

 

ثانيا - الشيتات غير مرتبة

 

عليك تحديدها بالضغط على زر CTRL واختارهم شيت تلو الاخر وانت ضاغط  CTRL ثم ان تفعل اى شىء بالتبعية يتم تنفيذ الامر فى باقى الشيتات

 

ارجو ان يكون الشرح واضح ومستوفى

 

تقبل تحياتى

[الـعيدروس]

السلام عليكم

 

اخي الفاضل اسلام

حسب فهمي لطلبك

تريد تحويل الجداول الى نطاق وليس حذفهم ؟

 

إستخدم الكود التالي :

Public Sub Ali_Tab()
Dim Sht As Worksheet
Dim Tb As ListObject
Dim r_Tb As Range
On Error Resume Next
For Each Sht In ThisWorkbook.Worksheets
For Each Tb In Sht.ListObjects
With Tb
Set r_Tb = .Range
    .Unlist
With r_Tb
    .Interior.ColorIndex = xlColorIndexNone
    .Font.ColorIndex = xlColorIndexAutomatic
    .Borders.LineStyle = xlLineStyleNone
End With
End With
Next Tb
Next Sht
On Error GoTo 0
End Sub

[الـعيدروس]

وإذا كان حذف الجدول تماماً مع بياناته

Public Sub Ali_Tab()
Dim Sht As Worksheet
Dim Tb As ListObject
Dim r_Tb As Range
On Error Resume Next
For Each Sht In ThisWorkbook.Worksheets
For Each Tb In Sht.ListObjects
  Tb.Delete
Next Tb
Next Sht
On Error GoTo 0
End Sub

[الـعيدروس]

واذا لديك اكثر من جدول بالورقة الواحدة

وتريد حذف جداول محددة بالاسامي

اضن بيكون كالتالي

جرب وابلغنى بالنتائج

Public Sub Ali_Tab()
Dim Sht As Worksheet
Dim Tb As ListObject
Dim rnm As Variant
Dim r_Tb As Range
Anm = Array("الجدول1", "الجدول2", "الجدول3", "الجدول4", "الجدول5", "الجدول6")
On Error Resume Next
For Each Sht In ThisWorkbook.Worksheets
  For ii = 0 To UBound(Anm)
  Set Tb = Sht.ListObjects(Anm(ii))
  With Tb
     Set r_Tb = .Range
    .Unlist
  With r_Tb
    .Interior.ColorIndex = xlColorIndexNone
    .Font.ColorIndex = xlColorIndexAutomatic
    .Borders.LineStyle = xlLineStyleNone
  End With
 End With
 Set Tb = Nothing
 Next ii
Next Sht
On Error GoTo 0
End Sub
 

وهذا للحذف

Public Sub Ali_Tab()
Dim Sht As Worksheet
Dim Tb As ListObject
Dim rnm As Variant
Dim r_Tb As Range
Anm = Array("الجدول1", "الجدول2", "الجدول3", "الجدول4", "الجدول5", "الجدول6")
On Error Resume Next
For Each Sht In ThisWorkbook.Worksheets
  For ii = 0 To UBound(Anm)
 Set Tb = Sht.ListObjects(Anm(ii))
'*********
 Tb.Delete
'*********
 Set Tb = Nothing
 Next ii
Next Sht
On Error GoTo 0
End Sub
 

تحياتي

[اسلام سيد]

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

استاذ عباد أنت مبدع كالعاده أكواد روووووووعه

انا لا املك لك إلا الدعاء اسأل الله ان يعافيك فى بدنك وولدك وزوجك ومالك وأن يبارك فيك وفى من حولك

الكود الاول هو المطلوب  ........    فعلا أنا اريد حذف الجدول وعمل نطاق بدلا منه لتيسير عمل الشيت والمعادلات

جزاك ربى الفردوس الاعلى

 

ياليتك تفتح الرسائل الخاصه لنطمئن عليك حين غيابك..................

سلامى لاهل اليمن السعيد.............

[اسلام سيد]

الاخ العزيز

 

اولا عليك بتحديد كل شيتات التى بها هذا الجدول اى

 

اذا كانت الشيتات مرتبة ورا بعضها ( متسلسلة ) اختار الشيت الاول ثم زر SHIFT ثم اختار الشيت الاخير وانت ضاغط على SHIFT

 

بذلك انت عملت جروب شيت يعنى مجموعة  بمعنى اى شىء تفعلة فى اى شيت منهم سيتم تنفيذة فى باقى الشيتات

 

ثانيا - الشيتات غير مرتبة

 

عليك تحديدها بالضغط على زر CTRL واختارهم شيت تلو الاخر وانت ضاغط  CTRL ثم ان تفعل اى شىء بالتبعية يتم تنفيذ الامر فى باقى الشيتات

 

ارجو ان يكون الشرح واضح ومستوفى

 

تقبل تحياتى

 

 

 

 

شكرا لكم على محاولتكم مساعدتى

[الـعيدروس]

الاخ الحبيب إسلام الشيمي

اشكرك جزيل الشكر على ثنائك وكلمتاتك الطيبه

ولك مثل دعائك اضعاف مضاعفه ان شاء الله

 

الرسائل شغاله عندي ليست مقفله

بارك الله فيك

 

تحياتي وشكري

[اسلام سيد]

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

 

هل ممكن كود لعمل table لجميع الشيتات التى بها بيانات مثل ما هناك شيت يزيل الجدول

 

وجزاكم الله خيرا

[الـعيدروس]

السلام عليكم

 

 

 

 

هل ممكن كود لعمل table لجميع الشيتات التى بها بيانات مثل ما هناك شيت يزيل الجدول

 

Public Sub Ali_Tab()
Dim Sht As Worksheet
Dim Tb As ListObject
Dim r_Tb As Range
On Error Resume Next
Nm = "my_Table"
For Each Sht In ThisWorkbook.Worksheets
  With Sht
   M = Nm & ii
    Rw = Split(.UsedRange.Address, "$")(4)
     Cl = Split(.UsedRange.Address, "$")(3)
     Set R = .Range(.Cells(1, 1), Cl & Rw)
    Sht.ListObjects.Add(xlSrcRange, R, , xlYes).Name = M
    ii = ii + 1
  End With
Next Sht
MsgBox "تم تحويل النطاقات الى جداول", vbInformation, ""
On Error GoTo 0
End Sub

تحياتي وودي

[اسلام سيد]

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

لك منى اخ الكريم كل حب وود

اسال الله ان يجعلك مستجاب الدعاء

وان يبارك فيك وفى كل ماتملك

جزاك الله خيرا وبارك فيك