با درود فراوان
کدی که دوست خوبم آقا مهدی نوشته بودن درسته و برای اونت کلیک چک باکس نوشته اند نهبرای ماکرو یعنی اگر شما با دوبل کلید روی چک باکس وارد به محیط کد نویسی بری و در انت کلک چک باکس این کد را بنویسی با کلیک روی چک باکس این کد اجر میشه و نیازی به اجرای ماکرو نیست
البته من فایل شما رو نتونستم دانلود کنم و احتمال میدم چما چک باکس را اگر روی صفحه اکسل ایجاد کردین آن را از Form Controls انتخاب کردین که بهتره از Activex Controls انتخاب کنید که با دوبل کلیک در پشت خود چک باکس کد نویسی کنید .
ولی من نمی دانم چرا از چک باکس استفاده میکنید ؟ چون در این حالت با کلیک رو چک باکس عمل میکند و و توجه ای به ایم که چک باکس تیک خورده باشه یا نه نداره و کاری شبیه یک لیبل و باتوم کار میکند چون هیچ شرطی براش استفاده نکردین
و برای اینکه برای n سل این رو اجرا کنی اکر سل ها مثلا زر هم باشه راهای مختلفی هست که می تونی آن را انجام دهی یکی اینکه رنج رو انتخاب کنی و یا اینکه آن را در حلقه بنویسی
مثلا بجای j8 بنویسی j8:j100 می توانید این 100 نیز متغییر کنی
کد:
Private Sub CheckBox1_Click()
Sheet1.Range("J8:j100").Value = Now()
End Sub
برای متغیر کردن این 100 می توانید آن را ارجاع بدین به یک سل و یا به یک تکس باکس که هرعددی درآن بنویسید n براب همان باشد
مثال :
هرعددی در سل h1 بنویسید همان n شما خواهد بود و عدد 7 که جمع شده هم همان تعداد سل های خالی بالای j8 هست
کد:
Private Sub CheckBox1_Click()
Dim n
n = Range("h1").Value
Sheet1.Range("J8:j" & n + 7).Value = Now()
End Sub
البته اگر خواسته شما چیزی غیر از اینه نیاز هست فایل شما رو ببینم مثلا اینکه سلهای شما پشت سر هم نباشه و یا ....
علاقه مندی ها (Bookmarks)