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

ghalandar4u

2020/05/21, 10:24

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

ghalandar4u

2020/05/21, 12:05

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

ghalandar4u

2020/06/02, 10:42

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

alfa

2020/06/02, 16:41

والا سئوالتان کمی ابهام دارد
بهر حال امیدوارم این فایل پیوست مشکلتان را رفع کند:Smilebb (31):

Amir Ghasemiyan

2020/06/09, 13:36

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

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

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

majid_mx4

2020/06/10, 12:43

با سلام

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

دوست عزیز
هر کدام از ابجکت ها برای کاری ساخته شده اند به نظر میرسد که آبجکت انتخابی شما برای اینکار ساخته نشده است لذا از لبه 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

2020/06/11, 12:16

والا سئوالتان کمی ابهام دارد
بهر حال امیدوارم این فایل پیوست مشکلتان را رفع کند:Smilebb (31):

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

ghalandar4u

2020/06/11, 12:22

با سلام

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

دوست عزیز
هر کدام از ابجکت ها برای کاری ساخته شده اند به نظر میرسد که آبجکت انتخابی شما برای اینکار ساخته نشده است لذا از لبه 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

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

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