Sử Dụng VBA Trong AutoCad để Liên Kết Với Excel

• Trang chủ Có gì mới Hoạt động gần nhất Tác giả
• Diễn đàn Tìm bài viết mới Tìm theo chuyên mục
• Video Video về Excel Video về tin học khác Tin tức về tin học chung
• Thông tin mới Featured content Tìm bài mới Tài Nguyên Mới Hoạt động gần nhất
• Tài nguyên Đánh giá mới nhất Tìm tài nguyên
• Facebook
• Đóng góp

Đăng nhập Đăng Ký Có gì mới? Tìm kiếm

Tìm kiếm

Mọi nơi Đề tài Diễn đàn này Đề tài này Chỉ tìm trong tiêu đề Note Bởi: Tìm kiếm Tìm nâng cao…

• Tìm bài viết mới
• Tìm theo chuyên mục

Menu Đăng nhập Đăng Ký Install the app Install How to install the app on iOS

Follow along with the video below to see how to install our site as a web app on your home screen.

Note: This feature may not be available in some browsers.

• Khách ơi! GPE thông tin đến bạn ấn phẩm "lập trình VBA trong Excel": - Phần cơ bản - Phần Nâng Cao - VBA trong Excel - Cải thiện và tăng tốc

• Trang chủ
• Diễn đàn
• Lập Trình với Excel

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. Sử dụng VBA trong AutoCad để liên kết với Excel (1 người xem)

• Thread starter Thread starter PhanTuHuong
• Ngày gửi Ngày gửi 18/3/07

Người dùng đang xem chủ đề này

Đang trực tuyến: 2 (Thành viên: 0, Khách: 2)

PhanTuHuong

VBA & VB.NET for Excel & AutoCad

Thành viên danh dự Tham gia 13/6/06 Bài viết 7,238 Được thích 24,774 Trong lĩnh vực kỹ thuật như trắc địa, địa chất, xây dựng, giao thông, kiến trúc, chế tạo máy,... phần mền AutoCad được sử dụng rất phổ biến. Bạn có thể sử dụng VBA trong Excel để vẽ các đối tượng hình học trong AutoCad như chủ đề đã có. Và tại sao ta lại không thể làm ngược lại?! Bạn hãy sử dụng ngôn ngữ VBA trong AutoCad để thực hiện công việc đó. Nếu bạn đã biết VBA trong Excel thì cũng nhanh chóng học được VBA trong AutoCad. Để dễ dàng so sánh giữa chúng, tôi xin giới thiệu 2 thủ tục để mở AutoCad từ Excel và ngược lại: Mã: Sao chép. Sub Mo_AutoCad() Dim AcaDApp As Object On Error Resume Next Set AcadApp = GetObject(, "AutoCAD.Application") If Err <> 0 Then Err.Clear KT = True Set AcadApp = CreateObject("AutoCAD.Application") End If AppActivate AcadApp.Caption AcadApp.Visible = True Set AcadApp = Nothing End Sub Mã: Sao chép. Sub Mo_Excel() Dim ExcelApp As Object On Error Resume Next Set ExcelApp = GetObject(, "Excel.Application") If Err <> 0 Then Err.Clear Set ExcelApp = CreateObject("Excel.Application") End If ExcelApp.Visible = True AppActivate ExcelApp.Caption ExcelApp.Workbooks.Add Set ExcelApp = Nothing End Sub Sắp xếp theo thời gian sắp xếp theo bầu chọn B

bkxd98

Thành viên mới

Tham gia 2/8/06 Bài viết 15 Được thích 26 Xác định tọa độ các điểm trong Acad Bác PhanThuHuong có vẻ quan tâm đến việc chuyển dữ liệu qua lại giữa acad và excel, hưởng ứng với bác là tiện ích xác định tọa độ các điểm trong acad, số liệu có thể xuất thẳng ra acad hay excel Cách dùng : file lisp dùng để load macro này lên, các bác phải chép 2 file này vào thư mục có đường dẫn trong option-files-support file search path Lỗi : nếu các bác chọn là xuất ra excel mà hiện chưa đang mở chương trình excel thì chạy đến lần thứ chẳng (2, 4, 6, ...) thì chương trình sẽ treo, bạn phải nhấn ctrl-break để tạm thoát ra chương trình và bật task manager lên và end task processes là excel, lần chạy kế sẽ bình thường, nhưng lần tiếp nữa (lần chẳng) sẽ bị nữa, hơi lạ hả các bác tôi cũng không hiểu nguyên tại sao, nếu bác PhanThuHuong hay bác nào quan tâm vui lòng xem giúp nguyên nhân tại sao (tôi có ghi chú dòng lệnh gây ra lỗi trên trong source) --> cách khắc phục : các bác bật excel lên rồi chạy tiện ích trên thì không có vấn đề gì. Mong nhận được sự quan tâm, trau đổi và hướng dẫn của các bác. Thân.

