انجام شدن اتوماتيک کد پس از ويرايش يک سل

[Ali Parsaei]

سلام، مي خواهم اگر در A1 حرف A تايپ شد، محتواي B1 پاک شود. کد زير کجاش غلط است!!!؟

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Range("A1").Value = "A" Then
        Range("B1").Value = ""
    End If
End Sub 

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

[Nima]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Sheets(1).Range("A1").Value = "A" Then
        Sheets(1).Range("B1").Value = ""
    End If
End Sub

[misammisam]

سلام
بنظر ميرسه ايراد از اين قسمت سلكشن خود اكسل باشه :

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 

مثلا توي دكمه ميزاري درسته !!!!!
واقعا چرا اينطوريه !!!!!!!!!

[امين اسماعيلي]

با درود
ببین این مورد به درد میخوره

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
  
 If Target.Address = "$A$1" Then
 If Target.Value = "A" Then
        Range("B1").Value = ""
    End If
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
  
 If Target.Address = "$A$1" Then
 If Target.Value = "A" Then
        Range("B1").Value = ""
    End If
End If
End Sub

هر چند پیشنهاد من اینه که رو سل b1 هم بزار چون ممکنه تو سل A1 باشه و شما B1 رو تغییر بدی ولی پاک نمیشه در این کد چون تغییرات رو ورودی A1 لحاظ شده .

[Javid Mokhtari]

سلام، مي خواهم اگر در A1 حرف A تايپ شد، محتواي B1 پاک شود. کد زير کجاش غلط است!!!؟

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Range("A1").Value = "A" Then
        Range("B1").Value = ""
    End If
End Sub 

با سلام.
کد شما مشکلی ندارد با این ایراد که کد به بزرگی یا کوچکی حروف حساس است. یعنی اگر a بنویسید کد اجرا نمی شود باید خود A را بنویسید.