请会VB的朋友帮我看看并解答一下，可能代码有点长，但我把问题注出来了。

guguda 2002-12-18 03:42:29
问题也在下边了，我用"//"注出来了。请帮我看看。帮我解释一下。谢谢。
----------------------------------------------------------------------------------------
这是在EXCEL里加的BUTTON
Private Sub CommandButton1_Click()
Call Spread_MAN //调用Spread_MAN函数

Worksheets("MAN Label").Range("A1:I525").Copy //我认为是COPY man label工作表的A1:I525
ActiveSheet.Range("A271").PasteSpecial _ //粘贴到当然工作SHEET的A271
SkipBlanks:=True //这句是什么意思？

End Sub
---------------------------------------------------------------------------------------------
'anchor = "B240"
'anchor2 = "A252"
'products = 40
'table_spacing = 3
'layers = 11

Function Test(p_num) //定义了TEST函数 ()里的P_NUM是什么意思？
p_index = p_num

Call fills_first(p_index)
' B118 means start point
Range("B248").Select //这句不太明白，SELECT了B248什么？
ActiveCell.Offset(0, p_index - 1).Range("A1").Select //这句不太明白
For j = 1 To 11 //我想知道这个for完成了什么工作？
Range("B248").Select
ActiveCell.Offset(j, p_index - 1).Range("A1").Select
' ActiveCell.Offset(1, 0).Range("A1").Select
If ActiveCell.Value = 0 Then
aa = 1 //这里的aa是个什么东西？aa不定事先定义吗？
Else
n_value = ActiveCell.Value
Call fills(n_value, j)
End If
b_value = ActiveCell.Value
Next
loop_count = p_index
' fixed_change_rows means distance between the table
fixed_change_rows = 44
' tmp matrix start point
tmp_matrix_row = 272
tmp_matrix_col = 2

' capacity matrix start point
capacity_row = 184
capacity_col = 2

' consumption materix start point
consumption_row = 35
consumption_col = 2


d_factor = Cells(capacity_row + p_index - 1, capacity_col + p_index - 1).Value
'Change 11 to whatever number to change column size
For j_1 = 1 To 11 //我想知道这个for完成了什么工作
'B283 = tmp_matrix start point
Cells(tmp_matrix_row, tmp_matrix_col).Select //这是SELECT了什么？
' Range("B283").Select
' ActiveCell.Offset(fixed_change_rows * loop_count, j_1 - 1).Range("A1").Select
ActiveCell.Offset(fixed_change_rows * loop_count, p_index - 1).Range("A1").Select
'Change 40 to whatever number to change row size
For i_1 = 1 To 40
' temp_value = ActiveCell.Offset(-1 * fix_change_rows * loop_count, 0).Range("A1").Value
temp_value = Cells(tmp_matrix_row + i_1 - 1, tmp_matrix_col + j_1 - 1).Value * Cells(capacity_row + loop_count - 1, capacity_col + j_1 - 1).Value * Cells(consumption_row + i_1 - 1, consumption_col + loop_count - 1).Value
If (temp_value) <> 0 Then //这个for完成了什么工作
' Cells(tmp_matrix_row + fix_change_rows * loop_count, tmp_matrix_col + fix_change_rows * loop_count).Value = temp_value
ActiveCell.Value = temp_value
End If
ActiveCell.Offset(1, 0).Range("A1").Select
Next
Next

