[接龙...]部分程序代码注释，目录更新20051222

Long_III

65、根据12个月里的明细资料来汇总总表。数量会根据品名自动增加。 本来代码是为朋友写的，后来修改了部分成这样，虽然后来想想可以简洁，不过还能马马虎虎用，因为代码主要部分还是蛮不错的，大家可以看看，帮忙测试测试。 cCaLT5W3.rar (35.33 KB, 下载次数: 149)

2005-12-23 17:41 上传

点击文件名下载附件

） 关于数组的这个问题，可以参考此贴http://club.excelhome.net/dispbbs.asp?boardID=2&ID=141973&page=1“测试 数组与工作表函数的调用” 附注："测试 数组与工作表函数的调用"帖子的9楼，解决了第一个数组代码在2000里不能运行的问题，大家可以自己看看，修改一下代码。

[此贴子已经被作者于2005-12-26 8:58:52编辑过]

孤灯残酒

非常感谢Long_III，可以说说步骤是怎么做出来的吗，真的要拜你为老师了

再次谢谢，真的！认识你真好！

Long_III

66、按插入行数来自动小计、累计。简单做了一个例子，算提供一种思路。 oNFx9NgW.rar (23.83 KB, 下载次数: 126)

2005-12-22 14:23 上传

点击文件名下载附件
[接龙...]部分程序代码注释，在一楼增加目录20051102

Private Sub 分页汇总_Click() Dim i%, m%, ic%, k%, T Application.ScreenUpdating = False T = Int(Val(InputBox("请输入你要插入的行数"))) If T <= 0 Then Exit Sub irow = [b65536].End(xlUp).Row ic = Application.RoundUp((irow - iStar) / T, 0) '可以说是插入的次数，根据这个次数来依次插入 For i = 1 To ic k = i * T + iStar + 1 + m '每插入一次就重新计算应该插入的行 Rows(k).Insert Shift:=xlDown Cells(k, 1) = "本页小计" '这里可以随便设置自己想要的公式 Cells(k, 2) = "=subtotal(9," & Cells(k, 2).Offset(-T, 0).Resize(T, 1).Address(0, 0) & ")" m = m + 1 Next Cells(k + 1, 1) = "累计" Cells(k + 1, 2) = "=subtotal(9," & Cells(k, 2).Offset(-k + iStar + 1, 0).Resize(k - iStar, 1).Address(0, 0) & ")" End Sub

lj1226189

楼上关于统计12个月的作品太好了！尽管有了注释，但还是有点看不懂，龙三老师能否注释详细一点啊！ 看到龙三老师的作品就有一种非要弄懂的冲动！因为他出手的都就是精品！

午夜狂风

好地方啊

午夜狂风

VBA中的HELP文件很有用，建议初学都多看看。下面就是其中的一个帮助。

本示例为第一个图表设置前景色、背景色和图表区域填充的渐变。

With Charts(1).ChartArea.Fill
    .Visible = True
    .ForeColor.SchemeColor = 15
    .BackColor.SchemeColor = 17
    .TwoColorGradient msoGradientHorizontal, 1
End With

午夜狂风

单元格的不同表示方法：：

下面的示例对工作表 Sheet1 中的同一单元格地址使用了四种不同的表达方式。示例中的注释为将要显示于消息框中的地址。

Set mc = Worksheets("Sheet1").Cells(1, 1)
MsgBox mc.Address()                              ' $A$1
MsgBox mc.Address(RowAbsolute:=False)            ' $A1
MsgBox mc.Address(ReferenceStyle:=xlR1C1)        ' R1C1
MsgBox mc.Address(ReferenceStyle:=xlR1C1, _
    RowAbsolute:=False,     _
    ColumnAbsolute:=False,  _
    RelativeTo:=Worksheets(1).Cells(3, 3))        ' R[-2]C[-2]

午夜狂风

本示例为第一张工作表上的第一张嵌入图表添加图表标题，然后设置标题的字体大小和背景类型。本示例假定图表在第一张工作表上。

Sub UseBackground()

    With Worksheets(1).ChartObjects(1).Chart
        .HasTitle = True
        .ChartTitle.Text = "Rainfall Totals by Month"
        With .ChartTitle.Font
            .Size = 10
            .Background = xlBackgroundTransparent
        End With
    End With

End Sub

午夜狂风

各位兄弟，由于我也是菜手，所以程序的每行注解我就不写了，相信大家会看懂的，因为都有是VBA的基础东西。

午夜狂风

CELL 属性

本示例将 Sheet1 中单元格 C5 的字体大小设置为 14 磅。

Worksheets("Sheet1").Cells(5, 3).Font.Size = 14
		

本示例清除 Sheet1 上第一个单元格的公式。

Worksheets("Sheet1").Cells(1).ClearContents
		

本示例将 Sheet1 上所有单元格的字体设置为 8 磅的“Arial”字体。

With Worksheets("Sheet1").Cells.Font
    .Name = "Arial"
    .Size = 8
End With
		

本示例在 Sheet1 上的单元格区域 A1:J4 中循环，将其中小于 0.001 的值替换为 0（零）。

For rwIndex = 1 to 4
    For colIndex = 1 to 10
        With Worksheets("Sheet1").Cells(rwIndex, colIndex)
            If .Value < .001 Then .Value = 0
        End With
    Next colIndex
Next rwIndex
		

本示例将 Sheet1 上单元格区域 A1: C5 的字体样式设置为斜体。

Worksheets("Sheet1").Activate
Range(Cells(1, 1), Cells(5, 3)).Font.Italic = True
		

本示例搜索列“myRange”中的数据。如果发现某单元格的值与上面的一个单元格的值相等，则本示例将显示这个包含重复数据的单元格的地址。

Set r = Range("myRange")
For n = 1 To r.Rows.Count
    If r.Cells(n, 1) = r.Cells(n + 1, 1) Then
        MsgBox "Duplicate data in " & r.Cells(n + 1, 1).Address
    End If
Next n
		

1. &lt;SCRIPT language=JScript src="mk:@msitstore:msohlp11.chm::/html/ofvbanl.js" type=text/javascript&gt;<br><br>&lt;/script&gt;

复制代码