请VB区的朋友们帮我看看这段代码，我把问题用“//”注出来了。请解释一下。谢谢。

guguda 2002-12-18 03:39:40
问题也在下边了，我用"//"注出来了。请帮我看看。帮我解释一下。谢谢。
----------------------
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
...全文
25 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
NewType 2002-12-19
  • 打赏
  • 举报
 回复
bigbigfans(小骁) 解释的很清楚了。你自己再试试吧。
guguda 2002-12-19
  • 打赏
  • 举报
 回复
谢谢楼上的朋友们。谢谢。
bigbigfans 2002-12-18
  • 打赏
  • 举报
 回复
问题也在下边了，我用"//"注出来了。请帮我看看。帮我解释一下。谢谢。
----------------------
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

1）程序很多是控制Excel的宏，程序是直接控制Excel表的, 如果知道了就很方便，直接在Excel上试试就知道干什么的
2)程序的变量没有定义，虽然VB允许，但也是非常危险的。
3)程序很可能不是VB上的程序，完全是Excel的宏。默认名称CommandButton1的是office的控件。
zyplwt 2002-12-18
  • 打赏
  • 举报
 回复
我知道什么就写什么了,估计有不少都是象素,你把对象里的属性,方法看明白就行了
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是一个标志吧,形不用事先定义
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_1只是普通变量而已
Call Test(loop_1) //Test(loop_1) 是做什么用的？
Next
'Call Test(1)
End Sub

hengxin54 2002-12-18
  • 打赏
  • 举报
 回复
太长了，不想看，你要实现什么功能？
shisanjin 2002-12-18
  • 打赏
  • 举报
 回复
:<...
guguda 2002-12-18
  • 打赏
  • 举报
 回复
楼上的什么意思啊？你怎么把我的问题COPY一遍啊？
feixuehenshui 2002-12-18
  • 打赏
  • 举报
 回复
问题也在下边了，我用"//"注出来了。请帮我看看。帮我解释一下。谢谢。
----------------------
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
用VB6+GDI+开发交互式CAD系统
本课程用VB6(Visual Basic)结合GDI+，从无到有开发一个功能较完整的小型交互式CAD系统。 作者有交互式CAD系统、动态几何系统开发经验。出版过交互式CAD系统开发方面的图书。 课程先讲准备知识，然后讲整个系统...
真正的vb木马
这篇文章不是我写的,我也正在研究,里面很多代码都有错误,希望高手把代码调试完了发给我,谢了`~~~(奉劝各位学VB的朋友,不要以为用WINSOCK控件连接的两个窗口就是木马,VB木马真正的核心还是API) 一、开篇废话一箩筐 ...
新英汉翻译词典软件vb代码
Private Sub Command1_Click() Dim i, Z As String Dim n As Integer i = Text1.Text For n = 1 To 960 Select Case i case"abandon" Z = " v....case"abandonment" Z = " n....Z = " n....Z = " n....Z = " v....
真正的VB木马，不用WINSOCK控件
这篇文章不是我写的,我也正在研究,里面很多代码都有错误,希望高手把代码调试完了发给我,谢了`~~~(奉劝各位学VB的朋友,不要以为用WINSOCK控件连接的两个窗口就是木马,VB木马真正的核心还是API)一、开篇废话一箩筐VB写...
vb/vb.net开发技巧荟萃(七)
关于数据库的两个小问题 “VB与EXCEL、VB与ACCESS”的问题 VB画线 百思不得其解VB编小程序的错误 求牛人指导 我新手 VB 如何打开 指定的 TCP端口？ VB6.0获取计算机名 用户名最简单的方法 如...
VB基础类

7,763

社区成员

197,609

社区内容

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

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

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

+ 用AI写文章