Thoát khi đặt tên sheet trùng nhau

[kobebryant]

anh em diễn đàn cho mình hỏi code vba sau 1 tí , em muốn copy sheet đã có và đặt tên lại, nhưng nếu sheet đó đã tồn tại thì phải thoát sub báo Msgbox. Em viết code nó cũng exitsub nhưng khổ nỗi nó vẫn tạo sheet mới với hậu tố (1,2,3....)

Private Sub CommandButton1_Click()
If TextBox1.Value = "" Then 'textbox nay de dem qua sheet moi dien so vao dau ky
    MsgBox "Vui long nhap so ton dau ky, hoac khong co vui long nhap 0"
Else
ActiveSheet.Copy After:=ActiveSheet 'copy sheet ky truoc
ActiveSheet.Name = "VAT-NXT" & ComboBox2.Value 'dat lai ten sheet vua copy theo ten ket hop trong combobox, neu sheet nay da co ten roi thi exitsub va bao loi'
On Error GoTo 0
MsgBox "Bao cao " & ComboBox1.Value & " " & ComboBox2.Value & " da ton tai"
Exit Sub
End If
End Sub

 

[ndu96081631]

anh em diễn đàn cho mình hỏi code vba sau 1 tí , em muốn copy sheet đã có và đặt tên lại, nhưng nếu sheet đó đã tồn tại thì phải thoát sub báo Msgbox. Em viết code nó cũng exitsub nhưng khổ nỗi nó vẫn tạo sheet mới với hậu tố (1,2,3....)

Private Sub CommandButton1_Click()
If TextBox1.Value = "" Then 'textbox nay de dem qua sheet moi dien so vao dau ky
    MsgBox "Vui long nhap so ton dau ky, hoac khong co vui long nhap 0"
Else
ActiveSheet.Copy After:=ActiveSheet 'copy sheet ky truoc
ActiveSheet.Name = "VAT-NXT" & ComboBox2.Value 'dat lai ten sheet vua copy theo ten ket hop trong combobox, neu sheet nay da co ten roi thi exitsub va bao loi'
On Error GoTo 0
MsgBox "Bao cao " & ComboBox1.Value & " " & ComboBox2.Value & " da ton tai"
Exit Sub
End If
End Sub

Tại vì bạn tạo sheet trước rồi mới đặt tên nên quy trình này sai. Lý ra phải kiểm tra sự tồn tại của tên sheet trước bằng cách viết 1 hàm:

Function SheetExist(ByVal SheetName As String) As Boolean
  On Error Resume Next
  SheetExist = Not Sheets(SheetName) Is Nothing
End Function

 

[kobebryant]

Tại vì bạn tạo sheet trước rồi mới đặt tên nên quy trình này sai. Lý ra phải kiểm tra sự tồn tại của tên sheet trước bằng cách viết 1 hàm:

Function SheetExist(ByVal SheetName As String) As Boolean
  On Error Resume Next
  SheetExist = Not Sheets(SheetName) Is Nothing
End Function

Anh ndu96081631 ơi em chỉ biết viết vba kết hợp macro thôi, anh giúp em cho chót, ghép vào cái code cùi của em thế nào ạ.
Em cám ơn anh.

 

[ndu96081631]

Anh ndu96081631 ơi em chỉ biết viết vba kết hợp macro thôi, anh giúp em cho chót, ghép vào cái code cùi của em thế nào ạ.
Em cám ơn anh.

Không có file nên viết đại:

Private Sub CommandButton1_Click()
  Dim shName As String
  If TextBox1.Value = "" Then 'textbox nay de dem qua sheet moi dien so vao dau ky
    MsgBox "Vui long nhap so ton dau ky, hoac khong co vui long nhap 0"
  Else
    shName = "VAT-NXT" & ComboBox2.Value
    If Not SheetExist(shName) Then
      ActiveSheet.Copy After:=ActiveSheet 'copy sheet ky truoc
      ActiveSheet.Name = shName 'dat lai ten sheet vua copy theo ten ket hop trong combobox, neu sheet nay da co ten roi thi exitsub va bao loi'
    End If
  End If
End Sub

Đương nhiên là có code hàm SheetExist nha

 

[kobebryant]

Không có file nên viết đại:

Private Sub CommandButton1_Click()
  Dim shName As String
  If TextBox1.Value = "" Then 'textbox nay de dem qua sheet moi dien so vao dau ky
    MsgBox "Vui long nhap so ton dau ky, hoac khong co vui long nhap 0"
  Else
    shName = "VAT-NXT" & ComboBox2.Value
    If Not SheetExist(shName) Then
      ActiveSheet.Copy After:=ActiveSheet 'copy sheet ky truoc
      ActiveSheet.Name = shName 'dat lai ten sheet vua copy theo ten ket hop trong combobox, neu sheet nay da co ten roi thi exitsub va bao loi'
    End If
  End If
End Sub

Đương nhiên là có code hàm SheetExist nha

Chạy trót lọt rồi anh ơi. Cám ơn anh

 

[ndu96081631]

Chạy trót lọt rồi anh ơi. Cám ơn anh

"lọt" ra hải phận quốc tế rồi hả bạn? Chức mừng hen!