Xóa sheet các file dữ liệu nằm trong cùng thư mục (1 người xem)

[tanthanhkg]

Em có 2 file dữ liệu có cấu trúc như nhau : sheet1 (Thông tin chung) và sheet2 là tên lớp(6A1)nằm trong cùng một thư mục.
- Xin mọi người cho em đoạn code xóa sheet1 (Thông tin chung) trong 2 file trên.
-Sau khi xóa song thì gộp 2 file trên lại thành 1 file và 1 sheet .(mỗi thông tin học sinh nằm trên 1 tờ giấy A4 như trong file kèm theo để in học bạ cho học sinh)
Em xin cảm ơn.

 

[befaint]

Sao lại rắc rối kinh khủng như thế?
Mình có bao nhiêu files cần thực hiện như trên? Chắc đâu chỉ có 2 files phải không?
----
Người ta làm như vầy:
- Lập một bảng dữ liệu cần in trên 1 sheet.
- Tạo một form in trên 1 sheet. Lấy dữ liệu cần in từ sheet bảng dữ liệu qua rồi in.
(Có thể viết một đoạn macro để in hàng loạt).

 

[tanthanhkg]

Dạ đúng rồi. Trong một lớp học có khoảng 30-35 hs tương ứng với 30-35 file như vậy.
Bởi vì em cần gấp để chuẩn bị in học bạ cho học sinh ạ.

 

[befaint]

Dạ đúng rồi. Trong một lớp học có khoảng 30-35 hs tương ứng với 30-35 file như vậy.
Bởi vì em cần gấp để chuẩn bị in học bạ cho học sinh ạ.

mỗi lớp nằm trên 1 tờ giấy A4 để in học bạ cho học sinh

Mỗi bạn học sinh trên 1 nửa tờ A3 chứ? Nêu thật chính xác nhé.

Bạn gộp thành một mẫu kết quả xem nào, rồi gửi lên đây...

 

[tanthanhkg]

Sao lại rắc rối kinh khủng như thế?
Mình có bao nhiêu files cần thực hiện như trên? Chắc đâu chỉ có 2 files phải không?
----
Người ta làm như vầy:
- Lập một bảng dữ liệu cần in trên 1 sheet.
- Tạo một form in trên 1 sheet. Lấy dữ liệu cần in từ sheet bảng dữ liệu qua rồi in.
(Có thể viết một đoạn macro để in hàng loạt).

Em nhờ anh giúp dùm em ạ.

 

[tanthanhkg]

Mỗi bạn học sinh trên 1 nửa tờ A3 chứ? Nêu thật chính xác nhé.

Bạn gộp thành một mẫu kết quả xem nào, rồi gửi lên đây...

Dạ để em gửi lên ...trên tờ giấy a4 anh ạ...

 

[tanthanhkg]

Đại khái là như hình dưới ạ. Mỗi thông tin trong hình là nằm trên khổ giấy a4 để in ra rồi ghép lại đóng thành cuốn học bạ ạ.

 

[befaint]

Đại khái là như hình dưới ạ. Mỗi thông tin trong hình là nằm trên khổ giấy a4 để in ra rồi ghép lại đóng thành cuốn học bạ ạ.

Mình đính chính lại. Ứng với mỗi bạn học sinh thì in trên một mặt của tờ A4 hay là in trên 1 nửa trang tờ A3? In một mặt hay in cả hai mặt của tờ giấy?

Bạn gửi file excel là kết quả của việc gộp 2 sheets lên ấy. Hình ảnh không làm gì được.

 

[tanthanhkg]

Mỗi bạn học sinh trên 1 nửa tờ A3 chứ? Nêu thật chính xác nhé.

Bạn gộp thành một mẫu kết quả xem nào, rồi gửi lên đây...

Dạ mỗi một bạn học sinh trên 1 tờ giấy A4 để in ra học bạ và đóng cuốn ạ.
Chứ không phải trên giấy A3, bởi vì nhà trường chưa mua được máy in khổ A3 ạ

 

[befaint]

Dạ mỗi một bạn học sinh trên 1 tờ giấy A4 để in ra học bạ và đóng cuốn ạ.
Chứ không phải trên giấy A3, bởi vì nhà trường chưa mua được máy in khổ A3 ạ

Nếu vậy bạn cứ thế in sheet "6A1" của các files thôi. Đâu cần gộp gì lại đâu???

 

[tanthanhkg]

Mình đính chính lại. Ứng với mỗi bạn học sinh thì in trên một mặt của tờ A4 hay là in trên 1 nửa trang tờ A3? In một mặt hay in cả hai mặt của tờ giấy?

Bạn gửi file excel là kết quả của việc gộp 2 sheets lên ấy. Hình ảnh không làm gì được.

Xin cảm ơn anh, anh rất nhiệt tình. Để em gởi file excel lên. Xin hãy giúp em nhé...

 

[tanthanhkg]

Nếu vậy bạn cứ thế in sheet "6A1" của các files thôi. Đâu cần gộp gì lại đâu???

Nếu làm như vậy lâu lắm. Trường em có tất cả gần 1000 HS mà cứ mở từng sheet ra mà in thì tới bao giờ mới xong.

 

[tanthanhkg]

Dạ đây. Mỗi một khung nằm trên 1 tờ A4 ạ

 

[befaint]

Dạ đây. Mỗi một khung nằm trên 1 tờ A4 ạ

Nếu vậy mình không cần gộp lại đâu.
Có 2 phương án:
- Một là viết code để mở từng file và in sheet cần in.
- Gộp dữ liệu ở sheet cần in trong các files thành một bảng, rồi dùng 1 form để in hàng loạt.

Tại sao lại tách thành nhiều files thế? Bạn có bảng dữ liệu tổng hợp của toàn bộ các bạn học sinh chứ?

 

[tanthanhkg]

Dạ có.
Em quản lý bên SMAS cho nên khi in học bạ thì nó sẽ xuất ra tất cả các học sinh của mỗi lớp, mỗi học sinh là một file như trên. Nhờ anh giúp...

 

[befaint]

Dạ có.
Em quản lý bên SMAS cho nên khi in học bạ thì nó sẽ xuất ra tất cả các học sinh của một lớp, mỗi học sinh là một file như trên. Nhờ anh giúp...

