Tự động chuyển thành paste special khi nhấn CTRL + V (hoặc paste)

Nhiều lúc, một file excel (share) hoặc dùng chung. nhiều người copy & Paste làm hỏng hết format
Đoạn code sau (sưu tầm của bác NDU - GPE) bỏ vô module là vô hiệu hóa paste (chỉ cho phép paste special)

Sub PasteValue()

  Selection.PasteSpecial 3

End Sub

Sub Auto_Open()

  Application.OnKey "^v", "PasteValue"

  CommandBars.FindControl(Id:=22).OnAction = "PasteValue"

  CommandBars.FindControl(Id:=6002).Enabled = False

End Sub

Sub Auto_Close()

  Application.OnKey "^v"

  CommandBars("Cell").Reset

  CommandBars("Edit").Reset

  CommandBars.FindControl(Id:=6002).Enabled = True

 

End Sub

Array - mảng: dùng Transpose để phân biệt mảng 1 chiều và 2 chiều

(sưu tầm từ bài viết của NDU- GPE)

Ví dụ thế này:
- Bạn có dữ liệu tại A1:A10
- Bạn muốn nối chuổi từ các cell ở vùng trên
- Bạn nghĩ ra có thể dùng làm Join để làm điều này
- Nhưng hàm Join chỉ làm việc với mảng 1 chiều
- Vậy việc của bạn phải biến Range("A1:A10") thành 1 mảng và phải là mảng 1 chiều
Ta làm như sau: