Gửi e xin file này mới Anh VoVa ơiCái nút Spin Button như hình bên dưới có thể đưa lên thanh menu được không ạ.
Hoặc là code VBA để Chỉnh thay đổi số ở ô AZ1
View attachment 199428
Cái này tôi nghĩ có lẽ sè phù hợp với nhu cầu của bạn.Cái nút Spin Button như hình bên dưới có thể đưa lên thanh menu được không ạ.
Hoặc là code VBA để Chỉnh thay đổi số ở ô AZ1
View attachment 199428
Chưa đúng như ý lắm anh à!Cái này tôi nghĩ có lẽ sè phù hợp với nhu cầu của bạn.
https://social.msdn.microsoft.com/F...-a-custom-ribbon-in-excel-2007?forum=exceldev
Như này chạy được 1 sheet không chạy được cho nhiều sheets khác à anh, a có thể chế nguyên = VBA thôi ko cái menu xấu quá không tùy biến chỉnh đượcSao tôi nghĩ lại đúng vậy ta, bạn xem file thử.
Cài này tôi viêt cho sheet cụ thể còn bạn muốn sheet đang làm việc thì thay tên sheet thành ActiveSheet là được. Còn việc đẹp xấu tôi không can thiệt được, muốn thay đổi nó đề nghị liên hệ với anh Bill.Như này chạy được 1 sheet không chạy được cho nhiều sheets khác à anh, a có thể chế nguyên = VBA thôi ko cái menu xấu quá không tùy biến chỉnh được
Em muốn 1 cái code đơn giản next và lùi với số đang có ở ô AZ1 ko cần add ribbon nữa ạ. Hộ em vớiCài này tôi viêt cho sheet cụ thể còn bạn muốn sheet đang làm việc thì thay tên sheet thành ActiveSheet là được. Còn việc đẹp xấu tôi không can thiệt được, muốn thay đổi nó đề nghị liên hệ với anh Bill.
Cái này tôi nghĩ đơn giản mà, bạn tạo được cái Ribbon và một mâm code thế kia mà bây giờ chỉ cần code tăng hoặc giảm giá trị của ô thôi mà bạn lại hỏi không nghĩ ra được.Em muốn 1 cái code đơn giản next và lùi với số đang có ở ô AZ1 ko cần add ribbon nữa ạ. Hộ em với
Public Sub Tien()
ActiveSheet.Range("AZ1").Value = ActiveSheet.Range("AZ1").Value + 1
End Sub
Public Sub Lui()
ActiveSheet.Range("AZ1").Value = ActiveSheet.Range("AZ1").Value - 1
End Sub
Chuẩn rồi! mình đang cần cái này. Cảm ơn bạn nhiềuCái này tôi nghĩ đơn giản mà, bạn tạo được cái Ribbon và một mâm code thế kia mà bây giờ chỉ cần code tăng hoặc giảm giá trị của ô thôi mà bạn lại hỏi không nghĩ ra được.
Mã:Public Sub Tien() ActiveSheet.Range("AZ1").Value = ActiveSheet.Range("AZ1").Value + 1 End Sub Public Sub Lui() ActiveSheet.Range("AZ1").Value = ActiveSheet.Range("AZ1").Value - 1 End Sub