主题：生成电子表的打印条件写法

内部表生成电子表时，请教如何写入打印条件

 

原来的写法是： Sheet1(3,12).Value = "<渠道='统发' and 是否在职 = '在职'  >"

现在想增加一个条件：进编年月 = CurrentY  * 10 + 8       其中，进编年月为字符列，CurrentY为全局整数变量

 

写了好几个写法都不对，就加了个代码:

                                                  Dim 本年进编月 As Integer = CurrentY * 10 + 8

 

然后写成 :

              Sheet1(3,12).Value = "<渠道='统发' and 是否在职 = '在职' and 进编年月 = 本年进编月 >"

 

进编年月 = 本年进编月 ,

此写法肯定不对，但改了好几种写法，都没有成功，敬请老师指教，这里和填写电子表里的数据好像很不同

 

谢谢版主

 

 

再请教一下：

 

（1） Sheet1(3,10).Value = " < [房积金] / 4 >  "   是将所有记录的数值除以4，如果要除以 CurrentM - 8 ，该怎么写？ （CurrentM是数值变量）

 

               " < [房积金] /  (CurrentM - 8) >  "   写法好像不行 

 

（2） 将上述的数值除以  （CurrentM - 8） 后，再求和，又该怎么写？

   

        " <(*[%sum(房积金)]*) /  (CurrentM - 8)  > "    行不行 ？

尝试写了好几个，都没有成功，其中第一个计算的时候 运算成 [房积金] / (  0- 8 ) ，把 [!CurrentM] 当成了0，

 

(1)把数据除以一个数

Sheet1(3,10).Value = " < [房积金] / ( [!CurrentM] - 8 ) >  "  

Sheet1(3,10).Value = " < * [房积金] / ( [!CurrentM] - 8 ) * >  "  

 

（2）上述数据累计求和

 Sheet1(4,10).Value = " <(*[%sum(房积金)]*) / ( [CurrentM] - 8)  > " 

 

请老师抽空指导一下，这个太难了，又没找到实例参考

甜老师，我这里的CurrentM是全局变量，数值是11

问题解决了，虽然不知道为什么。

 

本来 CurrentM 就是全局变量，但还是要先加一句代码：  vars("CurrentM") = CurrentM ，本例中CurrentM当前值为11

 

（1）填写原内部表“缴养老”列里的数值，并除以4，写法为

       vars("CurrentM") = CurrentM

       Sheet1(5,12).Value = " < [缴养老] / ( [!CurrentM] - 8 + 1 ) >  "
（2）对内部表“缴养老”列里的求和，并除以4，写法为

       vars("CurrentM") = CurrentM

       Sheet1(6,12).Value = " <(*[%sum(缴养老)]*)  / ( [!CurrentM] - 8 + 1 )  > "  

 

假如自定一个变量   Dim 月数 As Integer

然后赋值                vars("月数") = CurrentM

最后代码为               Sheet1(5,12).Value = " < [缴养老] / ( [!月数] - 8 + 1 ) >  "

似乎就有问题了，但什么原因就不知道了。

知道了，重新赋值，

 

这个代码试过，没有成功   ：

Sheet1(3,10).Value = " < [房积金] / ( " & CurrentM & " - 8 ) >  "