展开全部
excel表格复制到CAD的方法
太复杂了,三下就行了
1、在EXCEL中选中表格,按CTRL+C
2、打开CAD,按CTRL+V
3、调整其大小并移动到需要位置即可
excel实现自动生成目录
Alt+F11---------插入--------模块--------把下面的代码拷贝到模块中
Sub mulu()
On Error GoTo Tuichu
Dim i As Integer
Dim ShtCount As Integer
Dim SelectionCell As Range
ShtCount = Worksheets.Count
If ShtCount = 0 Or ShtCount = 1 Then Exit Sub
Application.ScreenUpdating = False
For i = 1 To ShtCount
If Sheets(i).Name = "目录" Then
Sheets("目录").Move Before:=Sheets(1)
End If
Next i
If Sheets(1).Name <> "目录" Then
ShtCount = ShtCount + 1
Sheets(1).Select
Sheets.Add
Sheets(1).Name = "目录"
End If
Sheets("目录").Select
Columns("B:B").Delete Shift:=xlToLeft
Application.StatusBar = "正在生成目录…………请等待!"
For i = 2 To ShtCount
ActiveSheet.Hyperlinks.Add Anchor:=Worksheets("目录").Cells(i, 2), Address:="", SubAddress:= _
"’" & Sheets(i).Name & "’!R1C1", TextToDisplay:=Sheets(i).Name
Next
Sheets("目录").Select
Columns("B:B").AutoFit
Cells(1, 2) = "目录"
Set SelectionCell = Worksheets("目录").Range("B1")
With SelectionCell
.HorizontalAlignment = xlDistributed
.VerticalAlignment = xlCenter
.AddIndent = True
.Font.Bold = True
.Interior.ColorIndex = 34
End With
Application.StatusBar = False
Application.ScreenUpdating = True
Tuichu:
End Sub
直接将程序复制过去,运行--用户子过程/用户窗体---搞定
我修正了楼主的程序,经过调试可行,不会出现“引用无效”
Sub mulu()
On Error GoTo Tuichu
Dim i As Integer
Dim ShtCount As Integer
Dim SelectionCell As Range
ShtCount = Worksheets.Count
If ShtCount = 0 Or ShtCount = 1 Then Exit Sub
Application.ScreenUpdating = False
For i = 1 To ShtCount
If Sheets(i).Name = "目录" Then
Sheets("目录").Move Before:=Sheets(1)
End If
Next i
If Sheets(1).Name <> "目录" Then
ShtCount = ShtCount + 1
Sheets(1).Select
Sheets.Add
Sheets(1).Name = "目录"
End If
Sheets("目录").Select
Columns("B:B").Delete Shift:=xlToLeft
Application.StatusBar = "正在生成目录…………请等待!"
For i = 2 To ShtCount
ActiveSheet.Hyperlinks.Add Anchor:=Worksheets("目录").Cells(i, 2), Address:="", SubAddress:= _
"’" & Sheets(i).Name & "’!R1C1", TextToDisplay:=Sheets(i).Name
Next
Sheets("目录").Select
Columns("B:B").AutoFit
Cells(1, 2) = "目录"
Set SelectionCell = Worksheets("目录").Range("B1")
With SelectionCell
.HorizontalAlignment = xlDistributed
.VerticalAlignment = xlCenter
.AddIndent = True
.Font.Bold = True
.Interior.ColorIndex = 34
End With
Application.StatusBar = False
Application.ScreenUpdating = True
Tuichu:
End Sub
我们在输入面积和体积时,经常要输入平方(上标2)和立方(上标3)。在Excel中输入这两个上标,有一个非常简便的方法:
在按住Alt键的同时,按下小键盘上的数字“178”、“179”即可输入“上标2”和“上标3”。
注意:在按住Alt键的同时,试着按小键盘上的一些数字组合(通常为三位),可以得到一些意想不到的字符(例如Alt+137—‰、Alt+177—±等)。
在使用Excel时,首先就需要录入数据,要想让自己数据录得巧、录得省,还是需要掌握不少实用的技巧。
录入技巧
快速填入相同内容
选中多个单元格后,输入字符,然后按Ctrl+Enter组合键,即可在选中的每个单元格中填入上述相同的字符。
快速复制上单元格
选中下面的单元格,按Ctrl+ ’(’为西文的单引号)组合键,即可将上一单元格的内容快速复制下来。
快速输入系统日期
按下Ctrl+;组合键,即可快速输入系统日期。
文本数字输入技巧
一般情况下,在单元格中输入的任何数字,均以“右对齐”格式放置,而且Excel会把综当成数字来处理。如果你要输入文本格式的数字,除了事先将单元格设置为文本格式外,只要在数字前多输一个’(单引号)即可。
分数输入技巧
如果事先将Excel单元格设置为“分数”格式,即可在其中输入2/3.5/6这样的分数数据。除此以外,可以在“常规”单元格中按“0空格分数”的格式输入分数,如输入的“0□2/3 ”(□表示空格)即可显示“2/3”,并按15 位的数字精度进行数据处理。不过,此法输入的分母不能超过99,否则输入结果显示为0。
权
太复杂了,三下就行了
1、在EXCEL中选中表格,按CTRL+C
2、打开CAD,按CTRL+V
3、调整其大小并移动到需要位置即可
excel实现自动生成目录
Alt+F11---------插入--------模块--------把下面的代码拷贝到模块中
Sub mulu()
On Error GoTo Tuichu
Dim i As Integer
Dim ShtCount As Integer
Dim SelectionCell As Range
ShtCount = Worksheets.Count
If ShtCount = 0 Or ShtCount = 1 Then Exit Sub
Application.ScreenUpdating = False
For i = 1 To ShtCount
If Sheets(i).Name = "目录" Then
Sheets("目录").Move Before:=Sheets(1)
End If
Next i
If Sheets(1).Name <> "目录" Then
ShtCount = ShtCount + 1
Sheets(1).Select
Sheets.Add
Sheets(1).Name = "目录"
End If
Sheets("目录").Select
Columns("B:B").Delete Shift:=xlToLeft
Application.StatusBar = "正在生成目录…………请等待!"
For i = 2 To ShtCount
ActiveSheet.Hyperlinks.Add Anchor:=Worksheets("目录").Cells(i, 2), Address:="", SubAddress:= _
"’" & Sheets(i).Name & "’!R1C1", TextToDisplay:=Sheets(i).Name
Next
Sheets("目录").Select
Columns("B:B").AutoFit
Cells(1, 2) = "目录"
Set SelectionCell = Worksheets("目录").Range("B1")
With SelectionCell
.HorizontalAlignment = xlDistributed
.VerticalAlignment = xlCenter
.AddIndent = True
.Font.Bold = True
.Interior.ColorIndex = 34
End With
Application.StatusBar = False
Application.ScreenUpdating = True
Tuichu:
End Sub
直接将程序复制过去,运行--用户子过程/用户窗体---搞定
我修正了楼主的程序,经过调试可行,不会出现“引用无效”
Sub mulu()
On Error GoTo Tuichu
Dim i As Integer
Dim ShtCount As Integer
Dim SelectionCell As Range
ShtCount = Worksheets.Count
If ShtCount = 0 Or ShtCount = 1 Then Exit Sub
Application.ScreenUpdating = False
For i = 1 To ShtCount
If Sheets(i).Name = "目录" Then
Sheets("目录").Move Before:=Sheets(1)
End If
Next i
If Sheets(1).Name <> "目录" Then
ShtCount = ShtCount + 1
Sheets(1).Select
Sheets.Add
Sheets(1).Name = "目录"
End If
Sheets("目录").Select
Columns("B:B").Delete Shift:=xlToLeft
Application.StatusBar = "正在生成目录…………请等待!"
For i = 2 To ShtCount
ActiveSheet.Hyperlinks.Add Anchor:=Worksheets("目录").Cells(i, 2), Address:="", SubAddress:= _
"’" & Sheets(i).Name & "’!R1C1", TextToDisplay:=Sheets(i).Name
Next
Sheets("目录").Select
Columns("B:B").AutoFit
Cells(1, 2) = "目录"
Set SelectionCell = Worksheets("目录").Range("B1")
With SelectionCell
.HorizontalAlignment = xlDistributed
.VerticalAlignment = xlCenter
.AddIndent = True
.Font.Bold = True
.Interior.ColorIndex = 34
End With
Application.StatusBar = False
Application.ScreenUpdating = True
Tuichu:
End Sub
我们在输入面积和体积时,经常要输入平方(上标2)和立方(上标3)。在Excel中输入这两个上标,有一个非常简便的方法:
在按住Alt键的同时,按下小键盘上的数字“178”、“179”即可输入“上标2”和“上标3”。
注意:在按住Alt键的同时,试着按小键盘上的一些数字组合(通常为三位),可以得到一些意想不到的字符(例如Alt+137—‰、Alt+177—±等)。
在使用Excel时,首先就需要录入数据,要想让自己数据录得巧、录得省,还是需要掌握不少实用的技巧。
录入技巧
快速填入相同内容
选中多个单元格后,输入字符,然后按Ctrl+Enter组合键,即可在选中的每个单元格中填入上述相同的字符。
快速复制上单元格
选中下面的单元格,按Ctrl+ ’(’为西文的单引号)组合键,即可将上一单元格的内容快速复制下来。
快速输入系统日期
按下Ctrl+;组合键,即可快速输入系统日期。
文本数字输入技巧
一般情况下,在单元格中输入的任何数字,均以“右对齐”格式放置,而且Excel会把综当成数字来处理。如果你要输入文本格式的数字,除了事先将单元格设置为文本格式外,只要在数字前多输一个’(单引号)即可。
分数输入技巧
如果事先将Excel单元格设置为“分数”格式,即可在其中输入2/3.5/6这样的分数数据。除此以外,可以在“常规”单元格中按“0空格分数”的格式输入分数,如输入的“0□2/3 ”(□表示空格)即可显示“2/3”,并按15 位的数字精度进行数据处理。不过,此法输入的分母不能超过99,否则输入结果显示为0。
权
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2017-02-10 · 知道合伙人互联网行家
关注
展开全部
操作步骤如下:
1、在Excel中填写好表格,然后给表格添加边框线;
2、选中表格区域,单击“复制”按钮或按“Ctrl+C”组合键,将表格复制到粘贴板上。
3、转到CAD,执行“编辑(E)→ 选择性粘贴(S)”,打开选择性粘贴窗口,找到“AutoCAD 图元”并选中它,单击“确定”按钮退出,然后再在合适位置单击左键,即可将Excel表格以矢量格式粘贴过来。至此,基本大功告成。
4、把粘贴过来的Excel表格放大后会发现,表格外边框线参差不齐,影响美观。处理方法:用从右下角到左上角的选择方法选中表格所有的横线(不要选中文字),然后用“移动”命令,即可次性把表格外边框线对齐好。
5、如果要修改表格中的文字,就会发现:原来排得好好的文字现在弄得面目全非,在没有修改文字之前,选中表格(包括所有的文字和边框线),在命令行输入“justifytext”或执行“修改 → 对象 → 文字 → 对正”,然后根据提示选择你所需的文字对齐方式。这样,表格中的文字就能像Word、Excel一个具有强大的文字对齐功能了。
1、在Excel中填写好表格,然后给表格添加边框线;
2、选中表格区域,单击“复制”按钮或按“Ctrl+C”组合键,将表格复制到粘贴板上。
3、转到CAD,执行“编辑(E)→ 选择性粘贴(S)”,打开选择性粘贴窗口,找到“AutoCAD 图元”并选中它,单击“确定”按钮退出,然后再在合适位置单击左键,即可将Excel表格以矢量格式粘贴过来。至此,基本大功告成。
4、把粘贴过来的Excel表格放大后会发现,表格外边框线参差不齐,影响美观。处理方法:用从右下角到左上角的选择方法选中表格所有的横线(不要选中文字),然后用“移动”命令,即可次性把表格外边框线对齐好。
5、如果要修改表格中的文字,就会发现:原来排得好好的文字现在弄得面目全非,在没有修改文字之前,选中表格(包括所有的文字和边框线),在命令行输入“justifytext”或执行“修改 → 对象 → 文字 → 对正”,然后根据提示选择你所需的文字对齐方式。这样,表格中的文字就能像Word、Excel一个具有强大的文字对齐功能了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
在cad设计,为了工作效率,图纸的明细表都会在EXCEL中做好,然后直接导入到哦CAD中使用。那该如何去导入到cad中去呢?下面我就介绍三种方法:
第一种方法:采用【插入】【OLE对象】方法
1、单击工具栏上的【插入】——【OLE对象】,弹出【插入对象】对话框,选取【由文件创建】,单击【浏览】选取excel表格文档,如图
Excel表格导入到CAD
2、单击确定后,excel表格被导入到CAD中,双击表格可回到execl进行编辑,但是此时的显示白色背景,而cad背景是黑色,所有不太美观,但打印出来是不受影响
Excel表格导入到CAD
第二种方法:采用Ctrl+C和Ctrl+V快捷键方法
1、打开Excel,选中表格区域,按下Ctrl+C,然后转到CAD界面,按下Ctrl+V,这样整个表格则被导入CAD中,双击表格回到Excel可进行编辑。
Excel导入CAD
第三种方法:采用CAD表格功能
1、在命令输入行中输入指令“table”,弹出【插入表格】对话框,选取【自数据链接】,如图
Excel表格导入到CAD
2、单击【启动“数据链接管理器”】图标,弹出对话框,【创建新的Excel数据链接】,如图
Excel表格导入到CAD
3、浏览,选取EXCEL文档,如图
如何Excel表格导入到CAD
4、单击三次"确定"按钮,移动光标将表格放到适当位置,最终表格导入的效果,如图
Excel表格导入到CAD
从上述方法,得知此种方法导入后为透明色,美观清晰,修改EXCEL表格内容,CAD中自动更新内容,当然你也可以选中表格,在工具栏中解除关系。
第一种方法:采用【插入】【OLE对象】方法
1、单击工具栏上的【插入】——【OLE对象】,弹出【插入对象】对话框,选取【由文件创建】,单击【浏览】选取excel表格文档,如图
Excel表格导入到CAD
2、单击确定后,excel表格被导入到CAD中,双击表格可回到execl进行编辑,但是此时的显示白色背景,而cad背景是黑色,所有不太美观,但打印出来是不受影响
Excel表格导入到CAD
第二种方法:采用Ctrl+C和Ctrl+V快捷键方法
1、打开Excel,选中表格区域,按下Ctrl+C,然后转到CAD界面,按下Ctrl+V,这样整个表格则被导入CAD中,双击表格回到Excel可进行编辑。
Excel导入CAD
第三种方法:采用CAD表格功能
1、在命令输入行中输入指令“table”,弹出【插入表格】对话框,选取【自数据链接】,如图
Excel表格导入到CAD
2、单击【启动“数据链接管理器”】图标,弹出对话框,【创建新的Excel数据链接】,如图
Excel表格导入到CAD
3、浏览,选取EXCEL文档,如图
如何Excel表格导入到CAD
4、单击三次"确定"按钮,移动光标将表格放到适当位置,最终表格导入的效果,如图
Excel表格导入到CAD
从上述方法,得知此种方法导入后为透明色,美观清晰,修改EXCEL表格内容,CAD中自动更新内容,当然你也可以选中表格,在工具栏中解除关系。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询