[حل شده] درج اطلاعات تکراری

[sunstar]

فرض کنید در یک شیت میخواهیم فقط در محدوده سلهای a1 تا a10 با اجرای یک ماکرو وبا کلیک بروی هر سل محدوده مذکور، کلمه true درج شودو ماکرو در سل های خارج از محدوده یاد شده کارایی نداشته باشد. خواهشمندم راهنمایی فرمائید.

[iranweld]

با سلام

این کدها را در قسمت کد sheet1 قرار دهید

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing Then
I = Target.Row
Sheet1.Range("A" & I).Value = "True"
End If
End Sub 

[sunstar]

از پاسخ جنابعالی ممنونم .آیا کدی وجود داره که درهمون محدوده با کلیک مجدد روی سلی که متن true دراون درج شده به کلمه false تغییر پیداکنه ؟ با سپاس فراوان

[sunstar]

از اساتید بزرگوار کسی نیست به سئوال من جواب بده؟

[Amir Ghasemiyan]

از اساتید بزرگوار کسی نیست به سئوال من جواب بده؟

ببینین این کد جواب مورد نظر شما رو میده؟

Private Sub Worksheet_Change(ByVal Target As Range)


If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing Then
I = Target.Row
val = Sheet1.Range("A" & I).Value
if val  = "True" then
	val = "False"
else
	val = "True"
end
Sheet1.Range("A" & I).Value = val
End If
End Sub

[iranweld]

از اساتید بزرگوار کسی نیست به سئوال من جواب بده؟

با سلام مجدد

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next  'skip all run-time errors

 If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing Then

Application.EnableEvents = False

 Dim X, X1 As Boolean
 X = True
 X1 = False

I = Target.Row
If Sheet1.Range("A" & I).Value = X Or Sheet1.Range("A" & I).Value = "" Then
Sheet1.Range("A" & I).Value = "FALSE"
ElseIf Sheet1.Range("A" & I).Value = X1 Then
Sheet1.Range("A" & I).Value = "TRUE"

End If

 End If
 
Application.EnableEvents = True

On Error GoTo 0  'Turn off error trapping and re-allow run time errors

End Sub 

[sunstar]

ضمن تشکر از پاسخ اساتید گرامی
بنده یک سئوالی نیز دارم که خواهشمندم راهنمایی فرمائید .در بالای ستون a یک commandbutton وجود دارد میخواهیم با کلیک برروی هر سل در ستون a و بعد با کلیک برروی commandbutton مذکور عبارت true در همان سل ستون a درج شود.خواهشمندم راهنمایی فرمائید.
هزاران سپاس

[mokaram]

برای commandbutton کد زیر را بنویسید

ActiveCell = "true" 

[sunstar]

سلام
کد ذکر شده درهمه سل های شیت جواب میده ، من میخواهیم با کلیک برروی هر سل در ستون a و بعد با کلیک برروی commandbutton مذکور عبارت true در همان سل ستون a درج شودودر سلهای ستون های دیگر شیت ، عملا کارایی نداشته باشد.
با تشکر

[Ali Parsaei]

سلام،
ببينيد اين به درد مي خورد:

If ActiveCell.Column = 1 Then
ActiveCell.Value = "TRUE"
End If