请VB高手帮忙，解释一下这段程序！
看不懂了,请高手指点,谢谢!
For k = 1 To 16
For j = 1 To 29
If k > 13 Then
strj = "A" + Chr(38 + 2 * k) + Trim(Str(j + 4))
Else
strj = Chr(64 + 2 * k) + Trim(Str(j + 4))
End If
Range(strj).Select
c(j, k) = c(j, k) + Val(Selection.Value)
Next j
Next k
For k = 1 To 16
For j = 1 To 29
If k > 13 Then
strj = "A" + Chr(38 + 2 * k) + Trim(Str(j + 4))
Else
strj = Chr(64 + 2 * k) + Trim(Str(j + 4))
End If
Range(strj).Select
c(j, k) = c(j, k) + Val(Selection.Value)
Next j
Next k
请高手帮忙？
2005-06-06 12:07
本问题共 3 个回答，登录后查看全部
登录查看
相关问题
高手帮忙解释一下
0 回答 · 2205 浏览
国外图纸标注，高手帮忙解释一下。急！！！
1 回答 · 1668 浏览
这段时间里积累的几个问题 想请教一下
8 回答 · 2617 浏览
请各位高手帮忙解释品质代理字母的含义
2 回答 · 2399 浏览
有哪位高手来帮忙解释下美国图纸的公差
2 回答 · 5424 浏览
[原创]逃不脱只是这段时光.
7 回答 · 3897 浏览
[原创]我的积分为什么这段时间涨的不快？
9 回答 · 2969 浏览
进6SQ这段日子我好开心!!!!!!!
11 回答 · 2847 浏览
留恋的是这段情,还是这个人？？
9 回答 · 2471 浏览
这段时间看不到蚂蚁的发言了
4 回答 · 2991 浏览