VBA注释

edfed

最近找到一张对工作比较有帮助的VBA程序，在模块1中，本人对VBA了解较少，想参考这表自己做一个，希望论坛上的各位人才能够帮助下小弟，帮忙把这个VBA程序进行一下注释，最好是一条条注释，也好让小弟能够便于改编 导入表2.rar (22.04 KB, 下载次数: 11)

2018-8-20 16:19 上传

点击文件名下载附件

lsc900707

少数几句注释一下差不多，从头到尾的话可能大多数人不愿意！

iwangyi

Sub makenewplan()                       ' 程序名称为makenewplan（制作新计划）
    Dim thissheet As Worksheet '''''''''将thissheet 声明为工作表
    Dim plansheet As Worksheet         '将 plansheet 声明为工作表
    Dim i As Integer                   '将I 声明为整数变量
    Dim j As Integer                    '将J 声明为整数变量
    Dim n As Long                       '将N声明为长整型变量
    Dim z As Variant                     '将S声明任意数据类型
    Dim k As Integer                     '将K 声明为整数变量
    Dim thisrange As Range               '将thisrange声明为单元格对象
   
    Set thissheet = Worksheets("plan")   '将PLAN工作表赋给thissheet对角
    Set plansheet = Worksheets("weekplan") '将weekplan工作表赋给plansheet对角
    i = 6                                  '将6赋给变量I
    j = 11                                 '将11赋给变量J
    z = 1000                               '将1000赋给变量Z
    k = 0                                  '将0赋给变量K
   
   Do While i < z                          'DO 外循环   I从7到999
     Do While j <= 100                      'DO 内循环   J从11到100
        n = plansheet.Cells(i, j)           '将单元格 plansheet.Cells(i, j)的值赋给N
         
        If n > 0 Then                      '  当 N大于0时 则
            Set thisrange = Range(plansheet.Cells(i, 2), plansheet.Cells(i, 10))    ' 将单元格区域Range(plansheet.Cells(i, 2), plansheet.Cells(i, 10))赋给thisrange
            plansheet.Activate                                         '激活 plansheet工作表
            thisrange.Copy thissheet.Cells(k + 2, 2)         '将单元格区域thisrange复制到以hissheet.Cells(k + 2, 2)为左上角起点
            thissheet.Cells(k + 2, 11) = n                   '将N值赋给thissheet.Cells(k + 2, 11)单元格
            thissheet.Cells(k + 2, 12) = plansheet.Cells(5, j)  '将单元格plansheet.Cells(5, j)值赋给 thissheet.Cells(k + 2, 12)单元格
            j = j + 1                                           '在满足N>0的情况下，对J进行+1累加
            k = k + 1                                           '在满足N>0的情况下，对K进行+1累加
        Else                                                     '否则
            j = j + 1                                            '对J进行+1累加
        End If                                                   '对应 IF 条件语句
        
      Loop                                                      '对应内 DO循环语句
      i = i + 1                                                 '满足外循环While i < z时对I进行+1累加
      j = 11                                                   '满足外循环While i < z 时将11赋给J
    Loop                                                         '对应外 DO循环语句'
End Sub                                                      ' 对应Sub makenewplan() 结束

iwangyi

大体这样理解一下，DO While Loop两层循环，一层循环为行循环，一层循环为列循环，行列循环变量条件为起始行列结束行，起始列到结束列。内外循环将数据区域遍历。

edfed

iwangyi 发表于 2018-8-20 22:40
大体这样理解一下，DO While Loop两层循环，一层循环为行循环，一层循环为列循环，行列循环变量条件为起始 ...

非常感谢                              

iwangyi

不客气，代码注释本来就是出力不讨好的事，由于对问题全面了解客观比较困难，解释不到位，不正确包函。仅作参考即可