精华好帖回顾
· 澳洲常见庭院植物赏析（我整理好久的） (2014-3-2) liuliuhaha	· 上海---我的弄堂情结 (2011-7-31) JerryWu
· 来澳11年，昨天买下了俺的在澳洲的第四辆车。 (2006-1-13) melbren	· 烟雨西湖， #32楼，后期讨论。#40楼增加后期方法和原图 (2012-12-19) alextzj

查看: 1443|回复: 11

[IT] 请问有没有筒子懂VBA在excel里面的运用？ [复制链接]

琪琪

皮靴族

发表于 2007-9-10 14:39 |显示全部楼层

此文章由琪琪原创或转贴，不代表本站立场和观点，版权归 oursteps.com.au 和作者琪琪所有！转贴必须注明作者、出处和本声明，并保持内容完整

research做到现在，计算越来越复杂，因为一个专业软件是基于excel，所以想用vba来编程。
可是俺是编程白痴。。。
不知道有没有熟悉的筒子提点一下。。
先谢了。。。

dfg

金靴族

发表于 2007-9-10 15:22 |显示全部楼层

此文章由 dfg 原创或转贴，不代表本站立场和观点，版权归 oursteps.com.au 和作者 dfg 所有！转贴必须注明作者、出处和本声明，并保持内容完整

网上很多关于VBA开发的啊。记得某个编程论坛里收集了不少源代码泥。

LoveAu

皮靴族

发表于 2007-9-10 15:46 |显示全部楼层

此文章由 LoveAu 原创或转贴，不代表本站立场和观点，版权归 oursteps.com.au 和作者 LoveAu 所有！转贴必须注明作者、出处和本声明，并保持内容完整

把问题贴上来吧, 那么多IT高手, 没准有人能帮你.

琪琪

皮靴族

发表于 2007-9-10 17:07 |显示全部楼层

此文章由琪琪原创或转贴，不代表本站立场和观点，版权归 oursteps.com.au 和作者琪琪所有！转贴必须注明作者、出处和本声明，并保持内容完整

好的谢谢楼上。
我整理整理头绪就发上来。
现在关键问题是我一点概念都没有不晓得vba是个啥东西。。
搬了本英语的书在啃ing

杂烩饭

皮靴族

发表于 2007-9-10 17:13 |显示全部楼层

此文章由杂烩饭原创或转贴，不代表本站立场和观点，版权归 oursteps.com.au 和作者杂烩饭所有！转贴必须注明作者、出处和本声明，并保持内容完整

你那要是有现成的话，用excel打开，右键worksheet的name,code，就能看到了代码环境了。
然后比着做吧

琪琪

皮靴族

发表于 2007-9-10 17:16 |显示全部楼层

此文章由琪琪原创或转贴，不代表本站立场和观点，版权归 oursteps.com.au 和作者琪琪所有！转贴必须注明作者、出处和本声明，并保持内容完整

我需要的计算在excel里面计算一次，我会算。。。
但是我需要计算至少10的6次方次然后把结果列出来进行概率统计。。。我就傻了。。因为前面的计算不止是简单的数值运算，需要用到goalseek

[ 本帖最后由小猪琪琪于 2007-9-10 16:18 编辑 ]

baolqun

银靴族

发表于 2007-9-10 17:34 |显示全部楼层

此文章由 baolqun 原创或转贴，不代表本站立场和观点，版权归 oursteps.com.au 和作者 baolqun 所有！转贴必须注明作者、出处和本声明，并保持内容完整

原帖由 小猪琪琪 于 2007-9-10 16:16 发表
我需要的计算在excel里面计算一次，我会算。。。
但是我需要计算至少10的6次方次然后把结果列出来进行概率统计。。。我就傻了。。因为前面的计算不止是简单的数值运算，需要用到goalseek

这是计算啥呀。。。那么折腾。。。

既不回头，何必不忘。既然无缘，何须誓言。今日种种，似水无痕。明夕何夕，君已陌路。
_________________________________________________________________________________
If (! turnback) {
forget = false;} else if (! possible) {
promise = null;}For (events in life) { // Where as water leaves no scar;
While (day == true and night == true) {
road = null;
person = &quot;stranger&quot;;
Return road, person;
}}

jl162401

金靴族

发表于 2007-9-10 17:38 |显示全部楼层

此文章由 jl162401 原创或转贴，不代表本站立场和观点，版权归 oursteps.com.au 和作者 jl162401 所有！转贴必须注明作者、出处和本声明，并保持内容完整

算1000000次的结果你打算存在哪里，excel最多65535行啊，存access数据库里面估计可以的？

用goalseek算的东西估计不容易用VBA实现吧:
GoalSeek Method [Excel 2003 VBA Language Reference]

Calculates the values necessary to achieve a specific goal. If the goal is an amount returned by a formula, this calculates a value that, when supplied to your formula, causes the formula to return the number you want. Returns True if the goal seek is successful.

expression.GoalSeek(Goal, ChangingCell)

expression Required. An expression that returns a Range object. Must be a single cell.

Goal Required Variant. The value you want returned in this cell.

ChangingCell Required Range. Specifies which cell should be changed to achieve the target value.
Example

This example assumes that Sheet1 has a cell named "Polynomial" that contains the formula =(X^3)+(3*X^2)+6 and another cell named "X" that's empty. The example finds a value for X so that Polynomial contains the value 15.

Worksheets("Sheet1").Range("Polynomial").GoalSeek _
Goal:=15, _
ChangingCell:=Worksheets("Sheet1").Range("X")

到www.excelhome.net上发个贴问问吧，那都是VBA的高手

[ 本帖最后由 jl162401 于 2007-9-10 16:44 编辑 ]

评分

参与人数 1	积分 +4	收起理由
小猪琪琪	+ 4	感谢分享

查看全部评分

琪琪

皮靴族

发表于 2007-9-10 18:43 |显示全部楼层

此文章由琪琪原创或转贴，不代表本站立场和观点，版权归 oursteps.com.au 和作者琪琪所有！转贴必须注明作者、出处和本声明，并保持内容完整

原帖由 baolqun 于 2007-9-10 16:34 发表

这是计算啥呀。。。那么折腾。。。

monte carlo simulation

琪琪

皮靴族

发表于 2007-9-10 18:44 |显示全部楼层

此文章由琪琪原创或转贴，不代表本站立场和观点，版权归 oursteps.com.au 和作者琪琪所有！转贴必须注明作者、出处和本声明，并保持内容完整

原帖由 jl162401 于 2007-9-10 16:38 发表
算1000000次的结果你打算存在哪里，excel最多65535行啊，存access数据库里面估计可以的？

用goalseek算的东西估计不容易用VBA实现吧:
GoalSeek Method

Calculates the values necessary to achieve a spe ...

十分感谢~~