Sao chép văn bản và hình ảnh trong Excel

Tôi sử dụng bảng tính Excel để lập bảng dự đoán kết quả các trận đấu thể thao (vòng playoff NFL, NHL, v.v.). Tôi có thể dễ dàng tạo công thức để chuyển tên đội thắng cuộc lên cấp độ tiếp theo dựa trên tỷ số trận đấu, nhưng làm thế nào để tự động chuyển cả hình ảnh (ví dụ: logo đội, mũ bảo hiểm, v.v.)?


Trả lời:

Đây là đoạn mã tôi dùng cho bảng của mình - bạn cần đặt tên ảnh giống với tên đội mà bạn đang sử dụng, nhưng không được có khoảng trắng, ví dụ: DallasCowboys

Đoạn mã này di chuyển hình ảnh, nhưng nó cũng có thể sao chép và tạo một phiên bản mới - tôi không dùng nó cho dấu ngoặc đơn, mà chỉ dùng cho bảng đứng.

1) Sao chép đoạn mã này.

2) Nhấp chuột phải vào tab trang tính cần quan tâm.

3) Chọn "Xem mã"

4) Dán đoạn mã vào cửa sổ hiện ra.

5) Lưu tệp dưới dạng tệp .xlsm có hỗ trợ macro.

6) Điều chỉnh phạm vi khi cần thiết.

>

Private Sub Worksheet_Calculate()

Dim oPic As Picture

Dim rCell As Range

Tôi.Hình ảnh.Hiển thị = Đúng

Đối với mỗi rCell trong phạm vi ("D10:D29").Cells

Với rCell

Khi xảy ra lỗi, hãy chuyển đến NoPic:

Set oPic = Me.Pictures(Replace(.Text, " ", "))

oPic.Visible = True

oPic.Top = .Top + IIf(.Height > oPic.Height, .Height / 2 - oPic.Height / 2, 0)

oPic.Left = .Offset(0, 1).Left + .Offset(0, 1).Width / 2 - oPic.Width / 2

Kết thúc bằng

Không có ảnh:

Tiếp tục ngay tại đây

Ngay đây:

Tế bào r tiếp theo

End Sub

>