[حل شده] بسط چک باکس

[saleh64]

سلام
من 150 ردیف دارم که میخوام برای هر ردیف چک باکس بزارم
وقتی ردیف اول ایجاد میکنم و بسط میدم به پایین کادر چک باکس ایجاد میشه ولی وقتی هر کدوم تیک میزنم همه چک باکس ها تیک میخورن چون لینک سلولش متانظر با تغییر ردیف تغییر نمیکنه و همه چک لیست ها لینک داده میشن به همون سلول متناظر به چک لیست اول (اینم بگم که از حالت فیکس خارجش کردم ولی بازم تغییر نکرد)
لطفا راهنمایی کنید که مجبور نباشم برای هر ردیف جداگانه تنظیمات انجام بدم
ممنون

[iranweld]

با سلام


بعد از بسط چک باکس از ماکرو ذیل استفاده کنید

عدد 34 را به تعداد چک باکس در فایل خود تغییر بدید و

       .LinkedCell = "$B$" & i + 6 

B را به نام ستون مورد نظر و عدد 6+i از چه سطری بایستی شروع شود ، تغییر بدید

Sub Macro2()

For i = 1 To 34

    ActiveSheet.Shapes.Range(Array("Check Box " & i)).Select
    
    
    With Selection
    
        .Value = xlOff
        
        .LinkedCell = "$B$" & i + 6
        
        .Display3DShading = True
    End With
    
    Next
    
    
End Sub