File đính kèm

• Xac dinh toa do diem trong Acad.zip Xac dinh toa do diem trong Acad.zip 36.4 KB · Đọc: 3,236

Upvote 0

PhanTuHuong

VBA & VB.NET for Excel & AutoCad

Thành viên danh dự Tham gia 13/6/06 Bài viết 7,238 Được thích 24,774 Tôi đã xem qua Project của anh, phải công nhận là tác giả có kiến thức về VBA for AutoCad rất giỏi. Tôi chưa có thời gian để test nhiều lần nhưng tôi nghĩ chương trình hoạt động tốt, có thể lỗi là do lỗi tràn bộ nhớ. Các biến đối tượng thủ của anh không đặt là Nothing khi chạy xong thủ tục (để giải phóng bộ nhớ cho Window). Việc chạy nhiều thủ tục như vậy dễ gây tràn bộ nhớ, đặc biệt là đối tượng ExcelApp chiếm bộ nhớ khá lớn. Anh thử bổ sung xem sao. -------- Ngoài lề 1 chút (se xóa sau): Tôi có mấy anh bạn làm trong Tedy South nhưng làm về lĩnh vực địa chất như anh Tuấn Anh, anh Tú (mới chuyển đi cùng cả vợ), anh Hòa tầm trên 30 tuổi. Đều người Bắc cả. Upvote 0

PhanTuHuong

VBA & VB.NET for Excel & AutoCad

Thành viên danh dự Tham gia 13/6/06 Bài viết 7,238 Được thích 24,774 Vấn đề liên kết (binding) và chuyển đổi số liệu giữa Excel và AutoCad là rất hay và tiện lợi. Công việc này rất phù hợp với những nghề nghiệp có sử dụng đến cả 2 phần mềm trên như các ngành kỹ thuật đã nêu. Bản thân VBA trong 2 phần mềm hoạt động khá giống nhau, chỉ khác là đối tượng. Vì vậy với những người đã biết về VBA for Excel thì học sang AutoCad cũng nhanh thôi... - Excel: đối tượng là Cell, Range, worksheet, chart,... - AutoCad: đối tượng là đoạn thằng, cung tròn, vòng tròn, polyline, chữ, lớp,... Bạn nào có quan tâm thì nên nghiên cứu phát triển. Upvote 0 T

thanhlamct82

Thành viên mới

Tham gia 12/3/07 Bài viết 6 Được thích 1 Tôi là một người cũng rất quan tâm tới vấn về chuyễn đổi dữ liệu qua lại giữa exel va CAD, bởi vì tôi cũng làm trong nghề kỹ thuật. Cảm ơn bác PhanTuHuong đã gửi cho tôi file vẽ đoạn thảng trong CAD lấy toạ độ từ Exel. Nhưng bác PhanTuHuong ơi sao tôi chạy mà đoạn thẳng cũ không bị xoá đi, máy tôi cài cả CAD14 và CAD2004 khi chạy thì chương trình lại gọi CAD14, CAD2004 chẳng thấy động tĩnh gì. Tôi đang nghiên cứu VBA for CAD, mong các bác giúp đỡ . Upvote 0 B

bkxd98

Thành viên mới

Tham gia 2/8/06 Bài viết 15 Được thích 26

PhanTuHuong đã viết: có thể lỗi là do lỗi tràn bộ nhớ. Các biến đối tượng thủ của anh không đặt là Nothing khi chạy xong thủ tục (để giải phóng bộ nhớ cho Window). Việc chạy nhiều thủ tục như vậy dễ gây tràn bộ nhớ, đặc biệt là đối tượng ExcelApp chiếm bộ nhớ khá lớn. Nhấp chuột vào đây để mở rộng...

