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

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

Article #388

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

#388

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

27 lines
1769 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
        Worksheets("Sheet2").Cells(rwIndex + 1, 1).Value = oursheetmax.Value
        Worksheets("Sheet2").Cells(rwIndex + 1, 2).Value = oursheetmin.Value
  Next rwIndex

End Sub

    
����д�˺�Set oursheet = Worksheets("Sheet1").Cells(rwIndex + 48 * rwIndex, 7)�ܱ�����?�ǲ����ٶ�����ʲô��


�� �� whitingshark (�����) �Ĵ������ᵽ: ��
: ������������ֵд��һ���µ�sheet�Ӧ����ô������



--

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

Technical Details

Message-ID: <4RPSHK$6G2@newsmth.net>

Path:

arc1-ca.pugleaf.net!g2news2.google.com!news3.google.com!news.glorb.com!news.szu.edu.cn!news.bbh.net.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.szu.edu.cn!news.bbh.net.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:47:33 GMT
Organization: ˮľ����
Message-ID: <4RPSHK$6G2@newsmth.net>
Mime-Version: 1.0
Content-Type: text/plain; charset="gb2312"
Content-Transfer-Encoding: 8bit
X-Filename: VisualBasic/s/M.1165373252.b0

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

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

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