Bạn có thể tự làm ví dụ cho mình bằng cách vào:cokhimocaybt đã viết:
Thật ra, dù biết rằng có vài trường hợp không nhất thiết không cần thiết dùng VBA, nhưng khi mới bắt đầu khám phá nó thì đụng đến bất kỳ thứ gì bạn sẽ dùng đến nó, vì bạn đang tò mò mà.trandangkhoi đã viết:
). Tại sao không nhỉ. 
Sub themsheet()
Dim Duoc As Boolean
Worksheets.ADD
On error goto datten
datten:
i = i + 1
ActiveSheet.Name = "Tuan" & right("00" & i,2)
End SubSub themsheet()
Dim Duoc As Boolean
Worksheets.Add
Do
j = j + 1
Duoc = True
For i = 1 To Sheets.Count
If Sheets(i).Name = "Tuan" & Right("00" & j, 2) Then Duoc = False
Exit For
Next i
Loop Until Duoc
ActiveSheet.Name = "Tuan" & Right("00" & j, 2)
End Sub
voda đã viết:
anhtuan1066 đã viết:
Bạn test dùm mình xem thử ổn chưa?
Sub themsheet()
Dim i, j, k, t As Integer
Do Until j = Sheets.Count
j = j + 1
For i = 1 To Sheets.Count
If Sheets(i).Name = "Tuan" & Right("00" & j, 2) Then k = k + 1
Next i
Loop
sosheet = InputBox("Ban muon them bao nhieu sheet?", "THONG BAO")
Application.ScreenUpdating = False
TryAgain:
On Error GoTo loi
For t = 1 To sosheet
Worksheets.Add
ActiveSheet.Move after:=Sheets(Sheets.Count)
ActiveSheet.Name = "Tuan" & Right("00" & k + 1, 2)
k = k + 1
Next
Exit Sub
loi:
Application.DisplayAlerts = False
ActiveSheet.Delete
k = k + 1
Resume TryAgain
Application.ScreenUpdating = True
End Subanhtuan1066 đã viết:
