VB代码每行加下注释，本人不太会VB

mingming912 2011-04-20 08:28:32 


Private Sub CommandButton1_Click()



Set jl_sheet = Sheets("记录表")

Set b_sheet = Sheets("报表")

i3 = 0

x = 0

x1 = 1

For i = 1 To 16

Fo(i) = 0

Low(i) = 0

High(i) = 0

Keep(i) = 0

Next

b_sheet.Cells(1, 5) = "温"

b_sheet.Cells(1, 6) = "度"

b_sheet.Cells(1, 7) = "记"

b_sheet.Cells(1, 8) = "录"

b_sheet.Cells(2, 9) = "编号："

b_sheet.Cells(3, 1) = "时间"

b_sheet.Cells(3, 18) = "最高值"

b_sheet.Cells(3, 19) = "最低值"

b_sheet.Cells(3, 20) = "平均值"

b_sheet.Cells(3, 21) = "差  值"

For i = 2 To 16

i1 = i - 1

b_sheet.Cells(3, i) = "第 " + i1 + "点"

Next

i2 = jl_sheet.[a1].CurrentRegion.Rows.Count

s = jl_sheet.Cells(1, 1)

For i = 2 To i2

x = x + 1

s = jl_sheet.Cells(i - 1, 1)

For j = 2 To 17

temp(j - 1) = jl_sheet.Cells(i - 1, j)

Next

p1 = 0

h = 0

For m = 1 To 16

p1 = p1 + temp(m)

Next

p1 = p1 / 16

For m = 1 To 16

If m = 1 Then

L = temp(m)

ElseIf temp(m) < L Then

L = temp(m)

End If

If temp(m) > h Then

h = temp(m)

End If

Next

If Abs(p1 - L) > Abs(p1 - h) Then

cha = Abs(p1 - L)

Else

cha = Abs(p1 - h)

End If



If (i3 = 0 And p1 > 121) Then

For m = 1 To 12

Low(m) = temp(m)

cha1 = cha

Next

i3 = 1

End If



For m = 1 To 16

If p1 > 121 Then

If Low(m) > temp(m) Then

Low(m) = temp(m)

End If

End If



If High(m) < temp(m) Then

High(m) = temp(m)

End If



If temp(m) >= 121 Then

Keep(m) = Keep(m) + 0.5

End If

If temp(m) > 100 Then

F = (temp(m) - 121) / 10

F = 10 ^ F

F = (0.5 * F)

Fo(m) = Fo(m) + F

End If

Next

For j = 2 To 17

b_sheet.Cells(x1 + 3, 1) = s

b_sheet.Cells(x1 + 3, j) = temp(j - 1)

Next

b_sheet.Cells(x1 + 3, 18) = h

b_sheet.Cells(x1 + 3, 19) = L

b_sheet.Cells(x1 + 3, 20) = p1

b_sheet.Cells(x1 + 3, 21) = cha

x1 = x1 + 1

x = 0







If p1 > 121 Then

If cha > cha1 Then

cha1 = cha

End If

End If

Next





b_sheet.Cells(x1 + 7, 1) = "最高值"

b_sheet.Cells(x1 + 8, 1) = "最低值"

b_sheet.Cells(x1 + 9, 1) = "波动度"

b_sheet.Cells(x1 + 10, 1) = "FH值"

b_sheet.Cells(x1 + 11, 1) = "保温时间"

For i = 1 To 16

i1 = i



b_sheet.Cells(x1 + 6, i + 1) = "第" + i1 + "点"

b_sheet.Cells(x1 + 7, i + 1) = High(i)

b_sheet.Cells(x1 + 8, i + 1) = Low(i)

b_sheet.Cells(i2 + 9, i + 1) = (High(i) - Low(i)) / 2

b_sheet.Cells(x1 + 10, i + 1) = Fo(i)

b_sheet.Cells(x1 + 11, i + 1) = Keep(i)

b_sheet.Cells(i2 + 4, 10) = "最大差值："

b_sheet.Cells(i2 + 4, 14) = cha1

b_sheet.Cells(x1 + 13, 11) = "测试日期："

b_sheet.Cells(x1 + 13, 12) = "2009年01月01日"

Next

UserForm1.Hide



End Sub



Private Sub UserForm_Click()



End Sub

把这个每行代码加下注释，本人不太会VB
...全文
246 24 打赏 收藏 转发到动态 举报
写回复
用AI写文章
24 条回复
切换为时间正序
请发表友善的回复…
发表回复
mingming912 2011-05-17
  • 打赏
  • 举报
 回复
谢谢5楼啊，这是一个美女让做的，自己又不太会。最后还是当天晚上注释了。哈哈
AddDark 2011-05-08
  • 打赏
  • 举报
 回复
看的我很蛋疼
z_wenqian 2011-05-08
  • 打赏
  • 举报
 回复
做人的差距咋这样打呢？
meitouza 2011-05-06
  • 打赏
  • 举报
 回复
你不是帮他,你是坑他 下次他还的发贴子
现在还是人类 2011-05-05
  • 打赏
  • 举报
 回复
[Quote=引用 19 楼 flfq 的回复:]
这年头还有好人啊
[/Quote]
人不知好不好,这种没任何好处的苦力也去做，觉得他脑子倒是坏掉了
flfq 2011-05-05
  • 打赏
  • 举报
 回复
这年头还有好人啊
yoyorll 2011-05-05
  • 打赏
  • 举报
 回复
5楼的太给力了
singer314 2011-05-05
  • 打赏
  • 举报
 回复
5楼少见的好人那,,,5楼,我有个5万多行的代码,困扰我很久了,5楼麻烦您的蛋再疼一次....???
熊孩子开学喽 2011-05-02
  • 打赏
  • 举报
 回复
围观好人. 偶是打酱油的
z_wenqian 2011-04-28
  • 打赏
  • 举报
 回复
不要把别人当成苦力，这是对好人的折磨，对。。。的挖苦，对。。。的讽刺。
ndsc213456789 2011-04-28
  • 打赏
  • 举报
 回复
[Quote=引用 5 楼 xiaolinyouni 的回复:]
好吧,楼主我居然蛋疼的给你注释了一下

VB code

'这是我学编程以来翻译的最蛋疼的一次代码了...

Private Sub CommandButton1_Click()

Set jl_sheet = Sheets("记录表") 'jl_sheet为"记录表"的表单
Set b_sheet = Sheets("报表") 'b_she……
[/Quote]好人哪！
碧海情天-赵亮 2011-04-28
  • 打赏
  • 举报
 回复
VB是最直观最人性的语言。这个不会，什么也别想会。
贝隆 2011-04-24
  • 打赏
  • 举报
 回复
着实不鼓励这样的提问。。。
WJ_CITY 2011-04-24
  • 打赏
  • 举报
 回复
5L V5
boaosi 2011-04-22
  • 打赏
  • 举报
 回复
有好人出手..
ah2025 2011-04-22
  • 打赏
  • 举报
 回复
ah2025 2011-04-22
  • 打赏
  • 举报
 回复
[Quote=引用 5 楼 xiaolinyouni 的回复:]
好吧,楼主我居然蛋疼的给你注释了一下

VB code

'这是我学编程以来翻译的最蛋疼的一次代码了...

Private Sub CommandButton1_Click()

Set jl_sheet = Sheets("记录表") 'jl_sheet为"记录表"的表单
Set b_sheet = Sheets("报表") 'b_she……
[/Quote]

在减肥还是怎么的?
不会编程的财务不是老司机 2011-04-22
  • 打赏
  • 举报
 回复
楼上太给力了。注意身体
不会编程的财务不是老司机 2011-04-21
  • 打赏
  • 举报
 回复
[Quote=引用 1 楼 dbcontrols 的回复:]
同求，呵呵
[/Quote]

赋值大集合是吗？哈哈。编这个的是高人，看不懂！

我也不懂VBA
苦苦的潜行者 2011-04-21
  • 打赏
  • 举报
 回复
好吧,楼主我居然蛋疼的给你注释了一下


'这是我学编程以来翻译的最蛋疼的一次代码了...



Private Sub CommandButton1_Click()



Set jl_sheet = Sheets("记录表")         'jl_sheet为"记录表"的表单

Set b_sheet = Sheets("报表")            'b_sheet为"报表"的表单

i3 = 0

x = 0

X1 = 1                                  '3个变量赋初值

