通过一题十解谈拓宽编程思路

doitbest · 发表于 2013-4-5 11:07

本帖最后由 doitbest 于 2013-4-5 11:12 编辑

liucqa 发表于 2013-4-5 10:38
对于VBA编程思路讨论，我的观点是这样的：

微软在开发Excel的时候，负责开发工作表功能和负责开发VBA功 ...

我不赞成以血统论人为限制VBA编程的思考方向，代码执行效率、思路多样性、代码编写的繁简度都是我们要综合考虑的。正是因为有了工作表函数等这些所谓“杂牌军”，VBA才有了自己的个性和特色，如果单独追求纯正，VB不是纯正千万倍吗，还要VBA干什么？就我理解，VBA就是一种大众化非专业的编程语言，“不看广告看疗效”，相信任何争论都不会引导VBA编程的发展方向，通俗易懂方便快捷，绝对是广大用户的不二选择。正如宋词代替唐诗，新诗又取代旧体诗一样，这就是规律！

doitbest · 发表于 2013-4-5 11:28

以上发贴中，既有工作表函数解法，也有纯数组解法，这并不代表我非常赞成前者，只是一种考虑和选择而已，关键是一种度的把握。我认为在一种平和的讨论和争鸣中才能生成更多更好的积淀，而不是非此即彼的二分法，各位老师以为如何？

香川群子 · 发表于 2013-4-5 11:35

doitbest 发表于 2013-4-5 11:07
我不赞成以血统论人为限制VBA编程的思考方向，代码执行效率、思路多样性、代码编写的繁简度都是我们要综合 ...

呵呵，楼主是初学VBA吧。

可以参考一下这个最近新的精华帖。
http://club.excelhome.net/thread-992826-1-1.html

关于VBA，尽管人为限制多样性是没有意义的，
但如果你不是把VBA代码的多样性本身当做追求的目标（舍本求末、买椟还珠）的话，

那么对于某些问题大家都接受并采用一样的高效、标准的解法并非坏事。

…………
并且，事实上好的VBA算法，不可能从你的那些代码例子中得到借鉴。
这个就是我为什么直言你的那些代码没有营养。

…………
最后说，VBA本身有其自身的规律，
凡是套用工作表函数或直接操作单元格的解法，一般说都不可能是好的算法。

有这种喜欢操作单元格想法的人，至少是还没有学好VBA的初级阶段。

office2008 · 发表于 2013-4-5 11:35

香川君子的两个例子都不难理解, 第二个代码, 思路很好,数组可考虑碰到特殊性再设置大一些,另外我一般不用APPLICATION.MAX , 取最大值多个循环

网上有些网友用工作表对象或其他内置对象本身的功能函数来完成任务, 其实这也是微软创造这个特色的EXCEL的初衷. 但如果自己想把这个VBA作为跳板学习更规范的VB或其他语言的话, 要多用非EXCEL对象本身功能的规范函数或对象, 用过一段时间后,会发现自己水平提高了,程序效率提高了,编个达到同样的目的的程序花的时间并不比用内置功能函数的时间多. 关键在于要习惯下来.

香川群子 · 发表于 2013-4-5 11:43

VBA虽然不是一个正规的编程工具，

但VBA提供的环境，使得写代码也可以非常接近编程的本质了。

关于【好的算法】，我个人的理解是：
尽量利用计算机计算能力强的特点，写出便于发挥计算机能力的算法代码。
而不是按照人类的思维习惯去解决问题。

一个代码是否便于理解不是问题。（有了足够的经验，水平高了自然就可以理解）

yqdaqinqin · 发表于 2013-4-5 14:51

非常完美！！！

yangxhhb · 发表于 2013-4-5 15:28

哎，敬佩啊，我还是初级阶段

billiechen · 发表于 2013-4-5 22:12

这个方式相当不错，开发思考！

office2008 · 发表于 2013-4-6 01:17

yqdaqinqin 发表于 2013-4-5 14:51
非常完美！！！

应该不算完美

id	值
1	0.5
2	0.6
3	0.7
2	0.2
3	0.11
4	0.33
1	0.4
2	0.62
3	0.31
3	0.31
3	0.31
2	0.62

以上数据只有第2和第5 是正确的.

还有我的代码还需修改,只考虑最大值4 没有考虑最小值不是1 ,假如是2或3的情况.

Sub kagawa3()
Dim i&, j&, k&, m&, n&, r&, t&
m = Range("A65536").End(3).Row - 1
arr = Range("A2").Resize(m, 2)
For i = 1 To m
If arr(i, 1) > n Then n = arr(i, 1) '取得最大值
If arr(i, 1) <= k Then j = j + 1 '取得组合数
k = arr(i, 1)
Next
t = n * (j + 1) + j '取得数组实际大小
ReDim brr(1 To t, 1)
k = 0
j = 0
For i = 1 To t
r = r + 1
brr(i, 0) = r
If r > n Then
brr(i, 0) = ""
r = 0
End If
If i <= m Then
If arr(i, 1) <= k Then
j = j + 1
End If
brr(j * (n + 1) + arr(i, 1), 1) = arr(i, 2)
k = arr(i, 1)
End If
Next
Range("D1").Resize(t, 2) = brr
End Sub

复制代码

yqdaqinqin · 发表于 2013-4-6 07:00

office2008 发表于 2013-4-6 01:17
应该不算完美
以上数据只有第2和第5 是正确的.

不好意思，我没有看结果！！！

		自动登录	找回密码
密码			免费注册

[原创] 通过一题十解谈拓宽编程思路

点评

评分

评分