Cách này không được, nó vẫn xảy ra lỗi trên , cái tiện ích nhỏ này do lúc đầu đang nghiên cứu vb nên viết để học, thực ra nó còn một số bất tiện nếu các bác dùng sẽ thấy (nhưng dùng vẫn bình thường ), vấn đề này có thể dùng lisp khá nhỏ gọn hơn. Nghe anh PhanTuHuong nói chắc là anh trên 30t? em thì 27t. Chắc là bạn anh làm bên xí nghiệp đường bộ, em thì làm bên xí nghiệp cầu đường, Việc chuyển đổi dữ liệu qua lại giữa excel và acad, theo tôi nghĩ nếu các bác có kiến thức về lập trình và biết một chút về VB thì cứ tham khảo 2 bài viết Chuyển dữ liệu từ Excel sang AutoCad để vẽ và bài này là có thể hình dung được cách khai báo các đối tượng, ..., ngay cả bác muốn tự động thay đổi số liệu bên excel thì bên acad tự thay đổi / vẽ theo hay ngược lại thì mình chỉ cần xử lý biến cố dữ liệu thay đổi ..._change bên excel, trong đó cập nhật / vẽ lại đối tượng bên acad hay ngược lại. Cũng khá lâu rồi không có viết gì, nay đọc được một số bài của anh PhanTuHuong thì tự nhiên có "cảm hứng" lại . Lúc trước, đang tự học vb viết được một số cái tiện ích nhỏ, nảy sinh ý nghĩ sao không viết một cái gì đó lớn hơn. Tôi có ý tưởng này : 1 phần mềm vẽ bố trí chung cầu nhịp giản đơn, số liệu đầu vào là một đường tự nhiên vẽ đúng cao độ (trong acad) và tỷ lệ 1/10, tĩnh không thông thuyền, loại dầm, số lượng nhịp, khổ cầu, độ dốc ngang cầu, các thông số xác định đường đỏ (cao độ đỉnh cầu, bán kính đường cong đứng, độ dốc 2 bên cầu, ...). Chương trình sẽ đưa ra một số lựa chọn kết cấu trụ, ..., tự xác định cao độ đáy bệ trụ, mố, tim cầu, cho phép người dùng chọn lại ... Kết quả xuất ra là bản vẽ bố trí chung cầu, mố trụ, khối lượng. Hướng phát triển là có thể vẽ cả bộ hồ sơ cầu. Tôi thấy nó cũng có khả thi, thuật toán thì tôi cũng hình dung sơ bộ có thể giải quyết được, nhưng làm thì tốn nhiều thời gian quá. Tôi cũng đã viết sơ bộ được đoạn xếp dầm vào đường đỏ, rồi dừng lại đến bây giờ. Upvote 0

PhanTuHuong

VBA & VB.NET for Excel & AutoCad

Thành viên danh dự Tham gia 13/6/06 Bài viết 7,238 Được thích 24,774

thanhlamct82 đã viết: Cảm ơn bác PhanTuHuong đã gửi cho tôi file vẽ đoạn thảng trong CAD lấy toạ độ từ Exel. Nhưng bác PhanTuHuong ơi sao tôi chạy mà đoạn thẳng cũ không bị xoá đi, máy tôi cài cả CAD14 và CAD2004 khi chạy thì chương trình lại gọi CAD14, CAD2004 chẳng thấy động tĩnh gì. Tôi đang nghiên cứu VBA for CAD, mong các bác giúp đỡ . Nhấp chuột vào đây để mở rộng...

Để gọi AutoCad nào ra thì bạn chú ý khai báo trong Tools/References của cửa sổ VBE. Còn trong trường hợp để xóa đoạn thẳng thì chỉ có tác dụng khi bạn đang mở Excel và AutoCad thôi, còn đã đóng vào thì không được vì biến đối tượng lúc đó sẽ bị mất đi. Upvote 0

PhanTuHuong

VBA & VB.NET for Excel & AutoCad

Thành viên danh dự Tham gia 13/6/06 Bài viết 7,238 Được thích 24,774 Tôi thấy để mở ứng dụng Excel từ AutoCad bằng:

Set AcadApp = CreateObject("AutoCAD.Application") ExcelApp.Visible = True AppActivate ExcelApp.Caption ExcelApp.Workbooks.Add Nhấp chuột vào đây để mở rộng...

thì thấy thường chậm hơn khá nhiều khi mình khởi động trực tiếp từ bên ngoài. Nhờ các cao thủ giải thích giúp nhé. Upvote 0 D

duongsatdn

Thành viên tiêu biểu

Tham gia 15/6/07 Bài viết 455 Được thích 393 Tôi đã tìm được tài liệu này. Lần chỉnh sửa cuối: 16/7/07 Upvote 0

LearnExcel

Thành viên thường trực

Tham gia 7/8/06 Bài viết 292 Được thích 519 Theo tôi, cần xác định rõ tính chất ứng dụng, Nếu tính toán dạng bảng nhiều thì chạy CAD từ Excel, còn thiên về vẽ hay xử lý ví dụ như cắt, Union, tính Volume phức tạp thì chạy VBA trong CAD khỏe hơn rỗi xuất dữ liệu ra EXCEL, thậm chí file text cũng được mà. Còn thì CAD ngốn tài nguyên nhiều hơn Excel, có lẽ chậm??? Upvote 0

PhanTuHuong

VBA & VB.NET for Excel & AutoCad

Thành viên danh dự Tham gia 13/6/06 Bài viết 7,238 Được thích 24,774 Tôi nghĩ là do việc khởi tại CreatObject hạn chế phân vùng bộ nhớ trong Window, còn khởi động trực tiếp AutoCad trong Window thì ngon. Upvote 0 T

