Hi cả nhà, mọi người giúp mình sử dung VBA để copy 1 sheet và đổi tên sheet mới tạo bằng cách nhập từ 1 textbox. Thank all. chúc 1 ngày tốt lành.
Sub ThemSheet() ActiveSheet.Copy After:=Sheets(Worksheets.Count) ActiveSheet.Name = InputBox("Enter new sheet name") End Sub
Sub ThemSheet() Dim str As String str = InputBox("Enter new sheet name") If Len(str) Then Sheets("data").Copy After:=Sheets(Worksheets.Count) ActiveSheet.Name = str Else MsgBox "vui long nhap ten" End If End Sub
If len(str) then có nghĩa là nếu len(str) khác 0 phải k ạ
if đi kèm với 1 logic hoặc đúng hoặc sai, trong trường hợp này thì nó gần giống như thế
Hi Anh, có 1 chút rắc rối nữa, anh giúp tối ưu giúp e nha: đó là trường hợp đặt tên trùng, có thể hiển thị thông báo là tài khooản đã tồn tại chẳng hạn. Cảm ơn anh nhiều.