For i_2 = 1 To p_index - 1
m_factor = Cells(capacity_row + p_index - 1, capacity_col + i_2 - 1).Value
Cells(tmp_matrix_row, tmp_matrix_col).Select
ActiveCell.Offset(fixed_change_rows * loop_count, i_2 - 1).Range("A1").Select
For i_3 = 1 To 40
If m_factor <> 0 Then
temp_value_1 = (Cells(tmp_matrix_row + (fixed_change_rows * loop_count) + i_3 - 1, tmp_matrix_col + p_index - 1).Value / d_factor) * m_factor //这里是不是进行了一个VALUE的计算？
If (temp_value_1) <> 0 Then
ActiveCell.Value = temp_value_1
End If
End If
ActiveCell.Offset(1, 0).Range("A1").Select
Next
Next
End Function
Function do_it(j_value, xx)
Range("B248").Select
ActiveCell.Offset(0, xx - 1).Range("A1").Select
For k = 1 To 11
ActiveCell.Offset(1, 0).Range("A1").Select
If ActiveCell.Value = 0 Then
aa = 1
Else
n_value = ActiveCell.Value * j_value
row_number = ActiveCell.Row
col_number = ActiveCell.Column
Call fills(n_value, k)
Range("A1").Select
ActiveCell.Offset(row_number - 1, col_number - 1).Range("A1").Select
End If
Next
End Function
Function fills(p_value, p_x)
pp_x = p_x
b_value = p_value
'Arrow table start point
major_row = 208
major_col = 2
Range("A272").Select
ActiveCell.Offset(0, pp_x).Range("A1").Select
For i = 1 To 40
' a_value = ActiveCell.Offset(0, -18).Range("A1").Value
a_value = Cells(major_row + i - 1, major_col + pp_x - 1).Value
If (a_value * b_value) <> 0 Then
ActiveCell.Value = a_value * b_value
End If
ActiveCell.Offset(1, 0).Range("A1").Select
Next
Call do_it(b_value, p_x)
End Function
Function fills_first(p_y)
pp_y = p_y
' Range("A252").Select
' ActiveCell.Offset(0, pp_y).Range("A1").Select
major_row = 208
major_col = 2
For n_1 = 1 To pp_y
Range("A272").Select
ActiveCell.Offset(0, n_1).Range("A1").Select
For i = 1 To 40
c_value = Cells(major_row + i - 1, major_col + n_1 - 1).Value
If (c_value) <> 0 Then
ActiveCell.Value = c_value
End If
ActiveCell.Offset(1, 0).Range("A1").Select
Next
Next
End Function
Sub Spread_MAN()
For loop_1 = 1 To 11 //这里的loop是什么？
Call Test(loop_1) //Test(loop_1) 是做什么用的？
Next
'Call Test(1)
End Sub
...全文
41 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
NewType 2002-12-19
  • 打赏
  • 举报
 回复
Private Sub CommandButton1_Click()
Call Spread_MAN //调用Spread_MAN函数

Worksheets("MAN Label").Range("A1:I525").Copy //我认为是COPY man label工作表的A1:I525
ActiveSheet.Range("A271").PasteSpecial _ //粘贴到当然工作SHEET的A271
SkipBlanks:=True //这句是什么意思？
'上面是控制excel的宏，"MAN Label"的A1-I525 复制到 A271
'SkipBlanks:=True 应该是
ActiveSheet.Range("A271").PasteSpecial SkipBlanks:=True ( 一行太长协作两行，用"_"来连接)
'（粘贴时忽略空单元）
End Sub
-----------------------
'anchor = "B240"
'anchor2 = "A252"
'products = 40
'table_spacing = 3
'layers = 11

Function Test(p_num) //定义了TEST函数 ()里的P_NUM是什么意思？
'p_num 参数啊，只不过没有类型，默认valiant，8字节
p_index = p_num

Call fills_first(p_index)
' B118 means start point
Range("B248").Select //这句不太明白，SELECT了B248什么？
'选了Excel表B248单元格（这是宏）
ActiveCell.Offset(0, p_index - 1).Range("A1").Select //这句不太明白
'我也不太明白，可能是相对位移，以当前光标为原点，位移到Offset(0, p_index - 1)，位移后的点为A1点，就是选中位移后的点（在excel上试）
For j = 1 To 11 //我想知道这个for完成了什么工作？
'选中B248，位移，测试单元格，根据单元格是否为0，执行...
Range("B248").Select
ActiveCell.Offset(j, p_index - 1).Range("A1").Select
' ActiveCell.Offset(1, 0).Range("A1").Select
If ActiveCell.Value = 0 Then
aa = 1 //这里的aa是个什么东西？aa不定事先定义吗？
'没办法，VB变量时可以不用定义的，虽然习惯不是很好
'没定义的变量系统自动定义为Variant,供8字节
Else
n_value = ActiveCell.Value
Call fills(n_value, j)
End If
b_value = ActiveCell.Value
Next
loop_count = p_index
' fixed_change_rows means distance between the table
fixed_change_rows = 44
' tmp matrix start point
tmp_matrix_row = 272
tmp_matrix_col = 2

' capacity matrix start point
capacity_row = 184
capacity_col = 2

' consumption materix start point
consumption_row = 35
consumption_col = 2