For I = 1 To 16

Fo(I) = 0

Low(I) = 0

High(I) = 0

Keep(I) = 0

Next                                    '给几个长度为16的数组赋初值

b_sheet.Cells(1, 5) = "温"              '记录表的E1内容为"温"

b_sheet.Cells(1, 6) = "度"              '记录表的F1内容为"度"

b_sheet.Cells(1, 7) = "记"              '记录表的G1内容为"记"

b_sheet.Cells(1, 8) = "录"              '记录表的H1内容为"录"

b_sheet.Cells(2, 9) = "编号："          '记录表的I2内容为"编号"

b_sheet.Cells(3, 1) = "时间"            '记录表的A3内容为"时间"

b_sheet.Cells(3, 18) = "最高值"         '记录表的第18列第3行内容为"最高值"

b_sheet.Cells(3, 19) = "最低值"         '记录表的第19列第3行内容为"最低值"

b_sheet.Cells(3, 20) = "平均值"         '记录表的第20列第3行内容为"平均值"

b_sheet.Cells(3, 21) = "差  值"         '记录表的第21列第3行内容为"差值"

For I = 2 To 16

i1 = I - 1

b_sheet.Cells(3, I) = "第 " + i1 + "点"

Next                                    '从"记录表"的第3列的第2行开始,给单元格赋值为"第 i-1点

i2 = jl_sheet.[a1].CurrentRegion.Rows.Count  '给i2赋值为"报表的"A1所在区域的有效行数的最大值(有效行就是有数据的即为有效行)

s = jl_sheet.Cells(1, 1)                    '将报表的A1的内容赋给s



For I = 2 To i2                                 '循环体

x = x + 1

s = jl_sheet.Cells(I - 1, 1)                    's遍历为第一列的的单元格数值

    For j = 2 To 17

        temp(j - 1) = jl_sheet.Cells(I - 1, j)  'temp()数组遍历"报表"中第一行第一列至I2(最后一行)第16列,这个矩形区域的值

    Next

    

    p1 = 0

    h = 0

    For m = 1 To 16

        p1 = p1 + temp(m)                       'p1将temp()的各个字符串连接起来

    Next

    

    p1 = p1 / 16                                'p1重新赋值为p1的16分之一

    

    For m = 1 To 16                             '循环体

        If m = 1 Then

            L = temp(m)                         'm=1时L永远为temp(1)的值,也就是"报表"第一列的值

        ElseIf temp(m) < L Then

            L = temp(m)                         '如果L比temp(m)大,那么将temp(m)赋给L,L为每一行中的最小值

        End If

    If temp(m) > h Then                         '如果temp(m)>h,则赋给h,h为temp(m)中的最大值

        h = temp(m)

    End If

    Next





    If Abs(p1 - L) > Abs(p1 - h) Then           '如果temp(m)的平均值与最大值的差 要比 平均值与最小值的差 大的话

        cha = Abs(p1 - L)                       '把平均值与最大值得差的绝对值赋给cha

    Else

        cha = Abs(p1 - h)                       '同理

    End If



    If (i3 = 0 And p1 > 121) Then               '对于temp(m)的平均值温度大于121

        For m = 1 To 12

            Low(m) = temp(m)                    '那么将该组温度数据赋给low()数组

            cha1 = cha                          'cha1=cha

        Next

    i3 = 1

    End If



    For m = 1 To 16

        If p1 > 121 Then

            If Low(m) > temp(m) Then             '将low()数组一直保持温度数据组的最小数据组

                Low(m) = temp(m)

            End If

        End If



        If High(m) < temp(m) Then                '同上,不过是最大

            High(m) = temp(m)

        End If



        If temp(m) >= 121 Then

            Keep(m) = Keep(m) + 0.5               '如果temp()中值都大于121那么keep()递增0.5

        End If

        If temp(m) > 100 Then                     '如果temp()的值都大约100

            f = (temp(m) - 121) / 10              '这个值就-121然后除以10

            f = 10 ^ f

            f = (0.5 * f)

            Fo(m) = Fo(m) + f                     '这你妹的,能不能一起赋值完啊?Fo(m)=Fo(m)+0.5*10^((temp(m)-121)/10)

        End If

    Next

    

    For j = 2 To 17

        b_sheet.Cells(X1 + 3, 1) = s               '将s值输出在"记录表"的(4,1)

        b_sheet.Cells(X1 + 3, j) = temp(j - 1)     '将temp()的数据输出在"记录表"的第4行第2列至第16列

    Next

    

    b_sheet.Cells(X1 + 3, 18) = h                  '"记录表"的第4行至最后一行+3第18列的值为h ,最高值

    b_sheet.Cells(X1 + 3, 19) = L                  '"记录表"的第4行至最后一行+3第19列的值为L,最低值

    b_sheet.Cells(X1 + 3, 20) = p1                 '"记录表"的第4行至最后一行+3第20列的值为p1,平均值

    b_sheet.Cells(X1 + 3, 21) = cha                ''"记录表"的第4行至最后一行+3第21列的值为cha,差值

    X1 = X1 + 1

    x = 0







    If p1 > 121 Then

        If cha > cha1 Then                          '如果差值超过了cha1,那么保持cha1为最大差值

            cha1 = cha

        End If

    End If

