Nhờ viết code và tạo command button (4 người xem)

[Ba Tê]

Nhờ các Bạn viết code và tạo một command button "Tính điểm" trên dòng đầu tiên, để khi nhập dữ liệu xong, ấn vào nút "Tính điểm" mới cập nhật điểm số vào các cột có công thức.
-- Cụ thể như sau: khi mở sheet, code sẽ chỉnh Calculation thành manual, tạo nút "Tính điểm" thay cho bấm F9, khi chuyển sang sheet khác hoặc đóng tập tin thì chuyển lại thành Calculation Automatic.
Cảm ơn các Bạn nhiều.
Ba Tê.

 

[chibi]

Option Explicit
Private Sub Worksheet_Activate()
    Application.Calculation = xlCalculationManual
End Sub
Private Sub Worksheet_Deactivate()
    Application.Calculation = xlCalculationAutomatic
End Sub

Và

Option Explicit
Sub cal()
    calculate
End Sub

 

[Hoàng Trọng Nghĩa]

Không biết mình làm như vầy có đúng ý bạn không. Nhưng tôi nghĩ, nếu nhập công thức bằng CommandButton thì tôi sẽ làm code trên sheet, mỗi khi nhập đúng điều kiện cell thì tự động công thức sẽ cập nhật tại hàng đó là tốt nhất, hơi đâu mà click vào Button cho mệt, lỡ khi quên thì phiền toái.

 

[Ba Tê]

Option Explicit
Private Sub Worksheet_Activate()
    Application.Calculation = xlCalculationManual
End Sub
Private Sub Worksheet_Deactivate()
    Application.Calculation = xlCalculationAutomatic
End Sub

Và

Option Explicit
Sub cal()
    calculate
End Sub

---
Mình làm được rồi,
Thành thật cảm ơn.

 

[Ba Tê]

Không biết mình làm như vầy có đúng ý bạn không. Nhưng tôi nghĩ, nếu nhập công thức bằng CommandButton thì tôi sẽ làm code trên sheet, mỗi khi nhập đúng điều kiện cell thì tự động công thức sẽ cập nhật tại hàng đó là tốt nhất, hơi đâu mà click vào Button cho mệt, lỡ khi quên thì phiền toái.

----
Không phải vô cớ, dữ liệu có trên 1500 dòng, tập tin có khoảng 16, 17 sheet, nếu mỗi lần nhập dữ liệu vào một ô, ấn Enter nó calculate rất lâu, nên mình muốn sau khi nhập xong mới cho nó tính toán.
Cảm ơn Bạn đã quan tâm.
Thân mến.
---------
Mình vừa làm được rồi.

 

[ChanhTQ@]

----
Không phải vô cớ, ---------

Có khi vấn đề của bạn là ở cấu trúc CSDL đó kia!

Ví đang tại BOX 'Giáo dục' nên mình liên tưởng chỉ nhập điểm là nhiều đến vậy (?)

Cho phép mình được hỏi bạn 1 số vấn đề sau:

(*) Bạn đã triệt để dùng mã HS thay vì họ tên HS chưa?
Bạn xem lại thử, có khi tách những trường như Nam-Nữ, Ngày sinh, phụ huynh, Đ chỉ, . . . ra thành 1 bảng riêng hay chưa. Ví dụ: Bạn có dùng mã tỉnh để thay cho tên tỉnh hay chưa vậy.
(*) 17 - 2o trang tính kia của các lớp; Có khi nào bạn có suy nghỉ nên gộp chúng lại hay chưa.
. . . . .

(Nhưng chắc thảo luận kỹ ở đây rõ là không nên; Mình xin tạm dừng.)
​

 

[Ba Tê]

Có khi vấn đề của bạn là ở cấu trúc CSDL đó kia!

Ví đang tại BOX 'Giáo dục' nên mình liên tưởng chỉ nhập điểm là nhiều đến vậy (?)

Cho phép mình được hỏi bạn 1 số vấn đề sau:

(*) Bạn đã triệt để dùng mã HS thay vì họ tên HS chưa?
Bạn xem lại thử, có khi tách những trường như Nam-Nữ, Ngày sinh, phụ huynh, Đ chỉ, . . . ra thành 1 bảng riêng hay chưa. Ví dụ: Bạn có dùng mã tỉnh để thay cho tên tỉnh hay chưa vậy.
(*) 17 - 2o trang tính kia của các lớp; Có khi nào bạn có suy nghỉ nên gộp chúng lại hay chưa.
. . . . .

​

(Nhưng chắc thảo luận kỹ ở đây rõ là không nên; Mình xin tạm dừng.)​

------
Cảm ơn Bạn đã góp ý, mình sẽ cố gộp chúng lại trong 1 vài trang xem có cải thiện được tốc độ phần nào không. Mình chỉ mới hình dung cách làm chứ chưa hoàn chỉnh.
Thân mến.

 

[jazzbluephile]

to: Ba Tê

hi, mình thấy bạn tạo dòng heading cho bảng tính rất hay, nó vẫn đứng yên khi cuộn sheet để người nhìn vẫn nhìn thấy tiêu đề cho từng cột. bạn giúp mình cách làm heading đó được k?

 

[Ba Tê]

to: Ba Tê

hi, mình thấy bạn tạo dòng heading cho bảng tính rất hay, nó vẫn đứng yên khi cuộn sheet để người nhìn vẫn nhìn thấy tiêu đề cho từng cột. bạn giúp mình cách làm heading đó được k?

-----
Chắc Bạn chưa "vọc" Excel nhiều, thôi thì cứ làm thử như sau:
Ví dụ như Bảng tính Bạn "thấy" ở bài #1, Bạn chọn ô F4, Chọn menu Window - chọn Unfreeze panes, xem thử cách hiển thị của Bảng tính, rồi cũng chọn ô F4, rồi Window - Freeze panes. Bạn sẽ hiểu cách mà Bạn muốn hiển thị ...
Nghiên cứu thêm nhiều tính năng trên menu chính của Excel nhé!
Thân.

 

[jazzbluephile]

to: Ba Tê. minh đã làm được chức năng Freeze panes. hi. tại mình tự học excel nên có nhiều cái tuy dễ mà k ai chỉ cho. thank Ba Tê nhiều.

 

[dvu58]

Nhờ các Bạn viết code và tạo một command button "Tính điểm" trên dòng đầu tiên, để khi nhập dữ liệu xong, ấn vào nút "Tính điểm" mới cập nhật điểm số vào các cột có công thức.
-- Cụ thể như sau: khi mở sheet, code sẽ chỉnh Calculation thành manual, tạo nút "Tính điểm" thay cho bấm F9, khi chuyển sang sheet khác hoặc đóng tập tin thì chuyển lại thành Calculation Automatic.
Cảm ơn các Bạn nhiều.
Ba Tê.

Có nên hay không?
Vì thật ra, chỉ cần chọn menu Tool - Options - Calculation -> Từ thẻ Calculation, chọn Manual -> Nhập liệu. Khi nào cần tính thì từ thẻ này (Calculation) lại chọn Automatic (Các lựa chọn này có sẵn trong Excel rồi mà)