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

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

本帖最后由 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区域，鼠标移到右下角会变成十字形状，点住向下一拖就可以实现了，根本用不到写程序的

Excel其实是很强大的！！

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

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

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

A1单元格输入

=row()&"/5"

然后向下右下角向下拖，试下

		自动登录	找回密码
密码			加入

[效率算法] 【已解决】excel 打印箱号的问题

相关帖子

本帖子中包含更多资源

本帖子中包含更多资源

浏览过的版块