如何调整从EXCEL中复制到CAD中的表
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 Sh...全部
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。
权。收起
