Cần giúp đỡ một FORM nhập và lọc dữ liệu quá sức của mình

[RAT_LIEU]

Phía trên là form nhập dữ liệu của mình, mình với tập viết macro , cũng đã tham khảo một số form khác nhưng xem ra nó quá sức của mình nên nhờ các a/c ở trên này viết giúp mình với a. form có các yêu cầu sau

1. Ở phấn thông tin BLANK có các mục

Material Shell part Line Thickness Blank Color Characteristic
2. Ở mục Type Here là ô nhập dữ liêu
3. Mục Last là các dữ liệu Nhập ở Type Here lần gần nhất
4. Sau khi nhập dữ liệu xong qua mục chọn kho. Sẽ có các kho

Blank Sample Finish

Nếu click vào kho nào nó sẽ lấy dữ liệu ở kho đó
5. Dữ liệu cần lấy ra gồm
Material Shell part Line Thickness Blank Color Characteristic Balance

6. Khi lấy xong dữ liệu nó sẽ hiện ra ở cửa sổ nhỏ phía dưới

"Dữ liệu tìm được trong kho......"

Nếu số dữ liệu thỏa mãn nhiều quá thì sẽ có thanh cuộn...


EM có gửi lên file đính kèm các kho. Và các kho này có bố trí là cố định. EM không có quyền hiệu chỉnh

thank a/c nhiều

 

[RAT_LIEU]

gần 20 lượt tải mà chưa ai cm giúp em với

 

[chucuoi92]

mình chưa xem file của bạn, nhưng nhìn vào FORM thì thấy chất xám và thời gian bỏ vào đây không ít.do vậy muốn được hoàn chỉnh như ý mình thì nên tự học và những phần nào không biết thì gửi lên để mọi người cùng giúp.

 

[huuthang_bd]

gần 20 lượt tải mà chưa ai cm giúp em với

Cái này cần đầu tư nhiều thời gian. Không nhiều người có đủ thời gian rảnh rỗi giúp bạn.

 

[RAT_LIEU]

tạm thời chưa đạt được mục đích em xài cách củ chuối này
1. GỌi form đăng nhập

Sub MoForm2()
UserForm2.Show
End Sub

2. Code của form đăng nhạp

Private Sub CommandButton3_Click()
With ActiveWorkbook
Application.Run "checksample"
Application.CutCopyMode = False
End With
End Sub

Private Sub CommandButton4_Click()
With ActiveWorkbook
Application.Run "checkfinish"
Application.CutCopyMode = False
End With
End Sub


Private Sub CommandButton5_Click()
With ActiveWorkbook
Application.Run "checkblank"
Application.CutCopyMode = False
End With
End Sub

3. code để lọc dữ liệu
ví dụ check sample

Sub checksample()

'Application.ScreenUpdating = False
On Error Resume Next
If isWorkbookOpen("2009-10 Grinded Blank WH.xlsx") = False Then
     Workbooks.Open ("C:\Documents and Settings\XPPRESP3\Desktop\all_kho_10-10\2009-10 Grinded Blank WH.xlsx")
End If
Workbooks("2009-10 Grinded Blank WH.xlsx").Sheets("GB Sample").Activate
With ActiveWorkbook
     ActiveSheet.Outline.ShowLevels RowLevels:=3
     ActiveSheet.Columns("I:CZ").Select
     Selection.EntireColumn.Hidden = True
     ActiveSheet.Columns("DB:DB").Select
     Selection.EntireColumn.Hidden = True
End With
ActiveSheet.ShowAllData
' material
  If UserForm2.material.Text <> "" Then
     ActiveSheet.Range("$A$2:$DD$5000").AutoFilter Field:=1, Criteria1:=UserForm2.material.Text
  End If
' SHell part
  If UserForm2.shellpart.Text <> "" Then
      ActiveSheet.Range("$A$2:$DD$5000").AutoFilter Field:=2, Criteria1:=UserForm2.shellpart.Text
  End If
  ' line
  If UserForm2.line.Text <> "" Then
      ActiveSheet.Range("$A$2:$DD$5000").AutoFilter Field:=3, Criteria1:=UserForm2.line.Text
  End If
   
    ' Color
  If UserForm2.col.Text <> "" Then
     ActiveSheet.Range("$A$2:$DD$5000").AutoFilter Field:=5, Criteria1:=UserForm2.col.Text
  End If
     ' charac
  If UserForm2.cha.Text <> "" Then
     ActiveSheet.Range("$A$2:$DD$5000").AutoFilter Field:=6, Criteria1:=UserForm2.cha.Text
  End If
'Application.ScreenUpdating = True
End Sub

em sử dụng cách củ chuối nhất là Manual Filter, khi lọc dữ liệu gì thì gọi file đó rồi lọc theo các điều kiện nhập vào
---------------------------------------------------------------------


em đã cố gắng hết sức chỉ đạt được đến thế
Mọi người có thể giúp em hiệu chỉnh 1 chút xíu được không

1. Các ô Art và HOle sẽ chỉ xuất hiện khi em nhấn vào nút option FInish, còn khi chọn các nút option khác thì sẽ ẩn
2. KHi chọn các nút option ( Finish, blank, sample) thì các nút lệnh tương ứng ở phía dưới mới hiển thị, còn các nút lệnh còn lại cũng sẽ ẩn đi
3.

ActiveSheet.Range("$A$2:$DD$5000").AutoFilter Field:=6, Criteria1:="hung

giả sử như code lọc dữ liệu này em sẽ lọc ra được giá trị "hung" của code. Bây giờ em muốn giá trị "hung" sẽ không nằm trong dữ liệu lọc thì làm thế nào a. Chỉ giá trị này không đựoc lọc trong cột thôi, còn các giá trị khác( ví dụ như 200 giá trị còn lại) của cột sẽ hiển thị