hỏi về Paste đặc biệt sang Acad

[N2NTrung]

Trong Excel mình có 1 Range, tạo 1 marco thế nào để Paste Special Range đó sang autoAcad nhỉ. Bạn nào biết hướng dẫn mình với

 

[duongsatdn]

Bạn có thể dùng tiện ích do thầy Phan Tự Hướng giới thiệu ở bài http://www.giaiphapexcel.com/forum/showthread.php?t=418

 

[N2NTrung]

Bài Tien ich của thầy Hướng mình cũng load rồi nhưng nói thật mình thấy hoa cả mắt, với lại mình chỉ muốn biết cách để paste 1 Range đã được xác định trước thôi

 

[duongsatdn]

Tiện ích của thầy Hướng có kèm hướng dẫn cụ thể mà. Vì yêu cầu của bạn là "tạo 1 marco thế nào để Paste Special Range đó sang autoAcad", do đó tiện ích đó dùng hay và tiện lợi.
Nếu không muốn dùng VBA thì trong CAD có chức năng dán đặc biệt như sau
- Copy bảng ở excel
- Chuyển sang AutoCAD, chọn menu edit/Paste Spcecial, chọn AUtoCAD Entities vào OK.

 

[N2NTrung]

theo chỉ dẫn của thầy Hướng thì mình thục hiện được rồi nhưng ý mình muốn hỏi là miền cần copy ( VD có tên là Range("n2n") ) lệnh marco khi thục hiện sẽ đưa ngay sang cad và paste luôn không cần bo lại miền ("n2n") nữa

 

[N2NTrung]

áp dụng Tien ich của thầy Hướng, mình làm file copyAcad nhưng chưa paste được text, các bạn làm giúp mình với.

 

[duongsatdn]

Tôi down file của bạn và thực hiện cpy, dán sang autocad bằng tiện ích của thầy Hướng cho ra kết quả bình thường mà, cả text và border. Bạn xem lại thao tác của mình xem có gì chưa đúng với hướng dẫn không.

 

[N2NTrung]

hehe rất cám ơn bạn.
Bài của thầy Hướng là phải chọn 1 vùng trong Excel trước sau đó thực hiện lệnh marco mới paste sang Acad.
Tớ muốn là không cần thao tác chọn vùng trong Excel cơ, lệnh được thực hiện khi chuột trỏ ở bất kỳ vị trí nào trong Excel mà vẫn paste được Range đó.

 

[duongsatdn]

Bạn có thể thêm dòng Range("......").Select để luôn chọn vùng cho trước
Ví dụ:
'Lấy dữ liệu trên range đã chọn
Range("A114").Select
Set ObjRange = Selection
.....

 

[N2NTrung]

Thay bằng động tác khoanh vùng thì dùng lệnh Range(..).Select
Thế mà mình lại không biết. Hay quá cám ơn bạn nhé.

 

[duongsatdn]

BQT đã thay nút Thanks cũ bằng nút mới thiệt là đẹp, sao bạn không xài nó.. Hì... hì...