在行政事业单位内部控制诊断过程中，需要将诊断结果以ＰＤＦ格式输出.结果发现，输出的ＰＤＦ行高不能完全显示ＥＸＣＥＬ单元格的内容。于是想在ＥＸＣＥＬ中，自动给当前的行高增加8.以确保在ＰＤＦ中完全显示。
相关代码如下，学习者可以理解属性的设置，请着重理解加粗的代码：
Sub 行高调整()
'将当前工作表用ＳＨ表示
Dim SH As Worksheet
Set SH =ActiveSheet
'声明一个变量，找当前表的最后一行的行号
Dim N As Integer
N =SH.Range("A65536").End(xlUp).Row
'声明两个整数型变量，用来定义行高
Dim RH As Integer
Dim RH2 As Integer
RH2 =40 '将一般的行高定义为40
'循环测试每行的行高，将值给ＲＨ
For R= 4 To N Step 1
RH = SH.Cells(R, 1).RowHeight
'如果测试的行高高于40，则每行行高+8；
If RH >= RH2 Then
RH2 = RH + 8
SH.Cells(R, 1).RowHeight = RH2
'行高调整后，再将初始值恢复到40
RH2 = 40
End If
Next'执行下一个Ｒ
End Sub
工具篇：制度分析诊断工具基本操作要点
财务建模：自动获取上市公司报表数据的报表分析工具（教学模型）
|
|
转播
