Cảm ơn bạn đã giúp đỡ.
Mọi người bớt chút thời gian giúp em vấn đề này với. Thanks
Chuyện của bạn không khó; Mà bạn tự làm khó mình bằng cách trộn ô (như [A3]của trang 'In . . "
Em rất cám ơn anh đã dành thời gian giúp đỡ em xin trả lời các vấn đề như sau:
- Em rất cảm ơn anh đã thiết kế lại giúp em. Đây là sai sót của em khi tạo file dữ liệu để nhờ mọi người giúp. Trong thực tế file của em sẽ có thêm 1 sheet Thông tin khách hàng, và các dữ liệu như Tên, số đt, địa chỉ giao hàng sẽ được lấy ở đấy để cho vào sheet In Đơn Hàng.
)Anh ơi, code của anh thật tuyệt, nhưng trình của em kém nên chỉ hiểu đc 1 ít không thể sửa để nó chạy theo ý mình được. Nhưng em thấy file của anh hiện có mấy vấn đề không hợp lắm:
(0) Có` thể chưa hợp với bạn lúc này; Nhưng nếu thêm 1 công đoạn nữa, như lập danh sách duy nhất từ cột mả ĐH & đem qua cập nhật bên trang 'GPE' thì sao? Chuyện cập nhật này luôn sẩy ra khi ta dóng trang CSDL lại.
Mã KH Tên KH
NVH00 Nguyễn Việt Hồng
NVH01 Ngô Thị Việt Hà
FFDOO Đỗ Đình Dương
FJT00 Đinh Trọng
. . . . . .Private Sub Worksheet_Change(ByVal Target As Range)
1 If Not Intersect(Target, [J3]) Is Nothing Then
Dim WF As Object, Rng As Range, sRng As Range
3 ReDim Arr(1 To 9, 1 To 22)
Dim Rws As Long, W As Integer
5 Dim MyAdd As String
Set WF = Application.WorksheetFunction
7 [B12:w20].Value = Arr()
Rows("11:20").Hidden = False '** '
9 With Sheets("DHang")
Rws = .[A2].CurrentRegion.Rows.Count
11 Set Rng = .[A2].Resize(Rws)
Set sRng = Rng.Find(Target.Value, , xlFormulas, xlWhole)
13 If sRng Is Nothing Then
MsgBox "Nothing"
15 Else
MyAdd = sRng.Address
17 Do
W = W + 1: Arr(W, 1) = W
19 Arr(W, 2) = .Cells(sRng.Row, "F").Value
Arr(W, 7) = .Cells(sRng.Row, "G").Value
21 Arr(W, 14) = .Cells(sRng.Row, "H").Value
Arr(W, 16) = .Cells(sRng.Row, "I").Value
23 Arr(W, 19) = .Cells(sRng.Row, "J").Value
Arr(W, 22) = .Cells(sRng.Row, "K").Value
25 If W = 1 Then
[U6].Value = sRng.Offset(, 1).Value: [U7].Value = sRng.Offset(, 2).Value
27 End If
Set sRng = Rng.FindNext(sRng)
29 Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
If W Then
31 [B12].Resize(W, 22).Value = Arr()
Rows(W + 12 & ":20").Hidden = True '** '
33 End If
End If
35 End With
End If
End Sub
Cám ơn a đã giúp e ạ, e đã hiểu về vấn đề này, nhưng cho e hỏi thêm là dialogsheet có sử dụng nhiều k ạ, e thấy e dùng userform ổn hơn
24: Tương tự D19 tương ứngAnh ơi, cái lệnh này có tác dụng gì thế anh[#253]
D1: Điều kiện nếu bạn mó tới ô [J3] thì thực hiện các lệnh tiếp theo cho đến D36
D2: Khai báo 3 tham biến đối tượng
D3: Khai bào 1 biến mảng gồm 9 dòng & 22 cột.
D4: Khai báo 2 tham biến kiểu số Long & Integer
D5: Khai báo 1 tham biến chứa chuỗi kí tự
D6: Gán đối tượng hàm Excel vô tham biến
D7: Vùng ô [B12:W20] được gán tử mảng (chưa có dữ liệu; Thực chất là xóa trắng vùng dữ liệu)
D8: Cho hiện các dòng từ 11 – 20
D9: Tuyên cáo làm việc với trang tính có tên ‘DHang’
D10 Lấy số dòng của vùng dữ liệu xung quanh [B2] gán vô tham biến
D11: Lấy vùng từ [A2] mở rọng xuống dưới với số dòng vừa xác định gán vô biến đối tương (Range)
D12: Áp dụng phương thức tìm kiếm trị ta vừa nhập (vô ô [J3]), khu vực tìm là vùng dòng 11 vừa xác định
D13: Nếu tìm không thấy thì báo cho biết ở D14
D15 Bằng ngược lại thì thực hiện các lệnh dưới liền kề cho tới D34
D16: Lấy địa chỉ ô vừa tìm thấy gán vô tham biến (kiểu chuỗi)
D17: Tạo vòng lập thực hiện việc tìm kiếm; Vòng lặp kết thúc tại D29
D18: (mệnh đề đầu)Thêm 1 đơn vị cho biến đếm
(mệnh đề sau) Lấy chỉ số này gán ngay vô phần từ đầu tiên bên trái nhất của mảng
D19: Lấy trị trong ô có số dòng trùng với dòng tìm thấy & cột ‘F’ đem gán cho phần tử thuộc dòng W & cột là 2 của mảng
D20
D25: Điều kiện khi biến đếm =1 thì thực hiện 2 câu lệnh của dòng tiếp sau
D26 M1: Ô [U6] được gán trị của ô liền kề bên phải ô tìm thấy
M2: Ô U7 thì lại gán tiếp ô bên phải kế tiếp
D27: Kết thúc Đ/K (dòng 25)
D28 Thực hiện phương thức tìm tiếp
D29 Điều kiện kết thúc vòng lặp (là địa chỉ tìm thấy đầu tiên đã được ghi vô biến chuỗi)
D30 Điều kiện là tìm thấy dữ liệu thì thực hiện 2 dòng lệnh tiếp sau ; Kết thúc ĐK ở D33
D31: Gán vùng dữ liệu đang có trên mảng lên trang tính
D32” Ẩn những dòng trống/rỗng dữ liệu trên dòng 21 của trang