Next





b_sheet.Cells(X1 + 7, 1) = "最高值"

b_sheet.Cells(X1 + 8, 1) = "最低值"

b_sheet.Cells(X1 + 9, 1) = "波动度"

b_sheet.Cells(X1 + 10, 1) = "FH值"

b_sheet.Cells(X1 + 11, 1) = "保温时间"              '文本内容



For I = 1 To 16

    i1 = I



    b_sheet.Cells(X1 + 6, I + 1) = "第" + i1 + "点"

    b_sheet.Cells(X1 + 7, I + 1) = High(I)

    b_sheet.Cells(X1 + 8, I + 1) = Low(I)

    b_sheet.Cells(i2 + 9, I + 1) = (High(I) - Low(I)) / 2

    b_sheet.Cells(X1 + 10, I + 1) = Fo(I)

    b_sheet.Cells(X1 + 11, I + 1) = Keep(I)

    b_sheet.Cells(i2 + 4, 10) = "最大差值："

    b_sheet.Cells(i2 + 4, 14) = cha1

    b_sheet.Cells(X1 + 13, 11) = "测试日期："

    b_sheet.Cells(X1 + 13, 12) = "2009年01月01日"

Next                                               '打印表尾



UserForm1.Hide                                     '隐藏窗口

    

End Sub
加载更多回复（3）
java源码包---java 源码 大量 实例
　Java局域网通信——飞鸽传书源代码，大家都知道VB版、VC版还有Delphi版的飞鸽传书软件，但是Java版的确实不多，因此这个Java文件传输实例不可错过，Java网络编程技能的提升很有帮助。 Java聊天程序，包括服务端和...
给一大段 VB 程序一次性加上注释符号
其实 VB 本身提供了一次性注释多条语句的功能：在主菜单“视图”选项的“工具栏”下，选中“编辑”，VB 的界面会出现一排工具按钮，其中就有用于“设置注释块”和“解除注释块”功能的按钮。选中一块语句，按该按钮...
计算机二级（VB）
计算机二级（VB）教程，全面、系统、细致地介绍了计算机二级（VB）的相关知识点。 课程能够帮助学习者快速入门。 该课程面向对象： 备考计算机二级（VB）的课程 备课期末考试 自学VB程序设计 课程注意提高学习者实战...
VB.NET学习笔记：代码注释、Sub过程和Function函数注释、窗体模块类头文件注释
注释能使你的代码更加容易理解，更多时候注释是写给自己看的，相信我，过不了多长时间你就会把编程的思路忘记，有了注释就能加快你的思路回忆。 一、代码注释 很简单，就是用英文的“’”分号开头，可以单独成行，...
vb标准（二）：代码的注释
·注释能使注释能使代码更加容易理解，更加容易跟踪。·出色的注释就像一幅好的设计蓝图，能够引导阅读者通过你的应用程序的曲折之处，能够说明预期的运行结果和可能出现的异常情况。·编程原则 ·用文字说明代码的...
VBA

2,462

社区成员

10,807

社区内容

发帖
与我相关
我的任务
社区描述
VBA（Visual Basic for Applications）是Visual Basic的一种宏语言，是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。
社区管理员
  • VBA
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章