tuan49xd5

Thành viên mới

Tham gia 13/10/07 Bài viết 1 Được thích 0 Em mới viết trang web này được một ngày. Những vấn đề trong đây rất là hay.Nhưng quả thật em chưa biết một chút gì về lập trình VB.Hiện nay em rất muốn vẽ tập hợp các điểm = lệnh po. Toạ độ các điểm được xuất từ excel sang.Các anh có thể hướng dẫn một cách cụ thể nhất được không Upvote 0

PhanTuHuong

VBA & VB.NET for Excel & AutoCad

Thành viên danh dự Tham gia 13/6/06 Bài viết 7,238 Được thích 24,774 Muốn hiểu được công việc này, bạn phải tìm hiểu về VB, VBA cái đã. Còn các ví dụ liên quan thì đã có nhiều ví dụ rồi. Upvote 0 B

bbtt

Thành viên mới

Tham gia 23/11/07 Bài viết 1 Được thích 0 Cho Tôi hỏi các bạn, để xác định hàng cuối cùng chứa dữ liệu trong Excell thi dung ham gi trong VB? Upvote 0

PhanTuHuong

VBA & VB.NET for Excel & AutoCad

Thành viên danh dự Tham gia 13/6/06 Bài viết 7,238 Được thích 24,774

bbtt đã viết: Cho Tôi hỏi các bạn, để xác định hàng cuối cùng chứa dữ liệu trong Excell thi dung ham gi trong VB? Nhấp chuột vào đây để mở rộng...

Bạn nghiên cứu Application.WorksheetFunction.Tên hàm trong VBA nhé. Upvote 0

SONGBA

Thành viên mới

Tham gia 24/10/06 Bài viết 48 Được thích 240 Mình sử dụng autocad2007, mình tải file" Xac dinh toa do diem trong autocad " về và chép 2 file này vào thư mục có đường dẫn trong option-files-support file search path nhưng khi đánh lệnh tdd thì autocad báo lỗi không biết lỗi chr() là lỗi gì và cách khắc phục như thế nào? Thanks Upvote 0

tigertiger

Coming back ...

Tham gia 25/1/07 Bài viết 1,941 Được thích 1,907 Hàm chr(10) là trả về khoảng trắng Nếu thế thì bạn thử thay & chr(10) & bằng & " " & xem được không???, nếu không thì là lỗi khác Upvote 0 N

Nguyen Nhat Minh

Thành viên mới

Tham gia 17/12/07 Bài viết 2 Được thích 0 Nghề nghiệp giao vien Bạn kiểm tra xem đối tượng đó có chấp nhận khoảng trắng ko? Nếu được thì post phần code lên? Upvote 0

tigertiger

Coming back ...

Tham gia 25/1/07 Bài viết 1,941 Được thích 1,907

tigertiger đã viết: Hàm chr(10) là trả về khoảng trắng Nếu thế thì bạn thử thay & chr(10) & bằng & " " & xem được không???, nếu không thì là lỗi khác Nhấp chuột vào đây để mở rộng...

Hoặc bạn xóa lun đoạn này PHP: Sao chép. ..................... & chr(10) & ............ Thế nhé Upvote 0 D

duyhung_sam

Thành viên mới

Tham gia 20/3/08 Bài viết 2 Được thích 0

bkxd98 đã viết: Bác PhanThuHuong có vẻ quan tâm đến việc chuyển dữ liệu qua lại giữa acad và excel, hưởng ứng với bác là tiện ích xác định tọa độ các điểm trong acad, số liệu có thể xuất thẳng ra acad hay excel Cách dùng : file lisp dùng để load macro này lên, các bác phải chép 2 file này vào thư mục có đường dẫn trong option-files-support file search path Lỗi : nếu các bác chọn là xuất ra excel mà hiện chưa đang mở chương trình excel thì chạy đến lần thứ chẳng (2, 4, 6, ...) thì chương trình sẽ treo, bạn phải nhấn ctrl-break để tạm thoát ra chương trình và bật task manager lên và end task processes là excel, lần chạy kế sẽ bình thường, nhưng lần tiếp nữa (lần chẳng) sẽ bị nữa, hơi lạ hả các bác tôi cũng không hiểu nguyên tại sao, nếu bác PhanThuHuong hay bác nào quan tâm vui lòng xem giúp nguyên nhân tại sao (tôi có ghi chú dòng lệnh gây ra lỗi trên trong source) --> cách khắc phục : các bác bật excel lên rồi chạy tiện ích trên thì không có vấn đề gì. Mong nhận được sự quan tâm, trau đổi và hướng dẫn của các bác. Thân. Nhấp chuột vào đây để mở rộng...

