[حل شده] اتصال چک باکس به هر سلول به صورت خودکار.

[a.tajik]

سلام دوستان:
می خواستم ببینم چجوری میشه چک باکس ها رو به صورت خودکار به سلول ها متصل کرد.
یه فایل اکسل داریم با تعداد 14000 سطر. این امکان که دونه دونه هر چک باکس رو کلیک راست کنم و تو فرمت کنترل به سلول مورد نظرم متصل کنم وجود نداره
با درگ کردن چک باکس ها رو برای هر سلول کپی کردم ولی متصل نیستند

[حسام بحرانی]

سلام و عرض خیرمقدم به شما دوست عزیز.

خواسته ی شما از طریق کدنویسی در محیط ویژوال بیسیک قابل حله.

اگر با این محیط آشنایی دارید عنوان کنید تا کدنویسی این مورد برای شما ارسال شود.
موفق باشید.

[a.tajik]

بله با ویژوال و ماکرو آشنایی دارم.

باید سوالم رو تو ویژوال بیسیک مطرح میکردم. به حساب تازه کاری بزارید. اگر کمکم کنید ممنون میشم.

[حسام بحرانی]

CheckBoxes

پس از ایجاد چک باکس ها اگر در قسمت ویژو یک ماژول تهیه کنید و چنین کدی رو در اون وارد کنید مشکل شما حل میشه:

Sub linkchecklist()
Dim check As CheckBox
For Each chk In ActiveSheet.CheckBoxes
chk.LinkedCell = chk.TopLeftCell.Offset(0, -1).Address
Next
End Sub 

موفق باشید.