Kết quả tìm kiếm cho từ khóa: co giản dòng

Mình có bảng dữ liệu này, nhưng khi dùng table pivot thì chỉ có thể insert slicer cột thời gian. Mình muốn mấy cái dòng tiêu đề "IIP toàn ngành công nghiệp, IIP khái khoáng,..." + "ngày tháng" vào slicer thì làm bằng cách nào? Mọi người có thể giúp mình không? Nếu transpose cột thì được dòng IIP...

Kính nhờ các bạn cho giúp mình một đoạn code VBA để tìm số lượng bị trùng với các điều kiện khác nhau như trong file đính kèm với. Hiện trong file mình đang ví dụ làm thủ công lọc bằng tay, file thực tế có số lượng khoảng 150k dòng. Cảm ơn mọi người nhiều!

Chưa hiểu lắm cái ngữ cảnh mà bạn muốn thực hiện yêu cầu này. Ví dụ: Bạn mở nhiều Workbook (WB) lên làm việc, và đang thao tác trên một Workbook khác và muốn đóng toàn bộ WB đang mở đó trước khi đóng cái WB hiện hành. Dim Wb As WorkBook Dim currentWB As String currentWB = ThisWorkbook.Name For...

Chào mọi người. hiện tại mình đang sử dụng code Private Sub txtThoat_Click() Unload Me Workbooks("OT_LineLD.xlsm").Save If Workbooks.Count = 1 Then Application.Quit ThisWorkbook.Close (True) End Sub Để tắt Userform nhập liệu và tự động lưu và thoát file Excel nhưng mình có 1 vấn đề là phải...

Cảm ơn bạn rất là nhiều.... Code chạy rất tốt ạ 1689130285 Khi nào bạn làm vậy. Tôi mong chờ điều này rất là lâu r

Đây là đoạn code của bạn befaid dùng để xoá dong trống nhưng mình chưa biết thêm vào đâu để chạy tiếp sau khi chạy xong code gộp log Main phụ() Dim Rng As Range Set Rng = Sheet3.UsedRange Application.ScreenUpdating = Sai RemoveBlankRows Rng Application.ScreenUpdating = True...

Tôi chỉ biết một cách là duyệt từng dòng text, tìm dòng trống rồi xoá và cách làm này tất nhiên sẽ mất thời gian vì chạy vòng lặp. (Cách tôi đang làm ở trên là đọc toàn bộ file một lần chứ không đọc từng dòng) Do đó theo tôi thì chỉ nên code xoá dòng trong tác vụ kế tiếp khi thao tác trên dữ...

Mình chưa rõ dùng cái này, bạn hướng dẫn mình được không?

Chào các bạn, Sau quá trình học hỏi các bạn trên diễn đàn và sưu tầm tài liệu trên internet. Hôm nay mình chia sẻ các bạn tiện ích cho Excel. Link tải tiện ích: Đã xóa Link hướng dẫn cài đặt và sử dụng: Đã xóa Tính năng: Định dạng văn bản: in hoa, thường, viết hoa chữ cái đầu từ mỗi câu, viết...

Thêm tính năng ẩn dòng tự động kèm giãn dòng khi in ấn quá tuyệt vời tác giả ah.

@jerryhg Bạn gộp đến dòng 12 hoặc chỉnh chiều cao dòng 12. Chia đều chiều cao có ở phiên bản cũ, phiên bản mới tôi đã đổi giải thuật giãn dòng. Có thời gian tôi sẽ cập nhật lại

e dùng thì nó bị ntn e đã gộp B8:L11,B14:L17 nhưng khi giãn n lại chỉ giãn thằng 1 dòng đầu là thằng B8 và thằng B14 có cách nào để cho mấy thằng gộp kia n cũng giãn đều không ạ?? e cảm ơn trên là giải pháp tạm thời của e nhưng khi tới dòng rỗng thì nó sẽ thừa ra mấy đoạn rất chướng mắt

Thớt lười làm tay chứ gì nữa. Nhưng mà thôi coi như gặp lúc tôi muốn thử lại nghề lấy chỉ số mảng của mình: Công thức tại A1, kéo qua O1 là 15 người, kéo xuống dòng 72 là 72 ngày. Cột R, S là tôi chứng minh một người làm tối đa 45, tối thiểu 42 ngày; đạt điều kiện. Luu ý là tôi chỉ nói bài #1...

Làm việc với CSDL Access đa người dùng mà bạn không xài tính năng ưu việt của nó là Split Database thì là một thiếu sót lớn. Việc nhập liệu đa người dùng sẽ phải gặp tình trạng nhập trùng số phiếu khi 2, 3 người cập nhật dữ liệu cùng lúc, hiếm khi nhưng vẫn có và phải có giải pháp chống nhập...

Câu trả lời ngắn gọn là: được. Với điều kiện: Bạn quy định dòng nào trong tình trạng là "giãn"? (rowHeight=?)

Các bác cho em hỏi có cách nào lọc được hàng chưa được giãn dòng không ạ

Bạn không có căn bản về lập trình và ngữ pháp VBA cho nên "hiểu" sai rồi. Theo ngữ pháp, chỗ nào có lệnh "rẽ nhánh" mới xảy ra chuyện "nhảy". Nếu không có lệnh rẽ nhánh thì VBA cứ tự nhiên đí tiếp xuống. Các lệnh rẽ nhánh: - Goto, Goto CaiGiDo. CaigiDo là một mốc (địa chỉ) để Goto biết chỗ mà...

Code này thì bỏ luôn cái regex kia nha, bạn test lại: Option Explicit Option Compare Text 'Phan biet hoa-thuong thi bo dong nay Sub SplitData() Dim a(), b(), i&, j&, k&, x&, tmp With Sheets("Sheet1") a = .Range("A2:A" & .Cells(Rows.Count, "A").End(xlUp).Row).Value ReDim b(1 To UBound(a))...

Cho em hỏi thêm đoạn này SheetName = "Sheet1": RangeAddress = "B2:K2" em lấy được dữ liệu từ ô B2 đến K2 Em thử nhân 3 lần lên để lấy được dữ liệu của B5:K5 & B6:K6 nhưng thời gian cũng nhân 3 lần lên (Em làm với 1000 file). Bác xem giúp em cho nó lấy cùng lúc với B2:K2 và chuyển đổi hàng...

trường hợp này của mình tự bỏ filter rồi làm tiếp thì không được. Do đang dùng chức năng lọc nâng cao theo Ngày giao thành công trong khoảng thời gian chỉ định của app KuTools. Lọc xong rồi nhờ code của bạn Cu Tồ phân loại Người gửi theo SĐT để trả tiền COD. Hiện tại đang kết hợp thêm code bạn...