Giá trị dán VBA trong Excel
Copy & Paste không phải là công việc tuyệt vời nhất trên thế giới !!! Nhưng sao chép và dán với các tùy chọn đặc biệt đòi hỏi một số loại kiến thức về VBA. Đây không phải là quá trình chuyển tiếp đơn giản như sao chép và dán. Một trong những phương pháp dán đặc biệt quan trọng là “Dán giá trị” trong VBA.
Làm thế nào để dán giá trị trong Excel bằng VBA?
Ví dụ # 1 - Sử dụng Dán Đặc biệt
Ví dụ, hãy xem hình ảnh bảng tính bên dưới.
Trong ô B6, chúng tôi đã áp dụng công thức để tính tổng giá trị bán hàng từ ô B2 đến ô B5. Bây giờ, nếu tôi sao chép và dán ô B6 vào ô C6, tôi sẽ không nhận được giá trị là 22,761, nhưng tôi sẽ nhận được công thức tương ứng.
Để thực hiện điều tương tự trong VBA, chúng ta cần kiến thức về mã hóa. Chúng tôi sẽ hướng dẫn bạn cách dán các giá trị bằng VBA. Làm theo các bước dưới đây.
Bước 1: Sao chép ô B6.
Để sao chép ô B6, hãy sử dụng mã làm Phạm vi (“B6”). Sao chép
Bước 2: Chọn ô đích. Trong trường hợp này, ô C6.
Như bạn có thể thấy sau bản sao, nó hỏi, "Điểm đến". Đây không là gì ngoài nơi bạn muốn dán, vì vậy hãy chọn “Đích” làm Phạm vi (“C6”)
Mã:
Sub Paste_Values () Range ("B6"). Copy Range ("C6") End Sub
Bước 3: Chạy mã
Chạy mã này, chúng tôi sẽ nhận được bản sao B6 trong C6.
Chúng tôi chỉ có công thức ở đây.
Bước 4: Thực hiện phương pháp dán đặc biệt.
Để thực hiện phương thức dán đặc biệt, hãy xem cú pháp bên dưới của phương thức dán đặc biệt.
Trong phương pháp dán đặc biệt, chúng ta có một số phương pháp. Dựa vào thao tác đang thực hiện, chúng ta cần chọn loại cho phù hợp.
Để hiểu, hãy chia đoạn mã thành hai dòng.
Đầu tiên là sao chép ô B6.
Bây giờ trong dòng tiếp theo, hãy viết ô đích là Phạm vi (“C6”)
Bây giờ để truy cập Paste Special Method, hãy đặt một dấu chấm và bắt đầu nhập ký tự “P.”
Trong nhiều tùy chọn ở trên, hãy chọn phương pháp "Dán đặc biệt".
Sau khi chọn phương pháp, nhấn phím cách để xem các phương pháp dán đặc biệt khác nhau.
Trong nhiều tùy chọn, hãy chọn “xlPasteValues”.
Sau khi chọn tùy chọn, hãy nhấn phím tab để tự động chọn.
Mã:
Sub Paste_Values () Range ("B6"). Copy Range ("C6"). PasteSpecial xlPasteValues End Sub
Bước 5: Chạy mã
Bây giờ hãy chạy mã, chúng ta sẽ chỉ lấy giá trị của ô B6 đến ô C6.
Nếu bạn nhận thấy trang tính sau khi chạy mã, nó vẫn chỉ ở chế độ sao chép.
Điều này sẽ tắt chế độ sao chép cắt sau khi phương pháp dán đặc biệt được thực thi.
Ví dụ # 2 - Dán Đặc biệt bằng Vòng lặp
Dán đặc biệt rất dễ dàng nhưng để sử dụng nó như một phần của mã lớn, đòi hỏi kỹ năng viết mã cao cấp.
Ví dụ, hãy nhìn vào hình ảnh dưới đây.
Trong hình trên của trang tính trong cột “F”, chúng ta có một cột tổng, nghĩa là trong các ô F2, F5, F8, F11 và F14.
Bây giờ yêu cầu của tôi là sao chép tổng số từng ô từ ô tương ứng và dán vào cột “H” với các ô tương ứng.
Sử dụng đoạn mã dưới đây, với các vòng lặp VBA, chúng ta có thể thực hiện việc này.
Mã:
Sub Paste_Values1 () Dim k As Integer Dim j As Integer j = 2 For k = 1 To 5 Cells (j, 6) .Copy Cells (j, 8) .PasteSpecial xlPasteValues j = j + 3 Next k End Sub
Mã này với tùy chọn dán đặc biệt sẽ thực hiện nhiệm vụ sao chép từng ô tổng và dán vào cột “H” với các ô tương ứng.
Ví dụ # 3 - Sao chép từ trang tính sang trang tính khác
Để dán các giá trị từ trang tính này sang trang tính khác, chúng ta cần đề cập đến cả tên trang tính. Dưới đây là một ví dụ về điều đó.
Sub Paste_Values2 () Worksheets ("Sheet1"). Range ("A1"). Sao chép Worksheets ("Sheet2"). Range ("A15"). PasteSpecial xlPasteValues End Sub
