có cách nào tạo ra một sheet thì đặt tên cho sheet liên không?

[ongtrungducmx25]

mình co gi macro tạo ra sheet nhưng không tạo ra bảng thay đổi sheet
code:
sub taosheetdatten()
Sheets.Add
Sheets("Sheet1").Select
end sub

xin các pác chỉ giùm!thank

 

[tedaynui]

Thầy "không chăm" Record Macro gì cả. Thầy record Macro sẽ thấy ngay mà
Thầy muốn đổi tên Sheet thì làm như sau :

 sub taosheetdatten()
Sheets.Add
' Có thể thêm InputBox ở đây
Sheets("Sheet1").Name = [B]"ABC"[/B]
end sub

Thân

 

[ongtrungducmx25]

không hiểu InputBox ở đây là sao zậy em tạo mồt file cho thầy xem thử nhé!thanh"phước"

 

[tedaynui]

không hiểu InputBox ở đây là sao zậy em tạo mồt file cho thầy xem thử nhé!thanh"phước"

Thầy dùng thử code này xem

Sub taosheetdatten()
Dim wsName As String
Sheets.Add
wsName = InputBox("Nhap ten Sheet moi")
ActiveSheet.Name = wsName
End Sub

Thân

 

[TranNguyenDanNhi]

không hiểu InputBox ở đây là sao zậy em tạo mồt file cho thầy xem thử nhé!thanh"phước"

Có lẽ phải đưa cho bác này cái cần câu để bác câu sẽ tốt hơn nhiều :
Trong cửa sổ VBE (soạn thảo của VBA), nhấn F1, nhập vào Inputbox và Enter
Khi đó bác sẽ hiểu : Nó là cái gì ???
Đây cũng là cách tiếp cận VBA rất tốt
Mong rằng bác áp dụng cho những lần sau, nhiều khi nó có sẵn trong tay đấy bác ạ.

Cheer!!

 

[ongtrungducmx25]

mình vào VBA sau đó chọn F1 có khung VBA-help để xem chơi hã đúng không cái đó là "Inputbox " như bạn nói sau!