Xin hỏi về lập trình sự kiện giữa 2 sheet với nhau (1 người xem)

[banhchuoichien]

Mong các anh chị giúp em hoàn thiện cái code này:
Ý tưởng: Nếu ô C6 ở sheet 1 thay đổi thì sẽ thay đổi sheet 2
If
C6= "" thì ẩn tuyệt đối (Xlsheetveryhidden) sheet 2
Else
Hiện sheet2
Đổi tên sheet 2 bằng giá trị trong ô C6 của sheet 1

Code của em:
Private Sub Worksheet_Change(ByVal Target As Range)
If Worksheets("Sheet1").Range("C6") = "" Then
Worksheets("Sheet2").xlSheetVeryHidden = True
Else
Worksheets("Sheet2").Select
.xlSheetVeryHidden = False
.Name = Worksheets("Sheet1").Range("C6").Value
End If
End Sub

 

[phulien1902]

Mong các anh chị giúp em hoàn thiện cái code này:
Ý tưởng: Nếu ô C6 ở sheet 1 thay đổi thì sẽ thay đổi sheet 2
If
C6= "" thì ẩn tuyệt đối (Xlsheetveryhidden) sheet 2
Else
Hiện sheet2
Đổi tên sheet 2 bằng giá trị trong ô C6 của sheet 1

Code của em:
Private Sub Worksheet_Change(ByVal Target As Range)
If Worksheets("Sheet1").Range("C6") = "" Then
Worksheets("Sheet2").xlSheetVeryHidden = True
Else
Worksheets("Sheet2").Select
.xlSheetVeryHidden = False
.Name = Worksheets("Sheet1").Range("C6").Value
End If
End Sub

Bạn chép code dưới đây vào Sheet1 và thay đổi C6 xem thế nào nhé

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C6")) Is Nothing Then
        Select Case Range("C6").Value
        Case Is = ""
            Sheets("Sheet2").Visible = False
        Case Is <> ""
            Sheets("Sheet2").Visible = True
        End Select
    End If
End Sub

 

[giangleloi]

Mong các anh chị giúp em hoàn thiện cái code này:
Ý tưởng: Nếu ô C6 ở sheet 1 thay đổi thì sẽ thay đổi sheet 2
If
C6= "" thì ẩn tuyệt đối (Xlsheetveryhidden) sheet 2
Else
Hiện sheet2
Đổi tên sheet 2 bằng giá trị trong ô C6 của sheet 1

Code của em:
Private Sub Worksheet_Change(ByVal Target As Range)
If Worksheets("Sheet1").Range("C6") = "" Then
Worksheets("Sheet2").xlSheetVeryHidden = True
Else
Worksheets("Sheet2").Select
.xlSheetVeryHidden = False
.Name = Worksheets("Sheet1").Range("C6").Value
End If
End Sub

Chạy code dưới đây xem sao nhé:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$6" Then
 If Sheet1.[C6] = Empty Then
   Sheet2.Visible = 2
 Else
  If Sheet2.Visible = 2 Then Sheet2.Visible = 1
   Sheet2.Name = Sheet1.[C6].Value
 End If
End If
End Sub

 

[banhchuoichien]

Re:

Cảm ơn bạn nhiều nhé! Code bạn giúp đã đạt được mục đích của mình.

 

[banhchuoichien]

Cảm ơn bạn Phulien1902. Code của bạn giúp chỉ giải quyết được vấn đề ẩn hiện. Vấn đề đổi tên chưa được bạn ơi!

 

[phulien1902]

Cảm ơn bạn Phulien1902. Code của bạn giúp chỉ giải quyết được vấn đề ẩn hiện. Vấn đề đổi tên chưa được bạn ơi!

Do đọc không kỹ nên thiếu đổi tên Sheet, Code đầy đủ đây:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C6")) Is Nothing Then
        Select Case Range("C6").Value
        Case Is = ""
            Sheets("Sheet2").Visible = False
            
        Case Is <> ""
            Sheets("Sheet2").Visible = True
            Sheet2.Name = Sheet1.[C6].Value
        End Select
    End If
End Sub