Đính kèm nhầm file rồi...

 

[tanthanhkg]

Đính kèm nhầm file rồi...

Dạ ý anh nói làm sao em ko hiểu. Xin chỉ giúp...

 

[tanthanhkg]

SMAS sẽ xuất ra 1 thư mục gồm có nhiều file mang tên học sinh của 1 lớp để in học bạ cho các em hs
Ý của em là :
- xóa sheet1 (Thông tin chung) của các file trong cùng thư mục
-Sau khi xóa xong thì gộp các file này lại thành 1 file và chỉ có 1 sheet như file ketqua (mỗi thông tin học sinh nằm trên 1 tờ giấy A4 như trong file ketqua để in học bạ cho học sinh)
Nhờ anh giúp.

 

[befaint]

SMAS sẽ xuất ra 1 thư mục gồm có nhiều file mang tên học sinh của 1 lớp để in học bạ cho các em hs

Dữ liệu trước khi xuất ra từng file đó là gì? Có cái bảng tổng hợp không?

Tạm theo phương án mở và in luôn...
Bạn chép các file cần in vào một thư mực, click vào cái nút trong file dưới, tìm tới thư mục đó rồi click Open.

 

[tanthanhkg]

Dữ liệu trước khi xuất ra từng file đó là gì? Có cái bảng tổng hợp không?

Cảm ơn anh đã quan tâm.
Dữ liệu trước khi xuất ra từng file đó là phần mềm SMAS phần mềm quản lý điểm trường học, có địa chỉ là "smas.edu.vn"
SMAS sẽ xuất ra 1 thư mục nén như file dưới, trong thư mục này là các file excel.
Bảng tổng hợp đó chính là các file trong thư mục mà smas xuất ra, và cũng chính là học bạ của học sinh.

 

[tanthanhkg]

Bảng tổng hợp chính là học bạ của học sinh ở file dưới này anh ơi

 

[tanthanhkg]

Mình đừng gửi nhiều bài cùng nội dung thế chứ....

Mới lên diễn đàn cho nên không biết nội qui...

 

[tanthanhkg]

Xin cảm ơn anh befaint về file "Print.xls" anh đã gởi cho em. File chạy tốt.
Cho em hỏi chúc xíu nhé:
- Khi nhắp chuột vào nút click trong file Print.xls mà anh gửi cho em, sau khi chọn thư mục chứa các file cần in xong thì em muốn sẽ xuất hiện thông báo "chọn sheet cần in". Sau khi chọn sheet cần in sẽ hiện ra thông báo "In trang lẻ hoặc trang chẵn hoặc in tất cả" được không ạ.
Mong anh tận tình giúp đỡ.
============================================
Sub Main()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Const extFile As String = "xls"
Dim pFolder As String, wb As Workbook, wsName As String, wbName As String
Dim arName, i As Long, aTem, pFile As String
pFolder = GetpFolder("")
If Len(pFolder) = 0 Then Exit Sub
pFolder = pFolder & "\"
arName = GetFilesInFolder(pFolder, extFile)
If typeName(arName) <> "Variant()" Then Exit Sub
wbName = VBA.UCase(ThisWorkbook.Name)
For Each aTem In arName
If Not VBA.UCase(aTem) Like wbName Then
pFile = pFolder & aTem
Set wb = Workbooks.Open(pFile)
wsName = NameSheet2Print(wb)
If Len(wsName) > 0 Then
wb.Worksheets(wsName).PrintOut 'In ngay
End If
wb.Close False
End If
Next aTem
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Function NameSheet2Print(ByVal wb As Workbook) As String
Dim ws As Worksheet
For Each ws In wb.Worksheets
If ws.Name Like "#*" Then
NameSheet2Print = ws.Name
Exit For
End If
Next ws
End Function

Public Function GetpFolder(ByVal pFolder As String) As String
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Select a Folder"
.AllowMultiSelect = False
.InitialFileName = pFolder
If .Show Then GetpFolder = .SelectedItems(1)
End With
End Function

Public Function GetFilesInFolder(ByVal pFolder As String, ByVal extensionFile As String)
Dim FSo As Object, objFolder As Object, objFile As Object, Result(), i As Long
Set FSo = CreateObject("Scripting.FileSystemObject")
Set objFolder = FSo.GetFolder(pFolder)
extensionFile = VBA.UCase(extensionFile)
For Each objFile In objFolder.Files
If VBA.UCase(FSo.GetExtensionName(objFile)) Like extensionFile Then
i = i + 1
ReDim Preserve Result(1 To i)
Result(i) = objFile.Name
End If
Next objFile
If i > 0 Then GetFilesInFolder = Result
End Function

 

[tanthanhkg]

CẦN GẤP.
EM ĐỢI TIN CỦA CẢ NHÀ NHÁ...

 

[befaint]

chạy tốt

Chạy được rồi thì kết thúc chủ đề rồi...

Cho em hỏi chúc xíu nhé:
- Khi nhắp chuột vào nút click trong file Print.xls mà anh gửi cho em, sau khi chọn thư mục chứa các file cần in xong thì em muốn sẽ xuất hiện thông báo "chọn sheet cần in". Sau khi chọn sheet cần in sẽ hiện ra thông báo "In trang lẻ hoặc trang chẵn hoặc in tất cả" được không ạ.

Túm lại yêu cầu cuối cùng của bạn là gì?
Sau hơn chục bài mà bạn chưa nêu rõ được vấn đề thì chịu thua. Không tài nào làm gì tiếp được.

Hỏi bạn cái bảng tổng hợp dữ liệu của các bạn học sinh thì bạn toàn gửi cái bảng trích riêng của từng bạn học sinh. Có hiểu cái bảng tổng hợp là gì không?

-------
Bài #24 trên, không được viết hoa toàn bài. Ngoài vi phạm nội quy thì còn khiếm nhã với người đọc.
Không được gửi nhiều bài khắp diễn đàn thế. Đã gửi nội quy để đọc rồi còn cố tình vi phạm? http://www.giaiphapexcel.com/diendan/threads/76052

 

[tanthanhkg]

