smith203 发表于 2011-5-27 14:19:51

【已解决】excel 打印箱号的问题

本帖最后由 smith203 于 2011-5-28 21:26 编辑

我要在excle中打印箱号， 比如一共有5箱货，
分别打出 ：
1/5   
2/5   
3/5   
4/5
5/5

请问怎么写代码？谢谢

kevinch 发表于 2011-5-27 14:42:33

位置？附件呢？

smith203 发表于 2011-5-27 14:46:16

不好意思，请看图片。

kevinch 发表于 2011-5-27 18:42:57

本帖最后由 kevinch 于 2011-5-27 18:44 编辑

$i_N=InputBox("输入","请输入箱数：")
if Number($i_N)>0 Then
        Dim $a_Arr[$i_N]
        For $i_I=1 to $i_N
                $a_Arr[$i_I-1]=$i_I&"/"&$i_N
        next
        $o_Excel=ObjCreate("excel.application")
        $o_Excel.visible=false
        $o_Workbook=$o_Excel.workbooks.add
        with $o_Workbook.activesheet
                .columns(1).numberformatlocal="@"
                .cells(1,1).resize($i_N,1)=.parent.parent.transpose($a_Arr)
        EndWith
        $o_Excel.visible=True
EndIf这个试下

smith203 发表于 2011-5-28 11:14:28

谢谢， 搞定了， 在下一定努力学习啊。
不过数量多的话， 弄两列比较好打印， 如果这样的话要怎么改？谢谢。

kevinch 发表于 2011-5-28 20:08:59

改数组的维数和数据内容就行了

smith203 发表于 2011-5-28 21:25:49

老实说， 你的代码我现在还看不懂， 不过还是谢谢你拉， 我慢慢学。

kevinch 发表于 2011-5-28 21:36:03

其实像你那样的数据，先把单元格设置成分数形式，然后再在A1输入1/5，A2输入2/5，然后选中A1:A2区域，鼠标移到右下角会变成十字形状，点住向下一拖就可以实现了，根本用不到写程序的{:face (197):}
Excel其实是很强大的！！

smith203 发表于 2011-5-29 15:26:32

楼上， 我试过， 这个方法不行， 还是我试的有问题？ 还是au3了， 呵呵。

kevinch 发表于 2011-5-29 16:50:22

A1单元格输入=row()&"/5"然后向下右下角向下拖，试下
页: [1]
查看完整版本: 【已解决】excel 打印箱号的问题