Hỏi về hiện giá trị từ cột A đến cột U trong VBA

abu123 · 27/7/20

Trong đoạn Code của mình bấm nút tìm kiếm chỉ hiện được giá trị từ 0 tới 5 có nghĩa là từ cột A tới cột F
Mình muốn hiện giá trị từ cột A đến cột U luôn thì mình sửa code lại như thế nào ạ ???
thank các bạn !!!!

Mã:

Private Sub Userform_intialize() '// thiet lap form de tim kiem
Me.txtSearch.SetFocus

End Sub
End Sub




End Sub


Private Sub btnSearch_Click() '// tim kiem du lieu

Me.ListBox1.Clear
Me.ListBox1.AddItem Sheet1.Cells(1, "A")
For B = 2 To 6
Me.ListBox1.List(ListBox1.ListCount - 1, B - 1) = Sheet1.Cells(1, B)
Next B
Me.ListBox1.Selected(0) = True
Dim i As Long
For i = 2 To Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))
For X = 1 To 6
A = Len(Me.txtSearch.Text)
If Left(Sheet1.Cells(i, X).Value, A) = Me.txtSearch.Text And Me.txtSearch.Text <> "" Then
       
Me.ListBox1.AddItem Sheet1.Cells(i, 1).Value
For c = 1 To 6
Me.ListBox1.List(ListBox1.ListCount - 1, c) = Sheet1.Cells(i, c + 1).Value
Next c
End If
Next X
Next i
End Sub


Private Sub ListBox1_Click()


Me.txtTangca.Text = ListBox1.List(ListBox1.ListIndex, 0)
Me.txtSongayphep.Text = ListBox1.List(ListBox1.ListIndex, 1)
Me.txtTentre.Text = ListBox1.List(ListBox1.ListIndex, 2)
Me.txtThem.Text = ListBox1.List(ListBox1.ListIndex, 3)
Me.txtCam.Text = ListBox1.List(ListBox1.ListIndex, 4)
Me.txtNd.Text = ListBox1.List(ListBox1.ListIndex, 5)




End Sub

giaiphap · 27/7/20

abu123 đã viết:

Trong đoạn Code của mình bấm nút tìm kiếm chỉ hiện được giá trị từ 0 tới 5 có nghĩa là từ cột A tới cột F
Mình muốn hiện giá trị từ cột A đến cột U luôn thì mình sửa code lại như thế nào ạ ???
thank các bạn !!!!

Mã:

Private Sub Userform_intialize() '// thiet lap form de tim kiem
Me.txtSearch.SetFocus

End Sub
End Sub




End Sub


Private Sub btnSearch_Click() '// tim kiem du lieu

Me.ListBox1.Clear
Me.ListBox1.AddItem Sheet1.Cells(1, "A")
For B = 2 To 6
Me.ListBox1.List(ListBox1.ListCount - 1, B - 1) = Sheet1.Cells(1, B)
Next B
Me.ListBox1.Selected(0) = True
Dim i As Long
For i = 2 To Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))
For X = 1 To 6
A = Len(Me.txtSearch.Text)
If Left(Sheet1.Cells(i, X).Value, A) = Me.txtSearch.Text And Me.txtSearch.Text <> "" Then
      
Me.ListBox1.AddItem Sheet1.Cells(i, 1).Value
For c = 1 To 6
Me.ListBox1.List(ListBox1.ListCount - 1, c) = Sheet1.Cells(i, c + 1).Value
Next c
End If
Next X
Next i
End Sub


Private Sub ListBox1_Click()


Me.txtTangca.Text = ListBox1.List(ListBox1.ListIndex, 0)
Me.txtSongayphep.Text = ListBox1.List(ListBox1.ListIndex, 1)
Me.txtTentre.Text = ListBox1.List(ListBox1.ListIndex, 2)
Me.txtThem.Text = ListBox1.List(ListBox1.ListIndex, 3)
Me.txtCam.Text = ListBox1.List(ListBox1.ListIndex, 4)
Me.txtNd.Text = ListBox1.List(ListBox1.ListIndex, 5)




End Sub

Bạn viết được code sao lại không sửa được code nhỉ? Thật khó hiểu quá đi.
$===\.$ $===\.$ $===\.$ $===\.$ $===\.$ $===\.$ $===\.$ $===\.$ $===\.$ $===\.$

abu123 · 27/7/20

giaiphap đã viết:
Bạn viết được code sao lại không sửa được code nhỉ? Thật khó hiểu quá đi.
$===\.$ $===\.$ $===\.$ $===\.$ $===\.$ $===\.$ $===\.$ $===\.$ $===\.$ $===\.$

.Mình tìm lỗi mãi không ra, chỉ hiện được 6 cột đầu tiên trong excel, bạn giúp mình nhé !! Cảm ơn bạn

giaiphap · 27/7/20

abu123 đã viết:
.Mình tìm lỗi mãi không ra, chỉ hiện được 6 cột đầu tiên trong excel, bạn giúp mình nhé !! Cảm ơn bạn

Bạn thử cho for chạy tới 8 xem

Mã:

For B = 2 To 8

Và thuộc tính ColumnCount của Listbox bạn sửa thành 8.

Từ đó ngộ ra vấn đề của mình là gì

abu123 · 27/7/20

Mình cho B chạy tới 20 luôn nhưng vẫn không được bạn ơi
mình muốn lấy giá trị ở cột C, E,F,G,H,Q,R,S nhưng bị lỗi ????

Mã:

Private Sub Userform_intialize() '// thiet lap form de tim kiem
Me.txtSearch.SetFocus

