تغییر مقدار چک باکس از true به دارد

[mehey]

سلام خسته نباشید
می خوام وقتی چک باکس رو در فرم انتخاب میکنم در سلول بنویسه دارد و در غیر این صورت ندارد
با تشکر از شما

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[mokaram]

از کد زیر استفاده کنید

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
    Sheet1.Range("a1").Value = "دارد"
Else
    Sheet1.Range("a1").Value = ""
End If
End Sub 

[mehey]

از کد زیر استفاده کنید

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
    Sheet1.Range("a1").Value = "ÏÇÑÏ"
Else
    Sheet1.Range("a1").Value = ""
End If
End Sub 

با تشکر فراوان از شما