Kết quả tìm kiếm cho từ khóa: gộp nhiều File vào một

Tham khảo Thêm biến Dim Sh as worksheet Sửa đoạn .... If Not Evaluate("=isref('" & v & "'!A1)") Then Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = v End If ws.Range("A1:F" & lr).Copy sheets(v).Range("A1") sheets(v).Columns.AutoFit Next v ...... Thành ...... If...

Em chào các bác, Em có 2 file y hệt nhau, cùng công thức VBA, cùng số liệu, nói chung là y hệt nhau. Nhưng khi chạy VBA tách sheet, thì 1 file bị lỗi báo runtime error 9 , 1 file thì chạy bình thường. Nhờ các bác hỗ trợ chỉ ra lỗi giúp e với ạ. Em cảm ơn các bác nhiều

Mình có gửi file đính kèm bạn nhé 1738749092 Cảm ơn bạn đã giúp, nhưng dữ liệu của mình nó nhiều sheet lắm, bản excell mình chọn lọc để các bạn dễ giúp mình hơn, bạn có thể giúp mình công thức excell cho đơn giản hơn được ko vì mình chưa biết dùng Power Query bạn ah

Em muốn đủ hết, mỗi kiểu bác liệt kê là một file. Bác chịu khó dựng đủ các files ấy gởi lên, em sẽ nghiên cú chọn kiểu thích hợp nhất. Và sau đó em sẽ tiếp tục nhờ bác viết code và giúp em chỉnh sửa file cho hoàn toàn theo ý. Lưu ý là bác phải viết code trước, sau khi điều chỉnh file thì có thể...

Bạn tham khảo code sau -làm theo ý hiểu của bản thân Option Explicit Sub Thu(ByVal eRng As Range) Dim RowPage&, nPage&, Lr&, rTieuDe&, rKyDuyet&, i&, k&, t&, f&, m&, SoTrang& Dim PrintArea As String, Rng As Range, Vung, D On Error GoTo Thoat Lr = Range("A1000000").End(xlUp).Row - 2 rTieuDe =...

@Chủ bài đăng: Trước tiên bạn cần nêu mô hình trường học của bạn là gì {Cấp 1, Cấp II, Cấp II hay dạy nghề, Đại học hay học viện (?) Nếu là trường dạy nghề thì hướng đến ngành nào, lĩnh vực nào, như Cơ khí, điện hay điện từ, hóa chất hay trung cấp tài chính,. . . . Hoạc có thể bạn liệt kê hết...

Cám ơn Anh HeSanbi nhiều. Xin lỗi Anh vì không biết nhiều về code nên em vẫn chưa biết cách ứng dụng hướng dẫn của anh để xử lý vấn đề của em. em đã chạy Ctrl Shift Alt R bên file của em nhưng các dòng có xu hướng co lại chứ không điều chỉnh vừa với trang in. Trong file của em có nhiều sheet...

Thân chào các Anh/Chị diễn đàn GPE Nhờ các Anh/Chị hỗ trợ xử lý điều chỉnh kích thước dòng (tự động) vừa với trang in. Trong file đã set print area, Width 1 page, Height Automatic. Tuy nhiên vẫn chưa tối ưu cho các dòng khi in (ví dụ dữ liệu in 2 page, page 2 chỉ hiển thị 1 vài dòng => nhỏ, khó...

Bạn tìm file Công thức Query trong Google Sheets mình gửi tặng lên lâu rồi.

Hi các anh/chị, Mình cần tìm cách thức để chuyển đổi file từ định dạng PDF sang image để upload lên hệ thống lưu trữ của công ty mà ko dùng tới các phần mềm ngoài (do chính sách công ty chặn) thì có cách nào ko ạ? Nếu dùng Paint và chụp từng trang pdf vào Paint thì mất khá nhiều thời gian do số...

dạ cảm ơn bác ạ bác cho e hỏi chút là em kiểm tra kích thước ảnh trong file excel thì ghi là Height = 0.01 và Width = 0.01 nhưng khi viết công thức macro thì lại phải để là 0.75 *0.75. Chỗ này e chưa hiểu lắm, chia theo tỉ lệ nào hay công thức nào ạ?

Bạn tham khảo code sau: Option Explicit Dim Shp As Shape Sub LietKeAnh() Dim t& Dim KQ(1 To 100000, 1 To 4) With Sheets("Sheet1") For Each Shp In .Shapes t = t + 1 ' .Range("A" & t) = t ' .Range("B" & t) = Shp.Name ' .Range("C" & t) = Shp.Width ' .Range("D" & t) = Shp.Height...

Dạ vâng, e gửi file lên đây ạ Bổ sung thêm ý là các ảnh cần xóa đều có kích thước 0.01*0.01 nhưng trong file có các ảnh khác cần giữ lại, nên không thể chọn hết các ảnh và bấm xóa được, và hơn nữa là số lượng ảnh quá nhiều, bấm xóa hết thì lại rất lâu, nên là xóa theo tên trùng và kích thước thì...

Video hướng dẫn không xem được anh ạ!

Bạn cần lấy dữ liệu gì bạn?

Tuyệt vời! Tuy quá trình chạy nó hiện thông báo update và mình phải nhấn chọn, nhưng sau cùng, mình xem random lại các file thì thấy ok. Cảm ơn bạn rất nhiều!

Hên xui, nhờ AI làm giúp bạn test thử =)) chú ý đổi tên file và đường dẫn thành file phải là tiếng việt không dấu. Sub CopyPasteValuesInFolder() Dim folderPath As String Dim fileName As String Dim wb As Workbook Dim ws As Worksheet ' Đường dẫn tới thư mục chứa các file...

Chào anh chị em GPE, Mình có nhiều file lưu chung một thư mục. Các file này đang có công thức. Mình cần copy paste value hết công thức trong các sheet của những file này. Nhưng làm thủ công thì lâu quá. Mong anh chị em GPE giúp mình code VBA thao tác cho nhanh theo trình tự mở lần lượt các file...

Không biết đã đúng ý chưa.