帮忙加个注释 50奉上

[Cain0]

小弟没学过VB，哪位大哥帮忙加个注释
注释尽量详细点，谢谢谢谢

Sheets("昌平区报表").Select
For i = 4 To 61
s = "=SUM(" & Worksheets(1).Name & ":妇幼!B" & i & ")"
Sheets("昌平区报表").Range("B" & i).FormulaArray = s
Next

Dim m, i As Integer
Dim n, s, bm As String
定义变量


Private Sub crgzb()
Dim mydir As String
 Dim b As Byte
 Dim StrFind, n, s As String
 Dim rng As Range
 Dim i, j As Integer
    
 
 '计算月
m = Month(Now)
If m = 1 Then
s = "12月生物制品"
Else
m = m - 1
s = m & "月生物制品"
End If
 
 
 Windows("生物制品月报表（区）.xls").Activate
 Sheet1.Select
 
 '查找当前目录中的xls文件
    b = 1
    Range("A:A").ClearContents
    mydir = Dir(ThisWorkbook.Path & "\*.xls", vbNormal)
    Do While mydir <> ""
        Cells(b, 1) = mydir
        mydir = Dir
        b = b + 1
    Loop



 '查找指定的文件名
 For i = 1 To 43
    StrFind = Sheet1.Cells(i, 2)
        With Sheet1.Range("A1:A64")
            Set rng = .Find(What:=StrFind, _
                            After:=.Cells(.Cells.Count), _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)
            If Not rng Is Nothing Then
                Select Case StrFind
                  Case "2009年生物制品、接种月报表（昌平区医院）.xls"
                  qyy (s)  '调用插入区医院工作过程，S某月工作表名
                  
                  Case "2009年生物制品、接种月报表（十三陵社区卫生服务中心）.xls"
                  ssl (s)  '调用插入十三陵工作过程

[ACMAIN_CHM]

建议你先自己试着解释一下这个存储过程，否则别人也根本不知道你目前已经懂了什么，到什么层次，到底是哪儿不懂。

写出你自己的理解，然后让别人来看你的理解是否正确。 否则别人解释过简单你还是理解不了，解释得过细，可能又是根本不必要。

[cqq_chen]

excel的vba，到vba区去问

[贝隆]

飘过

[东方之珠]

一行一行地看都看不懂吗？？

[Cain0]

[Quote=引用 1 楼 acmain_chm 的回复:]
建议你先自己试着解释一下这个存储过程，否则别人也根本不知道你目前已经懂了什么，到什么层次，到底是哪儿不懂。

写出你自己的理解，然后让别人来看你的理解是否正确。 否则别人解释过简单你还是理解不了，解释得过细，可能又是根本不必要。
[/Quote]
囧~别人给的程序，没学过VB，不懂啊——！

[Cain0]

[Quote=引用 4 楼 chenjl1031 的回复:]
一行一行地看都看不懂吗？？
[/Quote]
囧囧~ 是，请大哥帮忙 m( _　_ )m　

[孤独剑_LPZ]

每行都看不懂吗

[Cain0]

[Quote=引用 7 楼 asftrhgjhkjlkttttttt 的回复:]
每行都看不懂吗
[/Quote]
是，请给位大人帮忙 不用太详细 具体过程有就行
函数我可以自己Google
谢谢大家

[特别]

要是这样的话，比较难
[Quote=引用 5 楼 cain0 的回复:]
引用 1 楼 acmain_chm 的回复:
建议你先自己试着解释一下这个存储过程，否则别人也根本不知道你目前已经懂了什么，到什么层次，到底是哪儿不懂。

写出你自己的理解，然后让别人来看你的理解是否正确。 否则别人解释过简单你还是理解不了，解释得过细，可能又是根本不必要。

囧~别人给的程序，没学过VB，不懂啊——！
[/Quote]

[Cain0]

[Quote=引用 9 楼 sdfkfkd 的回复:]
要是这样的话，比较难
[/Quote]
只要帮忙解释下哪块实现什么功能就行了 谢谢大家m( _　_ )m

[特别]

貌似你这代码贴的也不全啊
[Quote=引用 10 楼 cain0 的回复:]
引用 9 楼 sdfkfkd 的回复:
要是这样的话，比较难

只要帮忙解释下哪块实现什么功能就行了 谢谢大家m( _　_ )m
[/Quote]

[Cain0]

[Quote=引用 11 楼 sdfkfkd 的回复:]
貌似你这代码贴的也不全啊
[/Quote]
额~别人就给了我这个——！

[liguicd]