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

Không phải là ít mà nhiều đấy.. có điều nó chỉ dẫn bao quát theo tổng thể mà khả năng của ta chưa nhận ra thôi trên Delphi cũng vậy nguồn Server + Client có ngay trên chính máy tính của ta khi cài chọn Samples nhưng vận dụng nó thì phải mất nhiều thời gian ngâm cứu thôi tải file bài số 1 viết...

Được thế thì quá tốt bác ạ 1696679384 Chào bác, tại cái này nó liên quan đến lưu trình công việc nữa, thông thường mỗi ngày sẽ có người khác tải dữ liệu mỗi ngày gửi cho bên em, bên em cần theo đó để tổng hợp lại thành biểu hiển thị mỗi tài khoản tương ứng số tiền nạp mỗi ngày ạ, cảm ơn bác đã...

Đúng là tối thiểu chủ thớt cần thêm 1 trường ngày và Data, chứ không để dữ liệu ngày theo tên Sheet thế kia. Tên Sheet cũng không tường minh "Du lieu ngay 1", ngay 1 này là của tháng nào? năm nào?

Tôi cũng chưa xem kỹ cái sheet dữ liệu nên cứ tưởng dữ liệu từng ngày được đổ về cùng một sheet. Nếu dữ liệu dạng dữ liệu mỗi ngày mỗi sheet kiểu này thì phải PQ mới gộp được. @Thớt: Bạn chuẩn hóa dữ liệu đầu vào đi thì việc xử lý nó đơn giản hơn và tôi nghĩ nó không khó cho chuyện này - Thêm...

Vậy bạn cho mình hướng dẫn code được không. Kiểu copy, paste theo định dạng. Mong bạn hổ trợ giúp mình nhé!

Cách kẻ dòng thì mình thấy đơn giản nhất là copy paste định dạng là ổn nhất

Theo tôi Ws.Range("A4:H" & LrD+1).Borders.LineStyle=xlNone hoặc =0. Và Ws.Range("A4:H" & LrD+1).Borders.LineStyle=True hoặc =1. Là như nhau Không biết các cao thủ khác thì như thế nào!

Nói chung là không có file và có code thì trong ai vạch hướng cho bạn cũng chỉ là "thầy bói xem voi" thôi. Xem lại từ đầu, tôi thấy Việc tạo file giả định, hoặc có code của bạn (chạy chưa đúng ý định) là 1 điều hết sức xa xỉ đối với bạn. Thế cho nên bạn muốn biến người hộ trợ bạn thành thày bói...

Dear @HUONGHCKT Code bạn đề xuất, như code mình đã đề cập ở bài 29+30. Nhưng khi Run thì kẻ border không tự co giãn. Nghĩa là thủ tục con: tính toán SumProduct, lọc dữ liệu và trích xuất được 10 dòng. Chạy Run lần 2 và trích lọc được 5 dòng, thì border không co giãn còn 5 mà vẫn y nguyên border...

Cũng với file trên. Giờ mình code cho: 1. Tự động kẻ border khi có dữ liệu. Dim ws As Worksheet Set ws = Worksheets("XUAT") Dim LrD As Long LrD = ws.Range("D65536").End(xlUp).Row ws.Range("A4:H" & LrD+1).Borders.LineStyle = True 2. Hàm SumProduct theo dòng có dữ liệu. - Dán KQ Sum Product cho 3...

Được. Thứ gì cũng được cả. Chỉ có mất thời gian thôi --=0 :{{ :p

Mục đính là khi copy các dãy số vào các cột ở bên số 1 thì bên số 2 sẽ tạo mức từ các giàn số đó. (File hiện tại nó chỉ đang tạo mức được 1 cột duy nhất chứ không tạo mức được hết ở các cột kia dù đã chọn vùng tạo mức từ mức 0 đến mức 9 và dòng số 20 trong công thức tạo mức nhưng kết quả chỉ...

Mình tải từ diễn đàn của 1 người khác cũng lâu lắm rồi không nhớ của bác nào. Mình có 9 cột và các dãy số gồm 20 dòng. Hiện tại hàm tạo mức chỉ nhận tạo mức 1 cột duy nhất. Ví dụ như mình chọn tạo mức số cho cột mức 0 thì chỉ tạo mức số ở vùng chọn đấy thôi, nhưng khi mình sửa lại chọn ra vùng...

Bạn xem file coi xài được không hdsd: Nạp dữ liệu vào sheet tonghop tại sheet kiemtra, dòng 1, nhap bất kỳ thông tin cần tìm Chú ý phải Enable macro cho phép code hoạt động

Bạn @VetMini đã nói rỏ 1 sheet chỉ được 2^34-1 kết quả, không thể tạo 2^100 kết quả Thật ra không nên tạo nhiều kết quả vì file rất nặng, xử lý không khéo sẽ không đủ bộ nhớ code VBA không chạy được, không lưu file được, nếu làm được sẽ phải tốn rất nhiều thời gian chạy code. Có lẽ bạn nên tìm...

Dạ, em cảm ơn góp ý của anh ! Em có làm tay ở sheet ví dụ. Bình thường cứ gộp 5 dòng vào một ô. Nếu dòng nào có chữ "Hợp đồng công trình" thì sẽ bỏ ko gộp. Trường hợp nếu có 3 dòng xong dòng thứ 4 mà có chữ "hợp đồng công trình"thì sẽ gộp 3 dòng. Em đính lại file như bên dưới anh hỗ trợ giúp em...

Chỗ này đang nói Object chung, không riêng gì Dictionary đâu anh. Có nhiều trường hợp cần clone object đó anh. Không dưng tự nhiên người ta tạo phương thức object.clone Ở đây cần chú ý: (1) Chỗ dùng CreateObject và dấu =, nắm chắc để vận dụng. (2) Tại sao lại xảy ra (1). Cái mới dừng ở mức...

Tôi cho rằng : giữa tôi và bạn, 1 trong hai người có vấn đề về đọc hiểu Bạn đã viết yêu cầu Đến khi có code rồi thì bạn lại: Vậy thì tóm lại là bạn muốn gì? Đơn giản à? Thành thật xin lỗi bạn vì đã sửa lại code cho bạn mà lại không đúng ý bạn (một siêu cao thủ VBA ẩn mình). Mà sao hôm nay là...

Giờ bỗng nhiên lại hiểu. CreateObject 1 Dict mới toanh, nó sẽ rỗng và để dành, clone Dict rỗng này thành những Dict sau đó. May quá, DIct không clone được nên cứ thế mà CreateObject, Cũng không mất bao nhiêu thời gian: viết 1 dòng CreateObject, copy thêm 7 lần thành 8 dòng, mỗi dòng chỉ sửa tên

Rồi. Trúng quả này nuốt được mới hay. File nặng cho nên không muốn dùng công thức. Dùng code nhưng lại muốn hiện công thức. Lưu ý dòng tô đậm ở dưới. Trình độ tính ra giá trị và gán vào là đơn giản đối với thớt. "Hiện" bằng cách nào tôi chưa nghĩ ra. 1. Ghi công thức vào comments cho cột 2...