Thử với code này nhé :
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([C7], Target) Is Nothing Then
Sheet2.Name = [C7].Value
End If
End SubCảm ơn sư phụ, em cũng phân vân nhưng không biết liệu có khi nào tác giả đặt tên sheet là history không sư phụ nhỉ? Cứ để người dùng trải nghiệm và phản hồi vậy. hehe
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([C7], Target) Is Nothing Then
If Checkname([C7].Value) Or UCase([C7].Value) = "HISTORY" Then
MsgBox "Ten sheet da ton tai Hoac Ten sheet khong hop le"
Exit Sub
Else
Sheet2.Name = [C7].Value
End If
End If
End Sub
'===============================
Public Function Checkname(sheetName As String) As Boolean
On Error Resume Next
Checkname = CBool(Len(Worksheets(sheetName).Name) > 0)
End Function
Như đã nói ở trên: Còn thiếu hàm kiểm tra tính hợp lệ của tên sheet nữa.
Function isValidSheetName(ByVal SheetName As String) As Boolean
If (Len(SheetName) > 31) Or (Len(SheetName) = 0) Then Exit Function
With CreateObject("VBScript.RegExp")
.Pattern = "[\\:\][/?*]"
isValidSheetName = Not .Test(SheetName)
End With
End FunctionFunction SheetExists(ByVal SheetName As String) As Boolean
On Error Resume Next
SheetExists = Not ThisWorkbook.Sheets(SheetName) Is Nothing
End Function
Function isValidSheetName(ByVal SheetName As String) As Boolean
If (Len(SheetName) > 31) Or (Len(SheetName) = 0) Then Exit Function
With CreateObject("VBScript.RegExp")
.Pattern = "[\\:\][/?*]"
isValidSheetName = Not .Test(SheetName)
End With
End FunctionPrivate Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ErrHandler
If Target.Address = "$C$7" Then
If isValidSheetName(Target.Value) Then
If Not SheetExists(Target.Value) Then Sheet2.Name = Target.Value
End If
End If
Exit Sub
ErrHandler: MsgBox Err.Description
End SubPrivate Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ErrHandler
If Target.Address = "$C$7" Then Sheet2.Name = Target.Value
Exit Sub
ErrHandler: MsgBox Err.Description
End Sub
Ý bạn ấy là đặt cho ô C7 bằng 1 công thức nào đó, nên khi giá trị đầu ra(C7=0) thì sheet này có tên là "0" thì ẩn đi. Nếu khác "0" thì lại hiện ra. không biết có phải ý bạn ấy phải vậy không nữa ?
Cùng câu hỏi với bạn.Mong các các cao thủ chỉ dạy!
Function SheetExists(ByVal SheetName As String) As Boolean
On Error Resume Next
SheetExists = Not Sheets(SheetName) Is Nothing
End Function
Function isValidSheetName(ByVal SheetName As String) As Boolean
If (Len(SheetName) > 31) Or (Len(SheetName) = 0) Then Exit Function
With CreateObject("VBScript.RegExp")
.Pattern = "[\\:\][/?*]"
isValidSheetName = Not .Test(SheetName)
End With
End Function
Sub CreateSheet(ByVal arrSheets As Variant)
Dim tmpArr, Item
On Error GoTo ErrHandler
tmpArr = arrSheets
If Not IsArray(tmpArr) Then tmpArr = Array(tmpArr)
For Each Item In tmpArr
If isValidSheetName(CStr(Item)) Then
If Not (SheetExists(CStr(Item))) Then
Sheets.Add(After:=Sheets(Sheets.Count)).Name = CStr(Item)
End If
End If
Next
Exit Sub
ErrHandler: MsgBox Err.Description
End Sub
Sub Main()
CreateSheet Sheet1.Range("[COLOR=#ff0000]C7:BA7[/COLOR]")
End SubPrivate Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error GoTo ErrHandler
If Target.Address = "$A$1" Then Sh.Name = Target.Value
Exit Sub
ErrHandler: MsgBox Err.Description
End Sub
