Giúp kết hợp trong VBA (1 người xem)

[tueyennhi]

Em có đoạn mã sau

Sub Macro1()
Application.Calculation = xlManual
Application.Calculation = xlAutomatic
Application.Calculation = xlSemiautomatic
End Sub


Cho em hỏi có thể thêm code để hình thành addin chuyển đổi các chế độ trên được không? Nghĩa là em nạp addin này và cho nó thành nút bấm trên thanh công cụ. Mỗi lần em bấm nút thì sẽ chuyển lần lượt các chế độ.

 

[tueyennhi]

Thay vì ban phải bấm vào cái nút do bạn tạo. Sao không bấm trực tiếp trên Ribbon đã có sẵn mấy cái lựa chọn này rồi... Đúng là biết xài chút VBA nó khổ quá bạn nhỉ??? cái gì cũng phải VBA mới chịu...

Nhưng mà nó không tích hợp vào một cái ý.

 

[tamthat]

Thay vì ban phải bấm vào cái nút do bạn tạo. Sao không bấm trực tiếp trên Ribbon đã có sẵn mấy cái lựa chọn này rồi... Đúng là biết xài chút VBA nó khổ quá bạn nhỉ??? cái gì cũng phải VBA mới chịu...

Thật sự tôi cũng không biết có chức năng này trên Ribbon, sau khi đọc bài xong, tôi cũng tìm mà chưa biết chỗ nào. Mong bạn chỉ thêm.

Em có đoạn mã sau

Sub Macro1()
Application.Calculation = xlManual
Application.Calculation = xlAutomatic
Application.Calculation = xlSemiautomatic
End Sub


Cho em hỏi có thể thêm code để hình thành addin chuyển đổi các chế độ trên được không? Nghĩa là em nạp addin này và cho nó thành nút bấm trên thanh công cụ. Mỗi lần em bấm nút thì sẽ chuyển lần lượt các chế độ.

Tôi chưa rơi vào trường hợp phải sử dụng các chế độ này. Bạn thử code này xem, hi vọng có thể giúp được bạn.

Public ShiftCase As Integer
Sub chedo()
ShiftCase = ShiftCase + 1
If ShiftCase > 3 Then ShiftCase = 1
Select Case ShiftCase
    Case 1
    Application.Calculation = xlManual
    Case 2
    Application.Calculation = xlAutomatic
    Case 3
    Application.Calculation = xlSemiautomatic
End Select
End Sub

 

[tamthat]

Formulas/Caculation Options
(Office 2010,13,16 ...còn cũ hơn không biết có tương tự không)

Nhờ có bạn chỉ, tôi đã biết cái code tôi góp ý ở trên nó có chạy hay không và nó chạy thì thay đổi của nó là gì. Thanks!