Đánh dãy chữ liên tiếp (1 người xem)

[quangdiepctmbk]

Giúp mình code để tạo ra dãy chữ
T001
T002
---
T088
T089
----
T999

Cảm ơn các bạn nhé!

 

[Let'GâuGâu]

Giúp mình code để tạo ra dãy chữ
T001
T002
---
T088
T089
----
T999

Cảm ơn các bạn nhé!

If ActiveCell.Offset(-1) <> "" Then ActiveCell.Value = "T" & Val(Replace(ActiveCell.Offset(-1), "T", "")) + 1

 

[quangdiepctmbk]

If ActiveCell.Offset(-1) <> "" Then ActiveCell.Value = "T" & Val(Replace(ActiveCell.Offset(-1), "T", "")) + 1

Nếu làm như bạn nó sẽ ra T1,T2,T88...T999
Nhưng mình muốn lúc nào nó cũng hiện 3 chữ số ở cuối : T001,T002,T088,...T999
Thank bạn!

 

[qdtoday]

Ô A1: gõ T001
Ô A2: gõ T002

rồi quét 2 em, kéo thủ công xún dưới là xong rồi.

Ông này đơn giản thế cũng nhờ.

 

[quangdiepctmbk]

Ô A1: gõ T001
Ô A2: gõ T002

rồi quét 2 em, kéo thủ công xún dưới là xong rồi.

Ông này đơn giản thế cũng nhờ.

Việc tạo T001,T002 chỉ là một phần trong file macro mình đang muốn tạo nên mình muốn chức năng tạo T001,T002 cũng làm bằng Macro.Để sau này chỉ cần click xong là nó làm hết.
Nếu file excel chỉ có chức năng là gõ T001,T002 thì làm như bạn là đơn giản nhất.
Thank!

 

[qdtoday]

Đây ông ~~> https://drive.google.com/file/d/0B1exp9SdGJ8pMWVfSGlOUVl3elk/view?usp=sharing

 

[HieuCD]

code
If ActiveCell.Offset(-1) <> "" Then Num = Val(Replace(ActiveCell.Offset(-1), "T", "")) + 1
ActiveCell.Value = "T" & String(3 - Len(Num), "0") & Num