d_factor = Cells(capacity_row + p_index - 1, capacity_col + p_index - 1).Value
'Change 11 to whatever number to change column size
For j_1 = 1 To 11 //我想知道这个for完成了什么工作
'B283 = tmp_matrix start point
Cells(tmp_matrix_row, tmp_matrix_col).Select //这是SELECT了什么？
'选中Excel单元格Cells(tmp_matrix_row, tmp_matrix_col).Select
' Range("B283").Select
' ActiveCell.Offset(fixed_change_rows * loop_count, j_1 - 1).Range("A1").Select
ActiveCell.Offset(fixed_change_rows * loop_count, p_index - 1).Range("A1").Select
'Change 40 to whatever number to change row size
For i_1 = 1 To 40
' temp_value = ActiveCell.Offset(-1 * fix_change_rows * loop_count, 0).Range("A1").Value
temp_value = Cells(tmp_matrix_row + i_1 - 1, tmp_matrix_col + j_1 - 1).Value * Cells(capacity_row + loop_count - 1, capacity_col + j_1 - 1).Value * Cells(consumption_row + i_1 - 1, consumption_col + loop_count - 1).Value
If (temp_value) <> 0 Then //这个for完成了什么工作
'给单元格赋值--〉移到下一个单元格--〉给单元格赋值
' Cells(tmp_matrix_row + fix_change_rows * loop_count, tmp_matrix_col + fix_change_rows * loop_count).Value = temp_value
ActiveCell.Value = temp_value
End If
ActiveCell.Offset(1, 0).Range("A1").Select
Next
Next

For i_2 = 1 To p_index - 1
m_factor = Cells(capacity_row + p_index - 1, capacity_col + i_2 - 1).Value
Cells(tmp_matrix_row, tmp_matrix_col).Select
ActiveCell.Offset(fixed_change_rows * loop_count, i_2 - 1).Range("A1").Select
For i_3 = 1 To 40
If m_factor <> 0 Then
temp_value_1 = (Cells(tmp_matrix_row + (fixed_change_rows * loop_count) + i_3 - 1, tmp_matrix_col + p_index - 1).Value / d_factor) * m_factor //这里是不是进行了一个VALUE的计算？
'是的
If (temp_value_1) <> 0 Then
ActiveCell.Value = temp_value_1
End If
End If
ActiveCell.Offset(1, 0).Range("A1").Select
Next
Next
End Function
Function do_it(j_value, xx)
Range("B248").Select
ActiveCell.Offset(0, xx - 1).Range("A1").Select
For k = 1 To 11
ActiveCell.Offset(1, 0).Range("A1").Select
If ActiveCell.Value = 0 Then
aa = 1
Else
n_value = ActiveCell.Value * j_value
row_number = ActiveCell.Row
col_number = ActiveCell.Column
Call fills(n_value, k)
Range("A1").Select
ActiveCell.Offset(row_number - 1, col_number - 1).Range("A1").Select
End If
Next
End Function
Function fills(p_value, p_x)
pp_x = p_x
b_value = p_value
'Arrow table start point
major_row = 208
major_col = 2
Range("A272").Select
ActiveCell.Offset(0, pp_x).Range("A1").Select
For i = 1 To 40
' a_value = ActiveCell.Offset(0, -18).Range("A1").Value
a_value = Cells(major_row + i - 1, major_col + pp_x - 1).Value
If (a_value * b_value) <> 0 Then
ActiveCell.Value = a_value * b_value
End If
ActiveCell.Offset(1, 0).Range("A1").Select
Next
Call do_it(b_value, p_x)
End Function
Function fills_first(p_y)
pp_y = p_y
' Range("A252").Select
' ActiveCell.Offset(0, pp_y).Range("A1").Select
major_row = 208
major_col = 2
For n_1 = 1 To pp_y
Range("A272").Select
ActiveCell.Offset(0, n_1).Range("A1").Select
For i = 1 To 40
c_value = Cells(major_row + i - 1, major_col + n_1 - 1).Value
If (c_value) <> 0 Then
ActiveCell.Value = c_value
End If
ActiveCell.Offset(1, 0).Range("A1").Select
Next
Next
End Function
Sub Spread_MAN()
For loop_1 = 1 To 11 //这里的loop是什么？
'很普通的变量，只不过又没有预定义
Call Test(loop_1) //Test(loop_1) 是做什么用的？
’调用Test，参数loop_l
Next
'Call Test(1)
End Sub
yxandyx 2002-12-19
  • 打赏
  • 举报
 回复
