Giúp đỡ tăng số thứ tự các sheet (1 người xem)

[raovatchung]

Chào các anh chị trên diễn đàn. Em muốn nhờ giúp đỡ như sau ạ
Sheet 1 ô A1 có mã số A001
Trên Sheet 1 có 1 nút lệnh thêm Sheet mới
Nhấn nút thêm Sheet mới được Sheet 2, đồng thời ô A1 Sheet 2 tăng lên A002. Tương tự như vậy với Sheet 3 Sheet 4 ạ
Em cảm ơn ạ

 

[SA_DQ]

Bạn mở bộ thu macro lên & mần thử; Nếu thấy rườm rà cái đứa con thu được thì gởi lên; Sẽ có người cô gọn lại cho bạn, nếu bạn chưa đủ khả năng này.

Thân ái & chúc vui!

Sub Them9Sheets()
Dim ShName As String
Dim Rng As Range
Dim J As Integer

Set Rng = Sheet1.[a7].CurrentRegion
For J = 1 To 9
    ShName = Left(Sheet1.[A1].Value, 1) & Right("000" & CStr(J), 4)
    Sheets.Add(After:=Sheets(Sheets.Count)).Name = ShName
    Sheets(ShName).[A1].Value = ShName
    Sheets(ShName).[A4].Resize(Rng.Rows.Count) = Rng.Value
Next J
End Sub

 

[raovatchung]

Bạn mở bộ thu macro lên & mần thử; Nếu thấy rườm rà cái đứa con thu được thì gởi lên; Sẽ có người cô gọn lại cho bạn, nếu bạn chưa đủ khả năng này.

Thân ái & chúc vui!

cảm ơn bạn ạ, mình tìm xem có cách nào hiệu quả không ạ

 

[HUONGHCKT]

Thử code này xem sao. hy vọng đúng ý

Sub ThemSheet()
ten = Sheet1.[A1].Value
Sheets.Add(After:=Sheets(Sheets.Count)).Name = Format(ten, "A000#")
Sheet1.[A1] = Sheet1.[A1] + 1
End Sub
[PHP]

 

[raovatchung]

Thử code này xem sao. hy vọng đúng ý

Sub ThemSheet()
ten = Sheet1.[A1].Value
Sheets.Add(After:=Sheets(Sheets.Count)).Name = Format(ten, "A000#")
Sheet1.[A1] = Sheet1.[A1] + 1
End Sub
[PHP]

bạn ơi mình muốn làm như đính kèm ạ.

 

[Maika8008]

Thử code này xem sao. hy vọng đúng ý

Sub ThemSheet()
ten = Sheet1.[A1].Value
Sheets.Add(After:=Sheets(Sheets.Count)).Name = Format(ten, "A000#")
Sheet1.[A1] = Sheet1.[A1] + 1
End Sub
[PHP]

Thớt muốn là giá trị tại A1 của sheet mới tăng thêm 1

 

[HUONGHCKT]

bạn ơi mình muốn làm như đính kèm ạ.

Của bạn đây. Ô A1 của sheet1 phải dược định dạng namber và custom là A000#.

 

[raovatchung]

Của bạn đây. Ô A1 của sheet1 phải dược định dạng namber và custom là A000#.

thank bạn nhiều nhé, để mình áp dụng xem sao ạ

 

[VetMini]

Bạn mở bộ thu macro lên & mần thử; Nếu thấy rườm rà cái đứa con thu được thì gởi lên; Sẽ có người cô gọn lại cho bạn, nếu bạn chưa đủ khả năng này.
...

cảm ơn bạn ạ, mình tìm xem có cách nào hiệu quả không ạ

Cách hiệu quả hơn là ngồi chờ thể nào cũng có người àm giùm (xem bài #8)