Show ảnh lên Form. Nhờ bác ndu96081631

[Hoàng Trọng Nghĩa]

Hoàng Trọng Nghĩa: Mình hỏi chút nữa. Mình dùng hàm Vlookup trong VBA. Dữ liệu Textbox với dữ liệu sheet. Có cách nào khi thêm cột trong sheet mà không làm ảnh hưởng đến giá trị trả về không.
VD:Tracuu.VITRI.Text = Application.VLookup(Tracuu.TenNVL.Text, Sheet2.Range("B2:M15000"), 4, 0)
Nếu chèn thêm cột vào giữa cột B:M thì nó trả về dữ liệu sai.=> Mong muốn là khi chèn vào không ảnh hưởng đến dữ liệu trả về khi chạy code.
P/S: Sorry vì hỏi sai chủ đề

Bạn cứ nghĩ rằng bạn làm việc trên sheet đi, cứ thêm cột là thay đổi địa chỉ vậy thôi. Nhưng ở sheet nó tự động thay đổi cho bạn, còn VBA thì không, khi cấu trúc trong sheet thay đổi thì VBA ta phải sửa theo, không tự động được như sheet đâu.

 

[chipiu3001]

Bạn cứ nghĩ rằng bạn làm việc trên sheet đi, cứ thêm cột là thay đổi địa chỉ vậy thôi. Nhưng ở sheet nó tự động thay đổi cho bạn, còn VBA thì không, khi cấu trúc trong sheet thay đổi thì VBA ta phải sửa theo, không tự động được như sheet đâu.

OK ban. Cho mình tiện hỏi chút nữa ( vì không liên quan đến chủ đề này)
Mình đọc bài của bạn theo đường link bên dưới=> Đã làm OK phần đẩy dữ liệu vào Listview.
Bạn hướng dẫn mình cách nạp Item từ Listview vào sheet với nhé.
Cảm ơn Bạn
http://www.giaiphapexcel.com/forum/...ế-nào-đưa-dữ-liệu-từ-TextBox-xuống-ListBox-Sh!
Code của mình phần đẩy textbox vao listview OK. còn nhập từ listview vào sheet thì báo lỗi
Sub gan()
Dim tem As ListItem
Dim dong, it As Integer
dong = Sheet3.Range("A65536").End(xlUp).Row
it = Me.ListView1.ListItems.Count
Set tem = Me.ListView1.ListItems.Add(, , Str(dong + it))
tem.SubItems(1) = Me.Ngay
tem.SubItems(2) = Me.TenNVL
tem.SubItems(3) = Me.SLnhap
tem.SubItems(4) = Me.SLxuat
tem.SubItems(5) = Me.diengiai
Me.TenNVL = ""
Me.SLxuat = ""
Me.SLnhap = ""
Me.diengiai = ""
Me.TenNVL.SetFocus
End Sub


Sub Nhap()
Dim dong, i As Integer
dong = Sheet3.Range("A65536").End(xlUp).Row + 1
For i = 0 To Me.ListView.ListCount - 1
Me.ListView.ListIndex = i
Sheet3.Cells(dong, 1) = n - 1
Sheet3.Cells(dong, 2) = Me.ListView.List(, 1)
Sheet3.Cells(dong, 3) = Me.ListView.List(, 2)
Next
End Sub

 

[Hoàng Trọng Nghĩa]

OK ban. Cho mình tiện hỏi chút nữa ( vì không liên quan đến chủ đề này)
Mình đọc bài của bạn theo đường link bên dưới=> Đã làm OK phần đẩy dữ liệu vào Listview.
Bạn hướng dẫn mình cách nạp Item từ Listview vào sheet với nhé.
Cảm ơn Bạn
http://www.giaiphapexcel.com/forum/...ế-nào-đưa-dữ-liệu-từ-TextBox-xuống-ListBox-Sh!
Code của mình phần đẩy textbox vao listview OK. còn nhập từ listview vào sheet thì báo lỗi
Sub gan()
Dim tem As ListItem
Dim dong, it As Integer
dong = Sheet3.Range("A65536").End(xlUp).Row
it = Me.ListView1.ListItems.Count
Set tem = Me.ListView1.ListItems.Add(, , Str(dong + it))
tem.SubItems(1) = Me.Ngay
tem.SubItems(2) = Me.TenNVL
tem.SubItems(3) = Me.SLnhap
tem.SubItems(4) = Me.SLxuat
tem.SubItems(5) = Me.diengiai
Me.TenNVL = ""
Me.SLxuat = ""
Me.SLnhap = ""
Me.diengiai = ""
Me.TenNVL.SetFocus
End Sub


Sub Nhap()
Dim dong, i As Integer
dong = Sheet3.Range("A65536").End(xlUp).Row + 1
For i = 0 To Me.ListView.ListCount - 1
Me.ListView.ListIndex = i
Sheet3.Cells(dong, 1) = n - 1
Sheet3.Cells(dong, 2) = Me.ListView.List(, 1)
Sheet3.Cells(dong, 3) = Me.ListView.List(, 2)
Next
End Sub

Sorry bạn, tôi đã từ bỏ vĩnh viễn em ấy từ 2 năm nay và tôi không muốn chạm lại ListView nữa, bạn nên tạo đề tài mới sẽ có người giúp. Tôi nghĩ tới đây đề tài cũng đã giải quyết và không nên có những bài không liên quan nên tôi sẽ đóng đề tài này lại.