[Help] Xin code macro tăng số thứ tự (1 người xem)

[onecry]

Tình hình là em cần một mã code tăng số thứ tự tự động bằng cách click chuột. ví dụ số trong ô hiện tại là 155 [click] thành 156. mong mấy prồ giúp đỡ. em xin chân thành cảm ơn ạ.

 

[kyo]

Tình hình là em cần một mã code tăng số thứ tự tự động bằng cách click chuột. ví dụ số trong ô hiện tại là 155 [click] thành 156. mong mấy prồ giúp đỡ. em xin chân thành cảm ơn ạ.

Cụ thể là click vào đâu vậy bạn? Click thẳng vào cell chứa số đó hay sao bạn?

 

[onecry]

zạ click vào nút mình tự tạo bên ngoài ạ.

 

[kyo]

zạ click vào nút mình tự tạo bên ngoài ạ.

Bạn có thể tạo một Form Button và gán cho nó macro như thế này. Kyo giả định A1 là nơi bạn muốn tăng số thứ tự. Tất nhiên code này còn đơn giản, bạn có thể phát triển tùy mục đích của bạn.

Sub test()
If Not IsNumeric([A1].Value) Then [A1].Value = 0
[A1].Value = [A1].Value + 1
End Sub

 

[onecry]

Thank anh kyo nhé, em chạy được rồi hi