求助：excel表里到期的项目在Outlook的行事历里自动出现提示

ck1668

lotustower高手，我的Excel正是和您上面的一样，抄您22楼后再按您40楼更改中间那段代码后，出现＂编译错误，语法错误＂

[此贴子已经被作者于2006-3-7 19:36:28编辑过]

ck1668

Dear lotustower,以上问题有办法解决吗？

lotustower

請看 40/F 的圖 (---> Excel Alt F11)，紅色方塊有 Sheet4 Bulk(大貨)

是否 Sheet4 ？？？

With Sheet4 '不用 With XL_app.Workbooks("OL_Reminder.xls").Sheets(2)

ck1668

Dear lotustower,正是和您40/F 的一样，我现在附上给您看看。 QhDndnGU.rar (8.39 KB, 下载次数: 11)

2006-3-6 19:40 上传

点击文件名下载附件

[此贴子已经被作者于2006-3-6 19:40:34编辑过]

lotustower

Excel 只有一頁 Outlook: i = 9 With XL_app.Workbooks("OL_Reminder.xls").Sheets(1)

[此贴子已经被作者于2006-3-7 8:37:01编辑过]

ck1668

Dear lotustower， 现在终于可以了，多谢您的帮忙！但为了以后如果表格有所变化，我自己也能解决，不再麻烦您，故想请教您以下几个问题： １）Excel表中的 “今天到期” 是参照G，J两栏的，但您的代码却没有出现这两个字母，它是怎样参照这两栏的？ ２）您的代码中有８处出现了字母 “ i ”，请问这个字母代表什么意思？ ３）当今天没有到期的生产单号时，它能不能不出现提醒视窗呢？或者象您上次的代码一样，出现 “今天没有到期生产单号” 这句话？因这次没有到期的生产单号时，它出现的还是 “今天到期生产单号”这句话，只是下面是空白的。这样会令人怀疑是不是出错了。

[此贴子已经被作者于2006-3-7 9:49:30编辑过]

lotustower

以下是引用[I]ck1668[/I]在2006-3-7 9:47:24的发言：
Dear lotustower， １）Excel表中的 “今天到期” 是参照G，J两栏的，但您的代码却没有出现这两个字母，它是怎样参照这两栏的？ G栏 自定格式 [Blue]"剩下"0"天";[Red]"已过"0"天";[Green]"今天到期" --> 0 = "今天到期" ２）您的代码中有８处出现了字母 “ i ”，请问这个字母代表什么意思？ cells(i ,1) , i = Row 變量; i = 9 --> 開始時是第 9 行 (列) ３）当今天没有到期的生产单号时，它能不能不出现提醒视窗呢？或者象您上次的代码一样，出现 “今天没有到期生产单号” 这句话？因这次没有到期的生产单号时，它出现的还是 “今天到期生产单号”这句话，只是下面是空白的。这样会令人怀疑是不是出错了。 Example: ..... Dim HaveItem As Boolean HaveItem = False ..... ..... Do While .Cells(i, 1) <> "" If .Cells(i, 7) = 0 Or .Cells(i, 10) = 0 Then HaveItem = True Bodytxt = Bodytxt & .Cells(i, "A") & Chr(10) End If i = i + 1 Loop End With If Not HaveItem Then Bodytxt = "今天沒有到期生產單號!"

Good Luck !!!

[此贴子已经被作者于2006-3-7 11:15:34编辑过]

ck1668

Dear lotustower， １）第１点我的意思是原本想知道您写的Outlook代码是怎样参照G， J两栏的，不过刚才我再看过您的代码，参照G， J两栏的应该是这句代码：If Cells(i, 7) = 0 Or Cells(i, 10) = 0 Then ' 0 = 今天到期。 但是，当我想再增加M栏，在上面的代码后面加上Or Cells(i, 13) = 0，并把含有10的其他２句代码中的10改为13，却不行。请问要怎样修改才对？ If Cells(i, 7) = 0 Or Cells(i, 10) = 0 Or Cells(i, 13) = 0 Then ' 0 = 今天到期。 Bodytxt = "今天到期生產單號" & Chr(13) Bodytxt = Bodytxt & .Cells(i, "A") & Chr(13) ２）请问下面这句代码应插到哪里？（其余的２句红色字体的代码我已插到相应的地方了） Dim HaveItem As Boolean HaveItem = False

[此贴子已经被作者于2006-3-7 12:03:39编辑过]

ck1668

Dear lotustower，

我实在不好意思再问您了，因我问您的太多了，耽误您的时间也太多了。但又怕以后遇到Excel表有什么变化，没人帮我解答。故还是硬着头皮再问您以下几个问题：

a〉 上面的第２点已解决了，我把它插在这句代码Bodytxt = "今天到期生產單號" & Chr(10)的下面，关闭Outlook后再打开，好像没有问题。但不知道正不正确。

b〉 第１点也解决了。我是这样做的：我将原来Or Cells(i, 10) = 0的10改为13，好像就没有问题了，不知道正不正确。但前面的代码If Cells(i, 7) = 0的７还是需要您指点一下，它代表什么？我开始以为7是代表开始的栏位，10是代表最后的栏位，但我试过，好像不是。

c〉 代码i = 9的9是不是代表开始的行数？

d〉 代码Chr(10)的10代表什么？

e〉 代码i = i + 1的1代表什么？

[此贴子已经被作者于2006-3-7 15:43:43编辑过]

lotustower

Dim HaveItem As Boolean
HaveItem = False

上方 Dim 之下

i = 9 的 9是不是代表开始的行数

是

Chr(10) 是 Line Feed 加一行

i = i + 1

加一行