By 
Hướng dẫn chèn ảnh vào một ô trong excel tiện lợi .
Linkdownload file :
Nguồn:https://mogivn.com/
Xem thêm Bài Viết:
- Học nhanh cách chuyển từ word sang powerpoint vô cùng nhanh gọn
- Hướng dẫn lấy lại mật khẩu gmail chỉ với 3 bước thao tác
- Hướng dẫn xóa danh bạ trên Iphone với những tuyệt chiêu đơn giản
- “Bật mí” cách chép nhạc vào Iphone không cần itunes đơn giản nhất
- Thủ thuật hay: “ Cách chuyển hàng thành cột trong excel”
Minh co copy duoc ma su dung khong duoc. Xin tac gia huong dan a. Xin cam on ! Xin hoi so dt cua tac gia de lien he a.
Cho minh hoi : co ai dang su dung huong dan minh duoc khong a? Vi minh can chen hon 3000 tam anh. Xin cam on a !
Chào bạn, bài viết rất hay, bạn không phiền cho mình xin phần mềm qua email: nguyenhaidongloi@gmail.com.
Cám ơn bạn
ban cho phép tải file nay nhưng tôi thực hiện ko được
A ơi cho em password với anh ơi
Anh ơi hướng dẫn em với anh ơi em copy không đc ạ
ủa vậy sao làm đc cái nút đó
Cảm ơn bạn nhiều nhé, quá tuyệt vời. Mình làm công việc copy hình ảnh rất nhiều, tốn nhiều công sức nhất vào cái công đoạn điều chỉnh tấm hình cho vừa
Làm clip có tâm đi.
Bạn có thể gửi cho mình phần mềm đó dc ko bn mình cảm on bn nhiêu
code này coppy mà không dán được qua sheet khác vậy bạn
chém gió bày đạt viết code, copy linh tinh rồi nhận là của mình
hay lắm cám ơn anh
Cảm ơn anh rất nhiều ạ
CODE VBA : (Nguồn tham khảo internet + biến tấu)
Public Sub FitPic()
On Error GoTo NOT_SHAPE ' thong bao loi
Dim PicWtoHRatio As Single ' bien ti le anh
Dim CellWtoHRatio As Single ' bien ti le o excel
With Selection
PicWtoHRatio = .Width / .Height ' tinh ti le rong/cao cua buc anh lua chon
End With
With Selection.TopLeftCell
CellWtoHRatio = .Width / .RowHeight ' tinh tile rong/cao cua o excel chua anh
End With
Select Case PicWtoHRatio / CellWtoHRatio
Case Is > 1 ' Neu tile anh > ti le o excel
With Selection
.Width = .TopLeftCell.Width * 0.95 ' chieu rong anh =0.95 lan chieu rong o excel
.Height = .Width / PicWtoHRatio ' chieu cao anh co lai theo ti le anh ban dau
End With
Case Else ' Neu ti le anh < ti le o excel
With Selection
.Height = .TopLeftCell.RowHeight * 0.95 ' chieu cao anh =0.95 lan chieu rong o excel
.Width = .Height * PicWtoHRatio ' chieu rong anh co lai theo ti le anh ban dau
End With
End Select
With Selection 'dat vi tri anh sao cho nhin thay dong ke excel
.Top = .TopLeftCell.Top + 0.025 * .Height
.Left = .TopLeftCell.Left + 0.025 * .Width
End With
Exit Sub
NOT_SHAPE:
MsgBox "Select a picture before running this macro." 'Bao loi khi chua chon anh
End Sub
Xin lỗi mọi người , mình thích vọc vòi , ngày xưa thừa thời gian ngồi tự viết để làm báo cáo cho nhanh. Giờ làm nghề khác quên hết rồi . Nếu có password thì mình hay để là "bimat" . Mọi người cứ thử, vui vẻ giúp đc ai thì giúp thôi mà .
HAY QUÁ , CÁM ƠN BẠN MÌNH ĐANG CẦN CÁI NÀY ĐỂ LÀM BÁO CÁO NHANH HƠN HẴN
Anh ơi password của file là gì ạ ?
video thì hay mà ko copy được file bạn ạ
QuÀ dinh c¶m on anh
ông bày mà copy đc đâu ???????
ông này chắc tính kiếm tí lên ko chia sẻ code
cho tải file, mà lại đi khóa sheet, ko cho copy thì làm sao mà sử dụng đây bạn?
ko có code sao
anh sao em copy không được cái tệp đó qua sheet em cần làm ạ