不知道
guguda 2002-12-19
  • 打赏
  • 举报
 回复
谢谢楼上的朋友们。
ETcat 2002-12-18
  • 打赏
  • 举报
 回复
don't know
up for you
zzd 2002-12-18
  • 打赏
  • 举报
 回复
操作Excel文件：
----------------------------------------------------------------------------------------
这是在EXCEL里加的BUTTON
Private Sub CommandButton1_Click()
Call Spread_MAN //调用Spread_MAN函数

Worksheets("MAN Label").Range("A1:I525").Copy //我认为是COPY man label工作表的A1:I525
ActiveSheet.Range("A271").PasteSpecial _ //粘贴到当然工作SHEET的A271
SkipBlanks:=True //这句是什么意思？[*** Excel中选择性粘贴-跳过空单元]

End Sub
---------------------------------------------------------------------------------------------
'anchor = "B240"
'anchor2 = "A252"
'products = 40
'table_spacing = 3
'layers = 11

Function Test(p_num) //定义了TEST函数 ()里的P_NUM是什么意思？
p_index = p_num

Call fills_first(p_index)
' B118 means start point
Range("B248").Select //这句不太明白，SELECT了B248什么？[*** 选中B列248行]
ActiveCell.Offset(0, p_index - 1).Range("A1").Select //这句不太明白[*** 选中某个单元格]
For j = 1 To 11 //我想知道这个for完成了什么工作？
Range("B248").Select
ActiveCell.Offset(j, p_index - 1).Range("A1").Select
' ActiveCell.Offset(1, 0).Range("A1").Select
If ActiveCell.Value = 0 Then
aa = 1 //这里的aa是个什么东西？aa不定事先定义吗？[***可以不事先定义]
Else
n_value = ActiveCell.Value
Call fills(n_value, j)
End If
b_value = ActiveCell.Value
Next
loop_count = p_index
' fixed_change_rows means distance between the table
fixed_change_rows = 44
' tmp matrix start point
tmp_matrix_row = 272
tmp_matrix_col = 2

' capacity matrix start point
capacity_row = 184
capacity_col = 2

' consumption materix start point
consumption_row = 35
consumption_col = 2


d_factor = Cells(capacity_row + p_index - 1, capacity_col + p_index - 1).Value
'Change 11 to whatever number to change column size
For j_1 = 1 To 11 //我想知道这个for完成了什么工作[***自己分析吧]
'B283 = tmp_matrix start point
Cells(tmp_matrix_row, tmp_matrix_col).Select //这是SELECT了什么？[*** 表示选中单元格，相当于用鼠标左键单击单元格]
' Range("B283").Select
' ActiveCell.Offset(fixed_change_rows * loop_count, j_1 - 1).Range("A1").Select
ActiveCell.Offset(fixed_change_rows * loop_count, p_index - 1).Range("A1").Select
'Change 40 to whatever number to change row size
For i_1 = 1 To 40
' temp_value = ActiveCell.Offset(-1 * fix_change_rows * loop_count, 0).Range("A1").Value
temp_value = Cells(tmp_matrix_row + i_1 - 1, tmp_matrix_col + j_1 - 1).Value * Cells(capacity_row + loop_count - 1, capacity_col + j_1 - 1).Value * Cells(consumption_row + i_1 - 1, consumption_col + loop_count - 1).Value
If (temp_value) <> 0 Then //这个for完成了什么工作[***自己分析吧，计算]
' Cells(tmp_matrix_row + fix_change_rows * loop_count, tmp_matrix_col + fix_change_rows * loop_count).Value = temp_value
ActiveCell.Value = temp_value
End If
ActiveCell.Offset(1, 0).Range("A1").Select
Next
Next

