Kết quả tìm kiếm

Anh ơi anh còn file này không cho em xin với ạ.

Cảm ơn bạn, đúng ý mình rồi ạ

Em có file đính kèm, nhờ các anh/chị/thầy/cô giúp code để thực hiện chuyển data từ sheet Data sang được kết quả như sheet NB. Ở sheet data, cột A là Source_name. Các cột sau tương ứng là các Target_name. Các dòng ở data không phải cột nào cũng có dữ liệu, nếu cột nào trống thì bỏ qua. Em xin...

Em test thử thì khi bỏ câu lệnh đó đi thử xóa 1 dòng thì có cột B nó lại thực hiện thay đổi. Không đúng với target.

Trong file trên của em sheet data em có sử dụng thủ tục Worksheet_Change, trong đó khi em sử dụng dòng lệnh If Target.Cells.Count > 1 Then Exit Sub thì nếu sau khi em thực hiện copy hoặc Format Painter một số dòng dữ liệu, nói chung là thự hiện thay đổi nhiều cell cùng lúc là sau đó thủ tục...

Dạ, đúng ý em rồi ạ. Cách của anh là xóa các dòng trống ở cột đó đi. Còn khắc phục cái lỗi dung lượng lớn anh làm sao thế ạ. anh Xóa các dòng phía dưới đi hay sao, em không thấy code thay đổi gì?

Em có file báo cáo, nhờ một số thầy và anh em nhiệt tình trên GPE chỉ cho đã hoàn thành được phần lớn công việc, còn một số vướng mắc em nhờ các anh chị giúp em giải quyết tiếp: - Trong file em nhập liệu vào sheet data, ở các sheet khác thì ok rồi, riêng ở sheet TH_DUTCAP có vướng mắc như này...

Bạn chỉ cần google tải telegram về đăng ký acc bằng điện thoại, sau đó ấn vào đường link trên là được thôi.

Telegram có cả cho mây tính và điện thoại mà bạn.

Telegram nó cũng là 1 mạng xã hội, như viber hay zalo, 1 gr của nó có thể lên đến 200k người tham gia, dữ liệu, file, hình ảnh.. lưu trữ không bao giờ bị mất, những người vào sau có thể đọc được hết tất cả các nội dung trước và tìm kiếm được các file, các hình ảnh có trước. Mình nghĩ nó thích...

Mời các bạn join cho xôm tụ ạ. Nếu việc tạo gr của em ở đây trái với nội quy diễn đàn mong BQT xóa bài chứ đừng banlist em ạ. Vì em chỉ muốn xây dựng chứ ko có ý gì cả. 1578295299 Bác tham gia giúp đỡ bọn em với ạ

Cái vụ này thớt im luôn rồi sao ạ. Em thấy trên telegram có nhiều nhóm coder rất đông, hỗ trợ được nhau nhanh. Nếu các bác đi trước không khó tính như bác HeSanbi nói thì cho phép em tạo cái group mời các bác vào ạ. https://t.me/vbaforall

Ví dụ file này ạ, mảng động sẽ là tab xếp loại đó, các lớp tùy theo xếp loại em sẽ xuất ra khác nhau. Sau đó em sẽ thêm phần mục 2 phía dưới. Bây giờ em muốn merge các dòng của mảng R4 ( như trong ví dụ là từ mục 2 đến Trân trọng) với độ rộng các cột được merge bằng độ rộng của bảng trên. Từ...

Em thử với code này bị lỗi, xin chỉ giúp em lỗi ở đâu ạ. Sub Exampl3() Dim i As Integer Dim R4 As Long With Sheet5 R4 = [A199].End(xlUp).Offset(2) For i = 1 To UBound(R4, 1) Range(Cells(i, 1), Cells(i, 6)).MergeCells = True Next i End With End Sub

Em ko đưa file vì thực tế em đang học chứ ko phải làm trên 1 file cụ thể. Cái em muốn nói ở đây là 1 mảng động có số dòng thay đổi ạ. Trường hợp 1 là em merge tất các dòng trong mảng kể cả dòng ko có dữ liệu chứ ko phải chỉ mỗi dòng ko có dữ liệu. Cứ random 1 mảng chạy từ cột A đến cột F với số...

Giả sử mình có mảng Arr từ cột A đến cột F, không cố định dòng. Nhờ các bạn giúp mình code merge trong 2 trường hợp: 1. Merge từ cột A đến cột F của tất cả các dòng trong mảng (kể cả dòng không có dữ liệu). 2. Merge từ cột A đến cột F của tất cả các dòng có dữ liệu trong mảng (những dòng không...

Mình đã làm được rồi ạ Sub Macro1() Dim R1 As Range, R2 As Range, R3 As Range, R4 As Range With Sheet2 .Range("A512:F599").Clear Set R1 = .Range([A4], [F500].End(xlUp)) Set R2 = .Range("A512") R1.Copy R2 Set R3 = .Range("A600:A603") Set R4 = [A599].End(xlUp).Offset(1)...

Mình thực hiện theo code của bạn nhưng nó báo lỗi bạn ạ. Đã đổi 65000 thành 600

Mình có code như sau: Sub Macro1() Dim R1, R2, R3, R4 As Range With Sheet2 ActiveSheet.Range([A511], [F599].End(xlUp)).Clear Set R1 = Range([A4], [F500].End(xlUp)) Set R2 = Range("A511") R1.Copy R2 Set R3 = Range("A600:A603") Set R4 = ????? R3.Copy R4 End With End...

Mình ủng hộ, lập cái nhóm Telegram đi, nhờ các bạn đi trước join vào hỗ trợ những người mới như bọn mình. Như thế sự hỗ trợ sẽ nhanh hơn, trao đổi được nhiều hơn. Rất mong được là thành viên của nhóm