Hiển thị hình trong Image qua đường link và dò tìm theo ý muốn (1 người xem)

[quannguyen1984]

Mong được các bạn VBA giúp đỡ.

 

[dhn46]

Bạn cũng biết VBA rồi nên bạn tham khảo File này và thực hiện các công đoạn bắt lỗi để phù hợp với công việc của bạn nhé

 

[quannguyen1984]

Giúp mình thêm điều này được không bạn?

 

[quannguyen1984]

Việc này khó lắm hay sao vậy các chuyên gia VBA? Một ngày trôi qua, người xem thì nhiều mà người giúp chưa thấy.

 

[dhn46]

Việc này khó lắm hay sao vậy các chuyên gia VBA? Một ngày trôi qua, người xem thì nhiều mà người giúp chưa thấy.

Bạn nên bình tĩnh, bài thứ 1 bạn Post lúc 4h26 PM đó là giờ về rồi nên bạn cũng cần chờ đợi, hơn nữa xem file và làm là 2 việc khác nhau mà bạn.

Yêu cầu của bạn sẽ được thực hiện bởi sub nhỏ sau đây, bạn Copy vào Code Form của bạn.

Private Sub OptionButton1_Click()
    Dim Cll As Range
    Dim Opt As String
    Me.Cbo_Img.Clear
    For Each Cll In [C5:C9]
        If Left(Cll, 1) = "A" Then


            Me.Cbo_Img.AddItem Cll
        End If
    Next
End Sub


Private Sub OptionButton2_Click()
    Dim Cll As Range
    Dim Opt As String
    Me.Cbo_Img.Clear
    For Each Cll In [C6:C9]
        If Left(Cll, 1) = "B" Then


            Me.Cbo_Img.AddItem Cll
        End If
    Next
End Sub

Và bạn cũng nên phản hồi 1 chút thông tin xem các câu trả lời bạn có hiệu quả không nhé.

 

[quannguyen1984]

Mình copy vào rồi sao nó không chạy bạn ơi, có thể cho mình địa chỉ mail hay số đt để mình học hỏi một số vấn đề được không? Xin cảm ơn bạn đã giúp đỡ "huynhnguyenminhquan@yahoo.com"

 

[vanle33]

Mình copy vào rồi sao nó không chạy bạn ơi, có thể cho mình địa chỉ mail hay số đt để mình học hỏi một số vấn đề được không? Xin cảm ơn bạn đã giúp đỡ "huynhnguyenminhquan@yahoo.com"

Quan trọng "copy" vào đâu vậy bạn? Trong file của bài trên có tý cóc két gì đâu. Mà CHẠY với KHÔNG CHẠY.

 

[quannguyen1984]

Quan trọng "copy" vào đâu vậy bạn? Trong file của bài trên có tý cóc két gì đâu. Mà CHẠY với KHÔNG CHẠY.

Bác biết sai chỗ nào thì nhờ bác giúp, đằng này bình luận mấy câu chẳng ra gì?

 

[vanle33]

Bác biết sai chỗ nào thì nhờ bác giúp, đằng này bình luận mấy câu chẳng ra gì?

Có quan niệm của bạn "chẳng ra gì" thì có. Bạn không thấy tôi hỏi bạn gì ở bài #7 ah? Bạn không đọc hay sao mà nói thế? Không phải tự nhiên tôi nói thế, tôi đâu có nói đùa, nói dối, nói sai gì đâu.

 

[quannguyen1984]

Mình không biết nhiều về VBA lắm chỉ vọc tí để áp dụng vào việc buôn bán và quản lý máy sản phẩm thôi. Nhờ bác dhn46 chỉ tôi cũng copy vào trong code form thôi nhưng khi chọn vào option thì báo lỗi không chạy. Bác biết chỉnh sữa lại và gửi file lại giúp em, em cảm ơn nhiều.

 

[vanle33]

Mình không biết nhiều về VBA lắm chỉ vọc tí để áp dụng vào việc buôn bán và quản lý máy sản phẩm thôi. Nhờ bác dhn46 chỉ tôi cũng copy vào trong code form thôi nhưng khi chọn vào option thì báo lỗi không chạy. Bác biết chỉnh sữa lại và gửi file lại giúp em, em cảm ơn nhiều.

