Lấy giá trị, Comment, Format cell của các file vào 1 file tổng hợp (1 người xem)

[tamtm29]

Hiện nay công ty mình có nhiều tổ nhân viên làm việc.
Mỗi tổ sẽ có các file chấm công riêng để tổ trưởng chấm công hàng ngày.
Sếp mình muốn mình tổng hợp các chấm công của các tổ vào 1 file Tổng hợp để bộ phận nhân sự theo dõi hàng ngày.
Với các yêu cầu File tổng hợp phải lấy được:
- Giá trị của các file chấm công theo ngày
- Các Comment của các Cell trong từng bảng chấm công (nếu có)
- Các định dạng của Cell (in đậm, fone chữ, màu của ô chữ,...)

Mình đã thử nhiều mà không được, hình như Excel không có hàm nào hỗ trợ vấn đề này.
MÌnh gửi theo file Excel chấm công của 2 tổ và file tổng hợp. Mong mọi người giúp đỡ.

Thanks all,

 

[vuminh1601]

Hiện nay công ty mình có nhiều tổ nhân viên làm việc.
Mỗi tổ sẽ có các file chấm công riêng để tổ trưởng chấm công hàng ngày.
Sếp mình muốn mình tổng hợp các chấm công của các tổ vào 1 file Tổng hợp để bộ phận nhân sự theo dõi hàng ngày.
Với các yêu cầu File tổng hợp phải lấy được:
- Giá trị của các file chấm công theo ngày
- Các Comment của các Cell trong từng bảng chấm công (nếu có)
- Các định dạng của Cell (in đậm, fone chữ, màu của ô chữ,...)

Mình đã thử nhiều mà không được, hình như Excel không có hàm nào hỗ trợ vấn đề này.
MÌnh gửi theo file Excel chấm công của 2 tổ và file tổng hợp. Mong mọi người giúp đỡ.

Thanks all,

Yêu cầu 1 và 3 có giống như copy rồi pates không nhỉ

Yêu cầu 2 : Lấy giá trị trong các Comments bạn dùng code sau:

'Nguồn internet
Sub ListComments()
Dim CommentCount As Integer
Dim cell As Range
Dim x As String
Dim CommentSheet As Worksheet
Dim OldSheets As Integer
Dim Row As Integer

' Exit if no comments
CommentCount = 0
For Each cell In ActiveSheet.UsedRange
On Error Resume Next
x = cell.Comment.Text
If Err = 0 Then CommentCount = CommentCount + 1
Next cell
If CommentCount = 0 Then
MsgBox "The active worksheet does not contains any comments.", vbInformation
Exit Sub
End If

' Create new workbook with one sheet
On Error GoTo 0
Set CommentSheet = ActiveSheet
OldSheets = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 1
Workbooks.Add
Application.SheetsInNewWorkbook = OldSheets
ActiveWorkbook.Windows(1).Caption = "Comments for " & CommentSheet.Name & " in " & CommentSheet.Parent.Name

' List the comments
Row = 1
Cells(Row, 1) = "Address"
Cells(Row, 2) = "Contents"
Cells(Row, 3) = "Comment"
Range(Cells(Row, 1), Cells(Row, 3)).Font.Bold = True
For Each cell In CommentSheet.UsedRange
On Error Resume Next
x = cell.Comment.Text
If Err = 0 Then
Row = Row + 1
Cells(Row, 1) = cell.Address(rowabsolute:=False, columnabsolute:=False)
Cells(Row, 2) = " " & cell.Formula
Cells(Row, 3) = cell.Comment.Text
End If
Next cell
Columns("B:B").EntireColumn.AutoFit
Columns("C:C").ColumnWidth = 34
Cells.EntireRow.AutoFit
End Sub

 

[ptm0412]

Yêu cầu 1 và 3 có giống như copy rồi pates không nhỉ
Yêu cầu 2 : Lấy giá trị trong các Comments bạn dùng code sau:

Copy Paste thì comment cũng qua tuốt luốt.

 

[tamtm29]

Copy Paste thì comment cũng qua tuốt luốt.

Hix, do file tổng hợp này để sếp xem mà ngày nào cũng copy paste chấm công của hơn 20 tổ thì bị sếp chởi cho là chắc, nên mình mới muốn làm bảng cập nhật tự động mỗi khi các tổ chấm công.