[حل شده] شرط معکوس برای چک باکس

[ghalandar4u]

با سلام وقت بخیر دوستان
من میخوام شرط معکوس برای یک چک باکس داشته باشم
بعنوان مثال چک باکسی در سلول b2 قراردارد
و فرمولش طوری باشد :
که اگر در سلول a2 مقداری وارد شد چک باکس تیک بخورد
که البته سلول b2 در فرمت سل فقط تاریخ را میگیرد
و سلول a2 بجای اینکه بعد از تیک خوردن چک باکس به حالت false و true در بیاد بعد از اینکه مقداری در آن وارد شد چک باکس تیک بخورد در غیر اینصورت تیک نداشته باشد

[ghalandar4u]

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

[ghalandar4u]

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

[alfa]

والا سئوالتان کمی ابهام دارد
بهر حال امیدوارم این فایل پیوست مشکلتان را رفع کند

[Amir Ghasemiyan]

با سلام وقت بخیر دوستان
من میخوام شرط معکوس برای یک چک باکس داشته باشم
بعنوان مثال چک باکسی در سلول b2 قراردارد
و فرمولش طوری باشد :
که اگر در سلول a2 مقداری وارد شد چک باکس تیک بخورد
که البته سلول b2 در فرمت سل فقط تاریخ را میگیرد
و سلول a2 بجای اینکه بعد از تیک خوردن چک باکس به حالت false و true در بیاد بعد از اینکه مقداری در آن وارد شد چک باکس تیک بخورد در غیر اینصورت تیک نداشته باشد

سلام دوست عزيز
با توجه به اينكه چك باكس رو به سلول a2 متصل كرديد اگر در اين سلول مقداري عددي غير از صفر وارد كنيد چك باكس تيك ميخوره و اگر صفر يا متن وارد كنيد تيك چك باكس حذف خواهد شد

اگر چيزي غير از اين مد نظرتونه بيشتر توضيح دهيد تا بتونم راهنماييتون كنم

[majid_mx4]

با سلام

ضمن تشکر از دوست و استاد عزیز جناب آقای قاسمیان

دوست عزیز
هر کدام از ابجکت ها برای کاری ساخته شده اند به نظر میرسد که آبجکت انتخابی شما برای اینکار ساخته نشده است لذا از لبه Developer همانند عکس داخل فایل چک باکس را از اکتیو ایکس انتخاب کنید .
حال شما دو حالت دارید :
1- اگر فقط یک چک باکس مد نظر شماست فقط کافیست فرمول خانه c2 را اضافه کنید و روی چک باکس رایت کلیک کرده و properties گرفته و در قسمتی که با فلش در عکس نمایش داده شده است c2 را تایپ کنید و تمام .
2- اگر تعداد بیشتری چک باکس نیاز دارید فرمول مورد نیاز است ولی وارد کردن C2 نیازی نیست بلکه با دستورات اینکار انجام میشود و دستورات آن را میتوانید در محیط وبی و در شیت 1 ببیند.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Lastrow As Long
Lastrow = Sheet1.Cells(Rows.Count, "c").End(3).Row
For Each cell In Range("c2:c" & Lastrow)
    If cell.Value = True Then
        ActiveSheet.OLEObjects("CheckBox" & cell.Row - 1).Object = xlOn
        ActiveSheet.OLEObjects("CheckBox" & cell.Row - 1).Object.Caption = "تاييد دريافت"

    Else
        ActiveSheet.OLEObjects("CheckBox" & cell.Row - 1).Object = xlOff
        ActiveSheet.OLEObjects("CheckBox" & cell.Row - 1).Object.Caption = "عدم دريافت"
    End If
    
    Next
End Sub

پایدار باشید میر

[ghalandar4u]

والا سئوالتان کمی ابهام دارد
بهر حال امیدوارم این فایل پیوست مشکلتان را رفع کند

مرسی دستتون درد نکنه خوب بود با استفاده از ماکرو انجام شده ؟ یا ویژال و اینکه چجوری میشه ادیت کرد

[ghalandar4u]

با سلام

ضمن تشکر از دوست و استاد عزیز جناب آقای قاسمیان

دوست عزیز
هر کدام از ابجکت ها برای کاری ساخته شده اند به نظر میرسد که آبجکت انتخابی شما برای اینکار ساخته نشده است لذا از لبه Developer همانند عکس داخل فایل چک باکس را از اکتیو ایکس انتخاب کنید .
حال شما دو حالت دارید :
1- اگر فقط یک چک باکس مد نظر شماست فقط کافیست فرمول خانه c2 را اضافه کنید و روی چک باکس رایت کلیک کرده و properties گرفته و در قسمتی که با فلش در عکس نمایش داده شده است c2 را تایپ کنید و تمام .
2- اگر تعداد بیشتری چک باکس نیاز دارید فرمول مورد نیاز است ولی وارد کردن C2 نیازی نیست بلکه با دستورات اینکار انجام میشود و دستورات آن را میتوانید در محیط وبی و در شیت 1 ببیند.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Lastrow As Long
Lastrow = Sheet1.Cells(Rows.Count, "c").End(3).Row
For Each cell In Range("c2:c" & Lastrow)
    If cell.Value = True Then
        ActiveSheet.OLEObjects("CheckBox" & cell.Row - 1).Object = xlOn
        ActiveSheet.OLEObjects("CheckBox" & cell.Row - 1).Object.Caption = "تاييد دريافت"

    Else
        ActiveSheet.OLEObjects("CheckBox" & cell.Row - 1).Object = xlOff
        ActiveSheet.OLEObjects("CheckBox" & cell.Row - 1).Object.Caption = "عدم دريافت"
    End If
    
    Next
End Sub

پایدار باشید میر

مرسی لطف کردید توضیحاتتون هم خوب بود