چگونگی حذف چک باکس

[جینگیل]

سلام دوستان
من در یک فایل چک باکس ایجاد کردم و چون نمی دانستم تعداد داده ها چند تاست تا اتنها ردیفم درگ کردم
اما متاسفانه ۲۰۰۰۰ چک باکس بیشتر نیاز نشد
مشکلم اینه که چطور مابقی چک باکس ها را حدف کنم با پاک کردن ردیف ها چک باکسها رو هم میوفته و کات کردن تک تکشون هم خیییییلی مشکله
کسی راه حل بهتری داره عایا؟؟

[s.cheraghi]

در قسمت Home-Find & Select-Select Objects رو انتخاب کن، اینطوری میتونی سریع انتخابشون کنی.

[abootorab]

سلام دوستان
من در یک فایل چک باکس ایجاد کردم و چون نمی دانستم تعداد داده ها چند تاست تا اتنها ردیفم درگ کردم
اما متاسفانه ۲۰۰۰۰ چک باکس بیشتر نیاز نشد
مشکلم اینه که چطور مابقی چک باکس ها را حدف کنم با پاک کردن ردیف ها چک باکسها رو هم میوفته و کات کردن تک تکشون هم خیییییلی مشکله
کسی راه حل بهتری داره عایا؟؟

با درود و تشکر از جناب s.cheraghi
اگر نام چک باکس ها رو تغییر نداده باشین با کد زیر نیز به خواستتون می رسید.

Sub DelCheckBox()
    Dim cb As Shape, i As Integer
    For Each cb In ActiveSheet.Shapes
        If Mid(cb.Name, 1, 9) = "Check Box" Then
            i = i + 1
            If i > 20000 Then cb.Delete
        End If
    Next
End Sub 

[جینگیل]

سلام و ممنون مشکل قبلیم حل شده اما ...
چطور میتونم این فرمول را برای همه چک باکسهام تعریف کنم
متاسفانه الان فایلهای دارم که گویا به دلیل اینکه فایل دست کاربرهای زیادی رفته با درگ کردن بی توجه برخی سلها چندتا چک باکس رو هم افتاده و فایل ها سنگین و کند شده

اگر لازم هست فایل نمونه بذارم چک باکسها در ستون dk تعریف شده
البته اگر ارسال بشه چون خیلی کند شده

لطف میکنید راهنمایی کنید

[generalsamad]

با سلام

دوست عزیز به جواب جناب s.cheraghi دقت نکردید

در قسمت Home-Find & Select-Select Objects رو انتخاب کن، اینطوری میتونی سریع انتخابشون کنی.

با این روش میتونید به جواب برسید


سپس با ماوس محدوده مورد نظر که چک باکس ها قرار دارند رو انتخاب و حذف نمائید

[جینگیل]

با سلام

دوست عزیز به جواب جناب s.cheraghi دقت نکردید

در قسمت Home-Find & Select-Select Objects رو انتخاب کن، اینطوری میتونی سریع انتخابشون کنی.

با این روش میتونید به جواب برسید
[ATTACH=CONFIG]9645[/ATTACH]

سپس با ماوس محدوده مورد نظر که چک باکس ها قرار دارند رو انتخاب و حذف نمائید

چندبار سعی کردم اما نمیشه
چون کلا سیستم هنگ میکنه

[جینگیل]

با درود و تشکر از جناب s.cheraghi
اگر نام چک باکس ها رو تغییر نداده باشین با کد زیر نیز به خواستتون می رسید.

Sub DelCheckBox()
    Dim cb As Shape, i As Integer
    For Each cb In ActiveSheet.Shapes
        If Mid(cb.Name, 1, 9) = "Check Box" Then
            i = i + 1
            If i > 20000 Then cb.Delete
        End If
    Next
End Sub 

با کمی تغییر در فرمول شما مشکل حل شد واقعا ممنونم

خیلی ممنون از همه دوستان