Cảm ơn bạn, mình mù tịch máy tính, chưa từng học tin, nhưng xem video trước và vdeo này mình đã làm đc , hoá đơn của mình gọn hơn đơn giản hơn của bạn nhưng mình vẩn làm đc do bạn hướng dẩn rất dễ hiểu
cảm ơn anh đã hướng dẫn rất chi tiết, dễ hiểu. em có làm theo 1 userform có 2 mục ( 1 textbox tk và 1 listbox sản phẩm. 1 text box tk và 1 list box khách hàng) nhưng em copy code của sản phẩm sang khách hàng, có đổi các thông tin nhưng khi tìm kiếm nó lại không ra kết quả như bên listbox sản phẩm anh hướng dẫn được, chỉ gõ được 1 chữ cái, chứ thứ 2 là trắng luôn không ra kết quả. anh có thể giúp em lỗi này được không ạ? Cảm ơn anh nhiều
Video rất hay và dễ hiểu ạ. Em muốn hỏi thêm chút là nếu e muốn tìm từ nhiều sheets khác nhau thì làm như nào ạ? Mong nhận được phản hồi ạ. E cảm ơn ạ.
Trường hợp có 4 sheet, mỗi sheet là 1 kho, sau khi chọn kho mới tìm theo mã hàng và tên hàng thì làm ntn thầy, thầy làm ơn hướng dẫn e với. Cảm ơn thầy trước ạ.
A ơi , đến khúc dbclik lấy dữ liệu, nếu mình muốn lấy dữ liệu vào bất kỳ ô mình chọn thì mình viết code s ? ( ví dụ k lấy theo dòng cuối mà e muốn chọn cho dòng bất kỳ nào tùy e. Vì có dòng e cần lấy có dòng e bỏ trống
a ơi.cho e hỏi chút ạ.trong trường hợp mã sản phẩm chứa cả số và chữ thì làm như thế nào ạ.e làm theo như a hướng dẫn nhưng khi gõ theo mã sản phẩm thì lại k ra kết quả ạ.
Giả sử cùng 1 sp , mà mỗi khách e bán với mức giá khác nhau. Nên e muốn chọn tên khách hàng trước. Sau đó từ tên khách sẽ chọn ra sp với giá phù hợp. Vậy thì lúc viết code có thêm điều kiện gì ràng buộc ko ạ. Và trình bày như thế nào.
Hi anh, em có 1 file data mà chỉ có 4 cột(trong đó cột thứ 4 cách 1 cột), em làm theo hướng dẫn thì đến phần thêm vào file thì em bấm doubleclick hoài mà ko thêm vào, anh có thể xem giúp em được ko ạ.
Nhờ Anh chỉ giúp em nếu thêm textbox tìm kiếm : giả sử mình tìm kiếm dữ liệu cột 6 ( có nhiều mã giống nhau) và tìm kiếm dữ liệu các ô khác dựa trên mã dữ liệu cố định cột 6 có được không ạ. Em cám ơn!
Anh ơi cho em hỏi chút ạ. Em làm theo video của a rồi nhưng là file khách hàng ạ. Có khoảng 2000 khách hàng. Khi em nhấn vào frm để gõ tìm kiếm thì k thấy hiện ra chữ mà cứ thấy xoay vòng rất lâu ạ. Xong em phải thoát ra mới vào lại đc file excel đó. Có phải do dữ liệu khách hàng quá nhiều k frm k tải đc k ạ? Mong a giải đáp ạ. Em cảm ơn a
Hay quá. Cảm ơn anh ạ. E làm giống như a và nhưng khi click thì dữ liệu lại k vào bảng mà lại chuyển bào dòng thứ 2, làm thế nào để khắc phục được ạ? Em cảm ơn!
đầu tiên xin cam ơn video hữu ích của bạn! minh đã làm được! nhưng có vấn đề là bị chậm lúc tìm kiếm á bạn! đánh 1 chữ mak đợi nó chạy rất lâu! có cách nào khắc phục ko ạ?
@@TinHocDongPhuong ak vậy la tại chọn nhiều dòng quá nên nặng phải ko ạ? vì cái dữ liệu mình tìm la dữ liệu dc them vào mỗi ngày nên minh quốc tới 1 triệu mấy, kaka! de minh sữa lai
@@trinhnguyen-ox9jv Mình tìm kiếm đến 10.000 vẫn chạy nhanh như thường. Private Sub CommandButton1_Click() Dim lr As Long With Sheet2 lr = .Range("B" & Rows.Count).End(xlUp).Row + 1 .Range("B" & lr).Value = listHanghoa.List(listHanghoa.ListIndex, 1) .Range("C" & lr).Value = listHanghoa.List(listHanghoa.ListIndex, 2) .Range("D" & lr).Value = listHanghoa.List(listHanghoa.ListIndex, 3) .Range("E" & lr).Value = listHanghoa.List(listHanghoa.ListIndex, 4) .Range("F" & lr).Value = listHanghoa.List(listHanghoa.ListIndex, 5) .Range("G" & lr).Value = listHanghoa.List(listHanghoa.ListIndex, 6)
End With End Sub Private Sub CommandButton2_Click() Unload Me End Sub Private Sub txttimkiem_Change() Dim arr() Dim Result() Dim dk As String Dim a As Long Dim i As Long Dim lr As Long 'step1: dua data vao mang arr = Sheet1.Range("A1:G10000").Value 'step2:redim mang Result ReDim Result(1 To UBound(arr, 1), 1 To 7) 'step3:gan dk bang tim kiem dk = txttimkiem.Text 'step4:xet dieu kien gia tri cot can tim voi dieu kien 'step5:Neu dieu kien gia tri cot can tim giong voi dieu kien => tang bien dem mang 'Step6:luu gia tri vao mang Result For i = 1 To UBound(arr, 1) If arr(i, 2) Like "*" & dk & "*" Or _ arr(i, 3) Like "*" & dk & "*" Or _ arr(i, 4) Like "*" & dk & "*" Or _ arr(i, 5) Like "*" & dk & "*" Then a = a + 1 Result(a, 1) = arr(i, 1) Result(a, 2) = arr(i, 2) Result(a, 3) = arr(i, 3) Result(a, 4) = arr(i, 4) Result(a, 5) = arr(i, 5) Result(a, 6) = arr(i, 6) Result(a, 7) = arr(i, 7)
End If Next i 'Step7:Gan gia tri tu mang Result tra ve sheet
listHanghoa.List = Result
End Sub Private Sub UserForm_Initialize() listHanghoa.List = Sheet1.Range("A1:G10000").Value End Sub
em chào anh.e làm giông snhuw anh mà không hiểu sao lại bị lỗi a xem giueps e được không ạ. báo lỗi listboxxn.clear Private Sub txt_timkiem_Change() Dim arr(), kq(), i As Long, a As Long, dk As String dk = txt_timkiem.Text
arr = Sheets("DL_XINGHIEP").Range("C4:E150").Value ReDim kq(1 To UBound(arr, 1), 1 To 3)
For i = 1 To UBound(arr, 1) If arr(i, 1) Like "*" & dk & "*" Then a = a + 1 kq(a, 1) = arr(i, 1) kq(a, 2) = arr(i, 2) kq(a, 3) = arr(i, 3)
End If
Next i
ListBoxxn = "" ListBoxxn.Clear ListBoxxn.List = kq End Sub
![ประสบการณ์ จ้าง Developer ที่ผมจะไม่มีวันลืม [ภาค1]](http://i.ytimg.com/vi/bzivN4KDg-k/mqdefault.jpg)
Các bạn tham khảo thêm video này, mình có hướng dẫn lại cách tìm kiếm không phân biệt hoa thường: th-cam.com/video/zMB1sFKQYEE/w-d-xo.html
em muốn làm 1 phần mềm để quản lý bán hàng, anh cho em xin thông tin liên hệ để em trao đổi cụ thể hơn nhé
@@behato2669 e liên hệ 0906864860 nhé
Hàm tìm kiếm này phân biệt chữ hoa và chữ thường, có cách nào tìm kiếm không phân biện chữ Hoa và chữ thường không anh?
Cảm ơn bạn, mình mù tịch máy tính, chưa từng học tin, nhưng xem video trước và vdeo này mình đã làm đc , hoá đơn của mình gọn hơn đơn giản hơn của bạn nhưng mình vẩn làm đc do bạn hướng dẩn rất dễ hiểu
Video chi tiết, rất bổ ích cho người mới sử dụng excel
Hay lắm!, ngắn gọn dể hiểu, làm cái tiềm kiếm nâng cao đi thầy?
Cảm ơn 1 video hay ạ !
Mong anh dạy thêm cách tự động +1 sau mỗi lần click ạ. Em cảm ơn
Quá hay
Thầy giáo dạy thêm cách . click thêm lần nữa thì tự động + lại số lượng lên 1 đị ạ .
Mình có video nào hướng dẫn nhập nhiều dòng và cột dữ lIệu vào listbox và từ listbox nhập vào sheet không ạ
cảm ơn anh đã hướng dẫn rất chi tiết, dễ hiểu. em có làm theo 1 userform có 2 mục ( 1 textbox tk và 1 listbox sản phẩm. 1 text box tk và 1 list box khách hàng) nhưng em copy code của sản phẩm sang khách hàng, có đổi các thông tin nhưng khi tìm kiếm nó lại không ra kết quả như bên listbox sản phẩm anh hướng dẫn được, chỉ gõ được 1 chữ cái, chứ thứ 2 là trắng luôn không ra kết quả. anh có thể giúp em lỗi này được không ạ? Cảm ơn anh nhiều
hay qua cam on ban
Xin chào thầy, cảm ơn video hữu ích từ thầy, Thầy cho em hỏi thêm chút nếu muốn lấy dữ liệu từ nhiều sheet thì ta phải dùng câu lệnh như thế nào ạ.
Video rất hay và dễ hiểu ạ. Em muốn hỏi thêm chút là nếu e muốn tìm từ nhiều sheets khác nhau thì làm như nào ạ? Mong nhận được phản hồi ạ. E cảm ơn ạ.
tks add rất nhiều
Chào ad. Ad làm video hướng dẫn làm urfrom như video này đi ah. Cảm ơn ad nhiều
Bạn cho mình hỏi chút, làm sao để chức năng wrap text trong userform vậy bạn?
Add hướng dẫn làm form vba quản lý tài liệu đi ạ
Trường hợp có 4 sheet, mỗi sheet là 1 kho, sau khi chọn kho mới tìm theo mã hàng và tên hàng thì làm ntn thầy, thầy làm ơn hướng dẫn e với. Cảm ơn thầy trước ạ.
Khi mình chọn vào ô tìm kiếm sản phẩm thì thông báo macro ko tồn tại hoặc có trong file, chỉ mình cách sửa nhé
A ơi , đến khúc dbclik lấy dữ liệu, nếu mình muốn lấy dữ liệu vào bất kỳ ô mình chọn thì mình viết code s ? ( ví dụ k lấy theo dòng cuối mà e muốn chọn cho dòng bất kỳ nào tùy e. Vì có dòng e cần lấy có dòng e bỏ trống
cái này hay lắm ạ, nhưng sao mà đặt điều kiện cho file của mình được ạ, nhờ chỉ giúp cho tôi với ạ
Thầy ơi! Cho em xin cái link hướng dẫn sửa hoá đơn được không ạ?
Verry good
Anh có phần mềm tính giờ trượt Patin không ạ?
Tuyệt vời! Đỡ amateur rồi thầy ơi =))))
Danke
hay ạ
Anh ơi anh làm video full về lọc dữ liệu nâng cao trong excell đi ạ . Em cảm ơn ạ
Nếu dk định dạng string thì mã hàng thì cũng phải dạng chữ không phải số đúng k ah
String thì số hay chữ đều đc bạn.
a ơi.cho e hỏi chút ạ.trong trường hợp mã sản phẩm chứa cả số và chữ thì làm như thế nào ạ.e làm theo như a hướng dẫn nhưng khi gõ theo mã sản phẩm thì lại k ra kết quả ạ.
Chào thầy, e cần textbox không phân biệt chữ hoa và chữ thường thì dùng phương thức hay thuộc tính nào ạ
e dùng hàm ucase để chuyển về hoa và so sánh nhé
Giả sử cùng 1 sp , mà mỗi khách e bán với mức giá khác nhau. Nên e muốn chọn tên khách hàng trước. Sau đó từ tên khách sẽ chọn ra sp với giá phù hợp. Vậy thì lúc viết code có thêm điều kiện gì ràng buộc ko ạ. Và trình bày như thế nào.
anh viết file quản lý tiền vay và cho vay không anh
Hi anh, em có 1 file data mà chỉ có 4 cột(trong đó cột thứ 4 cách 1 cột), em làm theo hướng dẫn thì đến phần thêm vào file thì em bấm doubleclick hoài mà ko thêm vào, anh có thể xem giúp em được ko ạ.
Thầy cho em hỏi là sau khi tìm kiếm mình muốn check chọn nhiều dữ liệu trong lần tìm kím đó và add vào bản dữ liệu thì làm như thế nào ạ
Phần mềm này có bán k a
Có em. E liên hệ 0906864860 nhé
Nhờ Anh chỉ giúp em nếu thêm textbox tìm kiếm : giả sử mình tìm kiếm dữ liệu cột 6 ( có nhiều mã giống nhau) và tìm kiếm dữ liệu các ô khác dựa trên mã dữ liệu cố định cột 6 có được không ạ. Em cám ơn!
Anh ơi cho em hỏi chút ạ. Em làm theo video của a rồi nhưng là file khách hàng ạ. Có khoảng 2000 khách hàng. Khi em nhấn vào frm để gõ tìm kiếm thì k thấy hiện ra chữ mà cứ thấy xoay vòng rất lâu ạ. Xong em phải thoát ra mới vào lại đc file excel đó. Có phải do dữ liệu khách hàng quá nhiều k frm k tải đc k ạ? Mong a giải đáp ạ. Em cảm ơn a
2000 khách hàng thì không nhiều em, có thể do vấn đề khác. Em kiểm tra lại kỹ xem nhé!
Anh chỉ dùm em cách thiết lập khách hàng đi anh
Sao em viết giống anh muh khi search bằng số thì nó hoạt động muh em gõ chữ thì nó ko hoạt động. Chả hiểu nó bị gì
Hay quá. Cảm ơn anh ạ.
E làm giống như a và nhưng khi click thì dữ liệu lại k vào bảng mà lại chuyển bào dòng thứ 2, làm thế nào để khắc phục được ạ? Em cảm ơn!
Khi tìm kiếm thì phải nhập chính xác chữ in Hoa của sản phẩm, có cách nào jkhi nhập chữ thường hay chữ hoa đều tìm được không bạn
Mình dùng hàm Ucase để chuyển từ khóa về in hoa hết nhé bạn.
@@TinHocDongPhuong bạn làm video hướng dẫn được ko, mình ko rành về cái này
nếu dữ liệu tầm khoảng 300k bản ghi thì vẫn bị treo. có cách nào nhanh hơn ko bạn
dữ liệu nhiều thì chỉ có dùng SQL thôi
Có cách nào dữ lại dòng tiêu đề khi tìm kiếm và định dạng dữ liệu cho từng cột đc không bạn
bạn thêm lable trên dầu listbõ là được mà. còn một cách khác nhưng phức tạp hơn phải làm video thì mới dõ đc
Đến chỗ nhập frmtimkiem nó kh sổ xuống bạn ơi tôi nhập frmtimkiem thì kh gán vào nút được bị lỗi 424 error
Bạn gửi code lên mình xem thử lỗi gì ạ!
@@TinHocDongPhuong đánh chữ frmTimkiem.Show báo lỗi ad ah
chào anh có cách nào để nó dùng được tất cả chử Hoa và thường không ạ ,làm như anh tìm kiếm đúng chử cái Hoa và thường
E dùng hàm Ucase để chuyển về hoa để so sánh nhé.
@@TinHocDongPhuong dạ LCase là chử thường Ucase là Hoa có cách nào mình viết chử thường cũng tra ra và hoa cũng tra ra ko ạ thanks
tức là mình nhập chử thường cũng ra 1 kết qua và chử hoa cũng ra 1 kết qua như nhau ấy ạ thanks
@@TinHocDongPhuong ok em đã làm được thanks anh nhiều
Em có thể tham khảo video mới nhất nhé, cũng có phần tạo form tìm kiếm, th-cam.com/video/zMB1sFKQYEE/w-d-xo.html
làm sao để khi mình chọn ô thì nó tạo tìm kiếm luôn trong ô đấy, k phải ấn vào hiện form nữa a
đầu tiên xin cam ơn video hữu ích của bạn! minh đã làm được! nhưng có vấn đề là bị chậm lúc tìm kiếm á bạn! đánh 1 chữ mak đợi nó chạy rất lâu! có cách nào khắc phục ko ạ?
Bạn tìm trong khoảng bao nhiêu dòng, mình chọn 10000 dòng thấy nhẹ mà!
@@TinHocDongPhuong ak vậy la tại chọn nhiều dòng quá nên nặng phải ko ạ? vì cái dữ liệu mình tìm la dữ liệu dc them vào mỗi ngày nên minh quốc tới 1 triệu mấy, kaka! de minh sữa lai
@@TinHocDongPhuong ủa kì ta! minh thu 10.000 dòng vẫn chậm như rùa
@@trinhnguyen-ox9jv
Mình tìm kiếm đến 10.000 vẫn chạy nhanh như thường.
Private Sub CommandButton1_Click()
Dim lr As Long
With Sheet2
lr = .Range("B" & Rows.Count).End(xlUp).Row + 1
.Range("B" & lr).Value = listHanghoa.List(listHanghoa.ListIndex, 1)
.Range("C" & lr).Value = listHanghoa.List(listHanghoa.ListIndex, 2)
.Range("D" & lr).Value = listHanghoa.List(listHanghoa.ListIndex, 3)
.Range("E" & lr).Value = listHanghoa.List(listHanghoa.ListIndex, 4)
.Range("F" & lr).Value = listHanghoa.List(listHanghoa.ListIndex, 5)
.Range("G" & lr).Value = listHanghoa.List(listHanghoa.ListIndex, 6)
End With
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub txttimkiem_Change()
Dim arr()
Dim Result()
Dim dk As String
Dim a As Long
Dim i As Long
Dim lr As Long
'step1: dua data vao mang
arr = Sheet1.Range("A1:G10000").Value
'step2:redim mang Result
ReDim Result(1 To UBound(arr, 1), 1 To 7)
'step3:gan dk bang tim kiem
dk = txttimkiem.Text
'step4:xet dieu kien gia tri cot can tim voi dieu kien
'step5:Neu dieu kien gia tri cot can tim giong voi dieu kien => tang bien dem mang
'Step6:luu gia tri vao mang Result
For i = 1 To UBound(arr, 1)
If arr(i, 2) Like "*" & dk & "*" Or _
arr(i, 3) Like "*" & dk & "*" Or _
arr(i, 4) Like "*" & dk & "*" Or _
arr(i, 5) Like "*" & dk & "*" Then
a = a + 1
Result(a, 1) = arr(i, 1)
Result(a, 2) = arr(i, 2)
Result(a, 3) = arr(i, 3)
Result(a, 4) = arr(i, 4)
Result(a, 5) = arr(i, 5)
Result(a, 6) = arr(i, 6)
Result(a, 7) = arr(i, 7)
End If
Next i
'Step7:Gan gia tri tu mang Result tra ve sheet
listHanghoa.List = Result
End Sub
Private Sub UserForm_Initialize()
listHanghoa.List = Sheet1.Range("A1:G10000").Value
End Sub
@@trinhnguyen-ox9jv quan trọng là cấu hình máy b nữa
Sao em đưa vào khách hàng ko đc anh, chỉ vào mỗi chỗ tên hàng và mã hàng
để tìm kiếm ko phân biệt dấu thì thêm câu lệnh gì? ở đâu??
e nhập code giống nhưng nó hiện mỗi cột A anh ạ. a giúp e với. e cảm ơn ạ
Nếu mình tìm chữ không dấu vẫn ra được chữ có dấu thì dùng hàm gì thầy ơi?
Em bị lỗi chổ
Ghi ma hang vao sheet
Nếu mình muốn điền chữ thường vào mà vẫn tìm được chứ hoa hoặc ngược lại thì thêm câu lệnh gì thầy ơi?
Em dùng Ucase(arr(i, 2)) nhé.
Ủa em tắt máy, sáng hôm sau mở lên thì báo thế này, ai giúp em với " cannot run the macro 'setfunshow' the macro may not be available "
Cài win lại cài luôn bộ office
Sao em cài k đk nó hk có chạy
em chào anh.e làm giông snhuw anh mà không hiểu sao lại bị lỗi a xem giueps e được không ạ. báo lỗi listboxxn.clear
Private Sub txt_timkiem_Change()
Dim arr(), kq(), i As Long, a As Long, dk As String
dk = txt_timkiem.Text
arr = Sheets("DL_XINGHIEP").Range("C4:E150").Value
ReDim kq(1 To UBound(arr, 1), 1 To 3)
For i = 1 To UBound(arr, 1)
If arr(i, 1) Like "*" & dk & "*" Then
a = a + 1
kq(a, 1) = arr(i, 1)
kq(a, 2) = arr(i, 2)
kq(a, 3) = arr(i, 3)
End If
Next i
ListBoxxn = ""
ListBoxxn.Clear
ListBoxxn.List = kq
End Sub