Show ảnh lên Form. Nhờ bác ndu96081631 (1 người xem)

[chipiu3001]

Gửi bác ndu96081631
Em đã đoc bài của bác " Show ảnh lên Form" link bên dưới và đã làm OK

http://www.giaiphapexcel.com/forum/showthread.php?88083-Load-hình-ảnh-từ-excel-lên-form-trong-VBA

Nhưng em có nhiều ảnh thì không thể copy vao file gốc ddEm muốn lưu ảnh trên file excel khác hoặc folder chứ ảnh. Bác hướng dẫn giúp em viết đường dẫn cho code với
code:
Set pic = Sheet5.Pictures(PicName)
thay bằng đường dẫn file khác chứ ảnh( hoăc folder chứ ảnh).
Bác xem file đính kèm giúp em nhé
Em mới cho 1 anh tên: 15C-HCP
Em cảm ơn

 

[Hoàng Trọng Nghĩa]

Chỉ cần câu lệnh này thôi bạn:

Image1.Picture = LoadPicture(ThisWorkbook.Path & "\Picture\Logo.jpg")

Muốn cái gì có hình thì thay chữ Image1, màu đỏ là đường dẫn, còn màu xanh là tên đầy đủ của hình.

Chú ý: Show hình lên Form không bao giờ được dùng định dạng .PNG

 

[DMQ]

Em có hình ở ổ D\Picture\BeTu, thì sửa :
Image1.Picture = LoadPicture(ThisWorkbook.Path & "D\Picture\BeTu.jpg") hả Anh Nghĩa?????
Có cần chỉnh lại chổ code này không:

[COLOR=#000000][I]Set pic = Sheet1.Pictures(PicName)
[/I][/COLOR][COLOR=#000000][I]Set IPic = PictureFromObject(pic, False)[/I][/COLOR]

Mong Anh chỉ giáo.

 

[Hoàng Trọng Nghĩa]

Em có hình ở ổ D\Picture\BeTu, thì sửa :
Image1.Picture = LoadPicture(ThisWorkbook.Path & "D\Picture\BeTu.jpg") hả Anh Nghĩa?????
Có cần chỉnh lại chổ code này không:

[COLOR=#000000][I]Set pic = Sheet1.Pictures(PicName)
[/I][/COLOR][COLOR=#000000][I]Set IPic = PictureFromObject(pic, False)[/I][/COLOR]

Mong Anh chỉ giáo.

Trùi ui! Tôi nói rất rõ là màu đỏ là đường dẫn, vậy nếu có đường dẫn sẳn thì quất vô luôn chứ thêm cái ThisWorkbook.Path vô làm cái chi!

Chỉ cần thế này là đủ:

Image1.Picture = LoadPicture("D\Picture\BeTu.jpg")

 

[befaint]

Chắc như vầy mới chạy được: LoadPicture("D:\Picture\BeTu.jpg")

 

[DMQ]

Anh Nghĩa cho em hỏi:
em đã chỉnh ("D:\Picture\BeTu\A00001.jpg") nhưng chỉ có load ảnh A00001 thôi còn mấy ảnh khác thì không(Trong BeTu có khoảng 50 ảnh)
Em muốn giống như File của Thầy Ndu là load tên ảnh vào trong ListBox1(Chỉ em cách nạp tên ảnh vào ListBox1 với). Ví dụ "BeTu" có 50 ảnh thì nạp vào ListBox1 50 ảnh từ A00001 -> A00050. và rối chọn tên ảnh thi Show ảnh vào Image1.

 

[chipiu3001]

Chỉ cần câu lệnh này thôi bạn:

Image1.Picture = LoadPicture(ThisWorkbook.Path & "\Picture\Logo.jpg")

Muốn cái gì có hình thì thay chữ Image1, màu đỏ là đường dẫn, còn màu xanh là tên đầy đủ của hình.

Chú ý: Show hình lên Form không bao giờ được dùng định dạng .PNG

Cảm ơn bạn nhé
Mình đã làm được theo gợi ý của bạn rồi.
Học cái này cũng 1 phần là tự mày mò. nếu không có người chỉ cho thì khó thật. Có hướng dẫn cái là ngon ngay.Hi

 

[chipiu3001]

Em có hình ở ổ D\Picture\BeTu, thì sửa :
Image1.Picture = LoadPicture(ThisWorkbook.Path & "D\Picture\BeTu.jpg") hả Anh Nghĩa?????
Có cần chỉnh lại chổ code này không:

[COLOR=#000000][I]Set pic = Sheet1.Pictures(PicName)
[/I][/COLOR][COLOR=#000000][I]Set IPic = PictureFromObject(pic, False)[/I][/COLOR]

Mong Anh chỉ giáo.

Còn nếu Folder anh không cố định. (Bạn để folder anh và file Excel nguồn trong cùng 1 folder). có thể tiện lợi copy nhiều nơi. thì có thể làm như tôi bên dưới. Bạn đọc code của tôi chắc là hiểu và vận dụng

Dim DuongDan As String
DuongDan = ThisWorkbook.Path
If Right(DuongDan, 1) <> "" Then DuongDan = DuongDan & ""
DuongDan = DuongDan & "Anh NVL"
Application.Calculation = xlCalculationManual
On Error Resume Next
Me.Image1.Picture = LoadPicture(DuongDan & Me.TenNVL.Value & ".jpg")

 

[DMQ]

Cám ơn bạn. Mình tham gia GPE đã lâu mà "Dốt" quá. Mình chả hiểu gì về code cả, hay bạn và các AC viết luôn code cho mình , mình "bê" vào luôn(Đường dẫn: D:\Picture\BeTu\A00001.jpg)
Cám Ơn nhiều.

 

[DMQ]

Mong Mọi người giúp em với.

 

[DMQ]

Thầy Ndu chỉ em cách đưa ảnh vào cột G của sheet1 với. (Vì không biết làm, nên đành hỏi Thầy Ndu cách chèn ảnh vào cột G, rồi lấy code của Thây mà làm thôi. chứ tính làm Folder như ANh Nghĩa chỉ mà không biết làm)

 

[Hoàng Trọng Nghĩa]

Thầy Ndu chỉ em cách đưa ảnh vào cột G của sheet1 với. (Vì không biết làm, nên đành hỏi Thầy Ndu cách chèn ảnh vào cột G, rồi lấy code của Thây mà làm thôi. chứ tính làm Folder như ANh Nghĩa chỉ mà không biết làm)

Giả sử ta có 1 file trong đó có 1 sheet tên là "Sheet1".

Ta cũng có 1 thư mục chứa hình với đường dẫn: "D:\Picture\BeTu"

Trong thư mục BeTu có 50 hình ảnh, với tên hình từ "A00001.jpg" đến "A00050.jpg", như thế, điểm chung là màu đỏ và điểm riêng là màu xanh, vì thế đường dẫn ta có những điểm chung như sau:

PicPath = "D:\Picture\BeTu\A000"

và điểm riêng sẽ thêm vào đó là: Format(c, "00"""".jpg""")

Ta lại thêm hình vào các ô từ G1 đến G50, vì thế ta phải căn độ rộng và độ cao của mỗi ô sao cho hợp lý để hình được chèn vào mỗi ô cho vừa khít ô đó.

Căn cứ vào các logic đó, tôi tưởng tượng ra một thủ tục để viết cho bạn như sau, bạn chép vào file và test nhé:

Sub InsertPicture()
    Dim c As Long
    Dim WS As Worksheet
    Dim Target As Range
    Dim PicPath As String
[COLOR=#ff0000]    Set WS = Sheets("Sheet1")[/COLOR]
    PicPath = "D:\Picture\BeTu\A000"
    On Error Resume Next
    For c = 1 To 50
        Set Target = WS.Range("G1")(c)
[COLOR=#00ff00]        'Xoa hinh cu neu ton tai:[/COLOR]
        WS.Shapes("$G$" & c).Delete
[COLOR=#00ff00]        'Nhap hinh moi vao cell:[/COLOR]
        With [B]WS.Pictures.Insert[/B]([COLOR=#ff0000]PicPath [/COLOR][COLOR=#0000ff]& Format(c, "00"""".jpg""")[/COLOR])
            .Name = Target.Address
            .Left = Target.Left
            .Top = Target.Top
            .Width = Target.Width
            .Height = Target.Height
        End With
    Next
End Sub

 

[DMQ]

Cám ơn Anh. Em đã Test, đã nạp hình, nhưng chọn ở listBox thì không hiện hình. Mong Anh xem giúp.

 

[Hoàng Trọng Nghĩa]

Cám ơn Anh. Em đã Test, đã nạp hình, nhưng chọn ở listBox thì không hiện hình. Mong Anh xem giúp.

Bạn nghĩ rằng tôi có thể tưởng tượng tiếp nếu tôi chả biết con mịa gì ở cái file của bạn và cách thức nạp hình như thế nào sao?

 

[DMQ]

Thì em lấy i xì file của Thầy Ndu và code InsertPicture của Anh vào và chạy thôi.
File đây ah!!!

 

[Hoàng Trọng Nghĩa]

Thì em lấy i xì file của Thầy Ndu và code InsertPicture của Anh vào và chạy thôi.
File đây ah!!!

Trong topic này, chắc bạn tưởng tôi là thánh hay sao mà biết đến cái file nào mà bạn đang thực hiên? Thiệt là ...

 

[DMQ]

Em dốt quá, mong ANh thông cảm, nhưng em thấy kỳ là nó đã nạp hình vào sheet1, thế mà chọn tên tring ListBox vẫn hiện ra hình của Thầy Ndu. Mong Anh giúp em.

 

[DMQ]

Mong mọi người giúp em với!!!!!

 

[Hoàng Trọng Nghĩa]

Em dốt quá, mong ANh thông cảm, nhưng em thấy kỳ là nó đã nạp hình vào sheet1, thế mà chọn tên tring ListBox vẫn hiện ra hình của Thầy Ndu. Mong Anh giúp em.

File của bạn tự xóa thủ công hình hết đi, rồi nhập lại hình mới bằng code này:

Sub InsertPicture()
    Dim c As Long
    Dim WS As Worksheet
    Dim Target As Range
    Dim PicPath As String, PicName As String
    Set WS = Sheets("Sheet1")
    PicPath = "D:\Nhan More\"
    On Error Resume Next
    For c = 1 To 5
        Set Target = WS.Range("G2")(c)
        PicName = "A000" & Format(c, "00"""".jpg""")
        'Xoa hinh cu neu ton tai:
        WS.Shapes(PicName).Delete
        'Nhap hinh moi vao cell:
        With WS.Pictures.Insert(PicPath & PicName)
            .Name = PicName
            .Left = Target.Left
            .Top = Target.Top
            .Width = Target.Width
            .Height = Target.Height
        End With
    Next
End Sub

Tội nghiệp quá, khóc quài!

 

[DMQ]

Cám ơn Anh Nghĩa đã thương giúp em, nhưng sao không nạp tên ảnh vào ListBox để chọn hả Anh Nghĩa, mà em chọn ID A00001 thì không hiện ảnh vào Image1. Mong Anh giúp em với!!!!

 

[Hoàng Trọng Nghĩa]

Cám ơn Anh Nghĩa đã thương giúp em, nhưng sao không nạp tên ảnh vào ListBox để chọn hả Anh Nghĩa, mà em chọn ID A00001 thì không hiện ảnh vào Image1. Mong Anh giúp em với!!!!

Thì bạn cứ làm như tôi nói đi rồi sau đó mở form lên thì biết ngay kết quả mà???

Hay bạn muốn không thông qua sheet mà nhập trực tiếp vào Form luôn? Tức không cần tải hình vào sheet nữa?

 

[DMQ]

Anh Nghĩa xem dùm em File đính kèm, sao em chọn ID trong ListBox mà không hiện ảnh

 

[Hoàng Trọng Nghĩa]

Anh Nghĩa xem dùm em File đính kèm, sao em chọn ID trong ListBox mà không hiện ảnh

À quên, tại còn vương vấn cái đuôi!

Sub InsertPicture()
    Dim c As Long
    Dim WS As Worksheet
    Dim Target As Range
    Dim PicPath As String, PicName As String
    Set WS = Sheets("Sheet1")
    PicPath = "D:\Nhan More\"
    On Error Resume Next
    For c = 1 To 5
        Set Target = WS.Range("G2")(c)
[COLOR=#0000ff]        PicName = "A000" & Format(c, "00")[/COLOR]
        'Xoa hinh cu neu ton tai:
        WS.Shapes(PicName[COLOR=#ff0000] & ".jpg"[/COLOR]).Delete
        'Nhap hinh moi vao cell:
        With WS.Pictures.Insert(PicPath & PicName [COLOR=#ff0000]& ".jpg"[/COLOR])
            .Name = PicName
            .Left = Target.Left
            .Top = Target.Top
            .Width = Target.Width
            .Height = Target.Height
        End With
    Next
End Sub

Bạn nhớ là xóa hết hình bằng thủ công nha rồi chạy code, sau này thì không cần xóa thủ công nữa, hình cũ sẽ tự xóa vì lúc này nó có tên rồi.

 

[DMQ]

Hay bạn muốn không thông qua sheet mà nhập trực tiếp vào Form luôn? Tức không cần tải hình vào sheet nữa?

Không thông qua Sheet mà nhập trực tiếp vào Form được không Anh???.
Nếu được, mong Anh giúp với.

 

[Hoàng Trọng Nghĩa]

Không thông qua Sheet mà nhập trực tiếp vào Form được không Anh???.
Nếu được, mong Anh giúp với.

Cũng phải nên như thế, bởi vì lưu hình trên sheet chỉ tổ làm nặng bộ nhớ của file mà thôi! Nhưng như code vừa rồi đã giải quyết vấn đề chưa?

 

[DMQ]

Sao em thử code InsertPicture mới thì lại không nạp hình vào sheet1 cột G, Anh Nghĩa ơi. Mong Anh xem giúp!!!

 

[DMQ]

Xin lỗi Anh Nghĩa em quên cái dấu "" chổ : PicPath = "D\Nhan More". Được rồi Anh Nghĩa ơi. Ah Anh nghĩ cho em hỏi tý: nếu tên của ảnh không phải là "A0001".. vv..vv mà là Arista. Classic , Sarah.. thì sao hả Anh???

 

[Hoàng Trọng Nghĩa]

Xin lỗi Anh Nghĩa em quên cái dấu "" chổ : PicPath = "D\Nhan More". Được rồi Anh Nghĩa ơi. Ah Anh nghĩ cho em hỏi tý: nếu tên của ảnh không phải là "A0001".. vv..vv mà là Arista. Classic , Sarah.. thì sao hả Anh???

Bây giờ, bạn muốn làm nhận hình thông qua sheet hay nhận hình trực tiếp vào form từ thư mục có hình đây? Bạn đâu phải con cò đâu mà cứ nhảy qua nhảy lại hoài vậy? Dứt khoát một kiểu để tôi làm dứt điểm tại đây luôn!

 

[DMQ]

Dạ em muốn lấy ảnh trực tiếp vào Form luôn vì em thấy mới lấy có 50 ảnh mà khi mở file lên load ảnh vào sheet hơi lâu. Mong ANH giúp em nhân ảnh trực tiếp vào Form từ folder ảnh Ah!!!!

 

[Hoàng Trọng Nghĩa]

Dạ em muốn lấy ảnh trực tiếp vào Form luôn vì em thấy mới lấy có 50 ảnh mà khi mở file lên load ảnh vào sheet hơi lâu. Mong ANH giúp em nhân ảnh trực tiếp vào Form từ folder ảnh Ah!!!!

Như vậy, bạn xóa hết hình ở cột G rồi đặt tên hình theo mã số tại cột đó cho tôi, tên hình không cần có đuôi .jpg đâu, cứ mỗi mã là mỗi tên hình, tiếp theo tôi sẽ theo tên hình đó mà chuyển lên Form thôi. Làm sẳn đi và không cần gửi file lên đây. Nhớ ghi đầy đủ và chính xác tên hình vào cột đó và dứt khoát hình phải có định dạng .jpg nha.

 

[Hoàng Trọng Nghĩa]

Làm theo bài #30, sau đó bạn thay thế toàn bộ code trong Form bằng các thủ tục dưới đây:

Option Explicit


Private Sub UserForm_Initialize()
    Dim eRow As Long
    eRow = Sheet1.Range("B" & Rows.Count).End(xlUp).Row
    ListBox1.List = Sheet1.Range("B2:G" & eRow).Value
    ListBox1.MultiSelect = fmMultiSelectSingle
    Image1.PictureSizeMode = fmPictureSizeModeStretch
End Sub


Private Sub CommandButton2_Click()
    Unload Me
End Sub


Private Sub ListBox1_Click()
    With ListBox1
        If .ListCount Then
            TextBox1.Text = .List(, 1)
            TextBox2.Text = .List(, 2)
            TextBox3.Text = Format(.List(, 3), "dd-MMM-yy")
            TextBox4.Text = Format(.List(, 4), "dd-MMM-yy")
            Image1.Picture = LoadPicture("D:\Nhan More\" & .List(, 5) & ".jpg")
        End If
    End With
End Sub

Và xóa luôn 2 cái Module kia đi, chúng "không còn giá trị lợi dụng" nữa!

 

[DMQ]

Dạ tên hình là : Arista, Classic, Bonmarche, Sarah Hamilton, Julipa, Intuition, First Avenue, Thomas Smith, John Master, ....Toàn bộ hình của em có đuôi,jpg. Mong Anh giúp.

 

[Hoàng Trọng Nghĩa]

Dạ tên hình là : Arista, Classic, Bonmarche, Sarah Hamilton, Julipa, Intuition, First Avenue, Thomas Smith, John Master, ....Toàn bộ hình của em có đuôi,jpg. Mong Anh giúp.

Thì bạn cứ làm như bài #30 và copy Code ở bài #31 thay thề toàn bộ code trong Form của bạn là được.

 

[DMQ]

Cám Ơn Anh NGHĨA được rồi ah!!!!!
Chúc ANH ngủ Ngon!!!

 

[Hoàng Trọng Nghĩa]

Show hình ảnh lên FORM phải như thế này nè, "không phải dạng vừa đâu"!

[video]https://youtu.be/o_8LSOIzduQ[/video]

 

[DMQ]

Đúng là:

"không phải dạng vừa đâu"

Em thích nhất là Show ảnh từ từ ra giông như hiệu ứng trên Power Point.
Em nhớ file này cũng có trên DD rồi nhưng chưa có Show ảnh.
Mong học hỏi nhiều ở Anh.(Nhưng nói thật em "dốt quá", đã có Thầy giúp em mà em chẳng tiến bộ được, toàn là "bê" code vào File Thôi, chứ chẳng tự làm được)

 

[chipiu3001]

Hoàng Trọng Nghĩa : Cho mình hỏi Tên trên textbox la "A/B". nhưng ảnh không cho đặt tên ký tự là "/"
Vậy sử lý string như nào để ra kết quả đúng.
Xin cảm ơn

 

[Hoàng Trọng Nghĩa]

Hoàng Trọng Nghĩa : Cho mình hỏi Tên trên textbox la "A/B". nhưng ảnh không cho đặt tên ký tự là "/"
Vậy sử lý string như nào để ra kết quả đúng.
Xin cảm ơn

Sao tên trên textbox là A/B là sao? Ý là cái tên đó bắt buộc có dấu / ở giữa mà hình ảnh nó không cho đặt tên như vậy phải không? Vậy thì ảnh đặt là A_B đi.

Xử lý: Tên hình = Replace(TextBox1.Text, "/","_")

 

[chipiu3001]

Sao tên trên textbox là A/B là sao? Ý là cái tên đó bắt buộc có dấu / ở giữa mà hình ảnh nó không cho đặt tên như vậy phải không? Vậy thì ảnh đặt là A_B đi.

Xử lý: Tên hình = Replace(TextBox1.Text, "/","_")

Tên dữ liệu không sử được ( có cái có"/" có cái không). ảnh thì không cho đặt tên có ký tự"/"
OK rồi bạn. đã xử lý được như ý muốn. Nếu không mình đã phải dùng cột phụ trong sheet rồi.
Cảm ơn bạn nhé.

 

[chipiu3001]

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ủ đề

 

[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.