Sub Main()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Const extFile As String = "xls"
Dim pFolder As String, wb As Workbook, wsName As String, wbName As String
Dim arName, i As Long, aTem, pFile As String
pFolder = GetpFolder("")
If Len(pFolder) = 0 Then Exit Sub
pFolder = pFolder & "\"
arName = GetFilesInFolder(pFolder, extFile)
If typeName(arName) <> "Variant()" Then Exit Sub
wbName = VBA.UCase(ThisWorkbook.Name)
For Each aTem In arName
If Not VBA.UCase(aTem) Like wbName Then
pFile = pFolder & aTem
Set wb = Workbooks.Open(pFile)
wsName = NameSheet2Print(wb)
If Len(wsName) > 0 Then
wb.Worksheets(wsName).PrintOut 'In ngay
End If
wb.Close False
End If
Next aTem
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Function NameSheet2Print(ByVal wb As Workbook) As String
Dim ws As Worksheet
For Each ws In wb.Worksheets
If ws.Name Like "#*" Then
NameSheet2Print = ws.Name
Exit For
End If
Next ws
End Function

Public Function GetpFolder(ByVal pFolder As String) As String
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Select a Folder"
.AllowMultiSelect = False
.InitialFileName = pFolder
If .Show Then GetpFolder = .SelectedItems(1)
End With
End Function

Public Function GetFilesInFolder(ByVal pFolder As String, ByVal extensionFile As String)
Dim FSo As Object, objFolder As Object, objFile As Object, Result(), i As Long
Set FSo = CreateObject("Scripting.FileSystemObject")
Set objFolder = FSo.GetFolder(pFolder)
extensionFile = VBA.UCase(extensionFile)
For Each objFile In objFolder.Files
If VBA.UCase(FSo.GetExtensionName(objFile)) Like extensionFile Then
i = i + 1
ReDim Preserve Result(1 To i)
Result(i) = objFile.Name
End If
Next objFile
If i > 0 Then GetFilesInFolder = Result
End Function
==============================
Với đoạn code như trên (kèm theo file print ở dưới) thì chạy tốt rồi.
Nhưng mà khi in ra là nó in đồng loạt hết các file luôn. Cho nên tôi thấy nó chưa khả thi và như ý muốn của bản thân.

Chạy được rồi thì kết thúc chủ đề rồi...
Túm lại yêu cầu cuối cùng của bạn là gì?
Sau hơn chục bài mà bạn chưa nêu rõ được vấn đề thì chịu thua. Không tài nào làm gì tiếp được.

