Khi gán dữ liệu xuống thì code không lâu nhé bạn.Lâu ở chỗ công thức của bạn nó chạy lâu thôi.Còn về font chữ thì bạn có thể định dạng Format nhé.Khi tìm kiếm thì bạn có thể viết ra 1 mảng mới rồi gán vào cũng được.
Gửi bạn,mình đã chỉnh lại code bs thêm.
| MÃ KHÁCH HÀNG | LOẠI KH | TÊN KHÁCH HÀNG | ĐỊA CHỈ | ||||||||
| 0100978593-006 | NCC | Nhà Máy Tân Long | Đường ven sông hậu, ấp An Ninh, X.Định An,H.Lấp Vò,T.Đồng Tháp | ||||||||
| NV077094001557 | Xmau | Nguyễn Tiến Dũng | Đồng Phú | ||||||||
| NV285271683 | Xmau | Nguyễn Quang Thiện | Đồng Xoài | ||||||||
| NV285238822 | Xmau | Tạ Lê Khang | Chơn Thành | ||||||||
| NV285187020 | Xmau | Phan Văn Bình | Phú Riềng | ||||||||
| TL6-2BIP00002 | CSSX | Lò Bún A Nhị | 19, Tổ 2A, Kp.Phước Thọ, P.Tân Thiện, TP.Đồng Xoài | ||||||||
| TL6-2BIP00003 | CSSX | Lò Bún Chú Tuấn | TP.Đồng Xoài | ||||||||
| TL6-2BIP00001 | Horeca | Quán Cơm Tiền Giang | Vòng xoay Đường Hùng Vương, TP.Đồng Xoài | ||||||||
1 | Horeca | Quán Cơm Tiền Giang QL14 | 361-363 Quốc Lộ 14,P.Tân Thiện, TP.Đồng Xoài | ||||||||
| TL6-2BIP00004 | Đại Lý | Tạp Hóa Bích Nụ | Ấp Cầu Rạt, H.Đồng Phú | ||||||||
| TL6-2BIP00005 | Đại Lý | Tạp Hóa Cô Nguyệt | Xã Tiến Hưng, H.Đồng Xoài | ||||||||
| TL6-2BIP00189 | Bán lẻ | Khách Lẻ | 0 | ||||||||
| TL6-2BIP00007 | Horeca | Quán Cơm 777 | Dốc Tà Bế, Đồng Xoài | ||||||||
| TL6-2BIP00008 | Horeca | Quán Cơm 39 | 79 Lê Duẩn, Tân Phú, Đồng Xoài | ||||||||
| TL6-2BIP00009 | Horeca | Quán Cơm Cô Dung | Đồng Xoài | ||||||||
| TL6-2BIP00010 | Đại Lý | Tạp Hóa Phương Dung | Đồng Xoài | ||||||||
| TL6-2BIP00168 | Đại Lý | Tạp Hóa Số 1 | X.Tân Phước, Phước Tân, Đồng Phú | ||||||||
| TL6-2BIP00011 | Đại Lý | Tạp Hóa Yến Nhi | P.Tân Thiện, Đồng Xoài | ||||||||
| TL6-2BIP00014 | Đại Lý | Tạp Hóa Thanh Sang | QL 14, Đồng Xoài | ||||||||
| TL6-2BIP00016 | Đại Lý | Tạp Hóa Đồng Tiến | QL14, Đồng Tiến, Đồng Phú | ||||||||
| TL6-2BIP00015 | Đại Lý | Tạp Hóa Phú Dần | Ấp Cầu 2, X.Đồng Tiến , H.Đồng Phú | ||||||||
| TL6-2BIP00013 | Đại Lý | Vựa Gạo Đức Tài | QL14, Tiến Thành, Đồng Xoài |
Ân nút nhập không gán được dữ liệu xuống sheet.Bạn xem giúp mình
Làm theo bạn cũng được nhưng phải dùng hàm vlookup, sau này nhiều dữ liệu xảy ra tình trạng máy chậy chậm. Còn usefrom mình mới tập tành thấy nó cũng chạy còn lâu hơn vlookup, chủ yếu mình muốn các bạn góp ý chỉnh sửa code cho nó hoạt động mượt hơn.
OK Bạn,vội quá chưa kịp check kỹ file,.
Bạn có thể ví dụ cho mình đoạn code tìm kiếm cho dễ hình dung.
(1) Vói mình: 1 khi thiết kế CSDL chưa chuẩn lắm thì phải thiết kế cho chuẩn cái đã; Không thể bắt trẻ chưa biết bò mà chạy được.
Chậm do có nhiều công thức không hợp lý
Option Explicit
Dim arr()
Private Sub cmddong_Click()
Unload Me
Application.Calculation = xlCalculationAutomatic
End Sub
Private Sub cmdnhap_Click()
Dim j As Long, iCel As Long, iList As Long, Res(1 To 1, 1 To 4)
iCel = ActiveCell.Row
iList = lbdmkh.ListIndex
For j = 1 To 4
Res(1, j) = Me.lbdmkh.List(iList, 1)
Next j
Sheet3.Range("H" & iCel).Resize(, 4) = Res
ActiveCell.Offset(1).Select
End Sub
Private Sub txttimkiem_change()
Dim i As Long, j As Long
With lbdmkh
.Clear
For i = LBound(arr, 1) To UBound(arr, 1)
For j = 1 To 6
If InStr(LCase$(arr(i, j)), LCase$(Trim(txttimkiem.Text))) Then
.AddItem arr(i, 1)
.List(.ListCount - 1, 1) = arr(i, 2)
.List(.ListCount - 1, 2) = arr(i, 3)
.List(.ListCount - 1, 3) = arr(i, 4)
.List(.ListCount - 1, 4) = arr(i, 5)
.List(.ListCount - 1, 5) = arr(i, 6)
End If
Next j
Next i
End With
End Sub
Private Sub UserForm_Initialize()
Dim lr2 As Long
lr2 = Sheet1.Range("d" & Rows.Count).End(3).Row
arr = Sheet1.Range("a10:f" & lr2).Value2
With Me.lbdmkh
.ColumnCount = 6 ' chia thanh 6 cot
.ColumnWidths = "25,70,33,110,210" ' do rong cot
.List = arr ' chi do duoc mang, ko do duoc range
End With
Application.Calculation = xlCalculationManual
End SubCám ơn bạn nhé.
Bạn cho mình hỏi công thức ở đây chưa hợp lý chỗ nào.Bạn cho mình ví dụ cụ thể được ko.
Mình thấy sheet DaTa cột A có tới 3000 dòng. Mình mới thấy vậy thôi.
Kẻ viền nó có ảnh hưởng gì đến việc tính toán ko bạn
Như Bác SA_DQ chia sẻ bài trên chủ thớt cần"thiết kế CSDL chưa chuẩn lắm thì phải thiết kế cho chuẩn cái đã"
1.Mình đã thử code
Dữ liệu lớn không nên dùng hàm SumifS, Vlookup
"khi ấn nút đóng thì chạy hơi load nên mình xóa luôn dòng Application.Calculation = xlCalculationManual thì chạy ok "
Private Sub txttimkiem_change()
Dim i As Long, j As Long
With lbdmkh
.Clear
For i = LBound(arr, 1) To UBound(arr, 1)
For j = 1 To 6
If InStr(LCase$(arr(i, j)), LCase$(Trim(txttimkiem.Text))) Then
.AddItem arr(i, 1)
.List(.ListCount - 1, 1) = arr(i, 2)
.List(.ListCount - 1, 2) = arr(i, 3)
.List(.ListCount - 1, 3) = arr(i, 4)
.List(.ListCount - 1, 4) = arr(i, 5)
.List(.ListCount - 1, 5) = arr(i, 6)
Exit For
End If
Next j
Next i
End With
End SubHay quá anh Hieu ơi,học hỏi thêm anh.
UserForm (đoán vậy chứ biết đâu thớt có cái object nó tên "usefrom" thật)
"Load" là cái gì trong lúc chạy? Load dữ liệu? Tức là chương trình "load" nhiều dữ liệu hơn nó cần cho nên không hiệu quả?
