Trợ giúp sửa đường dẫn load file hình từ folder lên Form (1 người xem)

ngocvaneahleo · 3/11/16

nhờ anh chị trong diễn đàn giúp em sửa lại đường dẫn load hình lên form theo MSNV với ạ, em sửa hoài mà k dc nên bí quá phải nhờ tới anh chị.

ah còn vấn đề này nữa, nếu những nhân viên có hình thì load hình lên Form, còn những người chưa có thì thay thế bằng file hình "noimage" (nằm trong folder), không biết có dc k ạ

mong được sự giúp đỡ của anh chị nhiều.

giaiphap · 3/11/16

ngocvaneahleo đã viết:
nhờ anh chị trong diễn đàn giúp em sửa lại đường dẫn load hình lên form theo MSNV với ạ, em sửa hoài mà k dc nên bí quá phải nhờ tới anh chị.

ah còn vấn đề này nữa, nếu những nhân viên có hình thì load hình lên Form, còn những người chưa có thì thay thế bằng file hình "noimage" (nằm trong folder), không biết có dc k ạ

mong được sự giúp đỡ của anh chị nhiều.

Bạn sửa code cho ListBox của bạn như sau:

Mã:

Private Sub ListBox1_Click()
[COLOR=#ff0000][B]On Error GoTo Loi[/B][/COLOR]
  With DanhMuc
        .TB_STT = ListBox1.List(.ListBox1.ListIndex, 0)
        .TB_MSNV = ListBox1.List(.ListBox1.ListIndex, 1)
        .TB_HoVaTen = ListBox1.List(.ListBox1.ListIndex, 2)
        .TB_ChucDanh = ListBox1.List(.ListBox1.ListIndex, 3)
        .TB_BoPhan = ListBox1.List(.ListBox1.ListIndex, 4)
        .TB_DanToc = ListBox1.List(.ListBox1.ListIndex, 5)
        .TB_NgayVaoLam = ListBox1.List(.ListBox1.ListIndex, 6)
        .TB_CongViec = ListBox1.List(.ListBox1.ListIndex, 7)
        .TB_QuocTich = ListBox1.List(.ListBox1.ListIndex, 8)
        [B][COLOR=#ff0000]Image1.Picture = LoadPicture(ThisWorkbook.Path & "\images\" & ListBox1.List(.ListBox1.ListIndex, 1) & ".jpg")[/COLOR][/B]
       End With
       [COLOR=#ff0000][B]Exit Sub
Loi: Image1.Picture = LoadPicture(ThisWorkbook.Path & "\images\noimage.jpg")[/B][/COLOR]
End Sub

doveandrose · 3/11/16

giaiphap đã viết:

Bạn sửa code cho ListBox của bạn như sau:

Mã:

Private Sub ListBox1_Click()
[COLOR=#ff0000][B]On Error GoTo Loi[/B][/COLOR]
  With DanhMuc
        .TB_STT = ListBox1.List(.ListBox1.ListIndex, 0)
        .TB_MSNV = ListBox1.List(.ListBox1.ListIndex, 1)
        .TB_HoVaTen = ListBox1.List(.ListBox1.ListIndex, 2)
        .TB_ChucDanh = ListBox1.List(.ListBox1.ListIndex, 3)
        .TB_BoPhan = ListBox1.List(.ListBox1.ListIndex, 4)
        .TB_DanToc = ListBox1.List(.ListBox1.ListIndex, 5)
        .TB_NgayVaoLam = ListBox1.List(.ListBox1.ListIndex, 6)
        .TB_CongViec = ListBox1.List(.ListBox1.ListIndex, 7)
        .TB_QuocTich = ListBox1.List(.ListBox1.ListIndex, 8)
        [B][COLOR=#ff0000]Image1.Picture = LoadPicture(ThisWorkbook.Path & "\images\" & ListBox1.List(.ListBox1.ListIndex, 1) & ".jpg")[/COLOR][/B]
       End With
       [COLOR=#ff0000][B]Exit Sub
Loi: Image1.Picture = LoadPicture(ThisWorkbook.Path & "\images\noimage.jpg")[/B][/COLOR]
End Sub

anh Giaiphap cho em hỏi , nếu đường dẫn đến hình ảnh có chứa kí tự tiếng Việt có dấu thì ta dùng hàm gì để LoadPicture ạ ? -+*/

giaiphap · 3/11/16

doveandrose đã viết:
nếu đường dẫn đến hình ảnh có chứa kí tự tiếng Việt có dấu thì ta dùng hàm gì để LoadPicture ạ ?

Cái này thì quá sức của em rồi anh, anh trổ tài cho em út học hỏi với.

doveandrose · 3/11/16

giaiphap đã viết:
Cái này thì quá sức của em rồi anh, anh trổ tài cho em út học hỏi với.

tiết mục hỏi xoáy đáp xoay thôi mà , sao dễ "gục" vậy thầy giáo -+*/

giaiphap · 4/11/16

doveandrose đã viết:
tiết mục hỏi xoáy đáp xoay thôi mà , sao dễ "gục" vậy thầy giáo

Cái vụ WebBrowser chưa biết sử dụng bao giờ cả anh à, mới biết lần này nè.

chohom · 24/11/16

doveandrose đã viết:
tiết mục hỏi xoáy đáp xoay thôi mà , sao dễ "gục" vậy thầy giáo

Tôi có Image1 trên sheet từ ActiveX Controls. code phải làm gì để chèn ảnh vào Image1 nếu đường dẫn có chứa ký tự Việt vậy bạn. Trước giờ tôi không dám đặt trong đường dẫn có chữ Việt nhưng giờ đọc thấy bạn có chiêu mới.

doveandrose · 24/11/16

chohom đã viết:
Tôi có Image1 trên sheet từ ActiveX Controls. code phải làm gì để chèn ảnh vào Image1 nếu đường dẫn có chứa ký tự Việt vậy bạn. Trước giờ tôi không dám đặt trong đường dẫn có chữ Việt nhưng giờ đọc thấy bạn có chiêu mới.

bạn có khó khăn gì thì gửi file cụ thể lên , tôi không làm được thì có các thành viên khác giúp .

chohom · 24/11/16

doveandrose đã viết:
bạn có khó khăn gì thì gửi file

có cần file không, vì code trước giờ là

Mã:

Set Sheet1.OLEObjects("Image1").Object.Picture = LoadPicture(Sheet1.Range("A1").Value)

Chỉ có điều đường dẫn trong A1 không có kí tự Việt. Bây giờ thấy bạn có chiêu dùng cho kí tự Việt nên tôi hỏi thôi.

chohom · 27/11/16

Sư phụ lặn mất tăm rồi nhưng thôi không cần.
Thực ra tôi làm được từ lâu, cũng đã gửi cho một bạn trên GPE trước đó. Trong bài này tôi đính kèm tập tin my folder.rar.
Do đọc chủ đề thấy có sư phụ là chuyên gia hỏi xoáy đáp xoáy nên tôi có ý định nắn gân và trêu sư phụ tí. Nhưng để đánh lạc hướng cho chắc chắn nên hỏi một bài để lấy mác "nai tơ"

http://www.giaiphapexcel.com/forum/showthread.php?120727-Định-dạng-có-điều-kiện

Cám ơn bạn befaint và NguyenNgocThuHien đã trả lời. Tuy bạn NguyenNgocThuHien có nhầm lẫn chút nhưng hướng đi là đúng.

Công thức

Mã:

=AND(WEEKDAY(K2)=6,DAY(K2)<=7)

thực ra tôi đã có trước khi lập đề tài. Tôi lấy đề tài là bài mà tôi vừa trả lời trên diễn đàn nước ngoài - xem hình apollo.jpg.
Nếu ai còn nghĩ liệu công thức đó sang tiếng Anh có đúng là công thức ở trên hay không thì xem hình formula.jpg. Hoặc vào trang
http://en.excel-translator.de/translator/
nhập công thức tiếng Anh ở trên -> chọn ngôn ngữ nguồn là tiếng Anh, ngôn ngữ đích là tiếng Ba Lan rồi nhấn Translate thì sẽ có công thức y như trong hình apollo.jpg. Tôi gửi ngày 21-11-2016 13:53, tức 19:53 giờ Việt Nam.

Nếu cũng dùng Translate thì sẽ thấy là công thức của bạn befaint cũng có người đưa ra trước bài của tôi (trong hình apollo.jpg). Tất nhiên bạn befaint không biết, bạn tự làm và chuẩn.

Thêm nữa nếu ai còn nghi ngờ là liệu apollo có phải là tôi, tức siwtom hay không, thì xem hình draw.jpg. Code của Function Draw tôi từng gửi trên GPE.

Nắn gân sư phụ là tội lớn nên bù lại tôi gửi code cho những bạn có nhu cầu load ảnh vào Image mà đường dẫn có ký tự Việt. Gọi là lấy công chuộc tôi, he he.

doveandrose · 27/11/16

chohom đã viết:
Thêm nữa nếu ai còn nghi ngờ là liệu apollo có phải là tôi, tức siwtom hay không, thì xem hình draw.jpg. Code của Function Draw tôi từng gửi trên GPE.

Nắn gân sư phụ là tội lớn nên bù lại tôi gửi code cho những bạn có nhu cầu load ảnh vào Image mà đường dẫn có ký tự Việt. Gọi là lấy công chuộc tôi, he he.

anh là siwtom ? cựu thành viên GPE ? thế thì tôi phải gọi là anh rồi .
Lúc anh hỏi thì tôi đã biết câu hỏi có vấn đề , hoặc người hỏi muốn dạy bảo điều gì chăng nên tôi chủ động không trả lời .
Bài viết của anh hay đấy , tôi mới thấy lần đầu , tuy nhiên thì anh cũng cần lưu ý : những hàm có đuôi Ptr ( strPtr , ... ) trong VBA luôn trả về kiểu LongLong trong window 64bit nên anh khai báo sai 1 chút , nhưng không sao , thế là tôi lại học được 1 cách mới đối với tôi .
Nếu quả anh là siwtom thì rất mong anh có thêm nhiều bài viết giao lưu cùng diễn đàn . Tôi cũng chỉ mày mò tự học VBA thôi , và biết thành viên siwtom có "công lực" khủng cỡ nào , nhưng tôi không ngại đâu , cái gì tôi biết tôi sẽ giao lưu tới bến %#^#$

chohom · 27/11/16

Tôi có nhấn mạnh chỗ nào là code dùng cho 64 bit? Tôi viết code luôn test rồi mới dám mạo muội gửi cho người khác. Mà tôi chỉ có XP Home 32 bit thôi nên chỉ dám viết cho 32 bit. Ai cần thêm thì tự tìm tòi mà sửa.
Ở chỗ tôi ở tôi không dám dùng hàng lậu, vì thế tới giờ vẫn dùng XP Home. Chỉ những gì thực sự cần thì mới mua. Ở VN thì ông nào cũng có Windows mới nhất, Office mới nhất. Thế mà cứ tưởng VN mình nghèo. Bạn có toàn đồ xịn, mới nhất để thử nên tôi đã từng đọc một chủ đề mà trong đó bạn từng lưu ý Nguyễn Duy Tuân về vụ 64 bit nên tôi biết là thế nào. Biết chay thế thôi chứ làm gì có đồ xịn như bạn để kiểm nghiệm.
Tôi không giao lưu từ khi bị đuổi rồi. Nắn gân tí thôi vì thấy bạn thích trò hỏi xoáy đáp xoáy mà.
Tôi không viết thêm nữa nhưng nếu bạn có chiêu gì hay thì cứ dạy bảo. Tôi sẽ âm thầm học hỏi sư phụ. Còn chuyên hỏi xoáy thì tôi bỏ qua. Vì tôi không có ý định tham gia lại GPE.

befaint · 27/11/16

chohom đã viết:
Sư phụ lặn mất tăm rồi nhưng thôi không cần.
Thực ra tôi làm được từ lâu, cũng đã gửi cho một bạn trên GPE trước đó. Trong bài này tôi đính kèm tập tin my folder.rar.
Do đọc chủ đề thấy có sư phụ là chuyên gia hỏi xoáy đáp xoáy nên tôi có ý định nắn gân và trêu sư phụ tí. Nhưng để đánh lạc hướng cho chắc chắn nên hỏi một bài để lấy mác "nai tơ"

http://www.giaiphapexcel.com/forum/showthread.php?120727-Định-dạng-có-điều-kiện

Cám ơn bạn befaint và NguyenNgocThuHien đã trả lời. Tuy bạn NguyenNgocThuHien có nhầm lẫn chút nhưng hướng đi là đúng.

Em chào anh siwtom,

Em thấy rất vui vì anh quay lại viết bài ở GPE. Nhiều khi em tự hỏi, không biết có khi nào anh vẫn âm thầm theo dõi các bài viết ở GPE hay tham gia với nick "nai tơ" nào không? hic hic /-*+/

Chúc anh và gia đình một ngày vui!

chohom · 27/11/16

Không, tôi không quay lại GPE.
Từ khi tham gia GPE cho tới bây giờ tôi không cho ai số điện thoại và e-mail. Khi không tham gia GPE nữa thì tôi thỉnh thoảng vẫn vào GPE vì có vài người bạn thỉnh thoảng vẫn liên lạc qua "Nhắn tin riêng". Tất nhiên vào thì cũng tò mò, tình hình ở GPE thế nào. Đọc một vài chủ đề. Vì tôi có những người bạn ơvẫn tham gia GPE mà. Nhưng viết bài thì không. Chỉ có những người dùng code, ví dụ của siwtom mà có khó khăn thì tôi trả lời. Gọi là có trách nhiệm với code của mình, giúp những người dùng code của mình. Thế thôi chứ tôi không bao giờ tham gia GPE nữa.

Cám ơn bạn đã trả lời câu hỏi của tôi. Công nhận GPE có nhiều người tài.

Tôi cũng chúc bạn và gia đình nhiều sức khỏe.

quykh · 27/11/16

Cám ơn Thầy Siwtom, Thầy đã viết rất nhiều CODE cho em.
Chúc Thầy và gia đình nhiều Sức khỏe.

lexuantruong · 27/11/16

doveandrose đã viết:
tiết mục hỏi xoáy đáp xoay thôi mà , sao dễ "gục" vậy thầy giáo

Cho em hỏi trên Form có load dc file ".PNG" k ạ. Nếu dc thì sửa lại code ntn ạ.

doveandrose · 27/11/16

lexuantruong đã viết:
Cho em hỏi trên Form có load dc file ".PNG" k ạ. Nếu dc thì sửa lại code ntn ạ.

file đó sử dụng cho người khác , bạn đọc không hiểu có thể gửi file của bạn lên đây .

chohom · 27/11/16

lexuantruong đã viết:
Cho em hỏi trên Form có load dc file ".PNG" k ạ. Nếu dc thì sửa lại code ntn ạ.

Xin lỗi, tôi không kiểm tra kỹ. Bạn không hỏi tôi :''"

Trợ giúp sửa đường dẫn load file hình từ folder lên Form (1 người xem)

Người dùng đang xem chủ đề này

Thành viên mới

File đính kèm

==(^o^)==

hello

==(^o^)==

hello

File đính kèm

==(^o^)==

Thành viên mới

hello

Thành viên mới

Thành viên mới

File đính kèm

hello

Thành viên mới

|||||||||||||

Thành viên mới

Chim non

Thành viên chính thức

hello

Thành viên mới

Đếm ngược thời gian