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

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

Article #384

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

#384

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

22 lines
1558 bytes

Sub main()
  For rwIndex = 0 To 729
    For colIndex = 2 To 48
        Set oursheet = Worksheets("Sheet1").Cells(rwIndex + 48 * rwIndex, 7)
        Set oursheetmax = Worksheets("Sheet1").Cells(1 + 48 * rwIndex, 7)
        Set oursheetmin = Worksheets("Sheet1").Cells(1 + 48 * rwIndex, 7)
        If oursheetmax.Value < oursheet.Value Then oursheetmax.Value = oursheet.Value
        If oursheetmin.Value > oursheet.Value Then oursheetmin.Value = oursheet.Value
    Next colIndex
        �������ﲻ֪����ô�ѱȽϳ�����ֵд��ȥ�ˣ�������������
  Next rwIndex

End Sub
    
�� �� cjycleaner (һֻ��������|Ǭ��һ��) �Ĵ������ᵽ: ��
: ȡֵ,Ȼ��Ƚϰ�...



--

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

Technical Details

Message-ID: <4RPS17$20Q@newsmth.net>

Path:

arc1-ca.pugleaf.net!g2news2.google.com!news3.google.com!newshub.sdsu.edu!newsfeed.news2me.com!newsfeed.media.kyoto-u.ac.jp!news.cn99.com!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!newshub.sdsu.edu!newsfeed.news2me.com!newsfeed.media.kyoto-u.ac.jp!news.cn99.com!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:34:32 GMT
Organization: ˮľ����
Message-ID: <4RPS17$20Q@newsmth.net>
Mime-Version: 1.0
Content-Type: text/plain; charset="gb2312"
Content-Transfer-Encoding: 8bit
X-Filename: VisualBasic/I/M.1165372471.F0

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

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

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