作者:电脑信息网日期:
返回目录:设置问题
用VBA,复制下列代码到VBE中,执行宏即可.Sublx()IfRange("A1")""ThenActiveSheet.PageSetup.PrintArea="$A$1:$B$2"ElseIfRange("C1")=""ThenMsgBox"弄不清楚zd你要搞什么!条件不内清楚!!C1没数据时要让哪个打印容?"ElseIfRange("E1")""ThenActiveSheet.PageSetup.PrintArea="$A$1:$B$2,$E$1:$F$2"EndIfEndSub同时答2楼,在两个区域间用逗号隔开就行.
Excel所谓的自动调整行高是使原本过高的复单元格缩小,使其适应内容,接下来我们看一看这一制EXCEL的基本操作。
1.首先我们选择自己想设置的表格区域。
2.然后点击上方的开始。
3.接着点击格式右侧的小知箭头。
4.在下拉列表中,我们选择自动调整行高功能。道
5.然后在左侧的页面可以看到,内容都经过自动调整了。
按ALT+F11,进百入VBE,选择度Staves表,复制下面的代码问。答。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$J$2" Or Target.Address = "$K$2" Then
Dim i
With ThisWorkbook.Sheets("Staves")
For i = 11 To 790
If .Cells(i, 1).Value = "" Then
Exit For
End If
Next
.PageSetup.PrintArea = "$A$1:$K$" & i - 1
End With
End If
End Sub
这样你该J2,K2,点打印预览就内可以打印了容