Lỗi:> can't find project or library rồi tự động mở ct microsoft Visual basic! ?? Upvote 0 D

duyhung_sam

Thành viên mới

Tham gia 20/3/08 Bài viết 2 Được thích 0 Nguyên văn bởi tigertiger Hàm chr(10) là trả về khoảng trắng Nếu thế thì bạn thử thay & chr(10) & bằng & " " & xem được không???, nếu không thì là lỗi khác

tigertiger đã viết: Hoặc bạn xóa lun đoạn này PHP: Sao chép. ..................... & chr(10) & ............ Thế nhé Nhấp chuột vào đây để mở rộng...

Mình thử thay " & chr(10) & bằng & " " & chạy lại thì xuất hiện bảng> nhưng khi thay đổi các thông số trong bảng thì lại báo lỗi! VD tỷ lệ bản vẽ 1/10 thay bằng 1/100 thì lại báo lỗi can't find project or library >>> If Mid(Txt, i, 1) = "." Then Upvote 0 T

trandung52

Thành viên mới

Tham gia 24/1/10 Bài viết 1 Được thích 0 sao chuyên mục này dừng tại đây nhỉ ? đang quan tâm mong các pro tiếp tục.... --> Upvote 0 H

hùng bệu

Thành viên mới

Tham gia 31/10/11 Bài viết 2 Được thích 0 cảm ơn các bác đã giúp đỡ, nhưng e muốn chuyển excel sang autocad với phông và chữ hoàn toàn của autocad có được không các bác. mong các bác giúp đỡ . Upvote 0 B

bravery10

Thành viên mới

Tham gia 2/4/10 Bài viết 11 Được thích 2 Em sử dụng đoạn mã mở Autocad bằng Excel trước đây thì nó chạy đúng, bây h chạy thi nó báo là "Microsoft Excel is waiting for another application to complete an OLE action" bây h em xử lý thế nào cho nó chạy đúng hả anh? Nếu như mở cad rồi thì nó chạy được nội dung phần sau, tức là lỗi ở câu lệnh Set AcadApp = CreateObject("AutoCAD.Application") Upvote 0

PhanTuHuong

VBA & VB.NET for Excel & AutoCad

Thành viên danh dự Tham gia 13/6/06 Bài viết 7,238 Được thích 24,774

bravery10 đã viết: Em sử dụng đoạn mã mở Autocad bằng Excel trước đây thì nó chạy đúng, bây h chạy thi nó báo là "Microsoft Excel is waiting for another application to complete an OLE action" bây h em xử lý thế nào cho nó chạy đúng hả anh? Nếu như mở cad rồi thì nó chạy được nội dung phần sau, tức là lỗi ở câu lệnh Set AcadApp = CreateObject("AutoCAD.Application") Nhấp chuột vào đây để mở rộng...

Lỗi này bí hiểm (thỉnh thoảng mới bị thôi-thế mới mệt), tôi cũng chưa tìm ra. Điều khiển Excel từ AutoCad hoặc ngược lại, từ VB6 với Excel... cũng bị vậy. Upvote 0 B

bravery10

Thành viên mới

Tham gia 2/4/10 Bài viết 11 Được thích 2

PhanTuHuong đã viết: Lỗi này bí hiểm (thỉnh thoảng mới bị thôi-thế mới mệt), tôi cũng chưa tìm ra. Điều khiển Excel từ AutoCad hoặc ngược lại, từ VB6 với Excel... cũng bị vậy. Nhấp chuột vào đây để mở rộng...

Em viết VBA bằng Excel 2010 64bit, sau đó cài lại bản 32bit rồi chạy VBA trên thì lỗi bây h cài lại bản 64 bit nó lại chạy bình thường, không lỗi gì cả. Chắc vấn đề là cái file DLL của 2 bản khác nhau. Upvote 0

PhanTuHuong

VBA & VB.NET for Excel & AutoCad

Thành viên danh dự Tham gia 13/6/06 Bài viết 7,238 Được thích 24,774

bravery10 đã viết: Em viết VBA bằng Excel 2010 64bit, sau đó cài lại bản 32bit rồi chạy VBA trên thì lỗi bây h cài lại bản 64 bit nó lại chạy bình thường, không lỗi gì cả. Chắc vấn đề là cái file DLL của 2 bản khác nhau. Nhấp chuột vào đây để mở rộng...

Theo tôi nghĩ lỗi này không phải do 32 hay 64 bít vì trường hợp này đã bị từ lâu rồi (tôi chỉ dùng các bản 32 bit thôi), và thỉnh thoảng mới báo lỗi chứ không phải liên tục. Upvote 0 T

tranduyphucvt

Thành viên mới

Tham gia 21/9/11 Bài viết 9 Được thích 0 Chuyen bang tinh ễcl sang cad

