Office中国论坛/Access中国论坛

标题: [求助]怎样修改这个程序。 [打印本页]

作者: czji 时间: 2006-9-18 01:52
标题: [求助]怎样修改这个程序。
谢谢各位帮忙。[attach]20375[/attach]

作者: 方漠 时间: 2006-9-18 17:23
看看这是不是你所要的效果？

Sub yy()
Dim i%, nr%
Sheet3.Cells.Clear
K = 1
With Sheet2
sr = IIf(.[a1] = "", .[a1].End(xlDown).Row, 1)
nr = .[a65536].End(xlUp).Row
For i = sr + 2 To nr
Union(.Range("a" & sr & ":f" & sr + 1), .Range("a" & i & ":f" & i)).Copy Sheet3.Cells(K + 1, 1)
Sheet3.Cells(K + 4, 1).Resize(1, 6).Borders(9).LineStyle = xlDashDot
Sheet3.Cells(K, 1).Value = "你好！"
Sheet3.Cells(K + 4, 6).Value = "结束命令"
K = K + 5
Next
End With
End Sub

作者: czji 时间: 2006-9-18 22:27
谢谢方漠朋友，正是我所需要的效果。但是表格增加几个列就不能使用了。修改哪里能把插入的两行字的字体缩小一点？请再帮一次。

[此贴子已经被作者于2006-9-18 14:38:33编辑过]

作者: 方漠 时间: 2006-9-19 18:34
在K=K+5前面插入以下两条语句：

Sheet3.Cells(K, 1).Font.Size = 8
Sheet3.Cells(K + 4, 6).Font.Size = 8上面代码中的1和6分别代表A列和F列，修改其至相应的列即可。

[此贴子已经被作者于2006-9-20 9:37:55编辑过]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)