Hỏi về code VBA (không biết đặt tên tiêu đề thế nào cho bật được nội dung cần hỏi). (2 người xem)

[boydaigai]

Mong được thứ lỗi
Nội dung e ghi trong file đính kèm
Mong được giúp đỡ

 

[SA_DQ]

Private Sub CommandButton1_Click()
 With [E1]
    [d5].Value = Left(.Value, 1) & Right("000" & CStr(CLng(Mid(.Value, 2, 4)) + 1), 4)
 End With
End Sub

Tiêu đề có thể là:
Viết giúp tôi macro tăng thêm 1 đơn vị trong chuỗi mã dạng "X0009" => "X0010"

 

[Hau151978]

Bạn có thể dùng công thức sau, đỡ phải dùng vba
D5=LEFT(E1,1)& TEXT(RIGHT(E1,4)+1,"0000")

 

[boydaigai]

Private Sub CommandButton1_Click()
 With [E1]
    [d5].Value = Left(.Value, 1) & Right("000" & CStr(CLng(Mid(.Value, 2, 4)) + 1), 4)
 End With
End Sub

Tiêu đề có thể là:
Viết giúp tôi macro tăng thêm 1 đơn vị trong chuỗi mã dạng "X0009" => "X0010"

Cháu cảm ơn chú
Sẵn tiện đây cháu hỏi tiếp về cách tìm kiếm ngược từ dưới lên. E record marco toàn thấy tìm từ trên xuống .Thắc mắc cháu ghi ở file dưới

 

[Quang_Hải]

Cháu cảm ơn chú
Sẵn tiện đây cháu hỏi tiếp về cách tìm kiếm ngược từ dưới lên. E record marco toàn thấy tìm từ trên xuống .Thắc mắc cháu ghi ở file dưới

Cách đơn giản nhất là dùng vòng lặp For Next duyệt ngược để tìm cái cần tìm. Khi tìm được thì thoát vòng lặp.

 

[ndu96081631]

[h=2]Hỏi về code VBA (không biết đặt tên tiêu đề thế nào cho bật được nội dung cần hỏi).[/h]

Nếu bạn đã không nghĩ ra được tiêu đề thế nào thì tốt nhất đừng mở chủ đề mới, vì đằng nào nó cũng sẽ bị xóa.
Bạn có thể vào đây để hỏi những vấn đề đơn giản liên quan đến VBA:
http://www.giaiphapexcel.com/forum/showthread.php?85576-Chuyên-mục-xử-lý-gỡ-rối-code-VBA
(xem trong file thì thấy nội dung xoay quanh việc thiết lập số thứ tự liên tiếp, đâu phải không nghĩ ra được tiêu đề phù hợp?)