Trang 2 của 2 Đầu tiênĐầu tiên 12
Kết quả 11 đến 20 của 20

Chủ đề: Nhờ Giúp Chuyển đổi hình khi insert thành tên của bức hình !

  1. #11
    jonnyt240 Guest
    Trích dẫn Gửi bởi tuantu315
    Bạn cho mình hỏi thêm ví dụ bây h mình ko muốn nhập kết quả tại ô B2 ở sheet2 nữa mà mình muốn nhập tại ô D2 hoặc N4 thì phải làm sao . Bạn xem file sẽ hiểu ! Thanks bạn
    Nếu đã dùng "CommandButton1_Click()" thì không cần dòng này nữa:
    "If Not Intersect([B2], Target) Is Nothing Then"

    và sửa phần điều kiện find màu đỏ thành D2 hoặc N4
    "Set Rng = vung.Find([D2], LookIn:=xlValues, LookAt:=xlPart)"

  2. #12
    toan102 Guest
    Trích dẫn Gửi bởi chucuoi92
    Bạn xem file đính kèm xem sửa có đúng không nhé:
    Trên form khi thêm hình thì hình hiện ở sheet2 luôn
    hoặc gõ tên hình ở sheet2 để tìm kiếm tên hình trên sheet1 và load vào sheet2.
    Bạn làm phiền cho mình hỏi thểm 1 vấn đề nữa nha . Bây giờ mình tạo 1 textbox với 1 button ở sheet 2 . Khi nhập tên ở cột A sheet 1 vào textbox sheet2 thì picture hiển thị ra theo đúng đường dẫn ở cột b sheet1 . (Vd : ở sheet 1 , tại cột A mình lưu "hello" , Cột B "địa chỉ của hình" . Tại sheet 2 trong textbox mình nhập "hello" và nhấp button thì bức hình sẽ hiển thị theo như địa chỉ đã lưu tại cột b sheet 1. Thanks ban.

  3. #13
    trung_vip2 Guest
    Trích dẫn Gửi bởi tuantu315
    Bạn làm phiền cho mình hỏi thểm 1 vấn đề nữa nha . Bây giờ mình tạo 1 textbox với 1 button ở sheet 2 . Khi nhập tên ở cột A sheet 1 vào textbox sheet2 thì picture hiển thị ra theo đúng đường dẫn ở cột b sheet1 . (Vd : ở sheet 1 , tại cột A mình lưu "hello" , Cột B "địa chỉ của hình" . Tại sheet 2 trong textbox mình nhập "hello" và nhấp button thì bức hình sẽ hiển thị theo như địa chỉ đã lưu tại cột b sheet 1. Thanks ban.
    Cái này sửa đơn giản thôi mà
    Bạn thay
    Set vung = Sheet1.Range(Sheet1.[B1], Sheet1.[B65536].End(xlUp))
    thành :
    Set vung = Sheet1.Range(Sheet1.[A1], Sheet1.[A65536].End(xlUp))


    PicName = Rng.Value
    thành:
    PicName = Rng.Offset(, 1).Value

    sau khi thay song gõ tên bào B2 là có kết quả ngay
    Còn việc thay B2 thành textbox và Worksheet_Change thành button_Click
    chắc không khó chứ
    Mà sao không làm ComboBox1 tự động load các tên vào và sau đó chỉ việc chọn tên-> lên hình

  4. #14
    banmai Guest
    Trích dẫn Gửi bởi chucuoi92
    Cái này sửa đơn giản thôi mà
    Bạn thay
    Set vung = Sheet1.Range(Sheet1.[B1], Sheet1.[B65536].End(xlUp))
    thành :
    Set vung = Sheet1.Range(Sheet1.[A1], Sheet1.[A65536].End(xlUp))


    PicName = Rng.Value
    thành:
    PicName = Rng.Offset(, 1).Value

    sau khi thay song gõ tên bào B2 là có kết quả ngay
    Còn việc thay B2 thành textbox và Worksheet_Change thành button_Click
    chắc không khó chứ
    Thanks Bạn nhiều, mình làm được rồi . Vấn đề tại mình chỉ không hiểu dòng này

    PicName = Rng.Value
    thành:
    PicName = Rng.Offset(, 1).Value

    Bạn cho mình hỏi dòng này
    If Not Intersect([B2], Target) Is Nothing Then
    Có phải là nhập kết quả tại ô B2 HAY KO ? khi mình sữa lại thành C2 hay D2 thì nhập tên vào 2 ko ra kết quả.
    Có nghĩa là bây h mình đỗi lại ô nhập. Tại mình muốn hiểu rõ về code hơn là chỉ lấy ra được kết quả .

  5. #15
    dat09 Guest
    Trích dẫn Gửi bởi tuantu315
    Thanks Bạn nhiều, mình làm được rồi . Vấn đề tại mình chỉ không hiểu dòng này

    PicName = Rng.Value
    thành:
    PicName = Rng.Offset(, 1).Value


    Mà sao không làm ComboBox tự động load các tên vào và sau đó chỉ việc chọn tên-> lên hình
    mà lại dùng textbox với nút nhấn làm chi cho mệt

  6. #16
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Trích dẫn Gửi bởi chucuoi92
    Mà sao không làm ComboBox tự động load các tên vào và sau đó chỉ việc chọn tên-> lên hình
    mà lại dùng textbox với nút nhấn làm chi cho mệt
    hi hi tại nghiên cứu chút cho hiểu rõ hơn mai mốt biết đâu gặp phải trường hợp như vậy. Làm combo bõ thì tạo cái name vơi cái validation mình nghĩ như vậy cũng hay. Thanks bạn góp ý

    Bạn cho mình hỏi dòng này
    If Not Intersect([B2], Target) Is Nothing Then
    Có phải là nhập kết quả tại ô B2 HAY KO ? khi mình sữa lại thành C2 hay D2 thì nhập tên vào 2 ko ra kết quả.
    Có nghĩa là bây h mình đỗi lại ô nhập. Tại mình muốn hiểu rõ về code hơn là chỉ lấy ra được kết quả .

  7. #17
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Trích dẫn Gửi bởi chucuoi92
    Nếu đã dùng "CommandButton1_Click()" thì không cần dòng này nữa:
    "If Not Intersect([B2], Target) Is Nothing Then"

    và sửa phần điều kiện find màu đỏ thành D2 hoặc N4
    "Set Rng = vung.Find([D2], LookIn:=xlValues, LookAt:=xlPart)"
    Ok thanks bạn nhiều nha bây giờ mình đã thông suốt.

  8. #18
    mrtrong181 Guest
    Trích dẫn Gửi bởi chucuoi92
    Nếu đã dùng "CommandButton1_Click()" thì không cần dòng này nữa:
    "If Not Intersect([B2], Target) Is Nothing Then"

    và sửa phần điều kiện find màu đỏ thành D2 hoặc N4
    "Set Rng = vung.Find([D2], LookIn:=xlValues, LookAt:=xlPart)"
    bạn cho mình hỏi thêm có cách nào refesh lại listbox ko có nghĩa là khi mình insert dữ liệu mới vào thì listbox của mình ko cập nhật được phải tắt mở lại mới được . Mình dùng ListBox1.RowSource = "sheet3!artname"nhưng ko được. Thanks bạn nhiều

  9. #19
    chautuanpro91 Guest
    Trích dẫn Gửi bởi dhn46
    Bạn đã có artname?

    Hãy xác định rõ artname là như thế nào sẽ có kết quả.
    Artname là tên mình đặt cho sheet khi insert dữ liệu vào . ko hiểu sao thêm code vào thì ko refesh lạilại được .

  10. #20
    tungbkhd Guest
    Trích dẫn Gửi bởi tuantu315
    bạn cho mình hỏi thêm có cách nào refesh lại listbox ko có nghĩa là khi mình insert dữ liệu mới vào thì listbox của mình ko cập nhật được phải tắt mở lại mới được . Mình dùng ListBox1.RowSource = "sheet3!artname"nhưng ko được. Thanks bạn nhiều
    Bạn đã có artname?

    Hãy xác định rõ artname là như thế nào sẽ có kết quả.

Trang 2 của 2 Đầu tiênĐầu tiên 12

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •