Để chuẩn bị Báo cáo tham dự với bảng tính Excel

Báo cáo tham dự có thể dễ dàng chuẩn bị trong một bảng Excel. Có một số phương pháp, cần thiết để làm theo để sắp xếp các bảng Excel . Chuẩn bị một bảng Excel hiển thị tỷ lệ phần trăm người tham dự trong một tháng. Người dùng cũng sẽ cần chuẩn bị một mẫu cho báo cáo tham dự. Nó sẽ dễ dàng hơn để chạy nó ở định dạng Macro. Mở một bảng tính mới có chứa mẫu của báo cáo tham dự. Cần phải lấy dữ liệu từ bảng tính Bảng tham dự . Chuẩn bị cột chèn dữ liệu. Bây giờ đổi tên bảng công việc mới . Lặp lại quá trình cho đến khi đến đích là ô trống. Phần mềm Office thực sự hữu ích trong ứng dụng chuẩn bị tham dự này.

Để chuẩn bị Báo cáo tham dự với bảng tính Excel

Vấn đề
Dung dịch
chú thích

Vấn đề

Tôi có 60 cư dân làm việc trong bộ phận của chúng tôi. Họ tham dự báo cáo buổi sáng mỗi ngày. Vì vậy, tôi đã chuẩn bị một bảng Excel (Bảng tham dự được đặt tên) có các cột A1: A60 với tên của cư dân B1: B60 với tỷ lệ tham dự trong một tháng. Công việc của tôi là chuẩn bị một báo cáo tham dự cho mỗi cư dân. Tôi đã chuẩn bị một mẫu cho báo cáo tham dự. Bây giờ tôi muốn chạy một Macro sẽ làm những việc sau:

1. Mở một bảng tính mới từ mẫu trong sổ làm việc có "Bảng tính tham dự"

2. Nó sẽ mang dữ liệu từ bảng tính "Bảng tham dự"

a. Từ cột đầu tiên A1 và đặt vào trường Tên của mẫu (bảng tính mới được mở trong giai đoạn một) (luôn luôn là D6)

b. Mang dữ liệu từ B1 và đưa vào trường phần trăm của mẫu (F10)

c. Nó nên đổi tên tab bảng tính với dữ liệu từ A1 (tức là tên của cư dân)

3. Nó sẽ lặp lại bước 2 cho đến khi đến ô trống

Bất cứ ai có thể giúp tôi viết macro.?

Dung dịch

 'Báo cáo tham dự chương trình con
'Mở Bảng tính mới được gọi là bảng tính tham dự
'Với dữ liệu từ Bảng chấm công
'Tên cư dân đến D6
'Tỷ lệ tham dự trong một tháng tới F10
'Đổi tên trang thành tên cư dân và bắt đầu lại
'Dành cho tất cả cư dân trong bàn
Tham dự phụ Báo cáo ()
Dim cCell As Object, i As Integer 'Hai biến cCell (cell hiện tại) và i (số nguyên đếm chuẩn)
Các ô (1, "A"). Chọn 'Đảm bảo rằng chúng tôi bắt đầu mỗi lần ở đầu trang tính
Application.ScreenUpdating = false 'Bật cập nhật màn hình trong khi macro đang chạy
Đối với mỗi cCell In Range (Các ô (1, "A"), Các ô (1, "A"). Kết thúc (xlDown)) 'Sẽ chạy mã của chúng tôi qua từng ô bằng văn bản
Đặt NewSheet = Sheets.Add (Loại: = xlWorksheet) 'Thêm bảng tính mới
NewSheet.Name = "Bảng tính bảng tham dự" 'đổi tên trang tính
Trang tính ("Bảng tính tham dự"). Các ô (6, "D"). Giá trị = cCell.Value 'đặt tên cư dân là ô D6
Trang tính ("Bảng tính tham dự"). Các ô (10, "F"). Giá trị = cCell. Offerset (0, 1). Giá trị 'đặt mức độ cư trú vào F10
Trang tính ("Bảng tính tham dự"). Name = cCell.Value
Tiếp theo
Kết thúc phụ