Code cho Command Button (2 người xem)

[mymichau]

Mình có đoạn code như sau
Private Sub CommandButton1_Click()
If Sheets("sheet1").Select Then
Sheet1.Range("A1").Value = "YES"
ElseIf Sheets("sheet2").Select Then
Sheet2.Range("A1").Value = "NO"
End If
End Sub
''''''''''''''
Nhưng khi thực hiện lại sai. Xin các bạn giúp với

 

[thnghiachau]

Mình có đoạn code như sau
Private Sub CommandButton1_Click()
If Sheets("sheet1").Select Then
Sheet1.Range("A1").Value = "YES"
ElseIf Sheets("sheet2").Select Then
Sheet2.Range("A1").Value = "NO"
End If
End Sub
''''''''''''''
Nhưng khi thực hiện lại sai. Xin các bạn giúp với

ý đồ của bạn là gì?

 

[mymichau]

ý đồ của bạn là gì?

Mình muốn chỉ sử dụng 1 commandButton1 thôi. Khi ở Sheet1 thì commandButton1 gán giá trị tại Sheet1, và khi ở Sheet2 thì commandButton1 gán giá trị tại Sheet2

 

[snow25]

Mình có đoạn code như sau
Private Sub CommandButton1_Click()
If Sheets("sheet1").Select Then
Sheet1.Range("A1").Value = "YES"
ElseIf Sheets("sheet2").Select Then
Sheet2.Range("A1").Value = "NO"
End If
End Sub
''''''''''''''
Nhưng khi thực hiện lại sai. Xin các bạn giúp với

Bạn thử.

Private Sub CommandButton1_Click()
If ActiveSheet.CodeName = "Sheet1" Then
   Sheet1.Range("A1").Value = "YES"
   Sheet2.Range("A1").Value = ""
ElseIf ActiveSheet.CodeName = "Sheet2" Then
   Sheet2.Range("A1").Value = "NO"
   Sheet1.Range("A1").Value = ""
End If
End Sub

 

[thnghiachau]

Mình muốn chỉ sử dụng 1 commandButton1 thôi. Khi ở Sheet1 thì commandButton1 gán giá trị tại Sheet1, và khi ở Sheet2 thì commandButton1 gán giá trị tại Sheet2

code bạn nè:

Private Sub CommandButton1_Click()
    If ActiveSheet.Name = "Sheet1" Then
        Sheet1.Range("A1").Value = "YES"
        Sheet2.Range("A1").Value = "NO"
    Else
        If ActiveSheet.Name = "Sheet2" Then
            Sheet1.Range("A1").Value = "NO"
            Sheet2.Range("A1").Value = "YES"
        End If
    End If
    Unload Me
End Sub

 

[mymichau]

code bạn nè:

Private Sub CommandButton1_Click()
    If ActiveSheet.Name = "Sheet1" Then
        Sheet1.Range("A1").Value = "YES"
        Sheet2.Range("A1").Value = "NO"
    Else
        If ActiveSheet.Name = "Sheet2" Then
            Sheet1.Range("A1").Value = "NO"
            Sheet2.Range("A1").Value = "YES"
        End If
    End If
    Unload Me
End Sub

Cảm ơn bạn nhiều. Code của bạn đúng ý của mình rồi. Chúc bạn được nhiều tốt đẹp.