Tạo Form tìm kiếm và nhập liệu

[ishikawangocthuy]

Xin chào mọi người em mới bắt đầu học excel vba nên có nhiều chổ trong bài làm mọi người em chưa hiểu rõ lắm
vi du:
ReDim myData2(1 To lastRow, 1 To 25)
For i = LBound(myData) To UBound(myData)
If myData(i, 8) Like "*" & TextBox1.Value & "*" And myData(i, 16) Like "*" & txt3.Value & "*" And myData(i, 11) Like "*" & TextBox4.Value & "*" Then
cn = cn + 1

myData2(cn, 1) = myData(i, 4)
myData2(cn, 2) = myData(i, 8)
myData2(cn, 3) = myData(i, 11)
myData2(cn, 4) = myData(i, 16)
myData2(cn, 25) = i
trong bài tim kiếm có đoạn này em chưa hiểu rõ có ai hiểu ý nghĩ của đoạn này có thể chỉ giáo cho em vơi khong ah?

 

[michealtin]

Do công việc phải nhập nhiều số 0 quá .e muốn nhập 3m hiểu đó là 3,000,000 và tương tự 12t hiểu là 12,000 và 5b hiểu là 5,000,000,000 ( 5 tỉ) xin các cao nhân chỉ giúp từ vba excel

 

[SA_DQ]

Xin chào mọi người . . . em chưa hiểu rõ lắm, vi du:

ReDim myData2(1 To lastRow, 1 To 25)
2    For i = LBound(myData) To UBound(myData)
        If myData(i, 8) Like "*" & TextBox1.Value & "*" And myData(i, 16) Like "*" & txt3.Value & "*" And myData(i, 11) Like "*" & TextBox4.Value & "*" Then
            cn = cn + 1       
            myData2(cn, 1) = myData(i, 4)
            myData2(cn, 2) = myData(i, 8)
            myData2(cn, 3) = myData(i, 11)
            myData2(cn, 4) = myData(i, 16)
            myData2(cn, 25) = i 
' . . . .    '

trong bài tim kiếm có đoạn này em chưa hiểu rõ có ai hiểu ý nghĩ của đoạn này có thể chỉ giáo cho em vơi khong ah?

Dòng lệnh có đánh số 2 là thiết lập vòng lặp theo chỉ số của mảng (Array) myData từ đầu chí cuối
Vậy trước tiên bạn cần tìm cho ra 2 chỉ số của mảng myData này trước tiên
Nếu bạn không tìm ra thì vòng lặp sẽ . . .