چک باکس اکسل

خیلی خیلی ممنون و خیلی کارم راه افتاد...فقط وقتی یه سلول درست میکنم و میخوام از همین سلول درست شده برا خیلی سلول های دیگه کپی کنم باید حتما cell links رو تک تک عوض کنم اگه راه دیگه ای هست راهنمایی کنید ممنون میشم.

درود

از اینجا دریافت کنید فایل رو (دقت داشته باشین که برای کار کردن ماکرو روی سیستمتون باید حتما ماکرو فعال باشه وگرنه کدها کار نمیکنن)

روش فعال سازی ماکرو :

Option / Trust Center / Trust Center Settings / Macro Settings / Check Enable all macro AND Check Trust access to the VBA

موفق باشید

یک راهی بود با AutoFill فکر کنم میشد اما تست کردم نشد الان ...

من به شخصه هرجا توی آفیس قابلیتی میخوام که کارها رو سریع تر انجام بده از VBA استفاده می کنم (هرچند شاید اون قابلیت که کدش رو میزنم اصلا راه و روش غیر کد زدن داشته باشه ولی گشتن دنبالش واسم سخته)

اگر این مشکل شما رو من داشتم با این کد حلش میکردم :

Sub InsertCHK()
Dim cell As Range
DelCHK
For Each cell In Range("A1:A100")
With ActiveSheet.CheckBoxes.Add(cell.Left, cell.Top, cell.Width, cell.Height)
.LinkedCell = cell.Offset(, 1).Address(External:=True)
.Interior.ColorIndex = xlNone
.Caption = "tosinso.com"
End With
Next
End Sub

برای حذف هم :

Sub DelCHK()
For Each cell In Range("A1:A100")
Worksheets("Sheet1").CheckBoxes.Delete
Next
End Sub

(شاید این روش اصولی نباشه)

تست میکنم ببینم جواب میده

باسلام

جناب آقای mortezamhd لطفاً آموزش ساخت این فایل رو هم بذارید . ممنون میشم .