Mình muốn tìm kiếm và trả kết quả về hình ảnh, do ảnh có chất lượng cao nên dùng kiểu define name trả về hình ảnh thì rất nặng và lag, mình có thử viết code mà chạy thử thì báo lỗi run time error, mong bác nào biết và chỉ ra điểm sai để mình khắc phục. Xin trân trọng cám ơn!
Sub ghepanh()
Dim a As String
Dim b As String
b = Sheet3.Range("K6")
a = "E:\Fileg\School\image\" & b & ".jpg"
Sheet24.Range("A8").Select
Sheet24.Range("A8").InsertPictureInCell (a)
Sheet25.Range("A8").Select
Sheet25.Range("A8").InsertPictureInCell (a)
End Sub
Sub ghepanh()
Dim a As String
Dim b As String
b = Sheet3.Range("K6")
a = "E:\Fileg\School\image\" & b & ".jpg"
Sheet24.Range("A8").Select
Sheet24.Range("A8").InsertPictureInCell (a)
Sheet25.Range("A8").Select
Sheet25.Range("A8").InsertPictureInCell (a)
End Sub