PhanTuHuong đã viết: Trong lĩnh vực kỹ thuật như trắc địa, địa chất, xây dựng, giao thông, kiến trúc, chế tạo máy,... phần mền AutoCad được sử dụng rất phổ biến. Bạn có thể sử dụng VBA trong Excel để vẽ các đối tượng hình học trong AutoCad như chủ đề đã có. Và tại sao ta lại không thể làm ngược lại?! Bạn hãy sử dụng ngôn ngữ VBA trong AutoCad để thực hiện công việc đó. Nếu bạn đã biết VBA trong Excel thì cũng nhanh chóng học được VBA trong AutoCad. Để dễ dàng so sánh giữa chúng, tôi xin giới thiệu 2 thủ tục để mở AutoCad từ Excel và ngược lại: Mã: Sao chép. Sub Mo_AutoCad() Dim AcaDApp As Object On Error Resume Next Set AcadApp = GetObject(, "AutoCAD.Application") If Err <> 0 Then Err.Clear KT = True Set AcadApp = CreateObject("AutoCAD.Application") End If AppActivate AcadApp.Caption AcadApp.Visible = True Set AcadApp = Nothing End Sub Mã: Sao chép. Sub Mo_Excel() Dim ExcelApp As Object On Error Resume Next Set ExcelApp = GetObject(, "Excel.Application") If Err <> 0 Then Err.Clear Set ExcelApp = CreateObject("Excel.Application") End If ExcelApp.Visible = True AppActivate ExcelApp.Caption ExcelApp.Workbooks.Add Set ExcelApp = Nothing End Sub [/QUOTE nhờ các cao thủ viết cho một đoạn mã chuyển (link để sửa dữ liệu bên excel thi bên cad tu cập nhật, không phải dán ) bảng tính excel sang autocad mà nền excel tương thích với nền Autocad. vì mình link bang tinh sang autocad thì có màu trắng không đẹp khi định dạng màu cho bảng tính excel màu đen cho cùng màu autocad thi in ra giấy có màu đen. thanks mấy cao thủ trước Nhấp chuột vào đây để mở rộng...

Upvote 0 D

dinhvantrang

Thành viên mới

Tham gia 17/8/11 Bài viết 2 Được thích 0 Các bác cho em hỏi,việc liên kết giữa Cad và Excel thì rất tiện,nhưng hiện nay em muốn dùng VBA để đọc dữ liệu trong file .txt thì bác nào có tài liệu hướng dẫn hay ví dụ nho nhỏ có thể đưa lên cho em tham khảo dc không vậy. Rất cảm ơn mọi người! Upvote 0

puppystyle

Thành viên mới

Tham gia 3/1/13 Bài viết 2 Được thích 0 Nghề nghiệp chưa bíc đc >.<

PhanTuHuong đã viết: Trong lĩnh vực kỹ thuật như trắc địa, địa chất, xây dựng, giao thông, kiến trúc, chế tạo máy,... phần mền AutoCad được sử dụng rất phổ biến. Bạn có thể sử dụng VBA trong Excel để vẽ các đối tượng hình học trong AutoCad như chủ đề đã có. Và tại sao ta lại không thể làm ngược lại?! Bạn hãy sử dụng ngôn ngữ VBA trong AutoCad để thực hiện công việc đó. Nếu bạn đã biết VBA trong Excel thì cũng nhanh chóng học được VBA trong AutoCad. Để dễ dàng so sánh giữa chúng, tôi xin giới thiệu 2 thủ tục để mở AutoCad từ Excel và ngược lại: Mã: Sao chép. Sub Mo_AutoCad() Dim AcaDApp As Object On Error Resume Next Set AcadApp = GetObject(, "AutoCAD.Application") If Err <> 0 Then Err.Clear KT = True Set AcadApp = CreateObject("AutoCAD.Application") End If AppActivate AcadApp.Caption AcadApp.Visible = True Set AcadApp = Nothing End Sub Mã: Sao chép. Sub Mo_Excel() Dim ExcelApp As Object On Error Resume Next Set ExcelApp = GetObject(, "Excel.Application") If Err <> 0 Then Err.Clear Set ExcelApp = CreateObject("Excel.Application") End If ExcelApp.Visible = True AppActivate ExcelApp.Caption ExcelApp.Workbooks.Add Set ExcelApp = Nothing End Sub Nhấp chuột vào đây để mở rộng...

bác hướng dẫn hay thì hay thật nhưng vs những ng chỉ vừa mới đc tiếp xúc với CAD và còn chưa bao giờ nghe tới VBA như em thì chả hiểu 1 tí gì luôn >.< bây giờ em đang muốn chuyển 1 vài biểu đồ từ excel qa CAD hoặc các bảng số liệu từ excel qa để tự vẽ cũng đc mà muốn bắt trc mà cũng khó + khổ qá ( Lần chỉnh sửa cuối: 6/1/13 Upvote 0

PhanTuHuong

VBA & VB.NET for Excel & AutoCad

Thành viên danh dự Tham gia 13/6/06 Bài viết 7,238 Được thích 24,774

puppystyle đã viết: bác hướng dẫn hay thì hay thật nhưng vs những ng chỉ vừa mới đc tiếp xúc với CAD và còn chưa bao giờ nghe tới VBA như em thì chả hiểu 1 tí gì luôn >.< bây giờ em đang muốn chuyển 1 vài biểu đồ từ excel qa CAD hoặc các bảng số liệu từ excel qa để tự vẽ cũng đc mà muốn bắt trc mà cũng khó + khổ qá ( Nhấp chuột vào đây để mở rộng...

Ít nhất là bạn phải đọc cái tiêu đề thì mới phàn nàn nhé, đã không biết thì phải học, sao lại kêu ca??? Upvote 0

puppystyle

Thành viên mới

Tham gia 3/1/13 Bài viết 2 Được thích 0 Nghề nghiệp chưa bíc đc >.<

PhanTuHuong đã viết: Ít nhất là bạn phải đọc cái tiêu đề thì mới phàn nàn nhé, đã không biết thì phải học, sao lại kêu ca??? Nhấp chuột vào đây để mở rộng...

thì mỗi lần này chắc động vào 1 tí thôi còn sau này chắc gì đã động nữa học rồi lại quên bác ak , trí nhớ e kém lắm e chỉ viết đơn giản về CAD vs excel thôi, chứ có đi sâu vào đâu mà biết đc tường cả bên trong vs cái quan hệ của nó, bác cũng tl khó e qá >.< Upvote 0 T

toilatoi123

Thành viên mới

Tham gia 15/4/10 Bài viết 1 Được thích 0 Chào các anh. Em cũng làm bên xây dựng, thấy chủ đề này thiết yếu quá. Em cũng có 1 file xin được link số liệu từ excel qua cad, nhưng lại chỉ cho được qua cad 2007 mà không qua được 2018 Nhờ các bác chỉ nguyên nhân dùm em được không ạ Upvote 0 Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

Bài viết mới nhất

Nếu diễn đàn GPE đóng cửa?

• • 
  • 

• PhanTuHuong
• Chủ nhật lúc 23:46
• Thư giãn

Trả lời 16 Đọc 391 Hôm qua, lúc 23:28 PhanTuHuong

• Đã giải quyết

WeatherXL - Ứng dụng lấy dữ liệu Thời tiết siêu nhanh (***Đang phát triển lại) (2 người xem)

• • 
  • 

• HeSanbi
• 30/5/20
• Lập Trình với Excel

Trả lời 92 Đọc 27K Hôm qua, lúc 19:57 Maika8008 P Lỗi hàm VBA phải add-in sau mỗi lần mở file

• phamdinh.huy.aladin@gmail
• Thứ hai lúc 10:18
• Hàm và công thức Excel

Trả lời 5 Đọc 133 Hôm qua, lúc 13:59 phamdinh.huy.aladin@gmail P K Các nút Buttom, Combobox, Textbox bị thay đổi kích thước ...

• kaoehtkid
• Thứ hai lúc 19:04
• Những vấn đề chung

Trả lời 4 Đọc 90 Hôm qua, lúc 13:49 ptm0412 D

• Question Question

Tách dòng tự động theo điều kiện bằng VBA

• • 

• duongnhuxuyen
• Thứ sáu lúc 15:39
• Lập Trình với Excel

Trả lời 14 Đọc 281 Hôm qua, lúc 09:00 ptm0412

• Question Question

Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba (2 người xem)

• • 
  • 
  • 

• ongke0711
• 6/10/24
• Lập Trình với Excel

4 5 6 Trả lời 580 Đọc 82K Hôm qua, lúc 08:39 pycckuu410 E

• Đã giải quyết

VBA code thay thế cho pivot-table lấy top 10, bottom 10

• • 

• eagle12
• 8/12/25
• Lập Trình với Excel

Trả lời 24 Đọc 502 Thứ hai lúc 16:19 eagle12 E Thuật ngữ "Đối chiếu Unicode" quan trọng trong việc xử lý chuỗi ký tự

• HeSanbi
• Thứ bảy lúc 15:41
• Xử lý chuỗi ký tự

Trả lời 1 Đọc 143 Thứ hai lúc 10:34 jonythanht J D Xin giúp.......Kết hợp countifs và Sumproduct để đếm dữ liệu và tính số lượng tổng không trùng lặp với nhiều điều kiện

• dieppk.nb92
• Chủ nhật lúc 01:22
• Hàm và công thức Excel

Trả lời 10 Đọc 306 Thứ hai lúc 08:43 dieppk.nb92 D H tìm kiếm nội dung liên kết giữa cac bảng , cac sheet trong excel

• H_P
• Thứ bảy lúc 14:23
• Tìm kiếm, dò tìm và tham chiếu

Trả lời 2 Đọc 113 Thứ hai lúc 05:30 DeTong D N Công thức trích xuất riêng các ký tự trong chuỗi họ tên

• Ngựa con 2002
• Thứ bảy lúc 23:07
• Xử lý chuỗi ký tự

Trả lời 7 Đọc 138 Chủ nhật lúc 18:57 Ngựa con 2002 N Q Nhờ các chị cho em xin công thức đếm bản ghi loại bỏ dữ liệu trùng lặp với nhiều điều kiện

• QUANSUNG
• Thứ bảy lúc 10:55
• Hàm và công thức Excel

Trả lời 2 Đọc 134 Chủ nhật lúc 00:02 dungpham01 D Cùng xây dựng file Gia Phả

• • 

• huuthang_bd
• 30/12/13
• Xây dựng ứng dụng.

Trả lời 36 Đọc 21K Thứ bảy lúc 16:15 le_vis L D Công thức tính thuế thu nhập cá nhân mới nhất theo mức 5 bậc

• Dinh Hong Nhung
• Thứ năm lúc 10:36
• Hàm và công thức Excel

Trả lời 14 Đọc 746 Thứ bảy lúc 10:43 Cúc Hr C CHỌN VÀ SỬ DỤNG MÁY LỌC KHÔNG KHÍ

• • 
  • 

• PhanTuHuong
• 4/10/22
• Thư giãn

Trả lời 8 Đọc 2K Thứ bảy lúc 00:09 PhanTuHuong D

• Question Question

IN TỰ ĐỘNG TỪ DỮ LIỆU CÓ SẴN

• duongnhuxuyen
• 12/11/25
• Lập Trình với Excel

Trả lời 14 Đọc 477 Thứ sáu lúc 19:42 duongnhuxuyen D V Biểu diễn số đếm theo hình vẽ từ Shape (1 người xem)

• Vũ Hải Sơn
• 2/12/25
• Hàm và công thức Excel

Trả lời 34 Đọc 736 Thứ sáu lúc 15:31 Vũ Hải Sơn V T Xử lý lỗi xuất hiện màu cam khi chọn 1 ô trong excel. (1 người xem)

• Thúy Sa
• Thứ năm lúc 17:17
• Những vấn đề chung

Trả lời 1 Đọc 115 Thứ năm lúc 20:29 Maika8008 L

• Question Question

Tạo ComboBox để tìm kiếm tên

• lyvanthang
• Thứ năm lúc 10:36
• Lập Trình với Excel

Trả lời 4 Đọc 214 Thứ năm lúc 20:26 HUONGHCKT H T Điên đầu vì Countif

• TVT230279
• 5/12/25
• Hàm và công thức Excel

Trả lời 5 Đọc 290 Thứ năm lúc 11:30 87kilua Xem thêm… Chia sẻ: Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

Thành viên có số lượng bài viết cao nhất tháng

• Maika8008 33
• thanthanhan 19
• dungpham01 18
• eagle12 16
• ongke0711 16
• nguyenanhtruong2409 14
• Phan Thế Hiệp 12
• HUONGHCKT 12
• vic_it 11
• ptm0412 11
• nhhnam 10
• pycckuu410 10
• Vũ Hải Sơn 9
• HeSanbi 8
• bsbnhh 7
• Gà Con yêu VBA 7
• Hana2610 6
• dieppk.nb92 6
• duongnhuxuyen 6
• Mr.hieudoanxd 5

Thành viên có điểm tương tác cao nhất tháng

• Phan Thế Hiệp 63
• Maika8008 26
• ongke0711 17
• thanthanhan 16
• ptm0412 15
• HeSanbi 12
• HUONGHCKT 9
• dungpham01 9
• Cúc Hr 8
• eagle12 8
• dieppk.nb92 6
• befaint 5
• Mr.hieudoanxd 5
• pycckuu410 5
• SA_DQ 4
• nguyenanhtruong2409 4
• Phuocam 4
• nhhnam 2
• Gà Con yêu VBA 2
• huuthang_bd 2

Thời gian đếm ngược.

000 Ngày 00 Giờ 00 phút 00 giây Thân mời tham dự sự kiện sinh nhật GPE 2025

• Trang chủ
• Diễn đàn
• Lập Trình với Excel

• Website này sử dụng cookies. Tiếp tục sử dụng trang này, đồng nghĩa với việc bạn chấp nhận website sử dụng cookies. Chấp nhận Tìm hiểu thêm.…

Back Top Bottom