1) Bạn đã Enable marco chưa?
2) Tôi gửi file dưới đã thêm code vào Form của bạn. Nhưng khi kích vào A hoặc B thì có báo lỗi code. Tôi không hiểu về code, nhờ thành viên khác chỉnh code.

 

[quannguyen1984]

1) Bạn đã Enable marco chưa?
2) Tôi gửi file dưới đã thêm code vào Form của bạn. Nhưng khi kích vào A hoặc B thì có báo lỗi code. Tôi không hiểu về code, nhờ thành viên khác chỉnh code.

File tôi gửi ở bài #6 có khác gì file bạn đâu, tôi đã copy vào code rồi chằng qua là chọn như bạn nói nó lỗi thôi. Chứ chép vào code mà hok biết làm thì nghiên cứu VBA làm gì nữa. Dù sao cũng cảm ơn bạn đã theo dõi bài mình.

 

[dhn46]

Bạn xem file nhé. Bạn vẫn chưa phản hồi câu hỏi đầu tiên của bạn, bài #2 có đáp ứng hay không?

 

[Lê Phát Huy]

File tôi gửi ở bài #6 có khác gì file bạn đâu, tôi đã copy vào code rồi chằng qua là chọn như bạn nói nó lỗi thôi. Chứ chép vào code mà hok biết làm thì nghiên cứu VBA làm gì nữa. Dù sao cũng cảm ơn bạn đã theo dõi bài mình.

- Tạo 1 folder chứa hình,
- Dùng code download hình theo điều kiện vào folder đó.
- Đọc hình từ folder đó đưa vào Image trên form

 

[quannguyen1984]

Bạn xem file nhé. Bạn vẫn chưa phản hồi câu hỏi đầu tiên của bạn, bài #2 có đáp ứng hay không?

Bạn giúp đúng theo ý mình rồi, nhưng xảy ra trường hợp này. Khi mình chọn option A xem hình ok xong chọn qua B lại lỗi không chạy nữa. Ngược lại chọn B trước xong chọn qua A cũng lỗi. Mong các bạn xem lại giúp mình.

 

[ndu96081631]

Bạn giúp đúng theo ý mình rồi, nhưng xảy ra trường hợp này. Khi mình chọn option A xem hình ok xong chọn qua B lại lỗi không chạy nữa. Ngược lại chọn B trước xong chọn qua A cũng lỗi. Mong các bạn xem lại giúp mình.

File bài 13 có đoạn code:

Private Sub Cbo_Img_[COLOR=#ff0000]Change[/COLOR]()
    Dim Url As String, PicName As String
    Url = Sheet1.Cells(Me.Cbo_Img.ListIndex + 5, 4)
    PicName = Mid$(Url, InStrRev(Url, "/") + 1)
    Call URLDownloadToFile(0, Url, "C:\" & PicName, 0, 0)
    Image1.Picture = LoadPicture()
    Image1.Picture = LoadPicture("C:\" & PicName)
End Sub

Hãy sửa thành:

Private Sub Cbo_Img_[COLOR=#ff0000]Click[/COLOR]()
    [COLOR=#ff0000]Dim rFind As Range[/COLOR]
    Dim Url As String, PicName As String
    [COLOR=#ff0000]Set rFind = Sheet1.Range("C5:C100").Find(Cbo_Img.Text, , xlValues, xlWhole)[/COLOR]
    [COLOR=#ff0000]If Not rFind Is Nothing Then[/COLOR]
      [COLOR=#ff0000]Url = rFind.Offset(, 1).Value[/COLOR]
      PicName = Mid$(Url, InStrRev(Url, "/") + 1)
      Call URLDownloadToFile(0, Url, "C:\" & PicName, 0, 0)
      Image1.Picture = LoadPicture()
      Image1.Picture = LoadPicture("C:\" & PicName)
    [COLOR=#ff0000]End If[/COLOR]
End Sub

Những chỗ màu đỏ là chỗ tôi sửa lại hoặc thêm mới vào
----------------------
Chỉ sửa lại theo code có sẵn tí thôi chứ code này còn phải cải tiến thêm vài chỗ nữa mới gọi là "ngon"