For i_2 = 1 To p_index - 1
m_factor = Cells(capacity_row + p_index - 1, capacity_col + i_2 - 1).Value
Cells(tmp_matrix_row, tmp_matrix_col).Select
ActiveCell.Offset(fixed_change_rows * loop_count, i_2 - 1).Range("A1").Select
For i_3 = 1 To 40
If m_factor <> 0 Then
temp_value_1 = (Cells(tmp_matrix_row + (fixed_change_rows * loop_count) + i_3 - 1, tmp_matrix_col + p_index - 1).Value / d_factor) * m_factor //这里是不是进行了一个VALUE的计算？[***自己分析吧]
If (temp_value_1) <> 0 Then
ActiveCell.Value = temp_value_1
End If
End If
ActiveCell.Offset(1, 0).Range("A1").Select
Next
Next
End Function
Function do_it(j_value, xx)
Range("B248").Select
ActiveCell.Offset(0, xx - 1).Range("A1").Select
For k = 1 To 11
ActiveCell.Offset(1, 0).Range("A1").Select
If ActiveCell.Value = 0 Then
aa = 1
Else
n_value = ActiveCell.Value * j_value
row_number = ActiveCell.Row
col_number = ActiveCell.Column
Call fills(n_value, k)
Range("A1").Select
ActiveCell.Offset(row_number - 1, col_number - 1).Range("A1").Select
End If
Next
End Function
Function fills(p_value, p_x)
pp_x = p_x
b_value = p_value
'Arrow table start point
major_row = 208
major_col = 2
Range("A272").Select
ActiveCell.Offset(0, pp_x).Range("A1").Select
For i = 1 To 40
' a_value = ActiveCell.Offset(0, -18).Range("A1").Value
a_value = Cells(major_row + i - 1, major_col + pp_x - 1).Value
If (a_value * b_value) <> 0 Then
ActiveCell.Value = a_value * b_value
End If
ActiveCell.Offset(1, 0).Range("A1").Select
Next
Call do_it(b_value, p_x)
End Function
Function fills_first(p_y)
pp_y = p_y
' Range("A252").Select
' ActiveCell.Offset(0, pp_y).Range("A1").Select
major_row = 208
major_col = 2
For n_1 = 1 To pp_y
Range("A272").Select
ActiveCell.Offset(0, n_1).Range("A1").Select
For i = 1 To 40
c_value = Cells(major_row + i - 1, major_col + n_1 - 1).Value
If (c_value) <> 0 Then
ActiveCell.Value = c_value
End If
ActiveCell.Offset(1, 0).Range("A1").Select
Next
Next
End Function
Sub Spread_MAN()
For loop_1 = 1 To 11 //这里的loop是什么？
Call Test(loop_1) //Test(loop_1) 是做什么用的？
Next
'Call Test(1)
End Sub
guguda 2002-12-18
  • 打赏
  • 举报
 回复
这是EXCEL里的VBA，步跟踪调试...........
leileisoft 2002-12-18
  • 打赏
  • 举报
 回复
太多了，最好单步跟踪调试了。VB的调试很方便，就看你怎么样用了。用STOP及消息框。
guguda 2002-12-18
  • 打赏
  • 举报
 回复
大哥啊，你别到处给我"呵呵"啊!解决问题才是真的!
‘呵呵’没分!
vata 2002-12-18
  • 打赏
  • 举报
 回复
太多了,呵呵.
用VB编写的数独游戏解法的小程序
这个绝对不是病毒，我自己用visual basic编写的解答数独的小程序。。。。不收费哦。。欢迎大家下载使用！！ 什么是数独游戏(可以参考百度百科) 数独（すうどく，Sūdoku）是一种运用纸、笔进行演算的逻辑游戏。玩家...
智力问答测试软件
本人写的一款智力问答测试程序，请大家使用！ 几点说明： 1、运行程序需安装".NET framework2.0"工具包 2、本程序需用户登录，登录用户名和密码均为“admin”。 3、测试试题共10题，每题10分，满分100分...
计算机二级（VB）
计算机二级（VB）教程，全面、系统、细致地介绍了计算机二级（VB）的相关知识点。 课程能够帮助学习者快速入门。 该课程面向对象： 备考计算机二级（VB）的课程 备课期末考试 自学VB程序设计 课程注意提高学习者实战...
arcgis工具
应用工具CALCULATE AREA 或者使用VBA代码实现 新建字段并开启Advanced 写入代码，面积计算： Dim Output as double Dim pArea as Iarea Set pArea = [shape] 在最后的一个空格里面写入代码（即:字段名）pArea...
c# 学 习 网 址
描述：微软知识库，开发的时候遇到的怪问题，可能会在这里找到答案。 名称：MSDN 地址：http://msdn.microsoft.com/ 描述：这个就不用多说了吧，虽然出了中文MSDN，但是资料还是不够全，英文的就什么都有了。 ...
community_281

590

社区成员

254,059

社区内容

发帖
与我相关
我的任务
社区描述
提出问题
其他 技术论坛（原bbs）
社区管理员
  • community_281
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

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

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

+ 用AI写文章