Re: ��̣�excel��ѭ��

Article View: cn.bbs.comp.lang.visual-basic

Article #389

Back to cn.bbs.comp.lang.visual-basic Previous Next

#389

From: ��
Date: Wed, 06 Dec 2006 02:53

16 lines
1212 bytes

�ο��˰�����
Sub RoundToZero1()
    For Counter = 1 To 20
        Set curCell = Worksheets("Sheet1").Cells(Counter, 3)
        If Abs(curCell.Value) < 0.01 Then curCell.Value = 0
    Next Counter
End Sub
   �������ʣ�Ӧ����ʲô����
�� �� cjycleaner (һֻ��������|Ǭ��һ��) �Ĵ������ᵽ: ��
: �Ǿ䲻��ʹ��set�ؼ���



--

[m[33m�� ��Դ:��ˮľ���� http://newsmth.net��[FROM: 210.31.68.*][m

Technical Details

Message-ID: <4RPSOQ$5ij@newsmth.net>

Path:

arc1-ca.pugleaf.net!g2news2.google.com!news3.google.com!news.glorb.com!news.netfront.net!newsgate.cuhk.edu.hk!news.neu.edu.cn!news.newsmth.net!NEWSMTH

Show Full Headers

Complete Article Headers

X-Google-Thread: 109fdd,431ad5d0a6970fbb
X-Google-Attributes: gid109fdd,public
X-Google-Language: ENGLISH,GB
Path: arc1-ca.pugleaf.net!g2news2.google.com!news3.google.com!news.glorb.com!news.netfront.net!newsgate.cuhk.edu.hk!news.neu.edu.cn!news.newsmth.net!NEWSMTH
From: whitingshark@newsmth.net-SPAM.no (�����)
Newsgroups: cn.bbs.comp.lang.visual-basic
Subject: Re: ��̣�excel��ѭ�������
Date: 06 Dec 2006 02:53:14 GMT
Organization: ˮľ����
Message-ID: <4RPSOQ$5ij@newsmth.net>
Mime-Version: 1.0
Content-Type: text/plain; charset="gb2312"
Content-Transfer-Encoding: 8bit
X-Filename: VisualBasic/i/M.1165373594.Z0
Lines: 16

Article View: cn.bbs.comp.lang.visual-basic

Re: ��̣�excel��ѭ�������

Re: ��̣�excel��ѭ��