终极武器 : 解决无记认凭证的对账(多张发票凑数字凑金额) - 需要装Lingo软件

灰袍法师 · 发表于 2010-12-4 17:01

原帖由 doudongfeng 于 2010-12-4 16:30 发表
求助：对于1型问题多对多的情况，再扩展一下，需要按不同货品的发票来对应，同种货品才能对应，可以解决吗？详见附件。十分感谢，呵呵。

写个VBA循环，每种货品挑出来单独求解一次就好了

没必要在求解模型里面做。

阿匕 · 发表于 2010-12-27 13:46

下载了可是怎么用啊
就一个写代码的窗口
不会用啊
大师指教！！！
要求做多对多的

lmx19860423 · 发表于 2011-2-17 10:23

Dim Lingo As Object '声明一个对象

Private Sub CommandButton1_Click()
Dim iErr As Integer

Set Lingo = CreateObject("LINGO.Document.4") '设置这个对象为 Lingo 对象

'使用Lingo对象的属性，去执行Excel名称 = LingoModel中包含的Lingo命令行语句, 返回错误代码
iErr = Lingo.RunScriptRange("LingoModel")

If (iErr > 0) Then MsgBox ("Unable to solve model. ERROR CODE:" & Str(iErr))

End Sub

求帮助

yuk_yu · 发表于 2011-2-17 11:42

看看,将来用的着!

开心是我 · 发表于 2011-2-28 11:40

现在就需要这个，谢谢分享

flysum2008 · 发表于 2011-8-23 17:25

法师，牛人！谢谢分享！辛苦了！{:soso_e179:}我今天有幸看到这个帖子，但在实际操作中程序运行一会儿了就提示：“excel正等待其他某个应用程序以完成对象链接与嵌入操作”，不知道是什么原因？另外我想问下是不是必须要有1000行数据啊，我把数据减少到200多就不正常，增加到1000行就正常了，不知道什么原因？麻烦法师及各位老师帮忙！！谢谢！

flysum2008 · 发表于 2011-8-23 17:33

我看很多人问LINGO8下载地址，我在这里下载的，可以用，安装完成后重启 http://www.jju.edu.cn/lxy/09_global/11_sxjm_1.asp?id=425

灰袍法师 · 发表于 2011-8-23 18:27

本帖最后由灰袍法师于 2011-8-23 18:35 编辑

flysum2008 发表于 2011-8-23 17:25
法师，牛人！谢谢分享！辛苦了！我今天有幸看到这个帖子，但在实际操作中程序运行一会儿了就提 ...

必须要有1000行数据
其实Lingo是靠Excel定义的名称去取数
你也可以写一段VBA来根据数据的实际行数定义名称，然后调用Lingo

“excel正等待其他某个应用程序以完成对象链接与嵌入操作”这个错误是因为Lingo求解时间太长，导致Excel无法获得求解结果
解决办法是把Lingo的运行语句复制到Lingo软件运行，而不是靠Excel调用，这样就不会有这个错误

最后，搜索我的主题帖就有另一个纯粹VBA的解决方法：偶尔会比Lingo更好。

两个合用可以解决目前论坛出现过的所有此类问题。

flysum2008 · 发表于 2011-8-23 21:46

必须要有1000行数据
其实Lingo是靠Excel定义的名称去取数
你也可以写一段VBA来根据数据的实际行数定义名称，然后调用Lingo

谢谢详细讲解，我再试试，如果还有问题再请教！~！

李.SIR · 发表于 2011-9-1 10:44

好用吧(*^__^*) 嘻嘻……

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

[原创] 终极武器 : 解决无记认凭证的对账(多张发票凑数字凑金额) - 需要装Lingo软件