Chủ đề chưa mang tính khả thi thì sao lại kết thúc được...
Tôi có thể đưa ra yêu cầu và các phương án khác cho chủ đề chứ của tôi chứ...
Sau hơn chục bài thì tôi đúc kết lại cái yêu cầu cũng như phương cuối cùng của tôi là dưới đây mà tôi đã gởi cho anh rồi ....(ở bài #23 đó)
Nó đây này còn gì nữa :
====================
Cho em hỏi chúc xíu nhé:
- Khi nhắp chuột vào nút click trong file Print.xls mà anh gửi cho em, sau khi chọn thư mục chứa các file cần in xong thì em muốn sẽ xuất hiện thông báo "chọn sheet cần in". Sau khi chọn sheet cần in sẽ hiện ra thông báo "In trang lẻ hoặc trang chẵn hoặc in tất cả" được không ạ.
===================
Vậy anh chưa đọc sao....[

 

[tanthanhkg]

Khi nhận ra vấn đề đã thấy mình sai.
Xin nhận lỗi mọi người.
Xin thứ lỗ cho tôi.

 

[hiénlinh197]

Khi nhận ra vấn đề đã thấy mình sai.
Xin nhận lỗi mọi người.
Xin thứ lỗ cho tôi.

tanthanhkg Mình cũng không đọc từ đầu vấn đề. Nhưng câu này thì chúc mừng bạn "NGƯỜI BIẾT NHẬN LỖI LÀ NGƯỜI KHÔNG SAI VÀ LÀ NGƯỜI VĨ ĐẠI" Bạn sẽ là người thành công trong sự nghiệp. Chào thân ái!

 

[tanthanhkg]

Xin cảm ơn
.

 

[befaint]

@Chủ thớt:
Ở chủ đề kia loãng quá nên không viết bài ở đó nữa...
Chốt lại là mình cần in học bạ cho các bạn học sinh (với dữ liệu ban đầu có được là lấy từ phần mềm SMAS (*)) đúng không?
Bộ Giáo dục đã yêu cầu dùng phần mềm SMAS rồi thì lấy đó làm căn cứ, nên:
- Dùng thêm Excel để giải quyết những công việc cần mà SMAS chưa đáp ứng được ngay;
- Không cần lập thêm cơ sở dữ liệu trên Excel để quản lý nữa, khi đó không cần tạo thêm mã học sinh mới làm gì (ở bài #37 anh @VetMini giải thích về cái mã dài nhoằng đó cũng có lý do chính đáng mà chưa rõ).

Quay lại yêu cầu là in học bạ. Căn cứ dữ liệu ban đầu bạn đưa thì tạm thời đưa ra 2 phương án đã nêu ở #14:

Có 2 phương án:
- Một là viết code để mở từng file và in sheet cần in. (1)
- Gộp dữ liệu ở sheet cần in trong các files thành một bảng, rồi dùng 1 form để in hàng loạt. (2).

(1) đã làm.
(2) chưa làm vì:
- Chờ xem (*) có thể cung cấp được những files có cấu trúc dữ liệu như nào?
+ Nếu là các file thông tin của các bạn học sinh riêng lẻ (như đã gửi) thì tốn thời gian gộp lại thành bảng dữ liệu tổng hợp để truyền sang mẫu in (mẫu học bạ);
+ Nếu có thể cung cấp được file thông tin tổng hợp của tất cả các bạn học sinh (theo khối/ lớp) thì sẽ nhanh hơn. Cái này đang hỏi và chờ phản hồi?

Phương án cuối: Gửi đề nghị (Sở/ Bộ...) yêu cầu bên cung cấp phần mềm xử lý.

 

[tanthanhkg]

Dạ mừng quá...
Trước tiên em xin cảm ơn Thầy befaint đã lên tiếng.
Em xin thành thật xin lỗi Thầy.
Vì lúc trước em chưa hiểu ra vấn đề cho nên .....
Mong Thầy thông cảm cho em.

 

[tanthanhkg]

.........Chốt lại là mình cần in học bạ cho các bạn học sinh (với dữ liệu ban đầu có được là lấy từ phần mềm SMAS (*)) đúng không?

Dạ đúng như thế ạ.

Bộ Giáo dục đã yêu cầu dùng phần mềm SMAS rồi thì lấy đó làm căn cứ, nên:
- Dùng thêm Excel để giải quyết những công việc cần mà SMAS chưa đáp ứng được ngay;
- Không cần lập thêm cơ sở dữ liệu trên Excel để quản lý nữa, khi đó không cần tạo thêm mã học sinh mới làm gì (ở bài #37 anh @VetMini giải thích về cái mã dài nhoằng đó cũng có lý do chính đáng mà chưa rõ).

Dạ em hiểu, theo em được biết thì Mã HS mà phần mềm SMAS của Viettel tạo ra rất quan trọng vì trong đó có mã trường học, mã năm học, mã tỉnh... để khi Bộ giáo dục hoặc Sở GD kiểm tra sẽ phân biệt được trường nào thuộc tỉnh nào... đại khái là như vậy...Ngoài ra Viettel còn dùng mã này để nhắn tin báo điểm hàng tuần của HS về cho phụ huynh đúng tỉnh và đúng trường.

Quay lại yêu cầu là in học bạ. Căn cứ dữ liệu ban đầu bạn đưa thì tạm thời đưa ra 2 phương án đã nêu ở #14:
(1) đã làm.
(2) chưa làm vì:
- Chờ xem (*) có thể cung cấp được những files có cấu trúc dữ liệu như nào?
+ Nếu là các file thông tin của các bạn học sinh riêng lẻ (như đã gửi) thì tốn thời gian gộp lại thành bảng dữ liệu tổng hợp để truyền sang mẫu in (mẫu học bạ);
+ Nếu có thể cung cấp được file thông tin tổng hợp của tất cả các bạn học sinh (theo khối/ lớp) thì sẽ nhanh hơn. Cái này đang hỏi và chờ phản hồi?

Phương án cuối: Gửi đề nghị (Sở/ Bộ...) yêu cầu bên cung cấp phần mềm xử lý.

+ File tổng hợp thông tin của tất cả các bạn học sinh theo lớp (HS_THCS_SoGoiTenVaGhiDiem_8A1_CN.xls).
+ File Học bạ HS (1_HS_THCS_HocBaHocSinh_LeNgocLanAnh.xls)
Ngoài ra Mã HS lại nằm ở lại nằm ở một file khác là file (BM_DanhSachHocSinh_Khoi8_8A1_THCSTanThanh.xls)
Hai file trên đều xuất từ phần mềm SMAS xuống để in.

Trường học chỉ là người sử dụng phần mềm SMAS của Viettel. Nếu mình chỉ muốn đơn giản hóa công việc của mình đang cần làm như dùng Excel để in các loại hồ sơ sổ sách cho HS mà gởi đề nghị lên thì họ không chấp nhận đâu Thầy. Vì họ chỉ việc tạo ra mẫu theo đúng qui định mà thôi còn việc in ấn như thế nào thì phía người sử dụng tự làm.
Xin Thầy giúp đỡ nhiều.
Em xin cảm ơn

 

[befaint]

+ File tổng hợp thông tin của tất cả các bạn học sinh theo lớp (HS_THCS_SoGoiTenVaGhiDiem_8A1_CN.xls).
+ File Học bạ HS (1_HS_THCS_HocBaHocSinh_LeNgocLanAnh.xls)
Ngoài ra Mã HS lại nằm ở lại nằm ở một file khác là file (BM_DanhSachHocSinh_Khoi8_8A1_THCSTanThanh.xls)
Hai file trên đều xuất từ phần mềm SMAS xuống để in.

- Mã học sinh lại không chạy theo trong 2 files: (HS_THCS_SoGoiTenVaGhiDiem_8A1_CN.xls) và (1_HS_THCS_HocBaHocSinh_LeNgocLanAnh.xls) thì chịu rồi, không có mã để làm căn cứ lấy dữ liệu trong file (BM_DanhSachHocSinh_Khoi8_8A1_THCSTanThanh.xls) nên file (BM_DanhSachHocSinh_Khoi8_8A1_THCSTanThanh.xls) tạm để đó.
- Giờ phương án như này:
1/ Sử dụng các files Học bạ của từng bạn học sinh (ví dụ là files 1_HS_THCS_HocBaHocSinh_LeNgocLanAnh.xls) để tổng hợp dữ liệu thành một bảng thông tin, rồi truyền vào mẫu học bạ rồi in. (*)
2/ Hoặc: Chuyển về cách mở từng file rồi in. Tức là chỉnh file ở bài #19 thêm chỗ lựa chọn sheet cần in, với sheet cuối (nội dung học bạ có 2 trang thì thêm lựa chọn trang cần in). Vì nhận thấy các files này có cấu trúc giống nhau.

Hỏi thêm (*): Phần "Điểm trung bình hoặc xếp loại" trong file (1_HS_THCS_HocBaHocSinh_LeNgocLanAnh.xls) khi xuất từ phần mềm SMAS ra đã có sẵn luôn tương ứng như trong file (HS_THCS_SoGoiTenVaGhiDiem_8A1_CN.xls) chứ? Trong 2 files đó đính kèm trên thì không thấy có tương ứng, file GhiDiem (a) thì có, file HocBaHocSinh (b) thì không có.
Nếu không có tương ứng thì có cần lấy từ (a) vào (b) không? Hay file (b) như nào thì in luôn?

 

[tanthanhkg]

Em cảm ơn Thầy nhiều.

- Mã học sinh lại không chạy theo trong 2 files: (HS_THCS_SoGoiTenVaGhiDiem_8A1_CN.xls) và (1_HS_THCS_HocBaHocSinh_LeNgocLanAnh.xls) thì chịu rồi, không có mã để làm căn cứ lấy dữ liệu trong file (BM_DanhSachHocSinh_Khoi8_8A1_THCSTanThanh.xls) nên file (BM_DanhSachHocSinh_Khoi8_8A1_THCSTanThanh.xls) tạm để đó.

Dạ em đã hiểu.

- Giờ phương án như này:
1/ Sử dụng các files Học bạ của từng bạn học sinh (ví dụ là files 1_HS_THCS_HocBaHocSinh_LeNgocLanAnh.xls) để tổng hợp dữ liệu thành một bảng thông tin, rồi truyền vào mẫu học bạ rồi in. (*)
2/ Hoặc: Chuyển về cách mở từng file rồi in. Tức là chỉnh file ở bài #19 thêm chỗ lựa chọn sheet cần in, với sheet cuối (nội dung học bạ có 2 trang thì thêm lựa chọn trang cần in). Vì nhận thấy các files này có cấu trúc giống nhau.

Dạ trăm sự nhờ Thầy, vạn sự nhờ Thầy...
Hai phương án trên thì phương án nào có ưu điểm tốt nhất thì em nhờ Thầy chọn dùm em, miễn sao cập nhật được dữ liệu và in thành học bạ là tốt rồi.

Hỏi thêm (*): Phần "Điểm trung bình hoặc xếp loại" trong file (1_HS_THCS_HocBaHocSinh_LeNgocLanAnh.xls) khi xuất từ phần mềm SMAS ra đã có sẵn luôn tương ứng như trong file (HS_THCS_SoGoiTenVaGhiDiem_8A1_CN.xls) chứ?

Dạ đúng rồi Thầy ơi. Khi phần mềm SMAS xuất ra có sẵn luôn.
Trong file (1_HS_THCS_HocBaHocSinh_LeNgocLanAnh.xls) có những dữ liệu gì thì bên file này (HS_THCS_SoGoiTenVaGhiDiem_8A1_CN.xls) đều có dữ liệu đó, file này chính là file tổng hợp dữ liệu để truyền dữ liệu và các file khác đó Thầy ơi.
Mới thi HK1 xong đã tổng kết HKI và kết quả đã được cập nhật vào 2 file này rồi. Để em gởi lên lại cho Thầy xem.
Thầy xem file(HS_THCS_HocBaHocSinh_LeNgocLanAnh) trong nội dung các comment em có hướng dẫn.

Trong 2 files đó đính kèm trên thì không thấy có tương ứng, file GhiDiem (a) thì có, file HocBaHocSinh (b) thì không có.
Nếu không có tương ứng thì có cần lấy từ (a) vào (b) không? Hay file (b) như nào thì in luôn?

Dạ đúng rồi chưa tương ứng là vì:
Lúc em gởi 2 file này lên thì dữ liệu ở file (b) chưa có là vì chưa thi HKI cho nên SMAS chưa cập vào file này.
Vậy nay đã thi HKI xong và đã tổng kết thì SMAS đã truyền dữ liệu từ file (a) sang file (b) rồi Thầy ạ. Chính là 2 file dưới.
Nhờ Thầy giúp đỡ nhiều.
Chúc Thầy buổi tối vui vẻ nhé...
Em cảm ơn Thầy nhiều....

 

[tanthanhkg]

------------------

 

[tanthanhkg]

- Mã học sinh lại không chạy theo trong 2 files: (HS_THCS_SoGoiTenVaGhiDiem_8A1_CN.xls) và (1_HS_THCS_HocBaHocSinh_LeNgocLanAnh.xls) thì chịu rồi, không có mã để làm căn cứ lấy dữ liệu trong file (BM_DanhSachHocSinh_Khoi8_8A1_THCSTanThanh.xls) nên file (BM_DanhSachHocSinh_Khoi8_8A1_THCSTanThanh.xls) tạm để đó.
...................

Dạ đúng rồi trong 2 file này thì không có Mã học sinh.
Mà nó lại nằm trong file này (BM_DanhSachHocSinh_Khoi8_8A1_THCSTanThanh.xls)

 

[befaint]

Chính là 2 file dưới.

Xem qua 2 files trên thấy đủ thông tin rồi.
Sắp xếp thời gian được thì mình sẽ làm.

------
Vấn đề xưng hô:
Ở phạm vi diễn đàn thì xưng hô ở mức xã giao là được rồi. (Anh/Tôi/Bạn gì gì đó thôi).
Mình cứ đôn người khác lên thầy/ tiền bối... nhiều khi làm người khác mắc cỡ, khó xử, ái ngại...
Mọi người vào diễn đàn với nhiều lý do nhưng thường là vì vướng mắc, cần hỗ trợ. Ở GPE mọi người thoải mái, làm được thì gửi bài hoặc vào chém gió vài câu cho vui nên ta thoải mái, không cần câu lệ khi người khác làm bài giúp mình.
(Vậy thôi, không bàn luận khúc này).

 

[tanthanhkg]

Xem qua 2 files trên thấy đủ thông tin rồi
.......................

Dạ em xin cảm ơn.
Em đã hiểu.

 

[befaint]

Mới thi HK1 xong đã tổng kết HKI và kết quả đã được cập nhật vào 2 file này rồi.

Làm theo 2 files đó.
Tạm như vậy, còn chỉnh sửa gì nữa để viết code...

 

[tanthanhkg]

Làm theo 2 files đó.
Tạm như vậy, còn chỉnh sửa gì nữa để viết code...

Dạ em cảm ơn Thầy nhiều.
file hoạt động tốt.
Em xin cảm ơn.
Chúc Thầy buổi tối vv&hp bên gia đình.

 

[befaint]

file hoạt động tốt.

Trong file có vài chỗ ghi màu đỏ chờ bạn phản hồi mà?

----
Không xưng hô "thầy" gì nữa nhá. Nói từ bài trước rồi mà. Chẹp chẹp.

 

[tanthanhkg]

Dạ để em sửa rồi em post lên.

 

[tanthanhkg]

Em đã sửa không biết đúng hay sai, chờ T phản hồi, nhờ T giúp em.
Em cảm ơn T nhiều.

 

[befaint]

Em đã sửa không biết đúng hay sai, chờ T phản hồi, nhờ T giúp em.
Em cảm ơn T nhiều.

1/ Sai lỗi chính tả: ẤpTân Vụ, ẤpTân Tiến
Mình chỉ nói là sai lỗi chính tả. Đúng là: Ấp {khoảng trắng} Tân Vụ, Ấp {khoảng trắng} Tân Tiến.
Bạn kiểm tra lại trong dữ liệu SoYeuLyLich xem, nguyên nhân do phần mềm hay do người nhập vào phần mềm?
Lúc in xong học bạ rồi thì chỉnh sửa rắc rối!

2/ Thêm file "XI000000..."
Cái này mình không rõ. Ở máy tính mình không có hiện tượng đó. Bạn kiểm tra máy tính bạn có vấn đề gì không (virus?)

3/ Tổng hợp khối lớp ở đây lần lượt là 6-7-8-9...
Mình tách riêng thành từng khối lớp cho đơn giản. Tức là mỗi khối lớp sẽ có một file này, tổng hợp dữ liệu từ các files (HS_THCS_SoGoiTenVaGhiDiem_xAy_CN) ứng với mỗi khối lớp đó.
(Những ô tô nền vàng là những ô chú ý nhập dữ liệu thôi, mình chỉ hỏi những dòng chữ màu đỏ trong file đó).

4/ Giáo viên (chủ nhiệm/ bộ môn) giữa các học kỳ có thể thay đổi, khi đó điền vào cột (G) như nào ứng với sự thay đổi đó?
Mình không rõ: Học bạ này in vào cuối mỗi học kỳ? Khi đó nếu có thay đổi giáo viên ở mỗi học kỳ thì cột (G) thay đổi như nào?
Bạn giải thích: Vì chỉ có GV dạy ở HK2 mới có tên ở cột G và ký thên thôi.
Tức là học kỳ một in học bạ sẽ không có tên trong cột đó? Cuối năm in học bạ thì cột (G) mới có tên giáo viên?

5/ (Kéo theo vấn đề 4).
Tạm thời nhập thủ công theo danh sách đã phân công.
Nếu không phân biệt giữa các học kỳ thì để chung (bỏ bớt một dòng ứng với mỗi lớp).

Sheet "GiaoVien" có công dụng làm dữ liệu để điền vào cột (G) của sheet "NoiDung-3". Nếu việc in học bạ giữa các kỳ có phân biệt thì mới cần ghi rõ cho mỗi học kỳ, nếu không thì chỉ cần một dòng?

Bạn mô tả lại việc in học bạ xem như nào: Cuối học kỳ I thì in như nào (có mục nào trong học bạ không cần điền thông tin)? Cuối năm in như nào?

 

[tanthanhkg]

1/ Sai lỗi chính tả: ẤpTân Vụ, ẤpTân Tiến
Mình chỉ nói là sai lỗi chính tả. Đúng là: Ấp {khoảng trắng} Tân Vụ, Ấp {khoảng trắng} Tân Tiến.
Bạn kiểm tra lại trong dữ liệu SoYeuLyLich xem, nguyên nhân do phần mềm hay do người nhập vào phần mềm?
Lúc in xong học bạ rồi thì chỉnh sửa rắc rối!

Dạ rất chính xác, teacher đã xem rất kỹ các thông tin trong SoYeuLyLich. Lỗi này là do người nhập dữ liệu, chứ không phải do lỗi phần mềm. Teacher cứ xử lý bình thường đi không sao đâu, em sẽ yêu cầu giáo viên chủ nhiệm nhập lại cho chính xác.

2/ Thêm file "XI000000..." Cái này mình không rõ. Ở máy tính mình không có hiện tượng đó. Bạn kiểm tra máy tính bạn có vấn đề gì không (virus?)

Chắc máy em bị Virus rồi

3/ Tổng hợp khối lớp ở đây lần lượt là 6-7-8-9...
Mình tách riêng thành từng khối lớp cho đơn giản. Tức là mỗi khối lớp sẽ có một file này, tổng hợp dữ liệu từ các files (HS_THCS_SoGoiTenVaGhiDiem_xAy_CN) ứng với mỗi khối lớp đó.
(Những ô tô nền vàng là những ô chú ý nhập dữ liệu thôi, mình chỉ hỏi những dòng chữ màu đỏ trong file đó).

Em đã hiểu.

4/Cuối năm in học bạ thì cột (G) mới có tên giáo viên?

Dạ chính xác. Chỉ có GV dạy ở HK2 mới có tên trong cột (G)

5/ (Kéo theo vấn đề 4).
Tạm thời nhập thủ công theo danh sách đã phân công.
Nếu không phân biệt giữa các học kỳ thì để chung (bỏ bớt một dòng ứng với mỗi lớp).

Dạ đúng, bỏ dòng đầu của mỗi lớp, chỉ lấy dòng thứ 2 mà thôi (dòng HK2)

...............
Bạn mô tả lại việc in học bạ xem như nào: Cuối học kỳ I thì in như nào (có mục nào trong học bạ không cần điền thông tin)? Cuối năm in như nào?

Em hiểu.
Thường thì tới cuối năm học mới in học bạ, chứ in ở HKI thì không được vì các môn HK2 chưa học cho nên chưa cập nhật vào học bạ, bên cạnh đó HK1, HK2, Cả năm lại nằm chung trên một mặt giấy. Như vậy nếu ở HK1 mà in học bạ thì sang HK2 phải in lại từ đầu, rất tốn giấy.
Em xin mô tả cách in học bạ của em như sau:
1. In toàn bộ sheet (TRANG BIA)
2. Sau đó đảo giấy lại và tiếp tục in sheet (TRANG THONG TIN)
3. Tiếp tục in sheet(In 1)
4. Sau đó đảo giấy lại và tiếp tục in sheet (In 2)
Em gởi Teacher 2 file kèm theo (file DATA.XLS và file INHOCBA HS thcs.XLS), em đang thiết kế chưa xong để in theo 4 cách ở trên, chủ viết yếu bằng các lệnh đơn giản như vlookup, if...
Em không phải dân trong nghề nên kiến thức về VBA cũng như về excel thì em mù tịt, chỉ lò mò làm thử, Teacher đừng cười em nhé.

Mọi sự nhờ Teacher giúp em.
Thank you Teacher.

 

[befaint]

các môn HK2 chưa học cho nên chưa cập nhật vào học bạ

Ủa! Chỗ này căng đấy!
Tức là file SoGoiTenVaGhiDiem bạn gửi vẫn chưa là cố định, vẫn còn môn học chưa xuất hiện trong đó? (Học kỳ II mới thêm vào)?

 

[tanthanhkg]

Ủa! Chỗ này căng đấy!
Tức là file SoGoiTenVaGhiDiem bạn gửi vẫn chưa là cố định, vẫn còn môn học chưa xuất hiện trong đó? (Học kỳ II mới thêm vào)?

Dạ chính xác 100%.
Các môn học chưa có điểm là vì chưa học xong HK2, khi nào học xong HK2 thì GV bộ môn mới cập nhật điểm lên SMAS ạ.
Nhờ Teacher xử lý giùm.
Thank you Teacher.

 

[tanthanhkg]

Em gởi Teacher lại file, file này mới cập nhật điểm và tổng kết HK1.
Còn HK2 chưa ạ.
Nhờ Teacher xử lý dùm nhé.

 

[tanthanhkg]

2 file trên là từ phần mềm SMAS xuất ra và em tải về để in ấn.

 

[befaint]

Các môn học chưa có điểm là vì chưa học xong HK2, khi nào học xong HK2 thì GV bộ môn mới cập nhật điểm lên SMAS.

Mình đâu có hỏi điểm???

Mình chỉ quan tâm tới cấu trúc dữ liệu thôi. Chưa có điểm không vấn đề gì.
Câu hỏi: Vẫn còn môn học chưa xuất hiện trong đó? Học kỳ II mới thêm vào? Hay là ngược lại: Các đề mục trong file đã cố định (số ô, số dòng, số cột trong file là cố định)?

Ví dụ: Có xảy ra trường hợp sau không?
Học kỳ I có 9 môn học, học kỳ II thêm 1 môn học nữa (tổng là 10 môn học). Khi đó, vào học kỳ II, file dữ liệu sẽ 01 thêm dòng/ cột cho môn học mới này.

 

[tanthanhkg]

Mình đâu có hỏi điểm???

Mình chỉ quan tâm tới cấu trúc dữ liệu thôi. Chưa có điểm không vấn đề gì.
Câu hỏi: Vẫn còn môn học chưa xuất hiện trong đó? Học kỳ II mới thêm vào? Hay là ngược lại: Các đề mục trong file đã cố định (số ô, số dòng, số cột trong file là cố định)?

Về trúc dữ liệu của học bạ thì :
Chủ yếu cố định rồi teacher ơi...
Nhưng :
- Khối 6 và 7 không học môn hóa học và môn Tin học. Ở trong học bạ khối 6 & 7 không có 2 môn học này.
- Khối 8 thì Teacher đang thiết kế là đúng với học bạ khối 8.
- Còn khối 9 thì cũng học môn tin học. Ở trong học bạ khối 9 không có 2 môn học này.
Để em gởi thêm học bạ khối 6,7 và 9 cho teacher xem. Còn học bạ khối 8 thì teacher đang xử lý đó.
Cảm ơn teacher đã bỏ thời gian mà nghiên cứu cho em.
Em cảm ơn

 

[tanthanhkg]

Gửi Teacher 3 học bạ của 3 khối
- Khối 6 & 7 có cấu trúc dữ liệu giống nhau trong học bạ.

 

[tanthanhkg]

- Còn khối 9 thì cũng học môn tin học. Ở trong học bạ khối 9 không có 2 môn học này.
..................................
Xin sửa lại teacher ơi...
- Còn khối 9 thì cũng không học môn tin học. Ở trong học bạ khối 9 không có 2 môn học này.

 

[tanthanhkg]

Mình đâu có hỏi điểm???
Ví dụ: Có xảy ra trường hợp sau không?
Học kỳ I có 9 môn học, học kỳ II thêm 1 môn học nữa (tổng là 10 môn học). Khi đó, vào học kỳ II, file dữ liệu sẽ 01 thêm dòng/ cột cho môn học mới này.

Dạ không có Teacher ơi.
Theo em được biết thì cấu trúc dữ liệu của học bạ hiện giờ không thay đổi như các file HOC BA ,HO BA 7, HOC BA 9 mà em mới gởi thì không có thêm một môn học nào khác ạ.
Nhưng sau này em nghĩ môn Tin Học sẽ đưa vào học đại trà trong các trường học (ở tỉnh KG môn Tin Học thì chưa áp dụng dạy học hết cho các khối mà chỉ có hs lớp 8 học thôi) vậy ở trên teacher viết .

.........................Khi đó, vào học kỳ II, file dữ liệu sẽ 01 thêm dòng/ cột cho môn học mới này.

Em nghĩ đây cũng là một phương án để mai sau này có thể bổ sung một môn học khác chăng. Chẳng hạn như môn Tin Học.
Vậy ở đây nhờ Techer xử lý phương án này luôn nhá...
Em xin cảm ơn Teacher nhiều ạ.

 

[tanthanhkg]

................. Khi đó, vào học kỳ II, file dữ liệu sẽ 01 thêm dòng/ cột cho môn học mới này.

Có thể là vào học kỳ 1, học kỳ 2 và cả năm nữa (nói chung là bổ sung thêm một môn học nữa chẳng hạn). Ở đây Teacher có thể thêm dòng hoặc cột trống để khi cần rồi đánh tên môn học vào hoặc khi không cần thì ta có thể xóa dòng hoặc cột này đi.

 

[Đỗ Tú Anh]

Vấn đề xưng hô:
Ở phạm vi diễn đàn thì xưng hô ở mức xã giao là được rồi. (Anh/Tôi/Bạn gì gì đó thôi).
Mình cứ đôn người khác lên thầy/ tiền bối... nhiều khi làm người khác mắc cỡ, khó xử, ái ngại...

Mình thừa nhận với befaint là xưng thầy có hơi khách sáo, không tự nhiên nhưng nếu là mình thì mình vẫn xưng hô như vậy vì đây là cách duy nhất mà những người được giúp đỡ như mình hay tanthanhkg tỏ lòng kính trọng, biết ơn... những người đã bỏ thời gian, công sức, chất xám... giúp đỡ 1 cách chân thành, không toan tính & vô vị lợi... những người cần giúp đỡ.
Thật ra mà nói, đối với mình befaint cũng là thầy, giống thầy quocgiacan - những con người rất hào sảng. Điều khác biệt duy nhất ở chỗ quocgiacan là người thầy đầu tiên của mình ở GPE, mà thường thì những gì đầu tiên rất đặc biệt, sâu sắc & ấn tượng, thế thôi!
@tanthanhkg , đừng kêu befaint là thầy/Teacher nữa (xa cách quá!), chắc befaint cũng bằng vai phải lứa như bạn thôi (đoán mò ấy mà, hy vọng là đúng), kêu bạn xưng mình/tôi đi cho nó thân tình, để thắt chặt "tình thương mến thương" giữa bạn & befaint. Nhớ nghen!
Chúc befaint một tuần mới vui vẻ & tràn đầy năng lượng.

 

[befaint]

@ Chủ thớt:
Chép các files (SoGoiTenVaGhiDiem) của khối lớp 8 vào một thư mục.
Mở file dưới, ở sheet "Khoi8", click vào cái nút xanh rồi chọn thư mục ở bước trên, click Open.
Kiểm tra xem dữ liệu được tổng hợp vào sheet "Khoi8" có vấn đề gì không...

 

[tanthanhkg]

@ Chủ thớt:
Chép các files (SoGoiTenVaGhiDiem) của khối lớp 8 vào một thư mục.
Mở file dưới, ở sheet "Khoi8", click vào cái nút xanh rồi chọn thư mục ở bước trên, click Open.
Kiểm tra xem dữ liệu được tổng hợp vào sheet "Khoi8" có vấn đề gì không...

Em chào Teacher.
Em đã làm theo hướng dẫn của Teacher nhưng báo lỗi em không hiểu.
Mong Teacher giúp đỡ.
Em xin cảm ơn Teacher rất nhiều ạ.

 

[tanthanhkg]

@ Chủ thớt:
Chép các files (SoGoiTenVaGhiDiem) của khối lớp 8 vào một thư mục.
Mở file dưới, ở sheet "Khoi8", click vào cái nút xanh rồi chọn thư mục ở bước trên, click Open.
Kiểm tra xem dữ liệu được tổng hợp vào sheet "Khoi8" có vấn đề gì không...

Em đã làm theo hướng dẫn của Teacher nhiều lần rồi mà vẫn báo lỗi như hình dưới.
Em không hiểu sao nữa.
Mong Teacher giúp dùm em.
Em cảm ơn nhiều.

 

[tanthanhkg]

ở sheet(Trang Bia-1) của file (Khoi lop 8_.xls) Teacher thiết kế nút lệnh In học bạ như vậy là quá tuyệt vời luôn.
Cảm ơn Teacher.
Còn ở chỗ [ Min(TT), Max(TT) và From, To ] là sao em không hiểu. Mong Teacher chỉ bảo thêm.
Em xin cảm ơn.

 

[befaint]

báo lỗi

Mình vừa kiểm tra... đúng là gặp lỗi với file mới.
Có cách khắc phục tạm thời như này: Mở tất cả các files trong folder "khoi 8" đó lên, nhấn Ctrl + S, rồi đóng files đó lại. Sau đó mới thực hiện tổng hợp như đã nêu ở bài trước.

 

[tanthanhkg]

Dạ em hiểu
Em cảm ơn Teacher đã nhiệt tình giúp em.

 

[tanthanhkg]

Đã tổng hợp dữ liệu vào file khoi8 được rồi.
Hay quá Teacher ơi.
Cảm ơn Teacher thiệt là nhiều ạ.

 

[tanthanhkg]

Dữ liệu khối 8 đã tổng hợp tốt. Nhưng đối với khối 6 và 7 thì có chúc vấn đề thầy ơi.
Em gởi file (HS_THCS_SoGoiTenVaGhiDiem_6A9_CN) của năm học trước đã tổng hợp dữ liệu vào file (Khoi lop8_.xls) để Teacher xem và có hướng xử lý dùm em.
Nhờ Teacher xem file dưới và xử lý dùm em luôn.
Em có ghi hướng dẫn ở trong file Khoi lop8_.xls
Em xin cảm ơn.

 

[tanthanhkg]

Teacher cho em hỏi chúc xíu nhé.
Lúc đầu em mở sheet(Trang Bia-1) nhắp vào cái nút lệnh "In học bạ" thì nó xuất hiện hộp thoại để chọn các sheet và các trang cần in. (nút lệnh này tạo ra hộp thoại để chọn các sheet và trang cần in quá tuyệt luôn...)
Rồi sau đó đóng file này mở lên lại nhiều lần thì nó xuất hiện như hình dưới. Xin Teacher chỉ bảo...

 

[befaint]

@ Chủ thớt:
Sao mình gửi nhiều bài thế??
Bạn cứ từ từ, khối lớp 8 đã xong đâu.
Mình đã nói ở bài trước, ứng với mỗi khối lớp sẽ có một file riêng.

3/ Tổng hợp khối lớp ở đây lần lượt là 6-7-8-9...
Mình tách riêng thành từng khối lớp cho đơn giản. Tức là mỗi khối lớp sẽ có một file này, tổng hợp dữ liệu từ các files (HS_THCS_SoGoiTenVaGhiDiem_xAy_CN) ứng với mỗi khối lớp đó.

Khi mình bắt đầu làm thì không đưa yêu cầu khác vào vì đã có nhiều bài thảo luận rồi (Tức là đã chốt yêu cầu và phương án).
Bạn không nên gửi nhiều files liên tiếp lên thế, khi nào cần dữ liệu để chạy thử nghiệm thì mới đưa lên (nhằm tiết kiệm dung lượng cho diễn đàn).

Bạn tải file ở bài #57 về chạy thử nhé. Nhớ nhập đủ thông tin vào sheet "GiaoVien".
Kịch bản dùng:
- Vào sheet "Khoi8" để tổng hợp dữ liệu.
- Vào sheet "TrangBia-1" nhập số thứ tự cần in (ứng với mỗi lớp, hoặc bất kỳ một hoặc nhiều học sinh, hoặc toàn bộ cả khối lớp 8) rồi click vào nút in.

 

[tanthanhkg]

Dạ em đã hiểu.
Xin cảm ơn Teacher rất nhiều.