[已解决]修改代码生成新的宏

759857387

爱疯 发表于 2013-3-23 10:04

谢谢爱疯老师
原本是想在将附件中模块1的代码改写后看看代码差别的，现在得到老师的代码又有新收获，谢谢。

爱疯

我还是看不懂1楼目的，但明白了7楼示例的目的，没想别的就7楼目的而回的。

楼主还是回复下疯子老师的回复吧

759857387

无聊的疯子 发表于 2013-3-23 10:21
说明：附件中模块1是没有问题，是关于将表1股票代码写入表3 ，在将表3的对应价格写回表1.
    sheet3 是表 ...

老师的批评我虚心接受，不过我要说，想把意思说清楚确实比较啰嗦。
其一，模块1是那么的帅老师做的，作用是:1,将表1股票代码顺序写入表3；2，将表3再写回表1（表1是沿用那么的帅的写法）。目的是了解对应值的过程。
其二，我在理解上述代码时尤其是上述第2 个作用，有点不确定，所以想通过修改上述代码加深理解。因为上述带都是关于“行的”，那就改写成列，7楼的附件已经非常清楚表明了。
其三，因为是改写，所以只能将原来的附件上传，我知道这样会比较说不清楚的，在此说声抱歉。

759857387

无聊的疯子 发表于 2013-3-23 10:21
说明：附件中模块1是没有问题，是关于将表1股票代码写入表3 ，在将表3的对应价格写回表1.
    sheet3 是表 ...

哈哈，不会累死cpu，用公式的方法我已经有了，纯粹是为掌握对应值代码中的含义，与从网上更新数据无关。

无聊的疯子

759857387 发表于 2013-3-23 10:46
老师的批评我虚心接受，不过我要说，想把意思说清楚确实比较啰嗦。
其一，模块1是那么的帅老师做的，作用 ...

如果你觉得要把问题描述清楚会比较啰嗦，那就在工作表里做几个示例，并做好数据结果来源说明

这样别人能一目了然，自然就能很快的想到对应的解决方法了！！

759857387

无聊的疯子 发表于 2013-3-23 11:10
如果你觉得要把问题描述清楚会比较啰嗦，那就在工作表里做几个示例，并做好数据结果来源说明

这样别人 ...

这里有个问题，就拿现在这个帖子做例子吧。
前边没有把问题说清楚，好了，在7楼重新上传了附件，爱疯老师看到很快就做出来了，好问题出来了
我原本是想将模块1改写，通过改写加深代码理解的，爱疯老师的代码虽然将问题解决了，可对理解代码却没有帮助（我没有任何不领情的意思）
我知道这里有些是不可逾越的，比如前一个代码和后一个代码不是一个人写的，自然写法不同。如果要学他们的不同就从原理学起吧。等等
这样不如大量实践的效果，就是把一段代码掂过来调过去啃烂为止，这样的多了就很容易合成代码，即由点到线到面。

爱疯

Range("a3").Resize(UBound(B), UBound(B, 2))
以A3单元格为区域左上角，让区域的：行数是数组变量B的1维维数，列数是数组变量B的2维维数
先只看这部分。这样设置后，区域是几行几列，数组也是几行几几列（只是形容一下），
数组B各元素和区域各单元格，一一对应。


.Range("a3").Resize(UBound(B), UBound(B, 2)).Value = B
相当于
区域.value=b
再整体来看，就是把数组b的值，赋值给了调整后的区域。

不信这样还重名

过来也学习下，爱疯版主的代码排版很简洁呀，这样子好看多了，值得学习

759857387

爱疯 发表于 2013-3-23 18:17
Range("a3").Resize(UBound(B), UBound(B, 2))
以A3单元格为区域左上角，让区域的：行数是数组变量B的1维 ...

太感谢爱疯老师的帮助，回去测试一下代码的不同，这样比较容易理解，谢谢！