UC知道用VB编EXCEL的宏：应用程序定义的或对象定义的错误
来源：百度知道 编辑：UC知道 时间：2024/05/26 11:58:56
Sub Macro3()
'
' Macro3 Macro
' 宏由 zxr 录制，时间: 2006-11-24
'
' 快捷键: Ctrl+q
Dim x As Integer
Dim y As Integer
x = 1
For y = 1 To 30
Rows("x:x").Select （运行到这里，就出现：应用程序定义的或对象定义的错误）
Selection.RowHeight = 46.5
Rows("x+1:x+4").Select
Selection.RowHeight = 23.25
Rows("x+5:x+39").Select
Selection.RowHeight = 17.25
' ActiveWindow.SmallScroll Down:=27
Rows("x+40:x+40").Select
Selection.RowHeight = 30.75
Rows("x+41:x+41").Select
Selection.RowHeight = 14.25
x = x + 42
Next y
End Sub
谁最好帮我编一下，谢谢
我是想把那些行都设成相应的行高！！
'
' Macro3 Macro
' 宏由 zxr 录制，时间: 2006-11-24
'
' 快捷键: Ctrl+q
Dim x As Integer
Dim y As Integer
x = 1
For y = 1 To 30
Rows("x:x").Select （运行到这里，就出现：应用程序定义的或对象定义的错误）
Selection.RowHeight = 46.5
Rows("x+1:x+4").Select
Selection.RowHeight = 23.25
Rows("x+5:x+39").Select
Selection.RowHeight = 17.25
' ActiveWindow.SmallScroll Down:=27
Rows("x+40:x+40").Select
Selection.RowHeight = 30.75
Rows("x+41:x+41").Select
Selection.RowHeight = 14.25
x = x + 42
Next y
End Sub
谁最好帮我编一下，谢谢
我是想把那些行都设成相应的行高！！
需要加Worksheets("XXX").Activate
试试看：下面是清空2-100行的
Worksheets("sheet1").Activate
With ActiveSheet
.Rows("2:100").Select
Selection.ClearContents
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Selection.Interior.ColorIndex = xlNone
End With