End Sub
End Sub




End Sub


Private Sub btnSearch_Click() '// tim kiem du lieu

Me.ListBox1.Clear
Me.ListBox1.AddItem Sheet1.Cells(1, "A")
For B = 2 To 20
Me.ListBox1.List(ListBox1.ListCount - 1, B - 1) = Sheet1.Cells(2, B)
Next B
Me.ListBox1.Selected(0) = True
Dim i As Long
For i = 2 To Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))
For X = 1 To 6
A = Len(Me.txtSearch.Text)
If Left(Sheet1.Cells(i, X).Value, A) = Me.txtSearch.Text And Me.txtSearch.Text <> "" Then
        
Me.ListBox1.AddItem Sheet1.Cells(i, 1).Value
For c = 1 To 6
Me.ListBox1.List(ListBox1.ListCount - 1, c) = Sheet1.Cells(i, c + 1).Value
Next c
End If
Next X
Next i
End Sub


Private Sub ListBox1_Click()

Me.txtTentre.Text = ListBox1.List(ListBox1.ListIndex, 2)
Me.txtTangca.Text = ListBox1.List(ListBox1.ListIndex, 5)
Me.txtSongayphep.Text = ListBox1.List(ListBox1.ListIndex, 7)
Me.txtThem.Text = ListBox1.List(ListBox1.ListIndex, 6)
Me.txtCam.Text = ListBox1.List(ListBox1.ListIndex, 4)
Me.txtNd.Text = ListBox1.List(ListBox1.ListIndex, 18)
Me.txtTd.Text = ListBox1.List(ListBox1.ListIndex, 19)
Me.txtY.Text = ListBox1.List(ListBox1.ListIndex, 20)



End Sub

Private Sub txtSearch_Change()

End Sub

Private Sub txtThem_Change()

End Sub

giaiphap đã viết:
Bạn thử cho for chạy tới 8 xem

Mã:

For B = 2 To 8

Và thuộc tính ColumnCount của Listbox bạn sửa thành 8.
View attachment 241920
Từ đó ngộ ra vấn đề của mình là gì

SA_DQ · 27/7/20

Kiểu viết Code của chủ bài đăng khó ưa, nên không thể làm gì hơn là tạm biệt.

abu123 · 27/7/20

Giúp mình với ạ !! mình mới học code nên còn đang tìm hiểu ạ !!!

SA_DQ đã viết:
Kiểu viết Code của chủ bài đăng khó ưa, nên không thể làm gì hơn là tạm biệt.

giaiphap · 27/7/20

abu123 đã viết:

Mình cho B chạy tới 20 luôn nhưng vẫn không được bạn ơi
mình muốn lấy giá trị ở cột C, E,F,G,H,Q,R,S nhưng bị lỗi ????

Mã:

Private Sub Userform_intialize() '// thiet lap form de tim kiem
Me.txtSearch.SetFocus

End Sub
End Sub




End Sub


Private Sub btnSearch_Click() '// tim kiem du lieu

Me.ListBox1.Clear
Me.ListBox1.AddItem Sheet1.Cells(1, "A")
For B = 2 To 20
Me.ListBox1.List(ListBox1.ListCount - 1, B - 1) = Sheet1.Cells(2, B)
Next B
Me.ListBox1.Selected(0) = True
Dim i As Long
For i = 2 To Application.WorksheetFunction.CountA(Sheet1.Range("A:A"))
For X = 1 To 6
A = Len(Me.txtSearch.Text)
If Left(Sheet1.Cells(i, X).Value, A) = Me.txtSearch.Text And Me.txtSearch.Text <> "" Then
       
Me.ListBox1.AddItem Sheet1.Cells(i, 1).Value
For c = 1 To 6
Me.ListBox1.List(ListBox1.ListCount - 1, c) = Sheet1.Cells(i, c + 1).Value
Next c
End If
Next X
Next i
End Sub


Private Sub ListBox1_Click()

Me.txtTentre.Text = ListBox1.List(ListBox1.ListIndex, 2)
Me.txtTangca.Text = ListBox1.List(ListBox1.ListIndex, 5)
Me.txtSongayphep.Text = ListBox1.List(ListBox1.ListIndex, 7)
Me.txtThem.Text = ListBox1.List(ListBox1.ListIndex, 6)
Me.txtCam.Text = ListBox1.List(ListBox1.ListIndex, 4)
Me.txtNd.Text = ListBox1.List(ListBox1.ListIndex, 18)
Me.txtTd.Text = ListBox1.List(ListBox1.ListIndex, 19)
Me.txtY.Text = ListBox1.List(ListBox1.ListIndex, 20)



End Sub

Private Sub txtSearch_Change()

End Sub

Private Sub txtThem_Change()

End Sub

Mình không biết có giới hạn gì không? Vụ này chắc nhờ thành viên khác giúp rồi.

abu123 · 27/7/20

Chắc là có giới hạn rội ạ !!!! khó thật

giaiphap đã viết:
Mình không biết có giới hạn gì không? Vụ này chắc nhờ thành viên khác giúp rồi.

Hỏi về hiện giá trị từ cột A đến cột U trong VBA

abu123

Thành viên mới

File đính kèm

giaiphap

==(^o^)==

abu123

Thành viên mới

giaiphap

==(^o^)==

abu123

Thành viên mới

File đính kèm

SA_DQ

/(hông là gì!

abu123

Thành viên mới

giaiphap

==(^o^)==

abu123

Thành viên mới

Bài viết mới nhất

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng