Kết quả tìm kiếm

Chân thành cảm ơn mọi người đã giúp đỡ!

Nhờ cả nhà hỗ trợ chuyển giúp dữ liệu ngày tháng năm tại Cột H về giá trị như tại Cột I như trong file đính kèm. Em cảm ơn mọi người!

Bạn thử công thức này ở bên file 1:=VLOOKUP(B2,[2.xlsx]Sheet1!$B$2:$E$7,4,1)

Nhờ mọi người viết thêm giúp tạo thêm 02 cột: tên file, tên sheet với code bài này. Xin cảm ơn!

Bạn tham khảo add-in của bác @huuthang_bd có thể xử lý được trường hợp của bạn đó! https://www.giaiphapexcel.com/diendan/threads/add-in-deletevirusmacro-x%C3%B3a-v%C3%A0-ng%C4%83n-ch%E1%BA%B7n-virus-macro.160616/

Bạn thử code dưới nhé: Sub XuatSheet() Application.ScreenUpdating = FALSE Dim J As Integer Sheets.Copy For J = 1 To Sheets.Count Sheets(J).Activate [E6:I14].Copy [E6:I14].PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = TRUE...

Trong lúc chờ tác giả, bạn thử sửa lại đoạn dưới xem sao: For i = 1 To Sheets.Count k = Sheets.Count If Sheets(i).Name = c Then Sheets(i).Name = c & "(" & k - i + 1 & ")" End If Next With sd .Name = c

Thử tick chọn cái unlock như hình rồi mở lại với 7zip coi sao @Nhattanktnn :

Xin cảm ơn tác giả vì add-in rất hữu ích! Nhờ tác giả và các anh chị phát triển thêm code xóa các sheet do virus tự động tạo thêm (ví dụ như file đính kèm). Chân thành Cảm ơn!

tesst Function DocSo(ByVal Number, Optional ByVal Font = 1) As String Dim MyArray Dim Str Str = Format(Abs(Number), "000000000000000000") Select Case Font Case 1 MyArray = Array("không ", "m" & ChrW(7897) & "t ", "hai ", "ba ", "b" & ChrW(7889) & "n ", "n" & ChrW(259) & "m ", "sáu...

Bạn xem bài số #9 nhé.

Cảm ơn bạn đã chia sẻ! Vì đã lỡ làm rồi, nhờ bạn làm tới phần tách Thuế cho từng dòng luôn trong trường hợp hóa đơn có nhiều dòng như trường hợp phía dưới nhé: Cảm ơn bạn!

Các bạn thử file đính kèm nhé. File mình có bổ sung thêm các cột mà hai bạn có gợi ý:

Xin gửi lời chia buồn sâu sắc tới Thầy @Ba Tê cùng gia đình ạ!

Trân trọng cảm ơn mọi người đã chung tay giúp đỡ ạ!

Mình có mày mò và viết được code tạm như phía dưới, mong mọi người hướng dẫn và chỉnh giúp: Option Explicit Sub GetData_Main() Dim FOb As Object, Fso As Object, Item, cn As Object, rs As Object, fOld As String, fNew As String Application.ScreenUpdating = False Application.DisplayAlerts = False...

Vâng anh, việc tổng hợp này phần mềm họ không có hỗ trợ nên thực tế đang phải tổng hợp thủ công. Mong được anh và mọi người hỗ trợ giúp!

Mình có công việc thường xuyên phải tổng hợp dữ liệu từ nhiều files xuất từ phần mềm vào file tổng hợp theo mẫu. Vấn đề ở đây là mẫu phải tổng hợp khác với mẫu các files data xuất từ phần mềm ra, cụ thể: - Mẫu file xuất từ phần mềm ra có dạng (data_xxx): - Mẫu file cần tổng hợp (FIle tong...

Kết quả đúng như mình cần rồi. Chân thành cảm bạn!

Mình gửi lại file kết quả đã lược bớt dữ liệu. Khi thực hiện thao tác thủ công bằng tay sẽ thực hiện các bước như sau: Filter Cột A:C, lọc những giá trị > 0, copy vùng lọc được sang Cột N:Q; Tiếp đó, Filter Cột D, lọc những giá trị > 0, copy vùng lọc được (Cột A, B, D), copy paste nối tiếp...