Xin hỏi về lệnh để tăng giá trị của Ô !

[thanhvien1802]

Trong Excel, giả sử tạo 1 nút Command để khi nhấp vào đó thì giá trị của Ô E5 tăng lên 1 giá trị sau 1 lần nhấp.
XIn hướng dẫn chi tiết cách tạo và chi tiét lệnh. Mình lần đầu tiên bước vào cửa lập trình Excel ........... Mình cảm ơn trước ....!

 

[anhtuan1066]

Quá đơn giãn, 1 dòng code duy nhất:

Range("E5").Value = Range("E5").Value + 1

Cho bạn file tham khảo luôn, có tăng và giãm... (xem file tang&giam)


Gợi ý bạn 1 cách khác còn dễ hơn... ko dùng tí code nào, chỉ xài những thứ có sẳn của Excel...
Xem file tang&giam 1 nhé!
ANH TUẤN

 

[tedaynui]

Thật ra thì đơn giản mà cũng không đơn giản thế Anh Tuấn à. Vì nếu đơn giản thì dùng ActiveCell để được tăng/giảm giá trị 1 Cell hiện hành. Nhưng không đơn giản là cần kiểm tra xem giá trị trong Cell phải là Number hay không và có khi người dùng không chọn 1 Cell mà là 1 vùng thì phải duyệt hết các Cell trong vùng...hi hi

Cũng có 1 cách đơn giản hơn mà không dùng VBA, đó là dùng chức năng có sẵn của Excel là Paste Special

TDN

 

[anhtuan1066]

Đúng vậy! Và nhiệm vụ của ta là phải bẩy lỗi... nhưng.. khi ta gặp phải lỗi mới nghiên cứu nó thì sẽ nhớ dai hơn, đúng ko?
Với các lỗi mà thầy Phước vừa nêu thì.. dùng cách 2 của tôi, bằng chức năng có sẳn của Excel sẽ ko bao giờ bị sa bẩy... bất chấp cell ấy trước đó đã dc format là gì, có nội dung gì... he.. he..
ANH TUẤN