Kết quả tìm kiếm

Trước mình ko để trùng lặp, nhưng nếu ko trùng lập thì khi mình xuất ra từng Khách Hàng đã mua những Mặt hàng gì thì phần cột Khách hàng bị thiếu mình ko xuất đc, vậy làm sao hả a ?

Học được thêm chiêu này! khá hay luôn

Cảm ơn bạn appl nhé, rất vui được làm quen, ko biết mình có quen nhau ở ngoài đời ko. Mình dạy Excel, nhưng tới giờ mới bổ túc VBA, có gì bạn chiếu cố cho :D

Chào anh chị! Đầu tiên em có bảng tổng hợp các hóa đơn bán hàng như thế này (sheet THHD): Em muốn làm bảng tổng hợp để biết trong khoảng thời gian nào đó bán được bao nhiêu mặt hàng, và tổng số lượng, Chiết khấu, Thành Tiền, Giá Vốn, Lợi nhuận tương tứng là bao nhiêu, có lọc theo tên Khách...

Cảm ơn bạn, đúng cái mình đang cần luôn!

Addin này ko chạy được trên ofice 2013 trở về sau bản 64 bit. Bản 32 bit chạy bình thường. Thiết nghĩ bác HuuThang nên fix chỗ này để adin tuyệt vời hơn! Với một lỗi rất trầm trọng, đó là khi trong Display của Window chỉnh độ zoom khác 100% thì adin sẽ lỗi hiển thị như sau: Test lỗi này thì...

Đúng rồi, tránh mảng rỗng sẽ ok hơn là làm cho nó có rỗng rồi xóa. Tuy topic này chưa nói xóa mảng rỗng nhưng nó đã giải quyết được vấn đề của em! Xin cảm ơn anh @VetMini , anh @befaint và anh @batman1 đã hỗ trợ em!

mình làm theo cách này thì đúng là rất ok, cảm ơn bạn @batman1 rất nhiều!!

Sau khi em sửa xong thì nó báo lỗi Type mis match!! code: Option Explicit Sub CONGNO() Call TraCuuKH Const ten_tra_cuu As String = "TraCuu" Const ten_cong_no As String = "CONGNO" Const rng_tieu_de As String = "P1:V1" Const row_date As Long = 26 Const last_cell As...

Anh @befaint cho em hỏi, code còn 1 lỗi, đó là với arr có 1 phần tử thì nó báo lỗi Out of range, còn 2 phần tử trở lên thì ko bị báo lỗi, anh em sai chỗ nào giúp em với ạ! Code em: Option Explicit Sub CONGNO() Call TraCuuKH Const ten_tra_cuu As String = "TraCuu" Const...

Xin chào anh chị! Trong quá trình chạy code sử lý dữ liệu, có những dòng lệnh VBA chạy rất lâu, tầm mười mấy giây đến 1 phút, trong thời gian chờ đó em muốn hiển thị một MsgBox hiển thị một thông báo nào đó cho người dùng biết, ví dụ như: "Đang xử lý, vui lòng chờ trong giây lát", đến khi thực...

Cảm ơn anh @befaint đã hướng dẫn một số cách tối ưu code! Em đã tìm ra vấn đề!! Vấn đề ở chỗ phải cho b = 0 vào mỗi vòng lặp. Code đúng đã chạy được nè :D Option Explicit Sub CONGNO() 'Call TraCuuKH Const ten_tra_cuu As String = "TraCuu" Const ten_cong_no As String = "CONGNO"...

Vậy thì mình nên sửa code như nào hả bạn, mình chưa biết :(

Chào anh chị! Em đang học VBA, học bóc tác dữ liệu từ Sheet TraCuu sang Sheet CONGNO theo từng Ngày đặt hàng, một ngày tương ứng em gán dữ liệu vào mảng arr để đưa vào sheet CONGNO. Đây là sheet TraCuu: Em muốn nó xuất ra sheet CONGNO theo mẫu như thế này: Nghĩa là dữ liệu đi theo từng...

MÌnh mới học VBA nên trình độ chỉ viết đc nhiêu đó, có gì nhờ a Vetmini chỉ giáo thêm :D

Mình biết tác dụng của nó rồi, nhưng mục đích của nó thì chưa hiểu lắm, nếu muốn đẹp thì ẩn hết nó đi, chứ sao chỉ ẩn 1000 dòng thôi, thì đằng nào vẫn còn các dòng còn lại mà?

Cho mình hỏi dòng lệnh in đậm mục đích là gì ạ? Nếu không có nó thì có đc ko? With Sheets("Trichloc") .Range("A8").Resize(k, 17) = b .Range("A8").Resize(k, 17).Borders.LineStyle = 1 .Rows(k + 10 & ":1000").Hidden = True End...

Gửi bạn xem thử: code ở mỗi sheet dùng sự kiện change: Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B2:B6500")) Is Nothing And Target.Count = 1 Then Dim i As Long Dim lrHP As Long lrHP = Sheet3.Range("B65000").End(xlUp).Row For i = 2 To lrHP...

Bạn thử xem nhé! bài này cũng kiến thức cơ bản, mình mới học cũng làm đc, ko cần cao thủ ạ ! :D

Khi cut từ dòng dưới chuyển lên dòng trên thì phải kéo công thức lại.