家事通记账本 Just-Saving! VB应用习作

hbszyxm · 发表于 2010-2-2 15:56

希望新的版本尽快出来。盼望中

dsuny · 发表于 2010-2-3 09:47

CheckCreditAuto函数出现错误，将AutoDate = DateSerial(Year(Date), Month(Date), .Range("Q" & i + 6))，修改为AutoDate = DateSerial(Year(Date), Month(Date), .Range("Q" & i + 7))，即可。

SunJOE · 发表于 2010-2-3 10:35

新版导入v900.300.2007数据时，出现错误9：下标越界。

系统为win7英文版，excel为office 2007中文版。

simonzhang2008 · 发表于 2010-2-3 12:06

原帖由 dsuny 于 2010-2-3 09:47 发表
CheckCreditAuto函数出现错误，将AutoDate = DateSerial(Year(Date), Month(Date), .Range("Q" & i + 6))，修改为AutoDate = DateSerial(Year(Date), Month(Date), .Range("Q" & i + 7))，即可。

谢谢！新版更正中。
出现此问题的朋友，点击“调试”，请临时参照修改一下，然后保存。
将
AutoDate = DateSerial(Year(Date), Month(Date), .Range("Q" & i + 6))
修改为
AutoDate = DateSerial(Year(Date), Month(Date), .Range("Q" & i + 7))

simonzhang2008 · 发表于 2010-2-3 12:09

原帖由 SunJOE 于 2010-2-3 10:35 发表
新版导入v900.300.2007数据时，出现错误9：下标越界。

系统为win7英文版，excel为office 2007中文版。

请点击“Debug”，然后截图上来，谢谢。

透明娃娃 · 发表于 2010-2-3 14:03

原帖由 simonzhang2008 于 2010-2-3 12:06 发表

谢谢！新版更正中。
出现此问题的朋友，点击“调试”，请临时参照修改一下，然后保存。
将
AutoDate = DateSerial(Year(Date), Month(Date), .Range("Q" & i + 6))
修改为
AutoDate = DateSerial(Year(Date), ...

改好了O(∩_∩)O

水中月12345 · 发表于 2010-2-3 16:51

我用此表格已经1个月了，之前都很好，今天突然打开后都是乱码了，跪求原因？

simonzhang2008 · 发表于 2010-2-3 16:53

V0.95.200简体版正式发布

simonzhang2008 · 发表于 2010-2-3 16:54

原帖由 水中月12345 于 2010-2-3 16:51 发表
我用此表格已经1个月了，之前都很好，今天突然打开后都是乱码了，跪求原因？

勿跪只求即可，呵呵。
如何乱码可否描述或截图上来。

水中月12345 · 发表于 2010-2-3 17:07

都是这样的乱码：#VALUE! #VALUE!
#VALUE! #VALUE!
#VALUE! #VALUE!
#VALUE! #VALUE!
#VALUE! #VALUE!
出现此问题的朋友，点击“调试”，请临时参照修改一下，然后保存。
将
AutoDate = DateSerial(Year(Date), Month(Date), .Range("Q" & i + 6))
修改为
AutoDate = DateSerial(Year(Date), ...

可是我没有找到调试啊。。我这个好像是2007版本的吧

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

[分享] 家事通记账本 Just-Saving! VB应用习作

CheckCreditAuto出现错误

用了1个月出了故障